making my own find verse functions

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

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)