about summary refs log tree commit diff
path: root/web/panettone/src/css.lisp
(in-package :panettone.css)
(declaim (optimize (safety 3)))

(defparameter color/black
  "rgb(24, 24, 24)")

(defparameter color/light-gray
  "#EEE")

(defparameter color/gray
  "#8D8D8D")

(defparameter color/primary
  "rgb(106, 154, 255)")

(defparameter color/primary-light
  "rgb(150, 166, 200)")

(defparameter color/success
  "rgb(168, 249, 166)")

(defparameter color/success-2
  "rgb(168, 249, 166)")

(defparameter color/failure
  "rgb(247, 167, 167)")

(defun button (selector)
  `((,selector
     :background-color ,color/success
     :padding "0.5rem"
     :text-decoration "none"
     :transition "box-shadow" "0.15s" "ease-in-out")

    ((:and ,selector :hover)
     :box-shadow "0.25rem" "0.25rem" "0" "0" "rgba(0,0,0,0.08)")

    ((:and ,selector (:or :active :focus))
     :box-shadow "0.1rem" "0.1rem" "0" "0" "rgba(0,0,0,0.05)"
     :outline "none"
     :border "none")))

(defparameter markdown-styles
  `((blockquote
     :border-left "5px" "solid" ,color/light-gray
     :padding-left "1rem"
     :margin-left "0rem")
    (pre
     :overflow-x "scroll")))

(defparameter issue-list-styles
  `((.issue-list
     :list-style-type "none"
     :padding-left 0

     (.issue-subject
      :font-weight "bold")

     (li
      :padding-bottom "1rem")

     ((li + li)
      :border-top "1px" "solid" ,color/gray)

     (a
      :text-decoration "none"
      :display "block")

     ((:and a :hover)
      :outline "none"

      (.issue-subject
       :color ,color/primary)))

    (.comment-count
     :color ,color/gray)))

(defparameter issue-history-styles
  `((.issue-history
     :list-style "none"
     :border-top "1px" "solid" ,color/gray
     :padding-top "1rem"
     :padding-left "2rem"

     (.comment-info
      :color ,color/gray
      :margin 0
      :padding-top "1rem"

      (a :text-decoration "none")
      ((:and a :hover)
       :text-decoration "underline"))

     ((:or .comment .event)
      :padding-top "1rem"
      :padding-bottom "1rem"
      :border-bottom "1px" "solid" ,color/gray

      (p :margin 0))

     ((:and (:or .comment .event) :target)
      :border-color ,color/primary
      :border-bottom-width "3px")

     (.event
      :color ,color/gray))))

(defparameter form-styles
  `(((:or (:and input (:or (:= type "text")
                           (:= type "password")))
          textarea)
     :width "100%"
     :padding "0.5rem"
     :outline "none"
     :border-top "none"
     :border-left "none"
     :border-right "none"
     :border-bottom "1px" "solid" ,color/gray
     :margin-bottom "1rem")

    (textarea
     :resize "vertical")

    ((:and input (:= type "submit"))
     :-webkit-appearance "none"
     :border "none"
     :cursor "pointer"
     :font-size "1rem")

    ,@(button '(:and input (:= type "submit")))

    (.form-link
     ((:and input (:= type "submit"))
      :background-color "initial"
      :color "inherit"
      :padding 0
      :text-decoration "underline")

     ((:and input (:= type "submit")
            (:or :hover :active :focus))
      :box-shadow 0 0 0 0))))

(defparameter issue-styles
  `((.issue-info
     :display "flex"
     :justify-content "space-between"
     :align-items "center"

     ,@(button '.edit-issue)

     (.created-by-at
      :flex 1)

     (.edit-issue
      :background-color ,color/light-gray
      :flex 0
      :margin-right "0.5rem")

     (.close-issue
      :background-color ,color/failure))))

(defparameter styles
  `(,@form-styles
    ,@issue-list-styles
    ,@issue-styles
    ,@issue-history-styles
    ,@markdown-styles

    (body
     :font-family "sans-serif"
     :color ,color/black)

    (a :color "inherit")

    (.content
     :max-width "800px"
     :margin "0 auto")

    (header
     :display "flex"
     :align-items "center"
     :border-bottom "1px" "solid" ,color/black
     :margin-bottom "1rem"

     (h1
      :padding 0
      :flex 1)

     (.issue-number
      :color ,color/gray
      :font-size "1.5rem"))

    (nav
     :display "flex"
     :color ,color/gray
     :justify-content "space-between")

    (footer
     :border-top "1px" "solid" ,color/gray
     :padding-top "1rem"
     :margin-top "1rem"
     :color ,color/gray)

    ,@(button '.new-issue)

    (.alert
     :padding "0.5rem"
     :margin-bottom "1rem"
     :background-color ,color/failure)

    (.login-form
     :max-width "300px"
     :margin "0 auto")

    (.created-by-at
     :color ,color/gray)))