mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 02:30:42 -08:00
Code Issues Projects Releases Wiki Activity

fix to rgb-to-hex

Browse source
This commit is contained in:
David Botton 2024-03-27 21:13:07 -04:00
parent bc3f8dd58c
commit ea4c4a07a5
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
source/clog-utilities.lisp
View file

@ -153,7 +153,7 @@ package."
(defun rgb-to-hex (rgb)
"Return hex #rrggbb from rgb(red,green,blue)"
(multiple-value-bind (m l)
(ppcre:scan-to-strings "rgba?\\s?\\((\\d+),\\s?(\\d+),\\s?(\\d+),?\\s?(\\d*)\\)" rgb)
(ppcre:scan-to-strings "rgba?\\s?\\((\\d+),\\s?(\\d+),\\s?(\\d+),?\\s?(\\d|\.*)\\)" rgb)
(declare (ignore m))
(format nil "#~2,'0x~2,'0x~2,'0x"
(parse-integer (aref l 0))