From 8f04e9dbfb6418a38a74ece0f8d507c9a5b4db3a Mon Sep 17 00:00:00 2001
From: ndwarshuis <ndwar@yavin4.ch>
Date: Sun, 12 Dec 2021 19:05:59 -0500
Subject: [PATCH] ENH split agenda view into timeblock and 'other time stuff'
 view

---
 etc/conf.org | 38 +++++++++++++++++++++++++++++++-------
 1 file changed, 31 insertions(+), 7 deletions(-)

diff --git a/etc/conf.org b/etc/conf.org
index a851bf8..d5e88cb 100644
--- a/etc/conf.org
+++ b/etc/conf.org
@@ -820,6 +820,9 @@ Company provides a dropdown of completion options. It has many backends which ar
         company-minimum-prefix-length 3))
 #+END_SRC
 ** auto formatting
+:PROPERTIES:
+:ID:       f8e2d511-5124-4dd8-a8f2-63f4bf66728e
+:END:
 Most languages have a plugin/command to make their code "look pretty" (usually on save). This package is a catch-all formatter for many languages that can be added as a minor mode.
 
 #+begin_src emacs-lisp
@@ -2967,17 +2970,15 @@ original function being advised and ARGS are the arguments."
 
 (setq
  org-agenda-custom-commands
- ;; Calendar - for showing what I need to do in a given day
+ ;; Timeblock planner - for showing what I need to do in a given day
  ;;
  ;; In the order of display
  ;; 1. morning tasks/habits (to do immediately after waking)
  ;; 2. daily calendar (for thing that begin today at a specific time)
  ;; 3. evening tasks/habits (to do immediately before sleeping)
- ;; 4. deadlines
- ;; 5. scheduled tasks (for things that begin today at no specific time)
- ;; 6. habits
- `(("a"
-    "Calendar View"
+ ;; 4. habits
+ `(("b"
+    "Timeblock View"
     ((agenda
       ""
       ((org-agenda-skip-function #'org-x-calendar-skip-function)
@@ -2993,7 +2994,30 @@ original function being advised and ARGS are the arguments."
                                           org-x-prop-routine-evening)
              :order 3)
           (:name "Calendar" :order 1 :time-grid t)
-          (:name "Habits" :order 6 :habit t)
+          (:discard (:anything t))))))))
+
+   ;; Deadline/scheduled task view
+   ;;
+   ;; Display deadlines and scheduled tasks for the day/future. Used to
+   ;; create a timeblock plan for any given day
+   ("a"
+    "Agenda View"
+    ((agenda
+      ""
+      ((org-agenda-skip-function #'org-x-calendar-skip-function)
+       (org-agenda-sorting-strategy '(time-up deadline-up scheduled-up category-keep))
+       (org-agenda-include-diary t)
+       (org-super-agenda-groups
+        `(
+          (:name "Habits" :order 1 :habit t)
+          (:discard (:time-grid t))
+          (:discard (:pred ,(nd/org-mk-super-agenda-pred
+                             '((or (org-x-headline-has-property
+                                    org-x-prop-routine
+                                    org-x-prop-routine-evening)
+                                   (org-x-headline-has-property
+                                    org-x-prop-routine
+                                    org-x-prop-routine-morning))))))
           ,(nd/org-def-super-agenda-pred "Deadlined Projects"
              (progn
                ;; TODO IDK why this is needed, but the point starts on the