From 6fc5570e6147822f554873b75097a7322e967120 Mon Sep 17 00:00:00 2001
From: Kore Francis <me@korefrancis.com>
Date: Fri, 9 Apr 2021 16:18:50 +0300
Subject: [PATCH] config: improve super agenda

---
 config.org  | 53 ++++++++++++++++++++++++++++++++++-------------------
 packages.el |  3 ++-
 2 files changed, 36 insertions(+), 20 deletions(-)

diff --git a/config.org b/config.org
index 9cbc043..798beca 100644
--- a/config.org
+++ b/config.org
@@ -74,7 +74,7 @@ change `org-directory'. It must be set before org loads!
 
 #+begin_src emacs-lisp
 (setq org-todo-keywords
-      '((sequence "TODO(t)" "PROJ(p)" "STRT(s)" "WAIT(w)" "HOLD(h)" "IDEA(i)" "|" "DONE(d)" "KILL(k)")
+      '((sequence "TODO(t)" "PROJ(p)" "NEXT(n)" "STRT(s)" "WAIT(w)" "HOLD(h)" "IDEA(i)" "|" "DONE(d)" "KILL(k)")
            (sequence "[ ](T)" "[-](S)" "[?](W)" "|" "[X](D)")
            (sequence "|" "OKAY(o)" "YES(y)" "NO(n)")))
 #+end_src
@@ -149,24 +149,39 @@ numbers are disabled. For relative line numbers, set this to `relative'.
 #+end_src
 ** Super-Agenda
 #+begin_src emacs-lisp
-(use-package! org-super-agenda
-  :after org-agenda
-  :init
-  (setq org-super-agenda-groups '((:name "Today"
-                                   :time-grid t
-                                   :scheduled today)
-                                  (:name "Due Today"
-                                   :deadline today)
-                                  (:name "Important"
-                                   :priority "❗")
-                                  (:name "Overdue"
-                                   :deadline past)
-                                  (:name "Due Soon"
-                                   :deadline future)
-                                  (:name "Big Outcomes"
-                                   :tag "bo")))
-  :config
+(after! org-agenda
   (org-super-agenda-mode))
+
+(setq org-agenda-skip-scheduled-if-done t
+      org-agenda-skip-deadline-if-done t
+      org-agenda-include-deadlines t
+      org-agenda-block-separator nil
+      org-agenda-tags-column 100 ;; from testing this seems to be a good value
+      org-agenda-compact-blocks t)
+(setq org-super-agenda-groups
+      '((:name "Next Items"
+               :time-grid t
+               :tag ("NEXT" "outbox"))
+        (:name "Important"
+               :priority "A")
+        (:name "Quick Picks"
+               :effort< "0:30")
+        (:priority<= "B"
+                     :scheduled future
+                     :order 1)))
+;(setq org-super-agenda-groups '((:name "Today"
+;           :time-grid t
+;           :scheduled today)
+;           (:name "Due Today"
+;           :deadline today)
+;           (:name "Important"
+;           :priority "❗")
+;           (:name "Overdue"
+;            :deadline past)
+;           (:name "Due Soon"
+;            :deadline future)
+;           (:name "Big Outcomes"
+;            :tag "bo")))
 #+end_src
 * Spelling
 #+begin_src emacs-lisp
@@ -176,7 +191,7 @@ numbers are disabled. For relative line numbers, set this to `relative'.
 (setq ispell-personal-dictionary "~/.config/+STORE/dictionary/.pws")
 #+end_src
 
-* Writeroom
+* Write room
 
 Configure Zen mode
 Automatically go to full screen mode when activated
diff --git a/packages.el b/packages.el
index b5b29b2..24fe0ae 100644
--- a/packages.el
+++ b/packages.el
@@ -50,6 +50,7 @@
 ;(unpin! t)
 (package! zetteldeft)
 (package! org-roam-server)
-(package! org-super-agenda)
 (package! spray)
 (package! mixed-pitch)
+(use-package! org-super-agenda
+  :commands (org-super-agenda-mode))