jeremy/elisp
1
Fork 0
Code Releases Activity

esv.el: accept one package argument

Browse source
This commit is contained in:
Jeremy Baxter 2024-07-20 14:26:28 +12:00
parent cbf4d0326f
commit a2934872ba
1 changed files with 20 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

26
esv.el
View file

@ -69,31 +69,37 @@
(read-only-mode))
(defun esv (book verses)
(defun esv (passage)
"Fetch the Bible passage identified by BOOK and VERSES.
The result will be redirected to a buffer named after the passage.
Requires the esv command line tool to be in the system's PATH.
esv can be acquired at <https://sr.ht/~jeremy/esv>."
(interactive "MBook: \nMVerses: ")
(let
((buffer (concat book " " verses))
(interactive "MPassage: ")
(let*
((slices (split-string passage))
(verses (car (last slices)))
(book (mapconcat #'(lambda (e) e)
(take (1- (length slices)) slices) " "))
(buffer (concat book " " verses))
(arg-list (append esv-arguments
(list (format "-l%d" esv-columns)))))
(list (format "-l%d" esv-columns))
(list book) (list verses))))
(add-to-list 'arg-list book)
(add-to-list 'arg-list verses)
(catch 'buffer-exists
(when (get-buffer buffer)
(unless esv-close-existing-buffers
(message "Buffer `%s' already exists" buffer)
(throw 'buffer-exists nil))
(kill-buffer buffer))
(apply #'call-process esv-program nil buffer t
(append arg-list (list book) (list verses)))
(kill-buffer buffer)))
(apply #'call-process esv-program nil buffer t arg-list)
(display-buffer buffer)
(with-current-buffer buffer
(esv-mode)
(goto-char (point-min)))
(set-window-start (get-buffer-window buffer) (point-min))
t)))
(set-window-start (get-buffer-window buffer) (point-min)))
t)
(provide 'esv)