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

Hand & Foot, Scopa, Casino: full SVG board via the shared helper

Browse source 
* cg-rummy.el (cg-rummy--board-svg): add :stock-label and a :discard 'none
books and your hand/foot.
* cg-scopa.el (cg-fish--svg, cg-fish--render-text): board with the table
* NEWS: note the new boards.
This commit is contained in:
Corwin Brust 2026-07-01 04:50:10 -05:00
parent 585c4449a0
commit 2ee802f52d
5 changed files with 92 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

22
cg-scopa.el
View file

@ -219,8 +219,28 @@ Only subsets of two or more cards are considered. Return nil if none."
(defvar-local cg-fish--game nil "The fishing game in the current buffer.")
(defun cg-fish--svg (game)
"Return an SVG board for the fishing GAME."
(cg-rummy--board-svg
:title (format "%s (to %d)" (oref game vname) (oref game target))
:infos (list (format "Computer: %d cards captured %d (score %d)"
(length (cg-fish--hand game 1)) (length (cg-fish--captured game 1))
(aref (cg-get game :scores) 1))
(format "Your captured: %d (score %d)"
(length (cg-fish--captured game 0)) (aref (cg-get game :scores) 0)))
:stock-label "Deck" :stock (length (cg-get game :deck)) :discard 'none
:melds (list (cons "Table" (cg-rummy-sort-hand (cg-get game :table))))
:hand (cg-fish--hand game 0) :cursor (cg-get game :cursor)
:message (cg-get game :message)))
(cl-defmethod cg-render ((game cg-fish-game))
"Return a propertized depiction of the fishing GAME."
"Return a depiction of the fishing GAME: SVG board if graphical, else text."
(if (and cg-rummy-svg-cards (display-graphic-p))
(cg-fish--svg game)
(cg-fish--render-text game)))
(defun cg-fish--render-text (game)
"Return a plain-text depiction of the fishing GAME."
(let* ((out '()) (cursor (cg-get game :cursor)))
(push (format " %s to %d\n\n" (oref game vname) (oref game target)) out)
(push (format " Computer: %d cards captured %d (score %d)\n"