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

Check cell type in ein:mumamo-find-edge

Browse source
This commit is contained in:
Takafumi Arakaki 2012-05-10 20:08:55 +02:00
parent b1f6760691
commit 4b15523e49
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
ein-mumamo.el
View file

@ -43,13 +43,13 @@
pos max
(lambda (pos max) "CHUNK-START-FUN"
(ein:log 'debug "CHUNK-START-FUN(pos=%s max=%s)" pos max)
(ein:aif (ein:mumamo-find-edge pos max)
(ein:aif (ein:mumamo-find-edge pos max nil #'ein:codecell-p)
(list it 'python-mode nil)))
(lambda (pos max) "CHUNK-END-FUN"
(ein:log 'debug "CHUNK-END-FUN(pos=%s max=%s)" pos max)
(ein:mumamo-find-edge pos max t))))
(ein:mumamo-find-edge pos max t #'ein:codecell-p))))
(defun ein:mumamo-find-edge (pos max &optional end)
(defun ein:mumamo-find-edge (pos max end cell-p)
"Helper function for `ein:notebook-mumamo-python'.
Return the point of beginning of the input element of cell after
@ -58,7 +58,9 @@ MAX. If END is non-`nil', end of the input element is returned."
(let* ((ewoc-node
(ein:notebook-get-nearest-cell-ewoc-node pos max))
(_ (ein:log 'debug "(null ewoc-node) = %s" (null ewoc-node)))
(cell (ein:aif ewoc-node (ein:$node-data (ewoc-data it))))
(cell (ein:aand ewoc-node
(ein:$node-data (ewoc-data it))
(if (funcall cell-p it) it)))
(_ (ein:log 'debug "(null cell) = %s" (null cell)))
(find
(lambda (c)