combine common processing into a color-to-hex-string

lem-project · Jul 29, 2024 · 5a403d4 · 5a403d4
1 parent b2eeea0
commit 5a403d4
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 7 deletions.
diff --git a/extensions/color-preview/color-preview.lisp b/extensions/color-preview/color-preview.lisp
@@ -27,11 +27,7 @@
                                    (move-to-position start start-pos)
                                    (move-to-position end end-pos)
                                    (delete-between-points start end)
-                                   (insert-string start
-                                                  (format nil "#~2,'0X~2,'0X~2,'0X"
-                                                          (color-red color)
-                                                          (color-green color)
-                                                          (color-blue color)))
+                                   (insert-string start (color-to-hex-string color))
                                    (scan-color-in-window window)))))))))
 
 (define-overlay-accessors color-ovelray

diff --git a/extensions/lisp-mode/eval.lisp b/extensions/lisp-mode/eval.lisp
@@ -84,7 +84,7 @@
           (hsv-to-rgb h
                       s
                       (+ v (if (< v 50) 5 -5)))
-        (format nil "#~2,'0X~2,'0X~2,'0X" r g b)))))
+        (color-to-hex-string (make-color r g b))))))
 
 (defun display-evaluated-message
     (start

diff --git a/src/highlight-line.lisp b/src/highlight-line.lisp
@@ -13,4 +13,4 @@
             (hsv-to-rgb h
                         s
                         (max 0 (- v 2)))
-          (format nil "#~2,'0X~2,'0X~2,'0X" r g b))))))
+          (color-to-hex-string (make-color r g b)))))))