overhaul agenda

Default to one day in agenda view, show tags, next items all together and
sorted by last tag, better default tags.

diff --git a/re/re-org.el b/re/re-org.el
index 48624297b9d47cca43db990e4fb45d1a0511acc7..044f7eb636ffc1444cb6356c836a9fce01f58ede 100644 (file)
--- a/re/re-org.el
+++ b/re/re-org.el
@@ -45,32 +45,33 @@
                                    "DONE(d)" "BELAYED(b)" "GIVEN(g@)" "MET(M)")))
 
 (setq org-tag-alist '((:startgroup . nil) ; contexts
-                     ("email" . ?m)
-                     ("call" . ?c)
                      ("buy" . ?b)
-                     ("software" . ?s)
-                     ("jobpc" . ?j)
+                     ("call" . ?c)
+                     ("email" . ?m)
                      ("errand" . ?r)
-                     ("writ" . ?w)
+                     ("jobpc" . ?j)
+                     ("license" . ?l)
                      ("online" . ?o)
+                     ("software" . ?s)
+                     ("writ" . ?w)
                      (:endgroup . nil)
-                     ("troubleshoot" . ?t)
-                     ("update" . ?u)
                      ("bugfix" . ?g)
+                     ("update" . ?u)
+                     ("troubleshoot" . ?t)
                      (:startgroup . nil) ; people to contact
+                     ("amy" . nil)
+                     ("ee" . nil)
+                     ("me" . nil)
                      ("mikec" . nil)
-                     ("mechanical" . nil)
-                     ("electrical" . nil)
-                     ("service" . nil)
-                     ("psm" . nil)
                      ("pm" . nil)
-                     ("amy" . nil)
+                     ("psm" . nil)
+                     ("sm" . nil)
                      (:endgroup . nil)))
 
 (setq org-agenda-restore-windows-after-quit t
       org-agenda-start-on-weekday nil
-      org-agenda-remove-tags t
-      org-agenda-span 14
+      org-agenda-remove-tags nil
+      org-agenda-span 'day
       org-deadline-warning-days 7
       org-agenda-window-setup 'current-window)
 
@@ -82,26 +83,16 @@
       org-agenda-deadline-leaders '("DEADLINE: " "In %3d d.: " "%2d d. ago: "))
 
 (setq org-agenda-custom-commands
-      '(("d" "Done items" todo "DONE" ((org-agenda-skip-function '(org-agenda-skip-entry-if 'notregexp "^\\* "))
+      '(("d" "Done items" todo "DONE" ((org-agenda-skip-function
+                                       '(org-agenda-skip-entry-if 'notregexp "^\\* "))
                                       (org-agenda-overriding-header "DONE - MAYBE ARCHIVE")))
        ("f" "Maybe Someday" tags "someday" ((org-agenda-files '("~/org/someday.org"))
                                             (org-agenda-overriding-header "SOMEDAY:")))
        ("i" "Inbox" tags "inbox" ((org-agenda-overriding-header "INBOX:")))
        ("l" "Licenses" tags "license" ((org-agenda-overriding-header "LICENSES:")))
-       ("n" "Next Actions" ((tags-todo "email-recurring/TODO"
-                                       ((org-agenda-overriding-header "EMAILS:")))
-                            (tags-todo "call-recurring/TODO"
-                                       ((org-agenda-overriding-header "CALLS:")))
-                            (tags-todo "errand-recurring/TODO"
-                                       ((org-agenda-overriding-header "ERRANDS:")))
-                            (tags-todo "buy-recurring/TODO"
-                                       ((org-agenda-overriding-header "BUY:")))
-                            (tags-todo "online-recurring/TODO"
-                                       ((org-agenda-overriding-header "ONLINE:")))
-                            (tags-todo "writ-recurring/TODO"
-                                       ((org-agenda-overriding-header "WRITS:")))
-                            (tags-todo "ALLTAGS=\"\"/TODO"
-                                       ((org-agenda-overriding-header "UNCATEGORIZED:")))))
+       ("n" "Next Actions" tags-todo "-recurring/TODO" ((org-agenda-overriding-header "NEXT:")
+                                                        (org-agenda-sorting-strategy
+                                                         '((agenda tag-up time-up)))))
        ("p" "JobPCs" tags "jobpc" ((org-agenda-overriding-header "JOB PCS:")))
        ("u" "Undertakings" todo "UNDERTAKEN" ((org-agenda-overriding-header "UNDERTAKINGS:")))
        ("w" "Waiting" todo "WAITING" ((org-agenda-overriding-header "WAITING:")))))