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

cl-mapcan

Browse source
This commit is contained in:
dickmao 2020-01-11 21:04:36 -05:00
parent f8e6bebbab
commit b749cf7792
2 changed files with 9 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
features/step-definitions/ein-steps.el
View file

@ -496,6 +496,6 @@
(When "^text property at point includes \"\\(.+\\)\"$" (When "^text property at point includes \"\\(.+\\)\"$"
(lambda (properties) (lambda (properties)
(should-not (should-not
(mapcan (lambda (prop) (cl-mapcan (lambda (prop)
(not (get-text-property (point) (intern prop)))) (not (get-text-property (point) (intern prop))))
(split-string properties ","))))) (split-string properties ",")))))

12
lisp/ein-notebook.el
View file

@ -203,12 +203,12 @@ combo must match exactly these url/port you used format
(defun ein:notebook-buffer-list (notebook) (defun ein:notebook-buffer-list (notebook)
"Return the direct and indirect buffers." "Return the direct and indirect buffers."
(mapcan (lambda (ws) (cl-mapcan (lambda (ws)
(when-let ((ws-buf (ein:worksheet-buffer ws))) (when-let ((ws-buf (ein:worksheet-buffer ws)))
(with-current-buffer ws-buf (with-current-buffer ws-buf
(mapcar #'buffer-name (eieio-oref pm/polymode '-buffers))))) (mapcar #'buffer-name (eieio-oref pm/polymode '-buffers)))))
(append (ein:$notebook-worksheets notebook) (append (ein:$notebook-worksheets notebook)
(ein:$notebook-scratchsheets notebook)))) (ein:$notebook-scratchsheets notebook))))
(defun ein:notebook--get-nb-or-error () (defun ein:notebook--get-nb-or-error ()
(or ein:%notebook% (error "Not in notebook buffer."))) (or ein:%notebook% (error "Not in notebook buffer.")))