Add my own howm-menu-legend

Create the defun, and add it to the safe functions list for howm-menu.

diff --git a/re/re-howm-defuns.el b/re/re-howm-defuns.el
index 57949badfda1d1297a976d1966493e2cb0b8d53f..852ec501680f94bdb55c9c08f75f139dc6f0b24c 100644 (file)
--- 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 5407dcb7513c9eb5adee58054511a4c9a0198b4c..ebafcf94e5af082c92d9ec741aa380ca2cb98299 100644 (file)
--- 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