From 9efe50f2d4883b61dd426163ef5bb983246a93fc Mon Sep 17 00:00:00 2001
From: ndwarshuis <ndwar@yavin4.ch>
Date: Tue, 28 Dec 2021 23:32:53 -0500
Subject: [PATCH] ADD quarterly plan files and basic settings

---
 etc/conf.org             |  7 ++++---
 local/lib/org-x/org-x.el | 26 +++++++++++++++++++++++---
 2 files changed, 27 insertions(+), 6 deletions(-)

diff --git a/etc/conf.org b/etc/conf.org
index 0c6e070..b5bbb24 100644
--- a/etc/conf.org
+++ b/etc/conf.org
@@ -1799,7 +1799,7 @@ Org has several extensions in the form of loadable modules. =org-protocol= is us
 :END:
 Firstly, I keep all my Org files in one place.
 
-Secondly, I made my own variable (all the =org-x-= symbols below) to group my org files together by purpose. In general this makes it much easier to keep track of them, and it forces me to stay organized with my org files rather than dump headlines whereever I feel like it at any given moment.
+Secondly, I made my own variables (all the =org-x-= symbols below) to group my org files together by purpose. In general this makes it much easier to keep track of them, and it forces me to stay organized with my org files rather than dump headlines wherever I wish at any given moment.
 
 Additionally, using specialized file variables makes it much easier and faster to manage agenda views (see much further below). Rather than set =org-agenda=files= globally, I scope this variable dynamically for each agenda view, which makes each view much faster to display. It also is much easier to draw sharp lines between different groups; rather than use file-level tags and/or properties (what I used to do) I can simply exclude certain files if I don't want to see a certain type of content.
 #+BEGIN_SRC emacs-lisp
@@ -1811,7 +1811,8 @@ Additionally, using specialized file variables makes it much easier and faster t
       org-x-reference-files (list "reference/idea.org" "reference/questions.org")
       org-x-endpoint-goal-file "reference/goals/endpoint.org"
       org-x-lifetime-goal-file "reference/goals/lifetime.org"
-      org-x-daily-planner-file "metablox.org"
+      org-x-daily-plan-file "plans/daily.org"
+      org-x-quarterly-plan-file "plans/quarterly.org"
 
       org-refile-targets '((org-x-get-action-files :maxlevel . 9)
                            (org-x-get-incubator-files :maxlevel . 9)
@@ -3046,7 +3047,7 @@ In the order of display
                         (org-x-get-lifetime-goal-file))))
       (org-x-update-goal-link-ids)
       (nd/org-agenda-call "Goals" nil 'todo org-x-kw-todo files
-        `((org-agenda-sorting-strategy '(time-up scheduled-down))
+        `((org-agenda-sorting-strategy '(priority-down time-up))
           (org-super-agenda-groups ',gs))))))
 
 ;; TODO this is slow and the code isn't pretty to look at, perhaps break into
diff --git a/local/lib/org-x/org-x.el b/local/lib/org-x/org-x.el
index 2af786d..383ccba 100644
--- a/local/lib/org-x/org-x.el
+++ b/local/lib/org-x/org-x.el
@@ -219,6 +219,9 @@
 (defconst org-x-prop-goal "X-GOAL"
   "Property denoting the goal this headline fulfills.")
 
+(defconst org-x-prop-allocate "X-ALLOCATE"
+  "Property the property denoting intended time allocation.")
+
 ;;; DRAWERS
 
 (defconst org-x-drwr-agenda "AGENDA_ITEMS"
@@ -227,6 +230,9 @@
 (defconst org-x-drwr-action "ACTION_ITEMS"
   "Drawer to hold action items in meetings.")
 
+(defconst org-x-drwr-action "X_CATEGORIES"
+  "Drawer to hold ranked categories for a quarterly plan.")
+
 ;;; PUBLIC VARS
 
 (defconst org-x-archive-delay 30
@@ -263,10 +269,16 @@
 (defvar org-x-endpoint-goal-file nil
   "Path to endpoint goal file.")
 
+(defvar org-x-quarterly-plan-file nil
+  "Path to quarterly plan file.")
+
+(defvar org-x-weekly-plan-file nil
+  "Path to weekly plan file.")
+
 (defvar org-x-lifetime-goal-file nil
   "Path to lifetime goal file.")
 
-(defvar org-x-daily-planner-file nil
+(defvar org-x-daily-plan-file nil
   "Path to daily plan file.")
 
 (defvar org-x-meeting-archive-file nil
@@ -419,8 +431,16 @@ PATH must be relative to `org-directory' and end in '.org'."
   (org-x--expand-path-list org-x-action-files))
 
 (defun org-x-get-daily-plan-file ()
-  "Return the absolute path of `org-x-action-files'."
-  (org-x--expand-path org-x-daily-planner-file))
+  "Return the absolute path of `org-x-daily-plan-file'."
+  (org-x--expand-path org-x-daily-plan-file))
+
+(defun org-x-get-weekly-plan-file ()
+  "Return the absolute path of `org-x-weekly-plan-file'."
+  (org-x--expand-path org-x-weekly-plan-file))
+
+(defun org-x-get-quarterly-plan-file ()
+  "Return the absolute path of `org-x-quarterly-plan-file'."
+  (org-x--expand-path org-x-quarterly-plan-file))
 
 (defun org-x-get-incubator-files ()
   "Return the absolute path of `org-x-incubator-files'."