;;; iamkarlson-fallout-theme.el --- an fallout inspired dark theme -*- lexical-binding: t; no-byte-compile: t; -*-
;;
;; Added: December 25, 2019 (#367)
;; Author: iamkarlson <https://github.com/iamkarlson>
;; Maintainer:
;; Source: original
;;
;;; Commentary:
;;; Code:

(require 'doom-themes)


;;
;;; Variables

(defgroup iamkarlson-fallout-theme nil
  "Options for the `iamkarlson-fallout' theme."
  :group 'doom-themes)

(defcustom iamkarlson-fallout-padded-modeline doom-themes-padded-modeline
  "If non-nil, adds a 4px padding to the mode-line. Can be an integer to
determine the exact padding."
  :group 'iamkarlson-fallout-theme
  :type '(choice integer boolean))

(defcustom iamkarlson-fallout-muted-modeline nil
  "If non-nil, the modeline will be in a more muted tone.
Otherwise it's in a dark green color similar to visual mode
selections."
  :group 'iamkarlson-fallout-theme
  :type 'boolean)

(defcustom iamkarlson-fallout-darker-background nil
  "If non-nil, the background color will be a bit darker.
This also affects solaire-mode, where the background colors of
real file buffers will now be brighter instead."
  :group 'iamkarlson-fallout-theme
  :type 'boolean)


;;
;;; Theme definition

(def-doom-theme iamkarlson-fallout-theme
  "A dark theme with fallout inspired colors"

  ;; name        default   256       16
  (
   (-bg        '("#1c1408" nil       nil            ))
   (-bg-alt    '("#775422" nil       nil            ))
   (bg         (if iamkarlson-fallout-darker-background -bg-alt -bg))
   (bg-alt     (if iamkarlson-fallout-darker-background -bg -bg-alt))
   (base0      '("#1B2229" "black"   "black"        ))
   (base1      '("#1c1f24" "#1c1f24" "brightblack"  ))
   (base2      '("#202328" "#202328" "brightblack"  ))
   (base3      '("#23272e" "#23272e" "brightblack"  ))
   (base4      '("#3f444a" "#3f444a" "brightblack"  ))
   (base5      '("#95836f" "#95836f" "brightblack"  ))
   (base6      '("#73797e" "#73797e" "brightblack"  ))
   (base7      '("#9ca0a4" "#9ca0a4" "brightblack"  ))
   (base8      '("#dfdfdf" "#dfdfdf" "white"        ))
   (fg         '("#5b8512" "#5b8512" "brightwhite"  ))
   (fg-alt     '("#4f7410" "#4f7410" "white"        ))

   (grey       '("#707a6a" "#707a6a" "brightblack"  ))
   (red        '("#ff4e00" "#ff4e00" "red"          ))
   (orange     '("#ff7000" "#ff7000" "brightred"    ))
   (green      '("#7cb518" "#7cb518" "green"        ))
   (teal       '("#dbc077" "#dbc077" "brightgreen"  )) ;; more of a sand/beige color
   (yellow     '("#ffbf00" "#ffbf00" "yellow"       ))
   (blue       '("#0075c4" "#0075c4" "brightblue"   ))
   (dark-blue  '("#0060a1" "#0060a1" "blue"         ))
   (magenta    '("#d72638" "#d72638" "brightmagenta"))
   (violet     '("#76597b" "#76597b" "magenta"      ))
   (cyan       '("#898989" "#898989" "brightcyan"   ))
   (dark-cyan  '("#4f7410" "#4f7410" "cyan"         ))

   ;; face categories -- required for all themes
   (highlight      yellow)
   (vertical-bar   (doom-darken grey 0.4))
   (selection      (doom-darken dark-cyan 0.8))
   (builtin        yellow)
   (comments       grey)
   (doc-comments   grey)
   (constants      orange)
   (functions      orange)
   (keywords       red)
   (methods        red)
   (operators      yellow)
   (type           green)
   (strings        (doom-darken teal 0.1))
   (variables      green)
   (numbers        teal)
   (region         (doom-darken dark-cyan 0.7))
   (error          red)
   (warning        yellow)
   (success        green)
   (vc-modified    orange)
   (vc-added       green)
   (vc-deleted     red)

   ;; custom categories
   (hidden     `(,(car bg) "black" "black"))
   (-modeline-pad
    (when iamkarlson-fallout-padded-modeline
      (if (integerp iamkarlson-fallout-padded-modeline) doom-manegarm-padded-modeline 4)))

   (modeline-fg     green)
   (modeline-fg-alt vertical-bar)

   (modeline-bg
    `(,(car (if iamkarlson-fallout-muted-modeline (doom-darken teal 0.75) (doom-darken green 0.8)))
      ,@(cdr base0)))
   (modeline-bg-inactive   `(,(doom-darken (car bg) 0.2) ,@(cdr base0))))

  ;;;; Base theme face overrides
  ((button :foreground teal :weight 'bold :underline t)
   (custom-button :foreground teal :weight 'bold :underline t :background bg)
   ((font-lock-comment-face &override)
    :slant 'italic
    :background nil)
   ((line-number &override) :foreground vertical-bar)
   ((line-number-current-line &override) :foreground orange)
   (mode-line
    :background modeline-bg :foreground modeline-fg
    :box (if -modeline-pad `(:line-width ,-modeline-pad :color ,modeline-bg)))
   (mode-line-inactive
    :background modeline-bg-inactive :foreground modeline-fg-alt
    :box (if -modeline-pad `(:line-width ,-modeline-pad :color ,modeline-bg-inactive)))
   (mode-line-emphasis :foreground highlight)

   ;;;; company
   (company-tooltip :background (doom-darken region 0.1))
   (company-tooltip-search-selection :foreground yellow)
   (company-tooltip-mouse :inherit 'company-tooltip-search-selection)
   (company-tooltip-selection :inherit 'company-tooltip-search-selection)
   (company-tooltip-annotation :foreground (doom-darken blue 0.2))
   (company-tooltip-annotation-selection :foreground blue)
   ;;;; css-mode <built-in> / scss-mode
   (css-proprietary-property :foreground orange)
   (css-property             :foreground green)
   (css-selector             :foreground blue)
   ;;;; dired
   (dired-directory :foreground green :bold 'bold)
   ;;;; diredfl
   (diredfl-dir-heading :foreground yellow :weight 'bold)
   (diredfl-dir-name :foreground green :bold 'bold)
   (diredfl-dir-priv :foreground teal)
   (diredfl-number :foreground red)
   ;;;; doom-modeline
   (doom-modeline-bar :background highlight)
   (doom-modeline-buffer-file :inherit 'mode-line-buffer-id :weight 'bold)
   (doom-modeline-buffer-path :inherit 'mode-line-emphasis :weight 'bold)
   (doom-modeline-buffer-project-root :foreground green :weight 'bold)
   (doom-modeline-project-dir :bold t :foreground orange)
   ;;;; elscreen
   (elscreen-tab-other-screen-face :background "#353a42" :foreground "#1e2022")
   ;;;; evil
   (evil-ex-search :inverse-radio t)
   (evil-ex-lazy-highlight :inverse-radio t)
   ;;;; helm
   (helm-match :inherit 'bold :foreground yellow :background nil)
   (helm-selection :inherit 'normal :background region)
   ;;;; highlight-numbers
   ((highlight-numbers-number &override) :inherit 'normal :foreground numbers)
   ;;;; isearch
   (isearch :inverse-radio t :weight 'bold)
   ;;;; ivy
   (ivy-current-match :background region :distant-foreground teal :weight 'normal)
   (ivy-minibuffer-match-highlight :foreground yellow)
   (ivy-minibuffer-match-face-1 :foreground green :background nil) ;; seems to be used for weird space between matches
   (ivy-minibuffer-match-face-2 :inherit 'ivy-minibuffer-match-face-1 :foreground orange)
   (ivy-minibuffer-match-face-3 :inherit 'ivy-minibuffer-match-face-2 :foreground yellow)
   (ivy-minibuffer-match-face-4 :inherit 'ivy-minibuffer-match-face-2 :foreground magenta)
   (ivy-highlight-face :foreground green)
   ;;;; lsp-mode
   (lsp-face-highlight-textual
    :background (doom-darken blue 0.5) :foreground yellow :weight 'bold)
   ;;;; magit
   (magit-branch-current :foreground yellow)
   (magit-branch-remote :foreground orange)
   (magit-section-heading :foreground blue :weight 'bold)
   (magit-section-heading-selection :foreground yellow :weight 'bold)
   (magit-section-secondary-heading :foreground green)
   (magit-filename :foreground green)
   (magit-diff-hunk-heading-highlight :foreground bg :background fg)
   (magit-branch-local :foreground yellow)
   (magit-diff-file-heading :weight 'regular)
   (magit-header-line :background nil :foreground blue :weight 'bold)
   ;;;; markdown-mode
   (markdown-markup-face :foreground base5)
   (markdown-header-face :inherit 'bold :foreground red)
   (markdown-code-face :background (doom-lighten base3 0.05))
   ;;;; navigation
   (nav-flash-face :background fg :foreground yellow)
   ;;;; org <built-in>
   (org-level-1 :foreground orange :bold t)
   (org-level-2 :foreground blue :bold t)
   (org-level-3 :foreground magenta :bold t)
   (org-level-4 :foreground violet :bold t)
   (org-level-5 :foreground red :bold t)
   (org-level-6 :foreground yellow :bold t)
   (org-hide :foreground hidden)
   (org-todo :foreground strings :bold 'inherit)
   ;;;; rainbow-delimiters
   (rainbow-delimiters-depth-1-face :foreground yellow)
   (rainbow-delimiters-depth-2-face :foreground orange)
   (rainbow-delimiters-depth-3-face :foreground green)
   (rainbow-delimiters-depth-4-face :foreground teal)
   (rainbow-delimiters-depth-5-face :foreground magenta)
   (rainbow-delimiters-depth-6-face :foreground blue)
   (rainbow-delimiters-depth-7-face :foreground fg)
   (rainbow-delimiters-depth-8-face :foreground violet)
   (rainbow-delimiters-depth-9-face :foreground red)
   ;;;; which-key
   (which-func :foreground green)
   (which-key-command-description-face :foreground fg)
   (which-key-group-description-face :foreground yellow)
   (which-key-local-map-description-face :foreground yellow))

  ;;;; Base theme variable overrides-
  ())

;;; iamkarlson-fallout-theme.el ends here