From 5673bc751ce5311a969214089299654898633f6a Mon Sep 17 00:00:00 2001 From: Takafumi Arakaki Date: Wed, 5 Sep 2012 14:51:35 +0200 Subject: [PATCH] Improve ein:notebooklist-new-notebook-with-name --- lisp/ein-notebooklist.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/ein-notebooklist.el b/lisp/ein-notebooklist.el index 91b57cc..2cebe06 100644 --- a/lisp/ein-notebooklist.el +++ b/lisp/ein-notebooklist.el @@ -247,7 +247,11 @@ This function is called via `ein:notebook-after-rename-hook'." ;;;###autoload (defun ein:notebooklist-new-notebook-with-name (name &optional url-or-port) "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 url-or-port (lambda (notebook created name)