From ea4c4a07a5b7d9be8a8632fa32a7ce97e4836f3f Mon Sep 17 00:00:00 2001
From: David Botton <david@botton.com>
Date: Wed, 27 Mar 2024 21:13:07 -0400
Subject: [PATCH] fix to rgb-to-hex

---
 source/clog-utilities.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/source/clog-utilities.lisp b/source/clog-utilities.lisp
index cb3a30a..4f6915a 100644
--- a/source/clog-utilities.lisp
+++ b/source/clog-utilities.lisp
@@ -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))