From: rearman <rearman@r717.net>
Date: Wed, 22 Apr 2026 19:59:27 +0000 (-0400)
Subject: New todo state for menu
X-Git-Url: https://git.earman.xyz/?a=commitdiff_plain;h=11712c5be1f8e836e56ae06a16124159dd113fac;p=emacsinit.git

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 e038965..962e8e5 100644
--- a/re/0000-00-00-000000.txt
+++ b/re/0000-00-00-000000.txt
@@ -17,7 +17,7 @@ Inbox
 %here%(howm-menu-search "#inbox")
 
 Waiting
-%here%(howm-menu-search "#waiting")
+%here%(howm-menu-search "]w")
 
 Open Projects
 %here%(howm-menu-search "#open")
diff --git a/re/re-packages.el b/re/re-packages.el
index e8388ab..b6edcca 100644
--- 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)