ndwarshuis
/
emacs-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ADD quarterly plan files and basic settings

This commit is contained in:
Nathan Dwarshuis 2021-12-28 23:32:53 -05:00
parent be99260615
commit 9efe50f2d4
2 changed files with 27 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
etc/conf.org
View File

@ -1799,7 +1799,7 @@ Org has several extensions in the form of loadable modules. =org-protocol= is us
:END: :END:
Firstly, I keep all my Org files in one place. 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. 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 #+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-reference-files (list "reference/idea.org" "reference/questions.org")
org-x-endpoint-goal-file "reference/goals/endpoint.org" org-x-endpoint-goal-file "reference/goals/endpoint.org"
org-x-lifetime-goal-file "reference/goals/lifetime.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-refile-targets '((org-x-get-action-files :maxlevel . 9)
(org-x-get-incubator-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-get-lifetime-goal-file))))
(org-x-update-goal-link-ids) (org-x-update-goal-link-ids)
(nd/org-agenda-call "Goals" nil 'todo org-x-kw-todo files (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)))))) (org-super-agenda-groups ',gs))))))
;; TODO this is slow and the code isn't pretty to look at, perhaps break into ;; TODO this is slow and the code isn't pretty to look at, perhaps break into

26
local/lib/org-x/org-x.el
View File

@ -219,6 +219,9 @@
(defconst org-x-prop-goal "X-GOAL" (defconst org-x-prop-goal "X-GOAL"
"Property denoting the goal this headline fulfills.") "Property denoting the goal this headline fulfills.")
(defconst org-x-prop-allocate "X-ALLOCATE"
"Property the property denoting intended time allocation.")
;;; DRAWERS ;;; DRAWERS
(defconst org-x-drwr-agenda "AGENDA_ITEMS" (defconst org-x-drwr-agenda "AGENDA_ITEMS"
@ -227,6 +230,9 @@
(defconst org-x-drwr-action "ACTION_ITEMS" (defconst org-x-drwr-action "ACTION_ITEMS"
"Drawer to hold action items in meetings.") "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 ;;; PUBLIC VARS
(defconst org-x-archive-delay 30 (defconst org-x-archive-delay 30
@ -263,10 +269,16 @@
(defvar org-x-endpoint-goal-file nil (defvar org-x-endpoint-goal-file nil
"Path to endpoint goal file.") "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 (defvar org-x-lifetime-goal-file nil
"Path to lifetime goal file.") "Path to lifetime goal file.")
(defvar org-x-daily-planner-file nil (defvar org-x-daily-plan-file nil
"Path to daily plan file.") "Path to daily plan file.")
(defvar org-x-meeting-archive-file nil (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)) (org-x--expand-path-list org-x-action-files))
(defun org-x-get-daily-plan-file () (defun org-x-get-daily-plan-file ()
"Return the absolute path of `org-x-action-files'." "Return the absolute path of `org-x-daily-plan-file'."
(org-x--expand-path org-x-daily-planner-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 () (defun org-x-get-incubator-files ()
"Return the absolute path of `org-x-incubator-files'." "Return the absolute path of `org-x-incubator-files'."