From 885301efad631286783b7b76702b6d4ba5afdd94 Mon Sep 17 00:00:00 2001
From: ndwarshuis <ndwar@yavin4.ch>
Date: Tue, 28 Dec 2021 00:37:00 -0500
Subject: [PATCH] ADD goal group agenda view

---
 etc/conf.org             | 23 +++++++++++++++++++++++
 local/lib/org-x/org-x.el | 33 +++++++++++++++++++++++++++------
 2 files changed, 50 insertions(+), 6 deletions(-)

diff --git a/etc/conf.org b/etc/conf.org
index 6d6b97c..88e321e 100644
--- a/etc/conf.org
+++ b/etc/conf.org
@@ -3040,6 +3040,29 @@ In the order of display
         `((org-agenda-sorting-strategy '(time-up scheduled-down))
           (org-super-agenda-groups ',gs))))))
 
+(defun nd/org-agenda-goal-groups ()
+  (interactive)
+  (let ((match (nd/org-mk-match-string
+                - org-x-tag-incubated
+                / org-x-kw-todo
+                | org-x-kw-next
+                | org-x-kw-wait
+                | org-x-kw-hold
+                | org-x-kw-canc))
+        (files (org-x-get-action-and-incubator-files)))
+    (nd/org-agenda-call "Goal Groups" 'tags-todo match (org-x-get-action-files)
+      `((org-agenda-sorting-strategy '(time-up scheduled-down))
+        (org-agenda-skip-function #'org-x-task-skip-function)
+        (org-super-agenda-groups
+         ',(nd/org-def-super-agenda-automap
+             (let ((is-ind (org-x-headline-is-atomic-task-p))
+                   (goal-status (-if-let ((f . h) (org-x-resolve-goal-id))
+                                    (format "%s | %s"
+                                            (s-capitalize (f-base f))
+                                            (org-ml-get-property :raw-value h))
+                                  "No Goal")))
+               (format "%s | %s" (if is-ind "Indep." "Project") goal-status))))))))
+
 (defun nd/org-agenda-daily ()
   "Show the daily agenda view."
   (interactive)
diff --git a/local/lib/org-x/org-x.el b/local/lib/org-x/org-x.el
index 8a2c5f3..1b51fd7 100644
--- a/local/lib/org-x/org-x.el
+++ b/local/lib/org-x/org-x.el
@@ -1056,6 +1056,20 @@ should be this function again)."
 (defvar org-x-agenda-goal-endpoint-ids nil)
 (defvar org-x-agenda-lifetime-ids nil)
 
+(defun org-x-get-goal-link-id (&optional inherit)
+  (-when-let (g (org-entry-get nil org-x-prop-goal inherit))
+      (-if-let (i (org-x-link-get-id g))
+          i
+        (message "WARNING: invalid id found: %s" i))))
+
+(defun org-x-resolve-goal-id ()
+  (-when-let (i (org-x-get-goal-link-id t))
+    (-when-let ((f . p) (org-id-find i))
+      (org-x-with-file f
+        (save-excursion
+          (goto-char p)
+          (cons f (org-ml-parse-this-headline)))))))
+
 (defun org-x-link-get-id (s)
   (cadr (s-match "^\\[\\[id:\\(.*\\)\\]\\[.*\\]\\]$" s)))
 
@@ -1065,10 +1079,8 @@ should be this function again)."
       (cl-flet
           ((get-goal
             ()
-            (-when-let (g (org-entry-get nil org-x-prop-goal))
-              (-if-let (i (org-x-link-get-id g))
-                  (setq acc (cons i acc))
-                (message "WARNING: invalid id found: %s" g)))))
+            (-when-let (i (org-x-get-goal-link-id))
+              (setq acc (cons i acc)))))
         ;; TODO need to return nothing if a file has a toplevel prop drawer with
         ;; a goal in it but no TODO headlines
         (goto-char (point-min))
@@ -1087,8 +1099,18 @@ should be this function again)."
            (--filter (equal f (full-path (cdr it))))
            (-map #'car)))))
 
+;; TODO this is necessary since this (rather unintuitively) scans the agenda
+;; files, so I need to supply my own files since these are not set
+(defun org-x-update-id-locations ()
+  (interactive)
+  (let ((files (append (org-x-get-action-and-incubator-files)
+                       (org-x-get-reference-files)
+                       (list (org-x-get-endpoint-goal-file)
+                             (org-x-get-lifetime-goal-file)))))
+    (call-interactively #'org-id-update-id-locations files)))
+
 (defun org-x-update-goal-link-ids ()
-  (org-id-update-id-locations)
+  (org-x-update-id-locations)
   (setq org-x-agenda-goal-task-ids
         (-mapcat #'org-x-buffer-get-goal-ids (org-files-list))
         org-x-agenda-goal-endpoint-ids
@@ -1118,7 +1140,6 @@ Assumes point is on a valid headline or org mode file."
   ;; TODO also add a sanity check for if we are in a goals file or not
   (ignore-errors
     (org-back-to-heading t))
-  (print 'hi)
   (cl-flet*
       ((mk-entry
         (path base hl)