Simplify ein:junk-new

This commit is contained in:
Takafumi Arakaki 2012-09-20 17:41:31 +02:00
parent 9e6bc9e863
commit 5e569fe745

View file

@ -55,15 +55,12 @@ format string which can be passed to `format-time-string'."
Notebook name is determined based on
`ein:junk-notebook-name-template'.
When any prefix argument is given, this command asks notebook
name to be used. When two universal prefix arguments (i.e.,
``C-u C-u``) are given, this command asks URL or port to use."
When prefix argument is given, it asks URL or port to use."
(interactive (let ((name (ein:junk-notebook-name))
(url-or-port (or (ein:get-url-or-port)
(ein:default-url-or-port))))
(setq name (read-string "Open notebook as: " name))
(when current-prefix-arg
(setq name (read-string "Rename notebook: " name)))
(when (equal current-prefix-arg '(16))
(setq url-or-port (ein:notebooklist-ask-url-or-port)))
(list name url-or-port)))
(ein:notebooklist-new-notebook-with-name name url-or-port))