IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

Ensure that alpha values in colors aren't passed to html.

Browse Source 
html color tags don't like them.
This commit is contained in:
John Ralls 2021-08-17 15:47:11 -07:00
parent 3d1812aacd
commit 97a317b50c
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
libgnucash/app-utils/options.scm
View File

@ -72,7 +72,12 @@
(GncOption-get-scm-value option))
(define-public (gnc:color-option->html opt)
(format #f "#~a" (GncOption-get-scm-value opt)))
;; HTML doesn't like alpha values.
(let* ((color (GncOption-get-scm-value opt))
(html-color (if (> (string-length color) 6)
(substring color 0 6)
color)))
(format #f "#~a" html-color)))
(define-public (gnc:color-option->hex-string opt)
(format #f "~a" (GncOption-get-scm-value opt)))