(in-package #:nyxt-user)

(defparameter *purple* "#7c4f8c")
(defparameter *grey* "#232222")

(define-configuration window
  ((message-buffer-style
    (str:concat
     %slot-default%
     (cl-css:css
      `((body
         :background-color ,*grey*
         :color "white")))))))

(define-configuration prompt-buffer
  ((style (str:concat
           %slot-default%
           (cl-css:css
            `((body
               :background-color "#232222"
               :color "white")
              ("#prompt-area"
               :background-color ,*purple*)
              ("#input"
               :background-color "#232222"
               :border "2px solid #232222"
               :border-radius "3px"
               :color "white")
              (".source-name"
               :color "white"
               :background-color "#232222")
              (".source-content"
               :background-color "#232222")
              (".source-content th"
               :border-left  "3px solid #7c4f8c"
               :background-color "#232222")
              ("#selection"
               :background-color ,*purple*
               :color "white")
              (.marked :background-color ,*purple*
                       :font-weight "bold"
                       :color "black")
              (.selected :background-color ,*purple*
                         :color "white")))))))

(define-configuration internal-buffer
  ((style
    (str:concat
     %slot-default%
     (cl-css:css
      `((title
         :color "white")
        (body
         :background-color ,*grey*
         :color "lightgray")
        (hr
         :color "darkgray")
        (a
         :color "#556B2F")
        (.button
         :color white
         :border-radius "5px"
         :padding "0.3vw"
         :text-align "center"
         :background-color ,*purple*)))))))

(define-configuration nyxt/history-tree-mode:history-tree-mode
  ((nyxt/history-tree-mode::style
    (str:concat
     %slot-default%
     (cl-css:css
      '((body
         :background-color "black"
         :color "lightgray")
        (hr
         :color "darkgray")
        (a
         :color "white")
        ("ul li::before"
         :background-color "white")
        ("ul li::after"
         :background-color "white")
        ("ul li:only-child::before"
         :background-color "white")))))))

(define-configuration nyxt/web-mode:web-mode
  ((nyxt/web-mode:highlighted-box-style
    (cl-css:css
     '((".nyxt-hint.nyxt-highlight-hint"
        :background "white")))
    :documentation "The style of highlighted boxes, e.g. link hints.")))

(define-configuration status-buffer
  ((glyph-mode-presentation-p t)))

(define-configuration nyxt/reduce-tracking-mode:reduce-tracking-mode
  ((glyph "🛤")))

(define-configuration nyxt/emacs-mode:emacs-mode 
  ((glyph "🐮")))

(define-configuration nyxt/certificate-exception-mode:certificate-exception-mode
  ((glyph "🕵")))

(define-configuration nyxt/help-mode:help-mode
  ((glyph "❓")))

(define-configuration nyxt/web-mode:web-mode
  ((glyph "🕸")))

(define-configuration status-buffer
  ((style (str:concat
           %slot-default%
           (cl-css:css
            `(("#controls"
               :background-color ,*purple*
               :border-top "1px solid white")
              ("#url"
               :background-color ,*grey*
               :color "white"
               :border-top "1px solid white")
              ("#modes"
               :background-color ,*purple*
               :border-top "1px solid white")
              ("#tabs"
               :background-color ,*grey* 
               :color "black"
               :border-top "1px solid white")
              (".tab"
               :border-left "3px solid #7c4f8c"
               :border-radius "3px")
              (".tab:hover"
               :color ,*purple*)
              (".button:hover"
               :color ,*purple*)))))))