small tweaks and the beginning of bible stuff

init.el

@@ -195,6 +195,8 @@
            (eval (mini-echo-mode 0) (doom-modeline-mode 1))
          (eval (doom-modeline-mode 0) (mini-echo-mode 1)))))
 
+(setq xref-search-program "ripgrep")
+
 (setenv "WAYLAND_DISPLAY" (if (string= (getenv "XDG_CURRENT_DESKTOP") "Hyprland")
                               "wayland-1"
                             "wayland-0"))
@@ -1034,6 +1036,16 @@ much faster. The hope is to also make this a faster version of imenu."
         org-roam-ui-update-on-save t
         org-roam-ui-open-on-start t))
 
+(use-package denote
+  :config
+  (setq denote-directory "/home/chris/org"
+        denote-dired-directories "/home/chris/org"
+        denote-modules '(project xref ffap)
+        denote-known-keywords '("emacs" "bible" "jesus" "tfc" "lesson" "it" "dev"))
+  :general
+  (chris/leader-keys
+    "no" 'denote-open-or-create))
+
 (use-package org-present
   :commands org-present
   :config
@@ -2392,6 +2404,11 @@ targets."
 
 (add-to-list 'auto-mode-alist '("\\.yuck?\\'" . lisp-data-mode))
 
+(general-def 'normal emacs-lisp-mode-map
+  "ge" 'eval-defun
+  "gE" 'eval-last-sexp
+  "gp" 'pp-eval-last-sexp)
+
 
 
 (defun astyle-this-buffer ()
@@ -2696,15 +2713,19 @@ targets."
                    tab-always-indent 'complete
                    completion-cycle-threshold t
                    ledger-complete-in-steps t)
+
   (defun chris/ledger-clean ()
     (interactive)
     (when (eq major-mode #'ledger-mode)
       (ledger-mode-clean-buffer)))
   (add-hook 'after-save-hook #'chris/ledger-clean)
-  (add-hook 'ledger-reconcile-mode-hook #'(ledger-mode-clean-buffer))
+
+  (setq ledger-default-date-format "%Y-%m-%d")
+
   :general
   (general-def 'normal ledger-mode-map
-    "ga" 'ledger-add-transaction))
+    "ga" 'ledger-add-transaction
+    "gr" 'ledger-report))
 
 (use-package mu4e
   ;; :load-path "~/.guix-home/profile/share/emacs/site-lisp/mu4e/"
@@ -3629,10 +3650,14 @@ interfere with the default `bongo-playlist-buffer'."
     "v" 'chris/elfeed-bongo-insert-item
     "N" 'mastodon-notifications--timeline))
 
+(defvar bible-books '(genesis exodus leviticus numbers dueteronomy joshua judges ruth 1-samuel 2-samuel 1-kings 2-kings 1-chronicles 2-chronicles ezra nehemiah esther job psalms proverbs ecclesiastes song-of-solomon isaiah jeremiah lamentations ezekiel daniel hosea joel amos obadiah jonah micah nahum habakkuk zephaniah haggai zechariah malachi matthew mark luke john acts romans 1-corinthians 2-corinthians galatians ephesians phillipians colossians 1-thessalonians 2-thessalonians 1-timothy 2-timothy titus philemon hebrews james 1-peter 2-peter 1-john 2-john 3-john jude revelation))
+
+(org-list-get-subtree *genesis* idk)
+
 (defun chris/find-verse ()
-    (interactive)
-    (find-file "/home/chris/org/bibles/esv.org")
-    (list (imenu-choose-buffer-index)))
+  (interactive)
+  (find-file "/home/chris/org/bibles/esv.org")
+  (list (imenu-choose-buffer-index)))
 
 ;; Reduce rendering/line scan work for Emacs by not rendering cursors or regions
 ;; in non-focused windows.
@@ -3674,23 +3699,3 @@ interfere with the default `bongo-playlist-buffer'."
         gcmh-verbose nil))
 
 (setq warning-suppress-types '((comp)))
-(custom-set-variables
- ;; custom-set-variables was added by Custom.
- ;; If you edit it by hand, you could mess it up, so be careful.
- ;; Your init file should contain only one such instance.
- ;; If there is more than one, they won't work right.
- '(ledger-reports
-   '(("bal Income" "ledger bal Income")
-     ("bal" "%(binary) -f %(ledger-file) bal")
-     ("reg" "%(binary) -f %(ledger-file) reg")
-     ("payee" "%(binary) -f %(ledger-file) reg @%(payee)")
-     ("account" "%(binary) -f %(ledger-file) reg %(account)")))
- '(pdf-misc-print-program-args
-   '("-o media=Letter" "-o fitplot" "-o sides=two-sided-long-edge"))
- '(pdf-misc-print-program-executable "lpr"))
-(custom-set-faces
- ;; custom-set-faces was added by Custom.
- ;; If you edit it by hand, you could mess it up, so be careful.
- ;; Your init file should contain only one such instance.
- ;; If there is more than one, they won't work right.
- '(org-modern-tag ((t :background "#9aedfe" :foreground "#282a36"))))