comparison lisp/play/mpuz.el @ 1217:d0b19afef0ae

Fix setup of mpuz-read-map not to depend on keymap format. (mpuz): Renamed from mult-puzzle. Make it autoload.

1216:6a8704922fe8

    (define-key mpuz-mode-map "\C-g" 'mpuz-offer-abort)
    (define-key mpuz-mode-map "?" 'describe-mode))

(if mpuz-read-map nil
    (setq mpuz-read-map (make-keymap))
    (fillarray mpuz-read-map 'exit-minibuffer))

(defun mpuz-mode ()
  "Multiplication puzzle with GNU Emacs.

You have to guess which letters stand for which digits in the
multiplication displayed inside the *Mult Puzzle* buffer.

You may enter a proposal (e.g. A=3) by hitting first the letter A,
then the digit 3, on your keyboard.

At any time you may leave the game to do other editing work. :-)
Then you may resume the game with M-x mult-puzzle.
You may abort a game by hitting \\[keyboard-quit]."
  (interactive)
  (setq major-mode 'mpuz-mode
	mode-name  "Mult Puzzle")
  (use-local-map mpuz-mode-map)
  (run-hooks 'mpuz-mode-hook))

  "Ask if user wants to start a new puzzle."
  (if (y-or-n-p "Start a new game ")
      (mpuz-start-new-game)
      (message "OK. I won't.")))

(defun mult-puzzle ()
  "Multiplication puzzle with GNU Emacs."
  ;; Main entry point
  (interactive)
  (mpuz-switch-to-window)
  (if mpuz-in-progress

1217:d0b19afef0ae

    (define-key mpuz-mode-map "\C-g" 'mpuz-offer-abort)
    (define-key mpuz-mode-map "?" 'describe-mode))

(if mpuz-read-map nil
    (setq mpuz-read-map (make-keymap))
    (let ((i 0))
      (while (< i (length mpuz-read-map))
	(define-key mpuz-read-map (char-to-string i) 'exit-minibuffer)
	(setq i (1+ i)))))

(defun mpuz-mode ()
  "Multiplication puzzle mode.

You have to guess which letters stand for which digits in the
multiplication displayed inside the `*Mult Puzzle*' buffer.

You may enter a guess for a letter's value by typing first the letter,
then the digit.  Thus, to guess that A=3, type A 3.

To leave the game to do other editing work, just switch buffers.
Then you may resume the game with M-x mpuz.
You may abort a game by typing \\<mpuz-mode-map>\\[mpuz-offer-abort]."
  (interactive)
  (setq major-mode 'mpuz-mode
	mode-name  "Mult Puzzle")
  (use-local-map mpuz-mode-map)
  (run-hooks 'mpuz-mode-hook))

  "Ask if user wants to start a new puzzle."
  (if (y-or-n-p "Start a new game ")
      (mpuz-start-new-game)
      (message "OK. I won't.")))

;;;###autoload
(defun mpuz ()
  "Multiplication puzzle with GNU Emacs."
  ;; Main entry point
  (interactive)
  (mpuz-switch-to-window)
  (if mpuz-in-progress