• Emacs code
    Сделай свое общение на point.im более разнообразным:
    
    Сделай свое общение на point.im более разнообразным =>
    Кококо лойс кукарек ле маман.ле маман разнообразным
    
    (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))))
    
    ;; select the region and call M-x kokoify

Replies (0)