Add agenda view for job pcs (any todo state)

for review purposes, keep them around for a while until I want to archive
them.

diff --git a/re/re-org.el b/re/re-org.el
index 054be1df8ba7df7bb2d229a75a8338bb061e4a70..260ddfcebaeed1ab195101985f12a98783c13fe2 100644 (file)
--- a/re/re-org.el
+++ b/re/re-org.el
@@ -82,8 +82,12 @@
       org-agenda-deadline-leaders '("DEADLINE: " "In %3d d.: " "%2d d. ago: "))
 
 (setq org-agenda-custom-commands
-      '(("i" "Inbox" tags "inbox" ((org-agenda-overriding-header "INBOX:")))
+      '(("d" "Done items" todo "DONE" ((org-agenda-skip-function '(org-agenda-skip-entry-if 'notregexp "^\\* "))
+                                      (org-agenda-overriding-header "DONE - MAYBE ARCHIVE")))
+       ("i" "Inbox" tags "inbox" ((org-agenda-overriding-header "INBOX:")))
        ("l" "Licenses" tags "license" ((org-agenda-overriding-header "LICENSES:")))
+       ("m" "Maybe Someday" tags "someday" ((org-agenda-files '("~/org/someday.org"))
+                                            (org-agenda-overriding-header "SOMEDAY:")))
        ("n" "Next Actions" ((tags-todo "email-recurring/TODO"
                                        ((org-agenda-overriding-header "EMAILS:")))
                             (tags-todo "call-recurring/TODO"
@@ -104,12 +108,9 @@
                                        ((org-agenda-overriding-header "WRITS:")))
                             (tags-todo "ALLTAGS=\"\"/TODO"
                                        ((org-agenda-overriding-header "UNCATEGORIZED:")))))
+       ("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:")))
-       ("m" "Maybe Someday" tags "someday" ((org-agenda-files '("~/org/someday.org"))
-                                            (org-agenda-overriding-header "SOMEDAY:")))
-       ("d" "Done items" todo "DONE" ((org-agenda-skip-function '(org-agenda-skip-entry-if 'notregexp "^\\* "))
-                                      (org-agenda-overriding-header "DONE - MAYBE ARCHIVE")))))
+       ("w" "Waiting" todo "WAITING" ((org-agenda-overriding-header "WAITING:")))))
 
 ;; Configure stuck projects
 (setq org-stuck-projects '("+TODO=\"UNDERTAKEN\"" ("TODO") nil ""))