23 lines
786 B
EmacsLisp
23 lines
786 B
EmacsLisp
;; does the job for now – could be improved!
|
||
|
||
(defun elon ()
|
||
(interactive)
|
||
(goto-char (point-min))
|
||
(while (re-search-forward " twitter" nil t)
|
||
(setq position (random 7))
|
||
(if (eq position 0)
|
||
(replace-match " xtwittexr")
|
||
(if (eq position 1)
|
||
(replace-match " txwitter")
|
||
(if (eq position 2)
|
||
(replace-match " twxitter")
|
||
(if (eq position 3)
|
||
(replace-match " twixtter")
|
||
(if (eq position 4)
|
||
(replace-match " twitxter")
|
||
(if (eq position 5)
|
||
(replace-match " twittxer")
|
||
(if (eq position 6)
|
||
(replace-match " twittexr")
|
||
(if (eq position 7)
|
||
(replace-match " twxitterx")))))))))))
|