(defpackage :fwoar.default-layout
  (:use :cl )
  (:export
   #:default-layout
   #:border-color
   #:background-color
   #:text-color
   #:link-color))
(in-package :fwoar.default-layout)

(defgeneric border-color (layout)
  )
(defgeneric text-color (layout)
  )
(defgeneric link-color (layout)
  (:method (layout)
    (text-color layout)))
(defgeneric background-color (layout)
  )

(defclass default-layout ()
  ((%text-color :reader text-color :initform "#eee")
   (%border-color :reader border-color :initform "#eee")
   (%background-color :reader background-color :initform "#eee")))

(defmethod araneus:styles append ((layout default-layout))
  `((body
     :background ,(background-color layout)
     :color ,(text-color layout)
     :display flex
     :flex-direction column
     :min-height 100vh)
    (a
     :color ,(link-color layout))
    (h1
     :height 3em
     :border-bottom 4px double ,(border-color layout)
     :text-align center
     :line-height 3em)
    (div.main
     :display flex
     :width 100%
     :flex-grow 1
     :flex-shrink 1
     )
    (nav
     :width 20rem
     :display flex
     :flex-grow 0
     :flex-shrink 0
     :flex-direction column)
    ((:or (nav a) (:and a "[data-ic-get-from]"))
     :cursor pointer
     :font-weight bold
     :text-align right
     :text-decoration underline)
    ((nav a)
     :padding 1.5rem)
    ((nav (:and a :hover))
     :background ,(link-color layout)
     :color ,(background-color layout))
    (("#content" img)
     :max-width "70%"
     :margin 1em)
    (main
     :border-left 4px double ,(border-color layout)
     :flex-grow 1
     :flex-shrink 1
     :padding 1.5rem
     :max-width 50em)
    ("#ic-debug-panel"
     :background ,(background-color layout) !important
     :color ,(text-color layout))
    (("#ic-debug-panel" > *)
     :background ,(background-color layout) !important
     :color ,(text-color layout))))