From 0f425f33114435cfd7f6932c4ec6f92fda3021f8 Mon Sep 17 00:00:00 2001
From: Derek Taylor <derek@distrotube.com>
Date: Wed, 4 Jan 2023 19:03:18 -0600
Subject: [PATCH] Playing around a bit with org-agenda.

---
 .config/doom/config.el  | 28 ++++++++++++++++++++++++++++
 .config/doom/config.org | 32 ++++++++++++++++++++++++++++++++
 2 files changed, 60 insertions(+)

diff --git a/.config/doom/config.el b/.config/doom/config.el
index c780199..310a4fb 100644
--- a/.config/doom/config.el
+++ b/.config/doom/config.el
@@ -708,6 +708,34 @@ List of keybindings (SPC h b b)")
 
       ))
 
+(after! org
+  (setq
+   ;; org-fancy-priorities-list '("❗" "[B]" "▰")
+   ;; org-fancy-priorities-list '("⬆" "↕" "⬇")
+   org-fancy-priorities-list '("🟥" "🟧" "🟨")
+   org-priority-faces
+   '((?A :foreground "#ff6c6b" :weight bold)
+     (?B :foreground "#98be65" :weight bold)
+     (?C :foreground "#c678dd" :weight bold))
+   ))
+(setq org-agenda-custom-commands
+      '(("v" "A better agenda view"
+         ((tags "PRIORITY=\"A\""
+                ((org-agenda-skip-function '(org-agenda-skip-entry-if 'todo 'done))
+                 (org-agenda-overriding-header "High-priority unfinished tasks:")))
+          (tags "PRIORITY=\"B\""
+                ((org-agenda-skip-function '(org-agenda-skip-entry-if 'todo 'done))
+                 (org-agenda-overriding-header "Medium-priority unfinished tasks:")))
+          (tags "PRIORITY=\"C\""
+                ((org-agenda-skip-function '(org-agenda-skip-entry-if 'todo 'done))
+                 (org-agenda-overriding-header "Low-priority unfinished tasks:")))
+          (tags "customtag"
+                ((org-agenda-skip-function '(org-agenda-skip-entry-if 'todo 'done))
+                 (org-agenda-overriding-header "Tasks with customtag tag:")))
+
+          (agenda "")
+          (alltodo "")))))
+
 (use-package! org-auto-tangle
   :defer t
   :hook (org-mode . org-auto-tangle-mode)
diff --git a/.config/doom/config.org b/.config/doom/config.org
index 7ce8f58..53b0c74 100644
--- a/.config/doom/config.org
+++ b/.config/doom/config.org
@@ -48,6 +48,7 @@
   - [[#org-export][Org-export]]
   - [[#org-journal][Org-journal]]
   - [[#org-publish][Org-publish]]
+  - [[#org-agenda][Org-agenda]]
   - [[#org-auto-tangle][Org-auto-tangle]]
 - [[#password-store][PASSWORD STORE]]
 - [[#perspective][PERSPECTIVE]]
@@ -1136,6 +1137,37 @@ We need ox-man for "Org eXporting" to manpage format and ox-gemini for exporting
       ))
 #+end_src
 
+** Org-agenda
+#+begin_src emacs-lisp
+(after! org
+  (setq
+   ;; org-fancy-priorities-list '("❗" "[B]" "▰")
+   ;; org-fancy-priorities-list '("⬆" "↕" "⬇")
+   org-fancy-priorities-list '("🟥" "🟧" "🟨")
+   org-priority-faces
+   '((?A :foreground "#ff6c6b" :weight bold)
+     (?B :foreground "#98be65" :weight bold)
+     (?C :foreground "#c678dd" :weight bold))
+   ))
+(setq org-agenda-custom-commands
+      '(("v" "A better agenda view"
+         ((tags "PRIORITY=\"A\""
+                ((org-agenda-skip-function '(org-agenda-skip-entry-if 'todo 'done))
+                 (org-agenda-overriding-header "High-priority unfinished tasks:")))
+          (tags "PRIORITY=\"B\""
+                ((org-agenda-skip-function '(org-agenda-skip-entry-if 'todo 'done))
+                 (org-agenda-overriding-header "Medium-priority unfinished tasks:")))
+          (tags "PRIORITY=\"C\""
+                ((org-agenda-skip-function '(org-agenda-skip-entry-if 'todo 'done))
+                 (org-agenda-overriding-header "Low-priority unfinished tasks:")))
+          (tags "customtag"
+                ((org-agenda-skip-function '(org-agenda-skip-entry-if 'todo 'done))
+                 (org-agenda-overriding-header "Tasks with customtag tag:")))
+
+          (agenda "")
+          (alltodo "")))))
+#+end_src
+
 ** Org-auto-tangle
 =org-auto-tangle= allows you to add the option =#+auto_tangle: t= in your Org file so that it automatically tangles when you save the document.