в диалогах с @238328 родился релиз следующий куркуматор.
пример работы:
не могу пройти мимо, если кто-то ведет себя как бинарный долбоеб
==>
ле лойс кококо лойс, лойс yay-ле маман лойс yay зафорсил кукарек
(setq ko-table ["k" "ле" "yay" "лойс" "маман" "кокок" "кукарек" "зафорсил"])
(defun make-ko-regexp (word-len sw start end)
(let ((rx (format "\\b[[:alpha:]]\\{%d\\}\\b" word-len)))
(replace-regexp rx sw nil start end)
rx))
(defun kokoify (start end)
(interactive "r")
(save-excursion
(dotimes (number (length ko-table) nil)
(make-ko-regexp (+ 1 number) (aref ko-table number) start end))))жру предложений по расширению, доработке таблички
