tre/emacs.d
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add new functions

Browse source
This commit is contained in:
mez 2024-04-13 19:43:34 +01:00
parent 5137914290
commit c60228ab8e
2 changed files with 51 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

23
custom/elon.el Normal file
View file

@ -0,0 +1,23 @@
;; 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")))))))))))