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

making my own find verse functions

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

10
README.org
View file

@ -682,7 +682,7 @@ This evil-collection package includes a lot of other evil based things.
"ss" '(consult-line :which-key "consult search") "ss" '(consult-line :which-key "consult search")
"sr" '(consult-ripgrep :which-key "consult ripgrep") "sr" '(consult-ripgrep :which-key "consult ripgrep")
"sd" '(dictionary-search :which-key "search the dictionary") "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") "oP" '(proced :which-key "proced")
"ov" '(vterm :which-key "vterm") "ov" '(vterm :which-key "vterm")
"wo" '(other-window :which-key "other window") "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
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. 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 () (defun chris/find-verse ()
(interactive) (interactive)
(find-buffer-visiting "/home/chris/org/bibles/esv.org") (find-file "/home/chris/org/bibles/esv.org")
(set-buffer ) (list (imenu-choose-buffer-index)))
(org-node-if match)
)
#+end_src #+end_src
** Performance ** Performance

7
init.el
View file

@ -389,7 +389,7 @@
"ss" '(consult-line :which-key "consult search") "ss" '(consult-line :which-key "consult search")
"sr" '(consult-ripgrep :which-key "consult ripgrep") "sr" '(consult-ripgrep :which-key "consult ripgrep")
"sd" '(dictionary-search :which-key "search the dictionary") "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") "oP" '(proced :which-key "proced")
"ov" '(vterm :which-key "vterm") "ov" '(vterm :which-key "vterm")
"wo" '(other-window :which-key "other window") "wo" '(other-window :which-key "other window")
@ -3589,6 +3589,11 @@ interfere with the default `bongo-playlist-buffer'."
"v" 'chris/elfeed-bongo-insert-item "v" 'chris/elfeed-bongo-insert-item
"N" 'mastodon-notifications--timeline)) "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 ;; Reduce rendering/line scan work for Emacs by not rendering cursors or regions
;; in non-focused windows. ;; in non-focused windows.
(setq-default cursor-in-non-selected-windows nil) (setq-default cursor-in-non-selected-windows nil)