diff --git a/README.org b/README.org index 3b62b41d..d306ae03 100644 --- a/README.org +++ b/README.org @@ -682,7 +682,7 @@ This evil-collection package includes a lot of other evil based things. "ss" '(consult-line :which-key "consult search") "sr" '(consult-ripgrep :which-key "consult ripgrep") "sd" '(dictionary-search :which-key "search the dictionary") - "sv" '(imenu :which-key "imenu") + "sv" '(chris/find-verse :which-key "imenu") "oP" '(proced :which-key "proced") "ov" '(vterm :which-key "vterm") "wo" '(other-window :which-key "other window") @@ -4891,13 +4891,11 @@ 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 :tangle no +#+begin_src emacs-lisp (defun chris/find-verse () (interactive) - (find-buffer-visiting "/home/chris/org/bibles/esv.org") - (set-buffer ) - (org-node-if match) - ) + (find-file "/home/chris/org/bibles/esv.org") + (list (imenu-choose-buffer-index))) #+end_src ** Performance diff --git a/init.el b/init.el index 340e6edd..763680b8 100644 --- a/init.el +++ b/init.el @@ -389,7 +389,7 @@ "ss" '(consult-line :which-key "consult search") "sr" '(consult-ripgrep :which-key "consult ripgrep") "sd" '(dictionary-search :which-key "search the dictionary") - "sv" '(imenu :which-key "imenu") + "sv" '(chris/find-verse :which-key "imenu") "oP" '(proced :which-key "proced") "ov" '(vterm :which-key "vterm") "wo" '(other-window :which-key "other window") @@ -3589,6 +3589,11 @@ interfere with the default `bongo-playlist-buffer'." "v" 'chris/elfeed-bongo-insert-item "N" 'mastodon-notifications--timeline)) +(defun chris/find-verse () + (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. (setq-default cursor-in-non-selected-windows nil)