diff --git a/README.org b/README.org index 9eb3f8c8..490b2188 100644 --- a/README.org +++ b/README.org @@ -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 diff --git a/bible.el b/bible.el index 4cbf3872..0383e601 100644 --- a/bible.el +++ b/bible.el @@ -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") diff --git a/init.el b/init.el index ab611d1c..09a76ed3 100644 --- a/init.el +++ b/init.el @@ -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.