From 0009b04394969cc305471ed72bacd8a9a5f3159c Mon Sep 17 00:00:00 2001
From: Kjetil Orbekk <kj@orbekk.com>
Date: Wed, 20 May 2020 21:39:22 -0400
Subject: hledger mode

---
 doom.d/config.el   | 39 +++++++++++++++++++++++++++++++++++++++
 doom.d/packages.el |  2 ++
 2 files changed, 41 insertions(+)

diff --git a/doom.d/config.el b/doom.d/config.el
index 125c03f..6bedc3d 100644
--- a/doom.d/config.el
+++ b/doom.d/config.el
@@ -107,4 +107,43 @@
 (after! mu4e-maildirs-extension
   (mu4e-maildirs-extension))
 
+(setq hledger-jfile "~/.hledger.journal")
+
+(use-package! hledger-mode
+  :defer t
+  :mode ("\\.journal\\'" "\\.hledger\\'")
+  :commands hledger-enable-reporting
+  :preface
+  (defun hledger/next-entry ()
+    "Move to next entry and pulse."
+    (interactive)
+    (hledger-next-or-new-entry)
+    (hledger-pulse-momentary-current-entry))
+
+  (defface hledger-warning-face
+    '((((background dark))
+       :background "Red" :foreground "White")
+      (((background light))
+       :background "Red" :foreground "White")
+      (t :inverse-video t))
+    "Face for warning"
+    :group 'hledger)
+
+  (defun hledger/prev-entry ()
+    "Move to last entry and pulse."
+    (interactive)
+    (hledger-backward-entry)
+    (hledger-pulse-momentary-current-entry))
+
+  :config
+  (set-company-backend! 'hledger-mode '(hledger-company))
+
+  (map! :map hledger-mode-map
+        "M-p" #'hledger/prev-entry
+        "M-n" #'hledger/next-entry
+        :localleader
+        "e" #'hledger-jentry
+        "j" #'hledger-run-command)
+  )
+
 (load-file "~/.doom.d/config.local.el")
diff --git a/doom.d/packages.el b/doom.d/packages.el
index adb100f..1a4873c 100644
--- a/doom.d/packages.el
+++ b/doom.d/packages.el
@@ -46,4 +46,6 @@
 ;; our package manager can't deal with; see raxod502/straight.el#279)
 ;(package! builtin-package :recipe (:branch "develop"))
 
+(package! hledger-mode)
+
 (load-file "~/.doom.d/packages.local.el")
-- 
cgit v1.2.3