commit - 0d08645c324c84e614cd33658658ba95651b2eb8
commit + dbad940276e317f0d2cafd030dcec22597d92399
blob - d9786633eff6374d6c11fcb2aa0e1192175c0f48
blob + cd16506ca6feb0cbfc3f8c3eee9ca3776e42d120
--- custom.el
+++ custom.el
'(which-function-mode t))
(setq org-agenda-custom-commands
- '(("c" "Crossroads"
- ;; Show My Crossroads Goals
- ((tags-todo "+Staff"
- ((org-agenda-overriding-header "Talk about w/ Staff:")))
-
- (tags "+Goals"
- ((org-agenda-overriding-header "My Goals This Week:")
- (org-agenda-skip-function
- ;; Don't include "PROJ" headers
- '(lambda () (org-agenda-skip-entry-if 'todo '("PROJ"))))))
-
- ;; Show Today's TODO's View
- (agenda ""
- ((org-agenda-overriding-header "Today's TODO's:")
- (org-agenda-span 'day)
- (org-agenda-start-day nil)
- ;; Skip Subtrees that are tagged with "Goals"
- (org-agenda-skip-function
- (lambda ()
- (when (member "Goals" (org-get-tags (point)))
- (org-end-of-subtree t))))
- ;; Don't include Done things
- (org-agenda-skip-scheduled-if-done t)
- (org-agenda-skip-deadline-if-done t)
- (org-agenda-skip-timestamp-if-done t)))
-
- ;; Show all the tasks I finished this week
- (agenda ""
- ((org-agenda-span 'week) ;current ISO week
- (org-agenda-start-day nil)
- (org-agenda-start-on-weekday 1) ;start Monday
- (org-agenda-start-with-log-mode t)
- (org-agenda-log-mode-items '(closed))
- (org-agenda-entry-types '(:closed))
- (org-agenda-overriding-header "Finished This Week:")
- (org-agenda-skip-function
- '(org-agenda-skip-entry-if 'nottodo 'done)))))
-
- ;; For Crossroads context, only search these agenda files
- ((org-agenda-files '("~/org/agenda/todo.org"))
- (org-agenda-prefix-format
- '((agenda . " %?-12t% s")
- (tags . " ")
- (todo . " ")
- (search . " ")))))
-
- ("g" "GTD View"
+ '(("g" "GTD View"
((todo "NEXT"
((org-agenda-overriding-header "Next Actions")))
