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 (file)
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 (file)
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))
+\f
+;; 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