Add -name to zettel template

diff --git a/init.el b/init.el
index c174534550e2070dfe4138c4e070b27fc92a8795..4f00227c99aecff32fc1056046f6485643a6a98e 100644 (file)
--- a/init.el
+++ b/init.el
@@ -128,9 +128,10 @@
 ;; DEFUNS
 (defun erfassen-zettel ()
   "Add a new zettel to the kasten.
-Creates a new file <datestamp>.org in ~/org/kasten."
+Creates a new file <datestamp>-name.org in ~/org/kasten."
   (interactive)
-  (expand-file-name (concat (format-time-string "%Y-%m-%d-%H%M") ".org") "~/org/kasten/"))
+  (let ((name (read-string "Zettel-Name: ")))
+  (expand-file-name (format "%s-%s.org" (format-time-string "%Y-%m-%d-%H%M") name) "~/org/kasten/")))
 
 (defun open-line-below ()
   "Creates a new empty line below the current line."