From 360365ec095cb55991a1e0bba47a929e81674713 Mon Sep 17 00:00:00 2001
From: Kjetil Orbekk <kj@orbekk.com>
Date: Sun, 2 Jan 2022 11:32:07 -0500
Subject: org-super-agenda config

---
 emacs/.doom.d/config.el | 43 ++++++++++++++++++++++++++++++++++++++++---
 1 file changed, 40 insertions(+), 3 deletions(-)

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

diff --git a/emacs/.doom.d/config.el b/emacs/.doom.d/config.el
index da5fbbd..02d9c43 100644
--- a/emacs/.doom.d/config.el
+++ b/emacs/.doom.d/config.el
@@ -64,7 +64,7 @@
 
 ;; If you use `org' and don't want your org files in the default location below,
 ;; change `org-directory'. It must be set before org loads!
-(setq org-directory "~/org")
+(setq org-directory "~/org/")
 (setq org-todo-keywords
       '((sequence
          "TODO(t)" "ACTIVE(a!)" "WAIT(w@/!)" "|" "DONE(d!)" "CANCELED(c@)")))
@@ -72,8 +72,17 @@
 (setq org-refile-targets '((nil . (:maxlevel . 2))))
 (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 (concat org-roam-directory "/todo.org")))
+(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-time-grid '((daily today require-timed) (800 1600) "......" "----------------------"))
+(setq org-roam-directory (concat org-directory "roam/"))
+(setq-default org-agenda-files '())
+(dolist (file '("tasks.org"
+                "running-2022.org"))
+  (add-to-list 'org-agenda-files (concat org-roam-directory file)))
 (setq org-roam-db-location (concat org-roam-directory "/org-roam.db"))
 (setq org-export-with-toc nil)
 (setq deft-directory org-directory)
@@ -83,6 +92,11 @@
 ;; Website publish settings.
 (defvar kj/publish-tag "publish")
 (defvar kj/publish-directory "/ssh:orbekk@dragon.orbekk.com:/storage/srv/kj.orbekk.com")
+(add-to-list 'org-modules 'org-habit)
+
+(setq org-appear-autolinks t)
+(use-package! org-appear
+  :hook (org-mode . org-appear-mode))
 
 (setq org-log-done 'time)
 (setq org-todo-keywords
@@ -109,6 +123,29 @@
          "YES(y)"
          "NO(n)")))
 
+(use-package! org-super-agenda
+  :after org-agenda
+  :init
+  (setq org-agenda-custom-commands
+        '(("d" "Default KJ agenda"
+           ((agenda "" ((org-agenda-span 'day)
+                        (org-agenda-start-day nil)
+                        (org-super-agenda-groups
+                         '((:name "Past & Overdue"
+                            :scheduled past
+                            :deadline past)
+                           (:name "Today"
+                            :time-grid t
+                            :date today)))))
+            (alltodo "" ((org-agenda-overriding-header "")
+                         (org-super-agenda-groups
+                          '((:name "Important"
+                             :priority "A")
+                            (:name "Deadlines"
+                             :deadline future)))))))))
+  :config
+  (org-super-agenda-mode 1))
+
 (setq org-journal-file-type 'weekly)
 (setq org-journal-dir org-roam-directory)
 (setq org-journal-file-format "journal-%Y-%m-%d.org")
-- 
cgit v1.2.3