From 5a8af0dbe52789c25a0ba9ab3b96adcbeda4a197 Mon Sep 17 00:00:00 2001 From: rearman Date: Wed, 3 Sep 2025 15:50:56 -0400 Subject: [PATCH] Add my own howm-menu-legend Create the defun, and add it to the safe functions list for howm-menu. --- re/re-howm-defuns.el | 15 +++++++++++++++ re/re-packages.el | 3 ++- 2 files changed, 17 insertions(+), 1 deletion(-) diff --git a/re/re-howm-defuns.el b/re/re-howm-defuns.el index 57949ba..852ec50 100644 --- a/re/re-howm-defuns.el +++ b/re/re-howm-defuns.el @@ -17,5 +17,20 @@ nil howm-keyword-file)) +(defun re/howm-menu-legend () + (cl-labels ((p (text face) (propertize text 'font-lock-face face))) + (concat (format "Top %s" howm-menu-todo-num) + " " + (p "!Deadline" howm-reminder-deadline-face) + "/" + (p "+ToDo" howm-reminder-todo-face) + "/" + (p "@Schedule" howm-reminder-schedule-face) + "/" + (p "~Defer" howm-reminder-defer-face) + "/" + (p "-Reminder" howm-reminder-normal-face) + " Entries:"))) + (provide 're-howm-defuns) ;;; re-howm-defuns.el ends here diff --git a/re/re-packages.el b/re/re-packages.el index 5407dcb..ebafcf9 100644 --- a/re/re-packages.el +++ b/re/re-packages.el @@ -151,7 +151,8 @@ howm-remember-insertion-format "%s" howm-menu-expiry-hours 1 howm-menu-refresh-after-save nil - howm-menu-todo-num 20) + howm-menu-todo-num 20 + 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) :bind -- 2.39.5