denote journal modifications

1 files changed, 14 insertions, 0 deletions

diff --git a/bard-elisp/bard-writing.el b/bard-elisp/bard-writing.el
index cc99384..e1e4048 100644
--- a/bard-elisp/bard-writing.el
+++ b/bard-elisp/bard-writing.el
@@ -54,6 +54,16 @@
     (insert (format ":PROPERTIES:\n:ID:       %s\n:END:\n" id)))
   (save-buffer))
 
+(defun bard/denote-maybe-insert-id ()
+  "Insert a top-level :ID: unless this is a denote journal file."
+  (interactive)
+  (let ((file (buffer-file-name)))
+    (unless (and file
+                 (boundp 'denote-journal-directory)
+                 (string-prefix-p (expand-file-name denote-journal-directory)
+                                  (expand-file-name file)))
+      (bard/denote-insert-id-at-top))))
+
 (defun denote-sequence-region ()
   "Call `denote-sequence' and insert therein the text of the active region.
 
@@ -154,5 +164,9 @@ saved or killed at the end of `denote-sequence-region'."
 (global-set-key (kbd "C-c u") #'bard/jump-to-class)
 (global-set-key (kbd "C-c U") #'bard/jump-to-class-new-frame)
 
+(defun bard/denote-todo-template ()
+  "Return string for daily tasks heading in `denote-journal' entries"
+  (format "* Tasks for %s\n\n* Notes for today"
+          (format-time-string "%Y-%m-%d (%a)")))
 
 (provide 'bard-writing)