From 86c6cc6a5329a0b016f9b9da492acb6f0e0c59fb Mon Sep 17 00:00:00 2001
From: Kjetil Orbekk <kj@orbekk.com>
Date: Sun, 2 Jan 2022 13:19:34 -0500
Subject: org agenda

---
 emacs/.doom.d/config.el | 29 ++++++++++++++++++-----------
 1 file changed, 18 insertions(+), 11 deletions(-)

(limited to 'emacs/.doom.d/config.el')

diff --git a/emacs/.doom.d/config.el b/emacs/.doom.d/config.el
index 02d9c43..23a025d 100644
--- a/emacs/.doom.d/config.el
+++ b/emacs/.doom.d/config.el
@@ -75,8 +75,8 @@
 (setq org-agenda-start-day nil)
 (setq org-agenda-block-separator nil)
 (setq org-agenda-compact-blocks t)
-(setq org-agenda-start-with-log-mode t)
-(setq org-agenda-log-mode-items '(clock state))
+(setq org-agenda-start-with-log-mode nil)
+(setq org-habit-show-all-today t)
 (setq org-agenda-time-grid '((daily today require-timed) (800 1600) "......" "----------------------"))
 (setq org-roam-directory (concat org-directory "roam/"))
 (setq-default org-agenda-files '())
@@ -126,23 +126,29 @@
 (use-package! org-super-agenda
   :after org-agenda
   :init
+
   (setq org-agenda-custom-commands
-        '(("d" "Default KJ agenda"
+        '(("d" "Daily KJ agenda"
            ((agenda "" ((org-agenda-span 'day)
                         (org-agenda-start-day nil)
                         (org-super-agenda-groups
-                         '((:name "Past & Overdue"
+                         '((:name "Habits"
+                            :habit t
+                            :order 2)
+                           (:name "Past & Overdue"
                             :scheduled past
                             :deadline past)
                            (:name "Today"
                             :time-grid t
-                            :date today)))))
+                            :date today)
+                           (:name "Due Soon"
+                            :scheduled future
+                            :deadline future)))))
             (alltodo "" ((org-agenda-overriding-header "")
                          (org-super-agenda-groups
                           '((:name "Important"
-                             :priority "A")
-                            (:name "Deadlines"
-                             :deadline future)))))))))
+                             :priority "A")))))))))
+
   :config
   (org-super-agenda-mode 1))
 
@@ -150,17 +156,18 @@
 (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 ()
+(defun kj/org-journal-init ()
   (interactive)
   (save-excursion
     (goto-char (point-min))
-    (org-id-get-create)))
+    (org-id-get-create)
+    (org-set-property "category" "journal")))
 
 (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)
+(add-hook 'org-journal-after-entry-create-hook 'kj/org-journal-init)
 
 ;; Allow more keys when navigating with avy.
 (setq avy-keys '(?a ?o ?e ?u ?d ?h ?n ?s ?l ?, ?. ?p ?r))
-- 
cgit v1.2.3