From 0311da4fd87b2e8e3ba99824a1b252f9d9ffc638 Mon Sep 17 00:00:00 2001 From: rearman Date: Wed, 25 Jan 2023 15:11:55 -0500 Subject: [PATCH] Change to datestamp-only names for erfassen-zettel --- org-setup.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) 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 -name.org in ~/org/kasten." +Creates a new file .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. -- 2.39.5