diff options
Diffstat (limited to 'chess-ply.el')
| -rw-r--r-- | chess-ply.el | 25 |
1 files changed, 12 insertions, 13 deletions
diff --git a/chess-ply.el b/chess-ply.el index 66df7f3..f49c7ad 100644 --- a/chess-ply.el +++ b/chess-ply.el @@ -176,22 +176,21 @@ (cl-assert (vectorp position)) (list position)) - (defconst promotion-options - '((queen ?Q ?q) - (rook ?R ?r) - (bishop ?B ?b) - (knight ?N ?n))) + '((?q ?Q "[q]ueen") + (?r ?R "(r)ook") + (?b ?B "(b)ishop") + (?n ?N "k(n)ight"))) (defun ask-promotion (white) - (nth (if white 1 2) - (assoc (intern-soft - (or (completing-read - "Symbol? " - (mapcar (lambda (x) (symbol-name (car x))) - promotion-options)) - "queen")) - promotion-options))) + (let ((prompts (mapcar (lambda (x) (nth 2 x)) promotion-options)) + (choices (append '(?\n ?\r) (mapcar (lambda (x) (car x)) promotion-options)))) + (nth (if white 1 0) + (or + (assoc + (read-char-choice (concat "Promote to: " (mapconcat 'identity prompts " ") " ? ") + choices t) promotion-options) + (car promotion-options))))) (defun chess-ply-create (position &optional valid-p &rest changes) "Create a ply from the given POSITION by applying the supplied CHANGES. |