Add howm configuration

1 files changed, 32 insertions, 0 deletions

diff --git a/emacs/init.el b/emacs/init.el
index b261c53..5ce3dd0 100644
--- a/emacs/init.el
+++ b/emacs/init.el
@@ -1381,3 +1381,35 @@ The misspelled word is taken from OVERLAY.  WORD is the corrected word."
 (setq anm/notes-directory "~/Documents/Voice notes/")
 (setq anm/goto-file "~/Documents/notes/notes.org")
 (setq anm/player-command '("mpv" "--quiet" file))
+
+;;; Howm
+(use-package howm
+  :ensure t
+
+  :init
+  (setopt howm-view-title-header "#")
+
+  :custom
+  (howm-directory "~/Documents/notes/")
+  (howm-keyword-file (expand-file-name ".howm-keys" howm-directory))
+  (howm-history-file (expand-file-name ".howm-history" howm-directory))
+  (howm-view-summary-omit-same-name nil)
+  (howm-keyword-case-fold-search t)
+  (howm-view-use-grep t)
+  (howm-view-grep-command "ugrep")
+
+  ;; Don't show the file name 
+  (howm-view-summary-format "")
+
+  ;; Rename buffers to their title
+  :hook ((howm-mode . howm-mode-set-buffer-name)
+         (after-save . howm-mode-set-buffer-name))
+
+  ;; Don't clobber the help binding
+  :bind (:map howm-menu-mode-map ("C-h" . nil)
+              :map riffle-summary-mode-map ("C-h" . nil)
+              :map howm-view-contents-mode-map ("C-h" . nil))
+  :bind
+  ("<f12>" . howm-list-all)
+  ("<C-f12>" . howm-create))
+(setopt howm-file-name-format "%Y-%m-%dT%H%M%S.md")