From 6ec029bc1e1718ed186730677e4c6ef98ceceb55 Mon Sep 17 00:00:00 2001 From: rearman Date: Fri, 9 Dec 2022 16:58:16 -0500 Subject: [PATCH] Add datetree to org templates, defuns and bindings Defuns to find-file the org default notes file, and the service notes file. --- init.el | 16 ++++++++++++++-- 1 file changed, 14 insertions(+), 2 deletions(-) diff --git a/init.el b/init.el index db8a636..d0106d8 100644 --- a/init.el +++ b/init.el @@ -97,9 +97,9 @@ org-directory "~/org" 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 org-default-notes-file) + org-capture-templates '(("t" "Default TODO" entry (file+datetree org-default-notes-file) "* TODO %?") - ("s" "Service Req." entry (file org-service-notes-file) + ("s" "Service Req." entry (file+datetree org-service-notes-file) "* TODO %?"))) ;; OPTIONS @@ -169,6 +169,16 @@ Can't go prev line first, edge case of beginning of buffer." (interactive) (find-file user-init-file)) +(defun find-org-service () + "Bring up org-service-notes-file for editing." + (interactive) + (find-file org-service-notes-file)) + +(defun find-org-default () + "Bring up org-default-notes-file for editing." + (interactive) + (find-file org-default-notes-file)) + (defun edit-work-eqs () "Bring up work-eqs.el for editing." (interactive) @@ -288,6 +298,8 @@ bar normally, hbar in read-only, and box in overwrite. Stolen from https://emac (global-set-key (kbd "C-c b") 'buffer-menu-other-window) (global-set-key (kbd "C-c i") 'edit-init) (global-set-key (kbd "C-c n") 'new-empty-buffer) +(global-set-key (kbd "C-c o s") 'find-org-service) +(global-set-key (kbd "C-c o n") 'find-org-default) (global-set-key (kbd "C-c r") 'rotate-windows) (global-set-key (kbd "C-c s") 'eshell) (global-set-key (kbd "C-c t") 'toggle-window-split) -- 2.39.5