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

making org bible actually kinda a thing

Browse source
This commit is contained in:
Chris Cochrun 2024-01-15 15:11:21 -06:00
parent 623db76d13
commit a406b04da8
3 changed files with 18 additions and 46 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
README.org
View file

@ -58,7 +58,7 @@
- [[#activitywatch][ActivityWatch]]
- [[#languagetool][LanguageTool]]
- [[#qrencode][qrencode]]
- [[#mybible][MyBible]]
- [[#org-bible][Org Bible]]
- [[#performance][Performance]]
- [[#logging][Logging]]
- [[#early-init][Early Init]]
@ -5132,30 +5132,13 @@ I am going to try and use LanguageTool to fix grammatical issues.
(use-package qrencode)
#+end_src
** MyBible
** Org Bible
:PROPERTIES:
:ID: 20231221T141041.368526
:END:
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.
Org Bible 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))
(defun chris/org-get-tree (&optional file)
"Get the tree of the current org buffer or optionally a file."
(interactive)
(let ((list nil))))
(defun chris/make-chapters ()
(interactive)
(org-narrow-to-element)
(search-forward "chapter")
(beginning-of-line)
(insert "** "))
(defun chris/find-verse ()
(interactive)
(org-ql-select "/home/chris/docs/bibles/esv.org" "Jesus")
(goto-char (cdr (imenu-choose-buffer-index))))
(load (concat user-emacs-directory "bible.el"))
#+end_src
** Performance

20
bible.el
View file

@ -1,12 +1,18 @@
(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))
(defvar org-bible-directory "~/docs/bibles")
(defvar org-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 org-bible-default "~/docs/bibles/esv.org")
(defvar org-bible-selected org-bible-default)
(defvar bible-default "~/docs/bibles/esv.org")
(defun chris/find-verse ()
(defun org-bible-find-verse-imenu ()
"Using Imenu find the verse and jump to it using the default bible"
(interactive)
(find-file "/home/chris/docs/bibles/esv.org")
(find-file org-bible-selected)
(let ((location (list (imenu-choose-buffer-index))))
(imenu-default-goto-function nil (cdr (car location)))))
;; (define-minor-mode org-bible-mode
;; "Toggles the org bible minor mode"
;; nil
;; :global t
;; :lighter " bible")

19
init.el
View file

@ -3689,24 +3689,7 @@ 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))
(defun chris/org-get-tree (&optional file)
"Get the tree of the current org buffer or optionally a file."
(interactive)
(let ((list nil))))
(defun chris/make-chapters ()
(interactive)
(org-narrow-to-element)
(search-forward "chapter")
(beginning-of-line)
(insert "** "))
(defun chris/find-verse ()
(interactive)
(org-ql-select "/home/chris/docs/bibles/esv.org" "Jesus")
(goto-char (cdr (imenu-choose-buffer-index))))
(load (concat user-emacs-directory "bible.el"))
;; Reduce rendering/line scan work for Emacs by not rendering cursors or regions
;; in non-focused windows.