;; Author: Alex Schroeder <firstname.lastname@example.org>
;; Maintainer: Alex Schroeder <email@example.com>
;; URL: http://www.geocities.com/kensanata/emacs.html
(insert (format "\nLEVEL %d: %d SECONDS PER WORD! YOU HAVE %d LIVES LEFT.\n"
toe-level toe-time-per-word toe-lives)))
+(defun toe-space-to-exit-minibuffer ()
+ "Allow using space to finish a word in the minibuffer."
+ (define-key minibuffer-local-map (kbd "SPC") 'exit-minibuffer))
(defun toe-setup-buffer ()
"Create and switch to new buffer."
(switch-to-buffer (get-buffer-create toe-buffer-name))
(setq buffer-read-only nil)
(insert "T h e T y p i n g O f E m a c s . . .\n")
;; Asking for stuff and giving feedback
In the buffer *The Typing Of Emacs* you will be asked to
type the words. Should you take more than a certain
number of seconds to do the typing, you loose. As you
-continue playing the words will get longer and longer."
+continue playing the words will get longer and longer.
+Use Enter or Space to end a word."
(if (string-equal (buffer-name) toe-buffer-name)