X-Git-Url: http://git.kpe.io/?p=wol.git;a=blobdiff_plain;f=color-picker.lisp;h=4b942b8d6cf2384015a6fbe71ee3d21b3ac74d34;hp=0e64c971762bd807535c112cbbdfc635fd21ea6c;hb=cf7030dd6955c663f1f1422ff61c3aac41e4b8fa;hpb=5aae1f6dc83069356d33d1cfdbb6dee074e8665c

diff --git a/color-picker.lisp b/color-picker.lisp
index 0e64c97..4b942b8 100644
--- a/color-picker.lisp
+++ b/color-picker.lisp
@@ -7,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
@@ -44,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")))))))