org

1 files changed, 17 insertions, 1 deletions

diff --git a/emacs/.doom.d/config.el b/emacs/.doom.d/config.el
index aa08eca..f2396bf 100644
--- a/emacs/.doom.d/config.el
+++ b/emacs/.doom.d/config.el
@@ -73,7 +73,7 @@
 (setq org-log-into-drawer t)
 (setq org-agenda-log-mode-items '(closed clock state))
 (setq org-roam-directory (concat org-directory "/roam"))
-(setq org-agenda-files (list org-roam-directory))
+(setq org-agenda-files (list (concat org-roam-directory "/todo.org")))
 (setq org-roam-db-location (concat org-roam-directory "/org-roam.db"))
 (setq org-export-with-toc nil)
 (setq deft-directory org-directory)
@@ -84,6 +84,22 @@
 (defvar kj/publish-tag "publish")
 (defvar kj/publish-directory "/ssh:orbekk@dragon.orbekk.com:/storage/srv/kj.orbekk.com")
 
+(setq org-journal-file-type 'weekly)
+(setq org-journal-dir org-roam-directory)
+(setq org-journal-file-format "journal-%Y-%m-%d.org")
+(setq org-journal-enable-agenda-integration t)
+(defun kj/org-file-level-id-get-create ()
+  (interactive)
+  (save-excursion
+    (goto-char (point-min))
+    (org-id-get-create)))
+
+(defun kj/org-journal-file-header (time)
+  (format-time-string "#+title: Week of %F (%W)\n"
+                      (org-journal--convert-time-to-file-type-time time)))
+(setq org-journal-file-header #'kj/org-journal-file-header)
+(add-hook 'org-journal-after-entry-create-hook 'kj/org-file-level-id-get-create)
+
 ;; Allow more keys when navigating with avy.
 (setq avy-keys '(?a ?o ?e ?u ?d ?h ?n ?s ?l ?, ?. ?p ?r))
 (setq avy-timeout-seconds 0.3)