|
@@ -31,6 +31,77 @@
|
|
(do (execute-non-query *db* query)))
|
|
(do (execute-non-query *db* query)))
|
|
(restas:start ,name :port 8080))
|
|
(restas:start ,name :port 8080))
|
|
|
|
|
|
|
|
+ (define-route main-css ("main.css" :type "text/css")
|
|
|
|
+ (compile-and-write
|
|
|
|
+ (*
|
|
|
|
+ :margin 0
|
|
|
|
+ :padding 0
|
|
|
|
+ :font-family "Georgia, Palantino, Times, 'Times New Roman', sans-serif")
|
|
|
|
+ (body
|
|
|
|
+ :backgroud "#fff")
|
|
|
|
+ (a
|
|
|
|
+ :text-decoration "none")
|
|
|
|
+ ("a:link, a:visited"
|
|
|
|
+ :color "#f30")
|
|
|
|
+ ("a:hover"
|
|
|
|
+ :color "#f90")
|
|
|
|
+ (div.main-content
|
|
|
|
+ :position "absolute"
|
|
|
|
+ :top "40px"
|
|
|
|
+ :left "280px"
|
|
|
|
+ :width "500px"
|
|
|
|
+ (h1
|
|
|
|
+ :font-size "40px"
|
|
|
|
+ :font-weight "normal"
|
|
|
|
+ :line-height "43px"
|
|
|
|
+ :letter-spacing "-1px")
|
|
|
|
+ (div.results
|
|
|
|
+ :margin-top "20px"
|
|
|
|
+ (ul
|
|
|
|
+ :list-style-type "none")
|
|
|
|
+ (li
|
|
|
|
+ :font-size "18px"
|
|
|
|
+ :line-height "24px"
|
|
|
|
+ :margin-left "70px"))
|
|
|
|
+ (div.page-list
|
|
|
|
+ :text-align "center"
|
|
|
|
+ :float "bottom")
|
|
|
|
+ (dl
|
|
|
|
+ :margin-top "10px")
|
|
|
|
+ (dt
|
|
|
|
+ :font-size "18px"
|
|
|
|
+ :font-weight "bold")
|
|
|
|
+ (dd
|
|
|
|
+ :margin-left "20px"
|
|
|
|
+ :margin-bottom "15px"))
|
|
|
|
+ (div.nav
|
|
|
|
+ :position absolute
|
|
|
|
+ :top "40px"
|
|
|
|
+ :left "20px"
|
|
|
|
+ :width "200px"
|
|
|
|
+ :padding "20px 20px 0 0"
|
|
|
|
+ :border-right "1px solid #ccc"
|
|
|
|
+ :text-align "right"
|
|
|
|
+ (h2
|
|
|
|
+ :text-transform "uppercase"
|
|
|
|
+ :font-size "13px"
|
|
|
|
+ :color "#333"
|
|
|
|
+ :letter-spacing "1px"
|
|
|
|
+ :line-height "20px"
|
|
|
|
+ (a
|
|
|
|
+ :color "#333"))
|
|
|
|
+ (ul
|
|
|
|
+ :list-style-type "none"
|
|
|
|
+ :margin "20px 0")
|
|
|
|
+ (li
|
|
|
|
+ :font-size "14px"
|
|
|
|
+ :line-height "20 px")
|
|
|
|
+ (hr
|
|
|
|
+ :height "1px"
|
|
|
|
+ :color "#ccc"
|
|
|
|
+ :margin-top "5px"
|
|
|
|
+ :margin-bottom "5px"))))
|
|
|
|
+
|
|
,@body-forms))
|
|
,@body-forms))
|
|
|
|
|
|
(defun to-sql-type (type)
|
|
(defun to-sql-type (type)
|