LNH/Meta: Innovative-Offense Boy and emacs
Lalo Martins
lalo.martins at gmail.com
Tue Jul 17 09:56:35 PDT 2007
I don't imagine anybody else uses emacs to write LNH stuff, but just in
case, I thought I'd rather share this. With this in my init file, I
insert a 9-character swearing by doing: alt-9 ctrl-*
(defun insert-swearing (n)
"insert comic book-style swearing"
(interactive "p")
(let ((chars "~!@#$%^&*=?") (newchar ""))
(dotimes (i n)
(while (progn (setq newchar (aref chars (random (length chars))))
(eq newchar (char-before))))
(insert newchar)
)))
(global-set-key (kbd "C-*") 'insert-swearing)
best,
Lalo Martins
--
So many of our dreams at first seem impossible,
then they seem improbable, and then, when we
summon the will, they soon become inevitable.
-----
personal: http://lalo.hystericalraisins.net/
technical: http://www.hystericalraisins.net/
GNU: never give up freedom http://www.gnu.org/
More information about the racc
mailing list