From eeb02a4c397823545827573c0d851b7a953e3cab Mon Sep 17 00:00:00 2001 From: Bobby Bingham Date: Sat, 20 Oct 2018 23:44:11 -0500 Subject: emacs: org-mode: agenda mode tweaks --- emacs/.emacs.d/org-mode.el | 19 +++++++++++++++---- 1 file changed, 15 insertions(+), 4 deletions(-) (limited to 'emacs') diff --git a/emacs/.emacs.d/org-mode.el b/emacs/.emacs.d/org-mode.el index 41b46c8..bd12c56 100644 --- a/emacs/.emacs.d/org-mode.el +++ b/emacs/.emacs.d/org-mode.el @@ -4,6 +4,7 @@ ; rather than replacing the whole list and possibly trampling on another config file. (setq org-agenda-files ()) (setq org-capture-templates ()) +(setq org-tag-faces ()) (load-user-file "org-mode.local.el") @@ -29,9 +30,18 @@ (custom-set-variables '(org-agenda-custom-commands - (quote - (("d" todo "DELEGATED" nil) - ("c" todo "DONE|DEFERRED|CANCELLED" nil) + '(("h" "Home agenda" + ((agenda "") + (alltodo "" + ((org-agenda-skip-function '(org-agenda-skip-if nil '(scheduled deadline))) + (org-agenda-overriding-header "Eventual TODO items:")))) + ((org-agenda-tag-filter-preset '("+home")))) + ("j" "Work agenda" + ((agenda "") + (alltodo "" + ((org-agenda-skip-function '(org-agenda-skip-if nil '(scheduled deadline))) + (org-agenda-overriding-header "Eventual TODO items:")))) + ((org-agenda-tag-filter-preset '("-home")))) ("w" todo "WAITING" nil) ("W" agenda "" ((org-agenda-ndays 21))) ("A" agenda "" @@ -50,12 +60,13 @@ (quote deadline) (quote regexp) " -]+>"))) +]+>")) (org-agenda-overriding-header "Unscheduled TODO entries: ")))))) '(org-agenda-dim-blocked-tasks 'invisible) '(org-agenda-ndays 7) '(org-agenda-show-all-dates t) '(org-agenda-skip-deadline-if-done t) + '(org-agenda-skip-deadline-prewarning-if-scheduled t) '(org-agenda-skip-scheduled-if-done t) '(org-agenda-start-on-weekday nil) '(org-deadline-warning-days 7) -- cgit v1.2.3