r11859: Canonicalize whitespace

[wol.git] / color-picker.lisp

diff --git a/color-picker.lisp b/color-picker.lisp
index 0e64c971762bd807535c112cbbdfc635fd21ea6c..4b942b8d6cf2384015a6fbe71ee3d21b3ac74d34 100644 (file)
--- 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")))))))