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

6
litanize.el
View file

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