8 ms·
For Emacs users: (defun capitalize-naggum () "Capitalizes text written in Erik Naggum's annoying no-caps style" (interactive) (save-excursion (goto-cha
by tincholio 15y ago
For Emacs users:
(defun capitalize-naggum ()
"Capitalizes text written in Erik Naggum's annoying no-caps style"
(interactive)
(save-excursion
(goto-char (point-min))
(aux-naggum (point))))
(defun aux-naggum (current-point)
"Recursively capitalize the buffer, moving sentence to sentence. Valid punctuation symbols are [.?!]"
(re-search-forward "[a-z]" nil 0 nil)
(if (= current-point (point))
t
(capitalize-word -1)
(re-search-forward "[.!?]")
(aux-naggum (point))))