From 7300e174c544949b3027eb83a61eac3ff0d4d02d Mon Sep 17 00:00:00 2001 From: rearman Date: Wed, 14 Dec 2022 15:46:29 -0500 Subject: [PATCH] Change layout of kasten folder & template Zettel are now of the form .org, in ~/org/kasten. Defun erfassen-zettel creates a filename with the current stamp when called in the capture template. Said template is updated to have a place-holder for tags at the end of a header. --- init.el | 16 +++++++++++----- 1 file changed, 11 insertions(+), 5 deletions(-) diff --git a/init.el b/init.el index 1ba2ed0..c174534 100644 --- a/init.el +++ b/init.el @@ -96,14 +96,14 @@ org-startup-indented t org-catch-invisible-edits 'show org-directory "~/org" - org-agenda-files '("~/org/") + org-agenda-files '("~/org/" "~/org/kasten/") org-refile-targets '((nil :maxlevel . 9) (org-agenda-files :maxlevel . 9)) org-default-notes-file (concat org-directory "/notes.org") org-service-notes-file (concat org-directory "/service.org") - org-capture-templates '(("t" "Default TODO" entry (file+datetree org-default-notes-file) - "* TODO %?") - ("s" "Service Req." entry (file+datetree org-service-notes-file) - "* TODO %?\nDEADLINE: %^t\n"))) + org-zettel-kasten (concat org-directory "/kasten/zettel.org") + org-capture-templates '(("t" "TODO" entry (file+datetree org-default-notes-file) "* TODO %?") + ("z" "Zettel" entry (file erfassen-zettel) "* %? ::") + ("s" "Service Req." entry (file+datetree org-service-notes-file) "* TODO %?\nDEADLINE: %^t\n"))) ;; OPTIONS (recentf-mode t) @@ -126,6 +126,12 @@ (xterm-mouse-mode 1)) ;; DEFUNS +(defun erfassen-zettel () + "Add a new zettel to the kasten. +Creates a new file .org in ~/org/kasten." + (interactive) + (expand-file-name (concat (format-time-string "%Y-%m-%d-%H%M") ".org") "~/org/kasten/")) + (defun open-line-below () "Creates a new empty line below the current line." (interactive) -- 2.39.5