;;; brianna-theme  -*- lexical-binding: t; -*-
;; a little theme by acdw
;; (and named by noa)

(deftheme brianna
  "A little theme by acdw"
  :background-mode 'light)

;; (custom-theme-set-variables 'brianna)

(defvar fclear
  '((t ( :foreground unspecified :background unspecified
         :width unspecified :height unspecified
         :weight unspecified :slant unspecified
         :underline nil :overline nil :strike-through nil :box nil
         :inverse-video nil :extend nil)))
  "Specification to clear a given face.")

(custom-theme-set-faces
 'brianna
 ;; Default
 '(default ((t ( :foreground "black"
                 :background "alice blue"))))

 ;; Font lock -- clear
 `(font-lock-bracket-face ,fclear)
 `(font-lock-builtin-face ,fclear)
 `(font-lock-constant-face ,fclear)
 `(font-lock-delimiter-face ,fclear)
 `(font-lock-doc-markup-face ,fclear)
 `(font-lock-escape-face ,fclear)
 `(font-lock-function-call-face ,fclear)
 `(font-lock-function-name-face ,fclear)
 `(font-lock-misc-punctuation-face ,fclear)
 `(font-lock-negation-char-face ,fclear)
 `(font-lock-number-face ,fclear)
 `(font-lock-operator-face ,fclear)
 `(font-lock-preprocessor-face ,fclear)
 `(font-lock-property-name-face ,fclear)
 `(font-lock-property-use-face ,fclear)
 `(font-lock-punctuation-face ,fclear)
 `(font-lock-regexp-face ,fclear)
 `(font-lock-regexp-grouping-backslash ,fclear)
 `(font-lock-regexp-grouping-construct ,fclear)
 `(font-lock-string-face ,fclear)
 `(font-lock-type-face ,fclear)
 `(font-lock-variable-name-face ,fclear)
 `(font-lock-variable-use-face ,fclear)
 `(font-lock-warning-face ,fclear)

 ;; Font lock
 '(font-lock-comment-delimiter-face ((t (:slant italic))))
 '(font-lock-comment-face ((t (:slant italic))))
 '(font-lock-doc-face ((t (:slant italic))))
 '(font-lock-keyword-face ((t (:weight bold))))

 ;; Propertized text
 '(bold ((t (:weight bold))))
 '(error ((t (:foreground "red" :slant italic))))
 '(highlight ((t (:background "wheat"))))
 '(isearch ((t (:background "sea green" :foreground "white"))))
 '(isearch-fail ((t (:background "tomato"))))
 '(italic ((t (:slant italic))))
 '(lazy-highlight ((t (:background "dark sea green"))))
 '(link ((t (:foreground "navy" :underline t))))
 '(match ((t (:background "wheat"))))
 '(pulse-highlight-start-face ((t (:background "orchid"))))
 '(query-replace ((t (:background "wheat"))))
 '(region ((t (:background "papaya whip"))))
 '(shadow ((t (:foreground "orchid"))))
 '(show-paren-match ((t (:background "goldenrod"))))
 '(show-paren-mismatch ((t (:foreground "red" :slant italic))))
 '(success ((t (:foreground "sea green" :slant italic))))
 '(trailing-whitespace ((t (:background "tomato"))))
 '(underline ((t (:underline t))))
 '(warning ((t (:foreground "brown" :slant italic))))

 ;; User interface
 '(completions-annotations ((t (:inherit 'italic))))
 '(completions-highlight ((t (:background "wheat"))))
 '(header-line ((t (:background "lavender" :inherit variable-pitch))))
 '(minibuffer-prompt ((t (:foreground "dark orchid"))))
 '(mode-line ((t (:background "lavender" :inherit variable-pitch))))
 '(mode-line-active ((t ( :box t :background "light goldenrod"
                          :inherit mode-line))))
 '(mode-line-inactive ((t ( :box "pale goldenrod" :background "pale goldenrod"
                            :inherit mode-line))))
  '(tab-bar ((t (:inherit mode-line-inactive))))
 '(tab-bar-tab ((t ( :background "light goldenrod" :box t
                     :inherit variable-pitch))))
 '(tab-bar-tab-inactive ((t ( :background "pale goldenrod"
                              :inherit variable-pitch))))
 '(vertical-border ((t (:foreground "gray"))))

 ;;; Specific modes &c
 ;; Eshell
 '(eshell-prompt ((t (:foreground "dark orchid"))))
 ;; Gemtext mode
 '(gemtext-face-heading1 ((t ( :weight bold
                               :inherit variable-pitch))))
 '(gemtext-face-heading2 ((t ( :weight bold
                               :inherit variable-pitch))))
 '(gemtext-face-heading3 ((t ( :weight bold
                               :inherit variable-pitch))))
 ;; Info
 '(info-title-1 ((t (:inherit variable-pitch))))
 '(info-title-2 ((t (:inherit variable-pitch))))
 '(info-title-3 ((t (:inherit variable-pitch))))
 '(info-title-4 ((t (:inherit variable-pitch))))
 ;; RCIRC
 '(rcirc-my-nick ((t (:weight bold :slant italic))))
 '(rcirc-nick-in-message ((t (:weight bold :slant italic))))
 '(rcirc-other-nick ((t (:slant italic))))
 '(rcirc-prompt ((t (:foreground "dark orchid"))))
 '(rcirc-track-nick ((t (:weight bold :slant italic :inverse-video nil))))
 ;; Widgets
 '(widget-field ((t ( :background "lavender" :box (:line-width (1 . -1))
                      :extend t))))
 '(widget-single-line-field ((t (:background "lavender"))))
 )

(provide-theme 'brianna)