zzkt/litanizer
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Kulundu, 220 Stephania, Bharosa, Ekka (carriage) & Cheng Shiqing.

Browse source
This commit is contained in:
nik gaffney 2020-01-05 10:12:31 +10:30
parent 924e09255c
commit 12097c1eba
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
litanize.el
View file

@ -32,7 +32,7 @@
;; from random wikipedia titles as an exercise in ontography, metaphorism, ;; from random wikipedia titles as an exercise in ontography, metaphorism,
;; and carpentry ;; and carpentry
;; ;;
;; Currently uses random wikipedia titles as elements. Might be extended to ;; Currently uses random wikipedia titles as elements. Might be extended to
;; use other lists in other futures. ;; use other lists in other futures.
;; ;;
;; 'M-x litanize' will generate a litany in a new buffer ;; 'M-x litanize' will generate a litany in a new buffer
@ -85,7 +85,7 @@
(litanize-litany 5)) (litanize-litany 5))
;;;###autoload ;;;###autoload
(defun insert-litany () (defun litanize-at-point ()
"Create a Latour Litany at the current point." "Create a Latour Litany at the current point."
(interactive) (interactive)
(dotimes (i 5) (dotimes (i 5)
@ -94,6 +94,10 @@
((= i 3) (insert " & ")) ((= i 3) (insert " & "))
((= i 4) (insert "."))))) ((= i 4) (insert ".")))))
;; provide an alias to 'insert-litany' avoid potential name collisions
(when (not (fboundp 'insert-litany))
(fset 'insert-litany #'litanize-at-point))
(provide 'litanize) (provide 'litanize)
;;; litanize.el ends here ;;; litanize.el ends here