Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
0f9568b7
Commit
0f9568b7
authored
Dec 28, 2008
by
Juri Linkov
Browse files
(butterfly): Doc fix. Add `animate-string' and `browse-url'.
parent
e8d24e5b
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
16 additions
and
6 deletions
+16
-6
lisp/misc.el
lisp/misc.el
+16
-6
No files found.
lisp/misc.el
View file @
0f9568b7
...
...
@@ -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
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment