You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
|
|
|
|
;; 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")))))))))))
|
