Fix emacs to load org on demand #emacs

emacs/.config/doom/+org.el

@@ -5,7 +5,8 @@
 ;;; Code:
 (setq +todo-file "~/org/inbox.org")
 
-(setq org-directory (expand-file-name "~/org/")
+(add-hook! :append org-load
+    (setq org-directory (expand-file-name "~/org/")
           org-journal-dir "~/org/journal/"
           org-startup-indented t
           org-agenda-files (list org-directory)
@@ -34,22 +35,50 @@
                   ("n" "Add an idea" entry (file "~/org/ideas.org")
                   "*  %?\nEntered on %U\n"))
 
-
           org-agenda-include-diary nil
 
-      org-agenda-custom-commands
+          org-todo-keywords
-          '(("h" todo "HOLD")
+              '((sequence "TODO(t)" "NEXT(n)" "WAITING(w)" "MAYBE(m)" "|" "DONE(d)"))
-          ("d" "Agenda + Next Actions" ((agenda) (todo "NEXT"))))
 
-      org-tag-alist '(("@home" . ?h)
+          org-todo-keyword-faces
-                      ("@townhall" . ?t)
+              '((("TODO" . (:foreground "red" :weight bold))
-                      ("@farm" . ?f)
+                 ("NEXT" . (:foreground "blue"))
+                 ("MAYBE" . (:foreground "sea green"))
+                 ("WAITING" . (:foreground "forest green")))
+                 ("DONE" . (:foreground "light sea green")))
+
+          org-agenda-span 5
+          org-agenda-start-day "1d"
+
+          org-agenda-custom-commands
+              '(("N" "List all next tasks" ((agenda "" ((org-agenda-span 1)))
+                                            (tags "@errand/-DONE") ; should generaly be pretty empty
+                                            (tags "@home/NEXT")
+                                            (tags "@work/NEXT")
+                                            (tags "@selectp/NEXT")))
+                ("R" "Weekly Review"
+                  ((agenda "" ((org-agenda-span 7)))
+                   (stuck "") ; review stuck projects as designated by org-stuck-projects
+                   (tags "PROJECT/-DONE-MAYBE") ; review all projects
+                   (todo "MAYBE") ; review someday/maybe items
+                   (todo "WAITING")))) ; review waiting items
+
+          org-use-tag-inheritance nil ; bug in variable below, just turn 'em off
+          org-tags-exclude-from-inheritance '("PROJECT" "SPRINT") ; PROJECT should not be inheritable
+
+          org-stuck-projects
+            '("+PROJECT/-MAYBE-DONE" ("TODO" "NEXT") nil "\\<IGNORE\\>")
+
+          org-tag-alist '(("PROJECT" . ?p)
+                          ("@home" . ?h)
+                          ("@selectp" . ?s)
                           ("@errand" . ?e)
                           ("@read" . ?r)
-                      ("@next" . ?n)
+                          ("@work" . ?w)
-                      ("@computer" . ?c))
+                          ("@family" . ?f))
 
           org-modules '(org-drill
+                        org-clock
                         org-id
                         org-info
                         org-habit
@@ -70,9 +99,9 @@
                               ("~/org/someday.org" :maxlevel . 2)
                               ("~/org/town.org" :maxlevel . 2)
                               ("~/org/personal.org" :maxlevel . 2)
-                           ("~/org/elation.org" :maxlevel . 2)))
+                              ("~/org/elation.org" :maxlevel . 2))))
-
 ;; org-match-sparse-tree
+;;
 ;; org-set-tags-command
 (defun +open-todo-file ()
   (interactive)
@@ -81,7 +110,7 @@
 
 (map!
  :leader
-   :desc "Open todo file" "O" #'+open-todo-file)
+   :desc "Open inbox" "I" #'+open-todo-file)
 
 (defun +show-agenda ()
   (interactive)
@@ -97,7 +126,7 @@
 
 (map! :leader
       (:prefix "o"
-        :desc "Org Agenda" "a" #'org-agenda-list
+        :desc "Org Agenda" "A" #'org-agenda-list
+        :desc "Org Agenda" "a" #'org-agenda
         :desc "Org open link" "l" #'org-open-at-point
-        :desc "Org set tags" "t" #'org-set-tags-command
+        :desc "Org set tags" "t" #'org-set-tags-command))
-        :desc "Org Agenda and Notes" "A" #'+show-agenda))

emacs/.config/doom/config.el

@@ -22,8 +22,6 @@
 (add-to-list 'default-frame-alist '(ns-appearance . dark))
 ;(add-hook 'window-setup-hook 'toggle-frame-maximized)
 
-(setq org-todo-keywords '((sequence "TODO(t)" "|" "DONE(d)")))
-;;
 ;; Keybindings
 
 (map!