From 11712c5be1f8e836e56ae06a16124159dd113fac Mon Sep 17 00:00:00 2001 From: rearman Date: Wed, 22 Apr 2026 15:59:27 -0400 Subject: [PATCH] New todo state for menu MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit 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. --- re/0000-00-00-000000.txt | 2 +- re/re-packages.el | 25 ++++++++++++++++++------- 2 files changed, 19 insertions(+), 8 deletions(-) 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 (("" . howm-menu) ("S-" . re/howm-menu-new-frame) -- 2.39.5