From 0f9568b7a17618f25640d500e49d36f4d7086ca0 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Sun, 28 Dec 2008 23:50:47 +0000 Subject: [PATCH] (butterfly): Doc fix. Add `animate-string' and `browse-url'. --- lisp/misc.el | 22 ++++++++++++++++------ 1 file changed, 16 insertions(+), 6 deletions(-) diff --git a/lisp/misc.el b/lisp/misc.el index 6dafd2a5e4b..f7a066bef7d 100644 --- a/lisp/misc.el +++ b/lisp/misc.el @@ -108,17 +108,27 @@ With argument, do this that many times." ;;;###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/)." + "Use butterflies to flip the desired bit on the drive platter. +Open hands and let the delicate wings flap once. The disturbance +ripples outward, changing the flow of the eddy currents in the +upper atmosphere. These cause momentary pockets of higher-pressure +air to form, which act as lenses that deflect incoming cosmic rays, +focusing them to strike the drive platter and flip the desired bit. +You can type `M-x butterfly C-M-c' to run it. This is a permuted +variation of `C-x M-c M-butterfly' from url `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...") + (switch-to-buffer (get-buffer-create "*butterfly*")) + (erase-buffer) + (sit-for 0) + (setq indent-tabs-mode nil) + (animate-string "Amazing physics going on..." + (/ (window-height) 2) (- (/ (window-width) 2) 12)) (sit-for (* 5 (/ (abs (random)) (float most-positive-fixnum)))) (message "Successfully flipped one bit!")) - (message "Well, then go to www.xkcd.com!"))) + (message "Well, then go to xkcd.com!") + (browse-url "http://xkcd.com/378/"))) (provide 'misc) -- 2.39.5