Commit 8c6afb00a90e

Vincent Demeester <vincent@sbr.pm>
2015-08-09 11:26:00
Add todo PAUSED
Same as BLOCKED but this is less problematic (it's paused by us, not dependent from something else)
main
1 parent b22701e
Changed files (1)
.emacs.d
emacs.org
.emacs.d/emacs.org
@@ -1752,56 +1752,64 @@
 - =ARCHIVED= : same as done but keep it here (and not moving into archive)
 
   #+begin_src emacs-lisp
-       (defface org-progress ; font-lock-warning-face
-         (org-compatible-face nil
-           '((((class color) (min-colors 16) (background light)) (:foreground "#A197BF" :bold t :background "#E8E6EF" :box (:line-width 1 :color "#A197BF")))
-             (((class color) (min-colors 8)  (background light)) (:foreground "blue"  :bold t))
-             (t (:inverse-video t :bold t))))
-         "Face for PROGRESS keywords."
-         :group 'org-faces)
-       (defface org-cancelled ; font-lock-warning-face
-         (org-compatible-face nil
-           '((((class color) (min-colors 16) (background light)) (:foreground "#3D3D3D" :bold t :background "#7A7A7A" :box (:line-width 1 :color "#3D3D3D")))
-             (((class color) (min-colors 8)  (background light)) (:foreground "black"  :bold t))
-             (t (:inverse-video t :bold t))))
-         "Face for PROGRESS keywords."
-         :group 'org-faces)
-       (defface org-review ; font-lock-warning-face
-         (org-compatible-face nil
-           '((((class color) (min-colors 16) (background light)) (:foreground "#FC9B17" :bold t :background "#FEF2C2" :box (:line-width 1 :color "#FC9B17")))
-             (((class color) (min-colors 8)  (background light)) (:foreground "yellow"  :bold t))
-             (t (:inverse-video t :bold t))))
-         "Face for PROGRESS keywords."
-         :group 'org-faces)
-       (defface org-blocked ; font-lock-warning-face
-         (org-compatible-face nil
-           '((((class color) (min-colors 16) (background light)) (:foreground "#FF8A80" :bold t :background "#ffdad6" :box (:line-width 1 :color "#FF8A80")))
-             (((class color) (min-colors 8)  (background light)) (:foreground "red"  :bold t))
-             (t (:inverse-video t :bold t))))
-         "Face for PROGRESS keywords."
-         :group 'org-faces)
+    (defface org-progress ; font-lock-warning-face
+      (org-compatible-face nil
+        '((((class color) (min-colors 16) (background light)) (:foreground "#A197BF" :bold t :background "#E8E6EF" :box (:line-width 1 :color "#A197BF")))
+          (((class color) (min-colors 8)  (background light)) (:foreground "blue"  :bold t))
+          (t (:inverse-video t :bold t))))
+      "Face for PROGRESS keywords."
+      :group 'org-faces)
+    (defface org-paused ; font-lock-warning-face
+      (org-compatible-face nil
+        '((((class color) (min-colors 16) (background light)) (:foreground "#D6CCF4" :bold t :background "#ECE9F5" :box (:line-width 1 :color "#D6CCF4")))
+          (((class color) (min-colors 8)  (background light)) (:foreground "cyan"  :bold t))
+          (t (:inverse-video t :bold t))))
+      "Face for PAUSED keywords."
+      :group 'org-faces)
+    (defface org-cancelled ; font-lock-warning-face
+      (org-compatible-face nil
+        '((((class color) (min-colors 16) (background light)) (:foreground "#3D3D3D" :bold t :background "#7A7A7A" :box (:line-width 1 :color "#3D3D3D")))
+          (((class color) (min-colors 8)  (background light)) (:foreground "black"  :bold t))
+          (t (:inverse-video t :bold t))))
+      "Face for PROGRESS keywords."
+      :group 'org-faces)
+    (defface org-review ; font-lock-warning-face
+      (org-compatible-face nil
+        '((((class color) (min-colors 16) (background light)) (:foreground "#FC9B17" :bold t :background "#FEF2C2" :box (:line-width 1 :color "#FC9B17")))
+          (((class color) (min-colors 8)  (background light)) (:foreground "yellow"  :bold t))
+          (t (:inverse-video t :bold t))))
+      "Face for PROGRESS keywords."
+      :group 'org-faces)
+    (defface org-blocked ; font-lock-warning-face
+      (org-compatible-face nil
+        '((((class color) (min-colors 16) (background light)) (:foreground "#FF8A80" :bold t :background "#ffdad6" :box (:line-width 1 :color "#FF8A80")))
+          (((class color) (min-colors 8)  (background light)) (:foreground "red"  :bold t))
+          (t (:inverse-video t :bold t))))
+      "Face for PROGRESS keywords."
+      :group 'org-faces)
 
-       (setq org-todo-keywords
-             (quote ((sequence "TODO(t!)" "PROGRESS(p!)" "BLOCKED" "REVIEW" "|" "DONE(d!)" "ARCHIVED")
-                     (sequence "REPORT(r!)" "BUG" "KNOWNCAUSE" "|" "FIXED(f!)")
-                     (sequence "|" "CANCELLED(c@)"))))
+    (setq org-todo-keywords
+          (quote ((sequence "TODO(t!)" "PROGRESS(p!)" "PAUSED" "BLOCKED" "REVIEW" "|" "DONE(d!)" "ARCHIVED")
+                  (sequence "REPORT(r!)" "BUG" "KNOWNCAUSE" "|" "FIXED(f!)")
+                  (sequence "|" "CANCELLED(c@)"))))
 
 
-       (setq org-todo-keyword-faces
-             (quote (("TODO" . org-todo)
-                     ("PROGRESS" . org-progress)
-                     ("BLOCKED" . org-blocked)
-                     ("REVIEW" . org-review)
-                     ("DONE" . org-done)
-                     ("ARCHIVED" . org-done)
-                     ("CANCELLED" . org-cancelled)
-                     ("REPORT" . org-todo)
-                     ("BUG" . org-blocked)
-                     ("KNOWNCAUSE" . org-review)
-                     ("FIXED" . org-done))))
+    (setq org-todo-keyword-faces
+          (quote (("TODO" . org-todo)
+                  ("PROGRESS" . org-progress)
+                  ("PAUSED" . org-paused)
+                  ("BLOCKED" . org-blocked)
+                  ("REVIEW" . org-review)
+                  ("DONE" . org-done)
+                  ("ARCHIVED" . org-done)
+                  ("CANCELLED" . org-cancelled)
+                  ("REPORT" . org-todo)
+                  ("BUG" . org-blocked)
+                  ("KNOWNCAUSE" . org-review)
+                  ("FIXED" . org-done))))
 
-       (setq org-todo-state-tags-triggers
-             (quote (("CANCELLED" ("CANCELLED" . t)))))
+    (setq org-todo-state-tags-triggers
+          (quote (("CANCELLED" ("CANCELLED" . t)))))
   #+end_src
 
 
@@ -2246,6 +2254,9 @@
               ("r" todo "REVIEW"
                ((org-agenda-sorting-strategy '(priority-down))
                 (org-agenda-prefix-format "  Mixed: ")))
+              ("a" todo "PAUSED"
+               ((org-agenda-sorting-strategy '(priority-down))
+                (org-agenda-prefix-format "  Mixed: ")))
               ("b" todo "BLOCKED"
                ((org-agenda-sorting-strategy '(priority-down))
                 (org-agenda-prefix-format "  Mixed: ")))