Commit e8d24e5b authored by Juri Linkov's avatar Juri Linkov
Browse files

(butterfly): New command.

parent fa862320
......@@ -106,6 +106,20 @@ With argument, do this that many times."
(interactive "p")
(forward-to-word (- arg)))
;;;###autoload
(defun butterfly ()
"This function is designed to be used only be the most
proficient hackers on earth. If equipped with a butterfly key,
it should be bound to C-x M-c M-butterfly (for further
information please refer to http://xkcd.com/378/)."
(interactive)
(if (yes-or-no-p "Do you really want to unleash the powers of the butterfly? ")
(progn
(message "Amazing physics going on...")
(sit-for (* 5 (/ (abs (random)) (float most-positive-fixnum))))
(message "Successfully flipped one bit!"))
(message "Well, then go to www.xkcd.com!")))
(provide 'misc)
;; arch-tag: 908f7884-c19e-4388-920c-9cfa425e449b
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment