corwin/card-game.el
1
0
Fork 0
Code Issues Pull requests Projects Releases 1 Packages Wiki Activity Actions

Add a text/svg/full display-treatment selector to the menu

Browse source 
* card-games.el (card-games-treatment, card-games--svg-card-vars,
card-games--full-svg-vars, card-games-set-treatment): switch all games
between UNICODE, SVG cards, and the full-window SVG table by toggling the
per-game display vars together.  (card-game--cycle-treatment, card-game):
a clickable control in the chooser.
* test/card-games-tests.el: cgt-treatment-set.
* NEWS: note the treatment selector.
This commit is contained in:
Corwin Brust 2026-07-01 11:46:00 -05:00
parent e816cc0551
commit b2a8d6ad93
3 changed files with 64 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

43
card-games.el
View file

@ -134,6 +134,40 @@
"Registry of playable games.
Each entry is (NAME COMMAND DESCRIPTION); `card-game' lists them.")
(defvar card-games--svg-card-vars
'(cg-sol-svg-cards cg-trick-svg-cards cg-rummy-svg-cards cg-eights-svg-cards
cg-bridge-svg-cards cg-crapette-svg-cards cg-pat-svg-cards cg-pres-svg-cards)
"Per-game SVG-cards toggles that `card-games-set-treatment' flips together.")
(defvar card-games--full-svg-vars
'(cg-gaps-svg-ui cg-bid-svg-ui)
"Full-window SVG toggles (Gaps and 500) used by the `full' treatment.")
(defvar card-games-treatment 'svg
"Display treatment chosen from the menu: `text', `svg', or `full'.")
;;;###autoload
(defun card-games-set-treatment (treatment)
"Set how games are drawn: `text' (UNICODE), `svg' (cards), or `full'.
`full' also uses the full-window SVG table where a game has one (Gaps and
500). Takes effect the next time a game is drawn -- press g to redraw an
open game. Gaps and 500 are always graphical on a window system."
(interactive
(list (intern (completing-read "Treatment: " '("text" "svg" "full") nil t))))
(setq card-games-treatment treatment)
(let ((cards (and (memq treatment '(svg full)) t))
(full (and (eq treatment 'full) t)))
(dolist (v card-games--svg-card-vars) (when (boundp v) (set v cards)))
(dolist (v card-games--full-svg-vars) (when (boundp v) (set v full))))
(when (called-interactively-p 'interactive)
(message "Display treatment: %s" treatment)))
(defun card-game--cycle-treatment (_button)
"Cycle the display treatment and refresh the chooser."
(card-games-set-treatment
(pcase card-games-treatment ('text 'svg) ('svg 'full) (_ 'text)))
(card-game))
(defun card-game--cycle-ai (_button)
"Cycle the AI difficulty (`cg-ai-level') and refresh the chooser."
(setq cg-ai-level (pcase cg-ai-level ('easy 'normal) ('normal 'hard) (_ 'easy)))
@ -190,7 +224,14 @@ Press RET (or click) on a game to start it."
'face 'link
'help-echo "Click to change the AI difficulty (easy/normal/hard)"
'action #'card-game--cycle-ai)
(insert (propertize " (click to cycle easy/normal/hard)\n\n" 'face 'shadow))
(insert (propertize " (click to cycle easy/normal/hard)\n" 'face 'shadow))
(insert " Cards: ")
(insert-text-button
(symbol-name card-games-treatment)
'face 'link
'help-echo "Click to cycle the display: text / svg / full"
'action #'card-game--cycle-treatment)
(insert (propertize " (click to cycle text/svg/full)\n\n" 'face 'shadow))
(dolist (g card-games-list)
(insert " ")
(insert-text-button