Move to "Next-action" implementation in org

diff --git a/init.el b/init.el
index 7f23fe264413ec105b0d7a7e79ae23b59d6322c2..5f430e92044e1e7a4e160b50ad439985df3069d4 100644 (file)
--- a/init.el
+++ b/init.el
@@ -225,8 +225,8 @@
                               (file-expand-wildcards "~/ignition/*/"))\r
       org-refile-targets '((nil :maxlevel . 9)\r
                           (org-agenda-files :maxlevel . 9))\r
-      org-todo-keywords '((sequence "TODO(t)" "WAITING(w@)" "|" "DONE(d)" "BELAYED(b@)" "GIVEN(g@)")\r
-                         (sequence "TODO(t)" "ENTERED(e!)" "|" "RECEIVED(r)"))\r
+      org-todo-keywords '((sequence "TODO(t)" "NEXT(n)" "WAITING(w@)" "|" "DONE(d)" "BELAYED(b@)" "GIVEN(g@)")\r
+                         (sequence "ENTERED(e!)" "|" "RECEIVED(r)"))\r
       org-todo-keyword-faces '(("WAITING" :foreground "#e85400" :weight bold)\r
                               ("ENTERED" :foreground "#e85400" :weight bold)) ; alert orange\r
       org-agenda-prefix-format '((agenda . "          %?-12t%? s")\r
@@ -243,13 +243,16 @@
 \r
 ;; Stuck Projects\r
 \r
-(setq org-stuck-projects '("undertaking+LEVEL=1/-DONE-GIVEN-BELAYED-RECEIVED" ("TODO" "WAITING" "ENTERED") nil ""))\r
+(setq org-stuck-projects '("undertaking+LEVEL=1/-DONE-GIVEN-BELAYED-RECEIVED" ("NEXT") nil ""))\r
 \r
 ;; Custom Agendas\r
 \r
 (defvar *re/org-agenda-inbox*\r
   '(tags "inbox" ((org-agenda-overriding-header ""))))\r
 \r
+(defvar *re/org-agenda-next*\r
+  '(tags-todo "-recurring/NEXT" ((org-agenda-overriding-header ""))))\r
+\r
 (defvar *re/org-agenda-todo*\r
   '(tags-todo "-recurring/TODO" ((org-agenda-overriding-header ""))))\r
 \r
@@ -263,7 +266,7 @@
   '(tags "-recurring+LEVEL=1/DONE|BELAYED|GIVEN|RECEIVED"))\r
 \r
 (setq org-agenda-custom-commands `(("i" "Inbox" ,@*re/org-agenda-inbox*)\r
-                                  ("n" "Next Actions" ,@*re/org-agenda-todo*)\r
+                                  ("n" "Next Actions" ,@*re/org-agenda-next*)\r
                                   ("u" "Undertakings" ,@*re/org-agenda-undertakings*)\r
                                   ("w" "Waiting" ,@*re/org-agenda-waiting*)\r
                                   ("d" "Done" ,@*re/org-agenda-done*)))\r