From 8d4c8270a562feb5430942e05230ecf2a17acb78 Mon Sep 17 00:00:00 2001
From: rearman <rearman@r717.net>
Date: Thu, 31 Jul 2025 10:54:39 -0400
Subject: [PATCH] Howm defuns in its own file, def & bind to add keywords

---
 init.el              |  4 ++--
 re/re-bindings.el    |  4 ++++
 re/re-howm-defuns.el | 21 +++++++++++++++++++++
 re/re-packages.el    |  2 +-
 4 files changed, 28 insertions(+), 3 deletions(-)
 create mode 100644 re/re-howm-defuns.el

diff --git a/init.el b/init.el
index d8b22a7..2467011 100644
--- a/init.el
+++ b/init.el
@@ -29,14 +29,14 @@
 	    (require 're-refrigeration-defuns)
 	    (require 're-skeletons)
 	    (require 're-org)
-	    (require 're-org-defuns)))
+	    (require 're-org-defuns)
+	    (require 're-howm-defuns)))
 
 (add-to-list 'auto-mode-alist '("\\.keymap\\'" . c-mode))
 (add-hook 'c-mode-hook (lambda () (require 're-c-style)))
 
 (setq-default indicate-empty-lines t
 	      fill-column 80
-	      cursor-type 'bar
 	      cursor-in-non-selected-windows 'hollow
 	      mouse-prefer-closest-glyph t)
 
diff --git a/re/re-bindings.el b/re/re-bindings.el
index b2cb322..05bcd16 100644
--- a/re/re-bindings.el
+++ b/re/re-bindings.el
@@ -155,5 +155,9 @@
 (keymap-global-set "<f7>" #'re/org-agenda-new-frame)
 (keymap-global-set "<f8>" #'re/org-agenda-show-custom)
 
+;; HOWM
+(keymap-global-set "S-<f7>" #'re/howm-menu-new-frame)
+(keymap-global-set "C-c , k" #'re/howm-create-keyword)
+
 (provide 're-bindings)
 ;;; re-bindings.el ends here
diff --git a/re/re-howm-defuns.el b/re/re-howm-defuns.el
new file mode 100644
index 0000000..57949ba
--- /dev/null
+++ b/re/re-howm-defuns.el
@@ -0,0 +1,21 @@
+;;; 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")
+  (select-frame (make-frame '((name . "HOWM"))))
+  (funcall #'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))
+
+(provide 're-howm-defuns)
+;;; re-howm-defuns.el ends here
diff --git a/re/re-packages.el b/re/re-packages.el
index e7b0703..3cb8f46 100644
--- a/re/re-packages.el
+++ b/re/re-packages.el
@@ -133,7 +133,7 @@
   (global-aggressive-indent-mode t))
 
 (setq howm-template-list '("= %title%cursor\n%date  %file\n\n"
-			   "= <<< %title%cursor\n%date %file\nSYSTEM NOTES\nBEFORE STARTUP\nPLC\nHMI\nCOMMISSIONING\nAFTER STARTUP\n"
+			   "= <<< %title%cursor\n%date %file\nSystemNotes\nBeforeStartup\nPlcProgram\nHumanMachineInterface\nDuringStartup\nAfterStartup\n"
 			   "= %title%cursor\n%date %file\nMeeting Attendees: \n\n"
 			   "= @%title%cursor\n%date %file\nCompany: \nPosition: \nEmail: \nOffice: \nCell: \n"))
 
-- 
2.39.5