From: rearman <rearman@r717.net>
Date: Mon, 27 Apr 2026 16:26:00 +0000 (-0400)
Subject: move defuns and settings into one file
X-Git-Url: https://git.earman.xyz/?a=commitdiff_plain;h=eb07bd5e4f424fcb760c56268458e86c6c6708b7;p=emacsinit.git

move defuns and settings into one file
---

diff --git a/re/re-howm-defuns.el b/re/re-howm-defuns.el
deleted file mode 100644
index 1126a4a..0000000
--- a/re/re-howm-defuns.el
+++ /dev/null
@@ -1,35 +0,0 @@
-;;; re-howm-defuns.el -*- lexical-binding: t; -*-
-;; This file is not part of GNU Emacs
-
-;;; Code:
-
-(defun re/howm-menu-new-frame (&optional arg)
-  "Show the howm menu in a new frame"
-  (interactive "P")
-  (re/open-with-new-frame "HOWM" #'howm-menu))
-
-(defun re/howm-create-keyword ()
-  "Reads a keyword from the minibuffer and appends it to the keywords file."
-  (interactive)
-  (append-to-file (concat (read-string "New Keyword: ")
-			  "\n")
-		  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-howm.el b/re/re-howm.el
new file mode 100644
index 0000000..f4167b6
--- /dev/null
+++ b/re/re-howm.el
@@ -0,0 +1,71 @@
+;;; re-howm.el -*- lexical-binding: t; -*-
+;; This file is not part of GNU Emacs
+
+;;; Code:
+
+(setq howm-template-list '("= %title%cursor #inbox\n%date %file\n\n"
+			   "= %title%cursor #meeting\n%date %file\n\nAttendees: \n"
+			   "= @%title%cursor\n%date %file\n\n")
+      howm-template howm-template-list
+      howm-keyword-file "~/howm/.howm-keys"
+      howm-history-file "~/howm/.howm-history"
+      howm-menu-file "~/.emacs.d/re/0000-00-00-000000.txt"
+      howm-file-name-format "%Y%m%dT%H%M%S.txt"
+      howm-keyword-case-fold-search t
+      howm-remember-insertion-format "%s"
+      howm-menu-todo-num 10)
+
+(defun re/howm-menu-new-frame (&optional arg)
+  "Show the howm menu in a new frame"
+  (interactive "P")
+  (re/open-with-new-frame "HOWM" #'howm-menu))
+
+(defun re/howm-create-keyword ()
+  "Reads a keyword from the minibuffer and appends it to the keywords file."
+  (interactive)
+  (append-to-file (concat (read-string "New Keyword: ")
+			  "\n")
+		  nil
+		  howm-keyword-file))
+
+;; Menu tweaks
+
+;; 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))
+
+(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:")))
+
+(add-to-list 'howm-menu-allow 're/howm-menu-legend)
+
+;; 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)
+
+(dolist (hooks '(after-save-hook howm-mode-hook))
+  (add-hook hooks 'howm-mode-set-buffer-name))
+
+(provide 're-howm)
+;;; re-howm.el ends here