New todo state for menu

waiting is now no longer a hashtagged keyword, but a 'w' after a datestamp.
Added an entry for coloring, but no integration with the larger todo system.
This is beneficial because it makes it so waiting items don't clutter up the
todo section at the top, but are still easily filterable for the section at
the bottom, as well as providing coloriŋ wiþin files.

Also did some cleanup on the use-package expression for howm.

diff --git a/re/0000-00-00-000000.txt b/re/0000-00-00-000000.txt
index e038965f81c30721f10eeb91f8acb380ceaa5f0e..962e8e5624119a67e3d73bb547739a95cb0522f4 100644 (file)
--- a/re/0000-00-00-000000.txt
+++ b/re/0000-00-00-000000.txt
@@ -17,7 +17,7 @@ Inbox
 %here%(howm-menu-search "#inbox")
 \f
 Waiting
-%here%(howm-menu-search "#waiting")
+%here%(howm-menu-search "]w")
 \f
 Open Projects
 %here%(howm-menu-search "#open")

diff --git a/re/re-packages.el b/re/re-packages.el
index e8388abb653672f89ab621712172fa2a5dfd67b3..b6edcca95174dac92a8c9cec566e9412250ad872 100644 (file)
--- a/re/re-packages.el
+++ b/re/re-packages.el
@@ -139,10 +139,6 @@
 
 (use-package howm
   :config
-  (setq action-lock-default-rules
-       (append action-lock-default-rules
-               (list '("\\[Mtg\\]" (lambda (&optional dummy) (howm-create 2)))
-                     '("\\[Person\\]" (lambda (&optional dummy) (howm-create 3))))))
   (require 're-howm-defuns)
   (setq howm-template-list '("= %title%cursor #inbox\n%date %file\n\n"
                             "= %title%cursor #meeting\n%date %file\n\nAttendees: \n"
@@ -153,10 +149,25 @@
        howm-menu-file "~/.emacs.d/re/0000-00-00-000000.txt"
        howm-keyword-case-fold-search t
        howm-remember-insertion-format "%s"
-       howm-menu-todo-num 20
+       howm-menu-todo-num 10
        howm-menu-allow (append '(re/howm-menu-legend) howm-menu-allow))
-  (add-hook 'after-save-hook 'howm-mode-set-buffer-name)
-  (add-hook 'howm-mode-hook 'howm-mode-set-buffer-name)
+  ;; add coloring for custom "waiting" state
+  (add-to-list 'howm-reminder-font-lock-keywords
+              `(,(howm-reminder-regexp "[w]")
+                (0 howm-reminder-defer-face prepend))
+              t)
+  ;; add entries in howm-menu (press enter on the text)
+  (dolist (aldr-additions '(("\\[Mtg\\]"
+                            (lambda (&optional dummy)
+                              (howm-create 2)))
+                           ("\\[Person\\]"
+                            (lambda (&optional dummy)
+                              (howm-create 3)))))
+    (add-to-list 'action-lock-default-rules
+                aldr-additions
+                t))
+  (dolist (hooks '(after-save-hook howm-mode-hook))
+    (add-hook hooks 'howm-mode-set-buffer-name))
   :bind
   (("<f6>" . howm-menu)
    ("S-<f6>" . re/howm-menu-new-frame)