small tweaks and the beginning of bible stuff

README.org

@@ -43,7 +43,7 @@
   - [[#magit][Magit]]
   - [[#eshell][Eshell]]
   - [[#vterm][Vterm]]
-  - [[#sly][Sly]]
+  - [[#sly-common-lisp][Sly Common Lisp]]
   - [[#pdf-tools][PDF-Tools]]
   - [[#epub][EPUB]]
   - [[#eaf-emacs-application-framework][EAF (Emacs Application Framework)]]
@@ -395,6 +395,13 @@ Let's make parens and other delimiters easier to tell apart by making nested one
            (eval (mini-echo-mode 0) (doom-modeline-mode 1))
          (eval (doom-modeline-mode 0) (mini-echo-mode 1)))))
 #+end_src
+
+*** Searching
+Let's make xref use ripgrep instead of grep for speed.
+#+begin_src emacs-lisp
+(setq xref-search-program "ripgrep")
+#+end_src
+
 ** Fix NixOS
 I am currently using NixOS. In order for emacs to have access to certain programs, we need to set some environment variables
 #+begin_src emacs-lisp :tangle no
@@ -1372,6 +1379,19 @@ In order to use it, I need to go to http://localhost:8080
         org-roam-ui-open-on-start t))
 
 #+END_SRC
+*** Denote
+I might try switching to and using denote instead of Org Roam. Denote doesn't use a DB and instead uses a clever naming scheme to make sure that all files are connectable. The one downside of denote is that the links are specific to denote instead of plain org links.
+#+begin_src emacs-lisp
+(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))
+#+end_src
 
 *** Org-Superstar
 Org-Superstar makes the stars at the beginning of the line in =org-mode= a lot prettier.
@@ -3138,6 +3158,15 @@ Finally, here are some auto modes I'd like to setup
 (add-to-list 'auto-mode-alist '("\\.yuck?\\'" . lisp-data-mode))
 #+end_src
 
+*** Emacs Lisp 
+#+begin_src emacs-lisp
+(general-def 'normal emacs-lisp-mode-map
+  "ge" 'eval-defun
+  "gE" 'eval-last-sexp
+  "gp" 'pp-eval-last-sexp)
+#+end_src
+
+
 *** Tree Sitter
 I'm gonna try this to speed up emacs and make it nicer
 #+begin_src emacs-lisp :tangle no
@@ -3716,15 +3745,19 @@ Ledger mode
                    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))
 #+end_src
 
 ** MU4E
@@ -4217,7 +4250,7 @@ Emulate a terminal
   (display-line-numbers-mode -1))
 (add-hook 'vterm-mode-hook 'chris/vterm-setup)
 #+end_src
-** Sly
+** Sly Common Lisp
 Using sly makes a lot better common-lisp interaction within emacs.
 #+begin_src emacs-lisp
 (use-package sly
@@ -4932,10 +4965,14 @@ I am going to try and use LanguageTool to fix grammatical issues.
 ** MyBible
 MyBible is going to be set of functions for creating and using a bible app within Emacs. Let's see if we can't make it work.
 #+begin_src emacs-lisp
+(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)))
 #+end_src
 
 ** Performance