202501021735818025

global/.config/doom/config.el

@@ -129,6 +129,10 @@
           (not (member "ATTACH" (org-get-tags)))))
   )
 
+(setq org-default-priority ?D)
+
+(setq habitica-uid (getenv "HABITICA_UID"))
+(setq habitica-token (getenv "HABITICA_TOKEN"))
 
 (setq org-capture-templates
       '(
@@ -143,6 +147,12 @@
          "* [%<%Y-%m-%d>] %? \n:PROPERTIES:\n:ID: %(org-id-new)\n:END:\n"
          :empty-lines 1)
 
+
+        ("j" "Journal Entry"
+         entry (file+datetree "~/org/journal.org")
+         "* Event: %?\n\n  %i\n\n  From: %a"
+         :empty-lines 1)
+
         ("r" "Grocery list"
          entry (file+headline "~/org/grocery.org" "Grocery list")
          "* NEED2BUY [#C] %?\n:PROPERTIES:\n:Created: %T\n:END:\n "
@@ -154,8 +164,8 @@
          :empty-lines 0)
 
         ("m" "Meeting"
-         entry (file+datetree "~/org/para.org" "Area Meetings")
+         entry (file+datetree "~/org/life.org" "Areas" "Meetings")
-         "* %? :meeting:%^g \n:PROPERTIES:\n:Created: %T\n:END:\n** Notes\n** Action Items\n*** TODO [#A] "
+         "* TODO [#A] %? :meeting:%^g \n:PROPERTIES:\n:Created: %T\n:END:\n** Notes\n**"
          :tree-type week
          :clock-in t
          :clock-resume t
@@ -289,6 +299,13 @@ PRIORITY may be one of the characters ?A, ?B, or ?C."
         subtree-end
       nil)))
 
+(defun air-org-skip-subtree-if-no-priority ()
+  "Skip an entry if it has no priority."
+  (let ((priority (org-entry-get (point) "PRIORITY")))
+    (if (not priority)
+        (save-excursion (org-end-of-subtree t)))))
+
+
 (setq org-agenda-skip-deadline-if-done t)
 (setq org-agenda-skip-timestamp-if-done t)
 (setq org-agenda-tag-filter-preset '("-movies" "-book"))
@@ -309,11 +326,9 @@ PRIORITY may be one of the characters ?A, ?B, or ?C."
           (agenda "" ((org-agenda-span 7)))
 
           ;; Display items with priority B (really it is view all items minus A & C)
-          (alltodo ""
+          (tags "PRIORITY=\"B\""
-                   ((org-agenda-skip-function '(or (air-org-skip-subtree-if-priority ?A)
+                ((org-agenda-skip-function '(org-agenda-skip-entry-if 'todo 'done))
-                                                   (air-org-skip-subtree-if-priority ?C)
+                 (org-agenda-overriding-header "ALL normal priority tasks:")))
-                                                   (org-agenda-skip-if nil '(scheduled deadline))))
-                    (org-agenda-overriding-header "ALL normal priority tasks:")))
 
           ;; Display items with pirority C
           (tags "PRIORITY=\"C\""

global/.config/doom/packages.el

@@ -52,3 +52,4 @@
 ;; (package! citar-denote)
 (package! anki-editor
   :recipe (:host github :repo "anki-editor/anki-editor"))
+(package! habitica)