Update domain name to kpe.io

[wol.git] / color-picker.lisp

diff --git a/color-picker.lisp b/color-picker.lisp
index 2122e9e46de9974eb183a66d7154e2bdf17a907e..4b942b8d6cf2384015a6fbe71ee3d21b3ac74d34 100644 (file)
--- a/color-picker.lisp
+++ b/color-picker.lisp
@@ -1,3 +1,5 @@
+(in-package #:wol)
+
 (defun luminance (r g b)
   (+ (* r 0.299) (* g 0.587) (* b 0.114)))
 
@@ -5,14 +7,14 @@
   (flet ((color-td (r g b)
            (let ((color (format nil "#~2,'0x~2,'0x~2,'0x" r g b)))
              (html ((:td :bgcolor color
-                        :fformat (:onclick "f42('~a');"
-                                           color))"   ")))))
+                         :fformat (:onclick "f42('~a');"
+                                            color))"   ")))))
     (let* ((colors nil))
       (dotimes (r 6)
         (dotimes (g 6)
           (dotimes (b 6)
             (push (list (* r 51) (* g 51) (* b 51)(luminance r g b))
-                 colors))))
+                  colors))))
       (setf colors (sort colors #'> :key 'fourth))
       (html
        (:head
@@ -42,5 +44,5 @@ f42(d){window.opener.change_color(d);window.close();};")
         :br
         ((:div :align "center")
          ((:a :class "call" :href "javascript:window.close();")
-         "Close")))))))
+          "Close")))))))