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

Switchable Emacs logo in the full-SVG UI

Browse source 
* cg-svg.el (cg-svg-emacs-logo): new defcustom.  (cg-svg--logo-files,
cg-svg--logo-file, cg-svg--draw-logo-emblem, cg-svg-draw-logo): embed a real
Emacs logo image via svg-embed, with the drawn emblem as a fallback.
* cg-bid-ui.el (cg-bid--draw-logo): delegate to cg-svg-draw-logo.
* NEWS: note the switchable logo.
This commit is contained in:
Corwin Brust 2026-07-01 05:50:53 -05:00
parent b06ca3362b
commit 4b4a7fc52f
3 changed files with 61 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

11
cg-bid-ui.el
View file

@ -842,14 +842,9 @@ FS scales the N/S/E/W label fonts."
(svg-circle svg cx cy 3 :fill "#cfeccf")))
(defun cg-bid--draw-logo (svg cx cy &optional fs)
"Draw a GNU Emacs emblem centred at CX, CY on SVG, scaled by FS."
(let ((fs (or fs 1.0)))
(svg-gradient svg "cg-logo" 'linear '((0 . "#8056c8") (100 . "#3f1f9e")))
(svg-circle svg cx cy (round (* 26 fs)) :gradient "cg-logo"
:stroke "#2a1370" :stroke-width 2)
(cg-svg--text svg "e" cx (+ cy (round (* 10 fs))) (round (* 30 fs)) "#ffffff" t)
(cg-svg--text svg "GNU Emacs" cx (+ cy (round (* 42 fs)))
(max 10 (round (* 11 fs))) "#c7bbe6")))
"Draw the configured Emacs emblem centred at CX, CY on SVG, scaled by FS.
The emblem is chosen with `cg-svg-emacs-logo'."
(cg-svg-draw-logo svg cx cy fs))
(defun cg-bid--grid-cell (bid gx gy cw ch g)
"Return (X Y W H) for BID in a grid at GX,GY with cells CW by CH, gutter G.