From 3697273a84d9653d78d07bf4d551fbcf5159dca8 Mon Sep 17 00:00:00 2001 From: John Miller Date: Mon, 22 May 2017 08:02:42 -0500 Subject: [PATCH] slideshow: Clean up variable names (no more underscores). --- lisp/ein-cell.el | 4 ++-- lisp/ein-worksheet.el | 6 +++--- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/ein-cell.el b/lisp/ein-cell.el index c541d11..cab09e9 100644 --- a/lisp/ein-cell.el +++ b/lisp/ein-cell.el @@ -280,8 +280,8 @@ auto-execution mode flag in the connected buffer is `t'."))) (when (plist-get data :metadata) (ein:oset-if-empty cell :metadata (plist-get data :metadata)) (ein:aif (plist-get (slot-value cell 'metadata) :slideshow) - (let ((slide_type (nth 0 (cdr it)))) - (setf (slot-value cell 'slidetype) slide_type) + (let ((slide-type (nth 0 (cdr it)))) + (setf (slot-value cell 'slidetype) slide-type) (message "read slidetype %s" (slot-value cell 'slidetype)) (message "reconstructed slideshow %s" (ein:get-slide-show cell))))) cell) diff --git a/lisp/ein-worksheet.el b/lisp/ein-worksheet.el index 78abd97..6230135 100644 --- a/lisp/ein-worksheet.el +++ b/lisp/ein-worksheet.el @@ -562,15 +562,15 @@ directly." (interactive (list (ein:worksheet--get-ws-or-error) (ein:worksheet-get-current-cell) t)) - (let ((new_slide_type (ein:case-equal (oref cell :slidetype) + (let ((new-slide-type (ein:case-equal (oref cell :slidetype) (("-") "slide") (("slide") "subslide") (("subslide") "fragment") (("fragment") "skip") (("skip") "notes") (("notes") "-")))) - (message "changing slide type %s" new_slide_type) - (oset cell :slidetype new_slide_type)) + (message "changing slide type %s" new-slide-type) + (oset cell :slidetype new-slide-type)) (ewoc-invalidate (oref cell :ewoc) (ein:cell-element-get cell :prompt)) (ein:worksheet-empty-undo-maybe) (when focus (ein:cell-goto cell)))