chris/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

idk

Browse source
This commit is contained in:
Chris Cochrun 2023-12-18 16:15:45 -06:00
parent 36c35aa4b6
commit a6cecb8599
3 changed files with 74 additions and 48 deletions
Download patch file Download diff file Expand all files Collapse all files

8
bible.el
View file

@ -1,8 +1,12 @@
(defvar bible-directory "~/docs/bibles")
(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)
(defvar bible-default "~/docs/bibles/esv.org")
(defun chris/find-verse ()
(interactive)
(find-file "/home/chris/org/bibles/esv.org")
(list (imenu-choose-buffer-index)))
(find-file "/home/chris/docs/bibles/esv.org")
(let ((location (list (imenu-choose-buffer-index))))
(imenu-default-goto-function nil (cdr (car location)))))