emacs: org-mode: agenda mode tweaks

1 files changed, 15 insertions, 4 deletions

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)