Improve ein:notebooklist-new-notebook-with-name

This commit is contained in:
Takafumi Arakaki 2012-09-05 14:51:35 +02:00
parent 105f1af2b5
commit 5673bc751c

View file

@ -247,7 +247,11 @@ This function is called via `ein:notebook-after-rename-hook'."
;;;###autoload ;;;###autoload
(defun ein:notebooklist-new-notebook-with-name (name &optional url-or-port) (defun ein:notebooklist-new-notebook-with-name (name &optional url-or-port)
"Open new notebook and rename the notebook." "Open new notebook and rename the notebook."
(interactive "sNotebook name: ") (interactive (let* ((url-or-port (or (ein:get-url-or-port)
(ein:default-url-or-port)))
(name (read-from-minibuffer
(format "Notebook name (at %s): " url-or-port))))
(list name url-or-port)))
(ein:notebooklist-new-notebook (ein:notebooklist-new-notebook
url-or-port url-or-port
(lambda (notebook created name) (lambda (notebook created name)