hiro/emacs-ipython-notebook
1
0
Fork 0
mirror of https://github.com/vale981/emacs-ipython-notebook synced 2025-03-06 01:21:38 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

slideshow: Clean up variable names (no more underscores).

Browse source
This commit is contained in:
John Miller 2017-05-22 08:02:42 -05:00
parent f74d37ed0c
commit 3697273a84
2 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ein-cell.el
View file

@ -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)

6
lisp/ein-worksheet.el
View file

@ -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)))