[emacs] Adjust agenda configuration

This commit is contained in:
Correl Roush 2020-03-02 17:01:28 -05:00
parent ba6f995e32
commit 61e72ced6e

View file

@ -91,12 +91,10 @@ setup.
org-agenda-files (-filter #'f-exists? org-agenda-files (-filter #'f-exists?
(-concat (-concat
(if (string-equal (system-name) "s1118ofclair.local") (if (string-equal (system-name) "s1069.ofc.lair")
(cdr (assoc 'work my/agenda-files)) (cdr (assoc 'work my/agenda-files))
(cdr (assoc 'personal my/agenda-files)))))) (cdr (assoc 'personal my/agenda-files))))))
(setq org-agenda-files (-flatten (-map #'cdr my/agenda-files)))
(setq org-stuck-projects (setq org-stuck-projects
'("+LEVEL=1/-DONE" ("TODO" "NEXT" "NEXTACTION") nil "")) '("+LEVEL=1/-DONE" ("TODO" "NEXT" "NEXTACTION") nil ""))
@ -106,19 +104,11 @@ setup.
(setq org-agenda-custom-commands (setq org-agenda-custom-commands
'(("n" "Agenda and all TODOs" '(("n" "Agenda and all TODOs"
((agenda "") ((agenda "" ((org-agenda-span 'week)))
(tags-todo "DEADLINE<=\"<+7d>\"" (tags-todo "DEADLINE<=\"<+7d>\""
((org-agenda-overriding-header "Due soon"))) ((org-agenda-overriding-header "Due soon")))
(todo ""))
;; Eisenhower Matrix quadrants
(tags-todo "+important+urgent"
((org-agenda-overriding-header "Do")))
(tags-todo "+important-urgent"
((org-agenda-overriding-header "Decide")))
(tags-todo "-important+urgent"
((org-agenda-overriding-header "Delegate")))
(tags-todo "-important-urgent"
((org-agenda-overriding-header "Delete"))))
((org-agenda-start-with-log-mode t) ((org-agenda-start-with-log-mode t)
(org-agenda-start-day nil) (org-agenda-start-day nil)
(org-agenda-span 'day) (org-agenda-span 'day)