comparison lisp/play/mpuz.el @ 63238:5592f504d53f

Revision: [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-398 Remove "-face" suffix from mpuz faces 2005-06-10 Miles Bader <[e-mail]> * lisp/play/mpuz.el (mpuz-unsolved, mpuz-solved, mpuz-trivial) (mpuz-text): Remove "-face" suffix from face names. (mpuz-unsolved-face, mpuz-solved-face, mpuz-trivial-face) (mpuz-text-face): New backward-compatibility aliases for renamed faces. (mpuz-create-buffer, mpuz-paint-digit): Use renamed mpuz faces.

63237:55de715c80dc

(defcustom mpuz-allow-double-multiplicator nil
  "*Allow 2nd factors like 33 or 77."
  :type 'boolean
  :group 'mpuz)

(defface mpuz-unsolved-face
  '((((class color)) (:foreground "red1" :bold t))
    (t (:bold t)))
  "*Face to use for letters to be solved."
  :group 'mpuz)

(defface mpuz-solved-face
  '((((class color)) (:foreground "green1" :bold t))
    (t (:bold t)))
  "*Face to use for solved digits."
  :group 'mpuz)

(defface mpuz-trivial-face
  '((((class color)) (:foreground "blue" :bold t))
    (t (:bold t)))
  "*Face to use for trivial digits solved for you."
  :group 'mpuz)

(defface mpuz-text-face
  '((t (:inherit variable-pitch)))
  "*Face to use for text on right."
  :group 'mpuz)


;; Mpuz mode and keymaps
;;----------------------
(defcustom mpuz-mode-hook nil

  "The general picture of the puzzle screen, as a string.")

(defun mpuz-create-buffer ()
  "Create (or recreate) the puzzle buffer. Return it."
  (let ((buf (get-buffer-create "*Mult Puzzle*"))
	(face '(face mpuz-text-face))
	buffer-read-only)
    (save-excursion
      (set-buffer buf)
      (erase-buffer)
      (insert mpuz-framework)

  "Paint all occurrences of DIGIT on the puzzle board."
  (let ((char (if (mpuz-digit-solved-p digit)
		  (+ digit ?0)
		(+ (mpuz-to-letter digit) ?A)))
	(face `(face
		,(cond ((aref mpuz-trivial-digits digit) 'mpuz-trivial-face)
		       ((aref mpuz-found-digits digit) 'mpuz-solved-face)
		       ('mpuz-unsolved-face))))
	buffer-read-only)
    (mapc (lambda (square)
	    (goto-line (car square))	; line before column!
	    (move-to-column (cdr square))
	    (insert char)

63238:5592f504d53f

(defcustom mpuz-allow-double-multiplicator nil
  "*Allow 2nd factors like 33 or 77."
  :type 'boolean
  :group 'mpuz)

(defface mpuz-unsolved
  '((((class color)) (:foreground "red1" :bold t))
    (t (:bold t)))
  "*Face to use for letters to be solved."
  :group 'mpuz)
;; backward-compatibility alias
(put 'mpuz-unsolved-face 'face-alias 'mpuz-unsolved)

(defface mpuz-solved
  '((((class color)) (:foreground "green1" :bold t))
    (t (:bold t)))
  "*Face to use for solved digits."
  :group 'mpuz)
;; backward-compatibility alias
(put 'mpuz-solved-face 'face-alias 'mpuz-solved)

(defface mpuz-trivial
  '((((class color)) (:foreground "blue" :bold t))
    (t (:bold t)))
  "*Face to use for trivial digits solved for you."
  :group 'mpuz)
;; backward-compatibility alias
(put 'mpuz-trivial-face 'face-alias 'mpuz-trivial)

(defface mpuz-text
  '((t (:inherit variable-pitch)))
  "*Face to use for text on right."
  :group 'mpuz)
;; backward-compatibility alias
(put 'mpuz-text-face 'face-alias 'mpuz-text)


;; Mpuz mode and keymaps
;;----------------------
(defcustom mpuz-mode-hook nil

  "The general picture of the puzzle screen, as a string.")

(defun mpuz-create-buffer ()
  "Create (or recreate) the puzzle buffer. Return it."
  (let ((buf (get-buffer-create "*Mult Puzzle*"))
	(face '(face mpuz-text))
	buffer-read-only)
    (save-excursion
      (set-buffer buf)
      (erase-buffer)
      (insert mpuz-framework)

  "Paint all occurrences of DIGIT on the puzzle board."
  (let ((char (if (mpuz-digit-solved-p digit)
		  (+ digit ?0)
		(+ (mpuz-to-letter digit) ?A)))
	(face `(face
		,(cond ((aref mpuz-trivial-digits digit) 'mpuz-trivial)
		       ((aref mpuz-found-digits digit) 'mpuz-solved)
		       ('mpuz-unsolved))))
	buffer-read-only)
    (mapc (lambda (square)
	    (goto-line (car square))	; line before column!
	    (move-to-column (cdr square))
	    (insert char)