Howm defuns in its own file, def & bind to add keywords

diff --git a/init.el b/init.el
index d8b22a7b90c648d0b7a76bc2fdbd25bc7d783fea..246701173afed8aaedd4e15b803c2f9e6a97dbcf 100644 (file)
--- 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 b2cb3223c2775a27ae450ec1d690585542b9e3d1..05bcd169eae4e0751ab34eda4c18e937dbeb51d4 100644 (file)
--- 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 (file)
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 e7b07033ce481b96662c65043752dee7c9a2aadc..3cb8f469bc708d1e40b023203deb9c142a7dc9a7 100644 (file)
--- 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"))