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

Add new function ein:worksheet-next-input-cell

Browse source
This commit is contained in:
Takafumi Arakaki 2012-09-04 01:52:46 +02:00
parent a209691272
commit 6e24c989de
1 changed files with 11 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
lisp/ein-worksheet.el
View file

@ -595,17 +595,21 @@ If prefix is given, merge current cell into next cell."
;;; Cell selection.
(defun ein:worksheet-goto-input (ewoc-node up)
(defun ein:worksheet-next-input-cell (ewoc-node &optional up)
"Return a cell containing the next input node after EWOC-NODE.
When UP is non-`nil', do the same for the *previous* input node."
(let* ((ewoc-data (ewoc-data ewoc-node))
(cell (ein:$node-data ewoc-data))
(path (ein:$node-path ewoc-data))
(element (nth 1 path)))
(ein:aif
(if (memql element (if up '(output footer) '(prompt)))
cell
(funcall (if up #'ein:cell-prev #'ein:cell-next) cell))
(ein:cell-goto it)
(error "No %s input!" (if up "previous" "next")))))
(if (memql element (if up '(output footer) '(prompt)))
cell
(funcall (if up #'ein:cell-prev #'ein:cell-next) cell))))
(defun ein:worksheet-goto-input (ewoc-node up)
(ein:aif (ein:worksheet-next-input-cell ewoc-node up)
(ein:cell-goto it)
(error "No %s input!" (if up "previous" "next"))))
(defun ein:worksheet-goto-next-input (ewoc-node)
(interactive (list (and (ein:worksheet--get-ws-or-error)