From: rearman <rearman@r717.net>
Date: Wed, 25 Jan 2023 20:11:55 +0000 (-0500)
Subject: Change to datestamp-only names for erfassen-zettel
X-Git-Url: https://git.earman.xyz/?a=commitdiff_plain;h=0311da4fd87b2e8e3ba99824a1b252f9d9ffc638;p=emacsinit.git

Change to datestamp-only names for erfassen-zettel
---

diff --git a/org-setup.el b/org-setup.el
index d40d529..4cba3be 100644
--- a/org-setup.el
+++ b/org-setup.el
@@ -2,10 +2,9 @@
 ;; ORG SETTINGS AND DEFUNS
 (defun erfassen-zettel ()
   "Add a new zettel to the kasten.
-Creates a new file <datestamp>-name.org in ~/org/kasten."
+Creates a new file <datestamp>.org in ~/org/kasten."
   (interactive)
-  (let ((name (read-string "Zettel-Name: ")))
-  (expand-file-name (format "%s-%s.org" (format-time-string "%Y-%m-%d-%H%M") name) "~/org/kasten/")))
+  (expand-file-name (format "%s.org" (format-time-string "%Y-%m-%d-%H%M")) "~/org/kasten/"))
 
 (defun org-auto-archive ()
   "Automatically archive completed tasks in an org file.