making my own find verse functions

This commit is contained in:
Chris Cochrun 2023-12-08 11:36:47 -06:00
parent d89efbbd99
commit 22d466d6eb
2 changed files with 10 additions and 7 deletions

View file

@ -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)