;;; some-clown-fiesta-theme.el --- Not-so-colorful-theme -*- lexical-binding: t -*-

;; URL: https://github.com/agryphus/some-clown-fiesta-theme.el
;; Author: agryphus
;;
;; Forked from:
;; URL: https://github.com/ranmaru22/no-clown-fiesta-theme.el
;; Author: ranmaru22
;;
;; This program is free software: you can redistribute it and/or modify it under
;; the terms of the GNU General Public License as published by the Free Software
;; Foundation, either version 3 of the License, or any later version.
;;
;; This program is distributed in the hope that it will be useful, but WITHOUT
;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
;; FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
;; details.
;;
;; You should have received a copy of the GNU General Public License along with
;; this program. If not, see http://www.gnu.org/licenses/.

;;; Commentary:
;; Color theme for Doom Emacs 29+ that does not look like a unicorn farted on your
;; screen. Based on no-clown-fiesta.nvim by aktersnurra, converted and extended
;; for Emacs by ranmaru22 and agryphus.
;;
;; Original nvim theme: https://github.com/aktersnurra/no-clown-fiesta.nvim

;;; Code:
(require 'autothemer)

;;;###autoload
(and (or load-file-name buffer-file-name)
     (boundp 'custom-theme-load-path)
     (add-to-list 'custom-theme-load-path
                  (file-name-as-directory
                   (file-name-directory
                    (or load-file-name buffer-file-name)))))

(autothemer-deftheme
 some-clown-fiesta
 "Color theme for Emacs 26+ that does not look like a clown puked up the source code."

 ((((class color) (min-colors #xFFFFFF))) ;; GUI only for now

  ;; Color palette
  (fg                 "#E1E1E1")
  (bg                 "#151515")
  (_bg-darker         "#101010")
  (alt-bg             "#202020")
  (accent             "#242424")
  (white              "#E1E1E1")
  (true-white         "#FFFFFF")
  (dark-gray          "#2A2A2A")
  (gray               "#424242")
  (medium-gray        "#727272")
  (light-gray         "#AFAFAF")
  (blue               "#A5D6FF")
  (gray-blue          "#7E97AB")
  (medium-gray-blue   "#A2B5C1")
  (dark-gray-blue     "#424952")
  (cyan               "#88afa2")
  (red                "#CC6666")
  (green              "#90A959")
  (light-green        "#77dd77")
  (yellow             "#F4BF75")
  (orange             "#FFA557")
  (purple             "#AA749F")
  (pale-purple        "#b790d4")
  (_dark-purple       "#2a2a66")
  (magenta            "#EFADF9")
  (cursor-bg          "#D0D0D0")
  (cursor-fg          "#151515")
  (sign-add           "#90A959")
  (sign-change        "#82a8c8")
  (sign-delete        "#AC4142")
  (error-red          "#AC4142")
  (warning-orange     "#F4BF75")
  (_info-yellow       "#F4BF75")
  (success-green      "#77dd77")
  (hint-blue          "#A5D6FF")
  (_hint-green        "#90A959")
  (magit-light-green  "#4f5c32")
  (_magit-blue        "#33424f")
  (magit-green        "#3f4928")
  (magit-light-red    "#4f2929")
  (magit-red          "#3f2121"))

 ;; Basic
 ((border                   (:background alt-bg :foreground medium-gray))
  (cursor                   (:background cursor-bg :foreground cursor-fg))
  (hl-line                  (:background 'unspecified))
  (line-number              (:foreground medium-gray))
  (line-number-current-line (:foreground medium-gray))
  (default                  (:foreground fg :background bg))
  (fringe                   (:background 'unspecified :foreground light-gray))
  (vertical-border          (:background 'unspecified :foreground dark-gray))
  (link                     (:foreground hint-blue :underline t))
  (link-visited             (:foreground pale-purple :underline t))
  (match                    (:background accent))
  (highlight                (:background dark-gray-blue))
  (shadow                   (:foreground gray))
  (minibuffer-prompt        (:foreground pale-purple))
  (region                   (:background gray :foreground 'unspecified))
  (secondary-selection      (:background medium-gray :foreground 'unspecified))
  (trailing-whitespace      (:foreground 'unspecified :background error-red))
  (tooltip                  (:background alt-bg :foreground fg))
  (child-frame-border       (:background dark-gray))

  (error                    (:foreground error-red :weight 'bold))
  (warning                  (:foreground warning-orange :weight 'bold))
  (success                  (:foreground success-green :weight 'bold))

  ;; Term colors
  (term-color-black   (:foreground gray :background medium-gray))
  (term-color-red     (:foreground red :background error-red))
  (term-color-green   (:foreground green :background light-green))
  (term-color-blue    (:foreground gray-blue :background blue))
  (term-color-yellow  (:foreground orange :background yellow))
  (term-color-magenta (:foreground purple :background magenta))
  (term-color-cyan    (:foreground cyan :background sign-change))
  (term-color-white   (:foreground white :background true-white))

  ;; ANSI colors
  (ansi-color-black          (:foreground gray :background gray))
  (ansi-color-red            (:foreground red :background red))
  (ansi-color-green          (:foreground green :background green))
  (ansi-color-blue           (:foreground gray-blue :background gray-blue))
  (ansi-color-yellow         (:foreground orange :background orange))
  (ansi-color-magenta        (:foreground purple :background purple))
  (ansi-color-cyan           (:foreground cyan :background cyan))
  (ansi-color-gray           (:foreground white :background white))
  (ansi-color-bright-black   (:foreground medium-gray :background medium-gray))
  (ansi-color-bright-red     (:foreground error-red :background error-red))
  (ansi-color-bright-green   (:foreground light-green :background light-green))
  (ansi-color-bright-blue    (:foreground blue :background blue))
  (ansi-color-bright-yellow  (:foreground yellow :background yellow))
  (ansi-color-bright-magenta (:foreground magenta :background magenta))
  (ansi-color-bright-cyan    (:foreground sign-change :background sign-change))
  (ansi-color-bright-gray    (:foreground true-white :background true-white))

  ;; Pulse
  (pulse-highlight-start-face (:background medium-gray :extend t))

  ;; Show paren
  (show-paren-match            (:foreground blue :weight 'bold :underline t))
  (show-paren-match-expression (:foreground blue :weight 'bold :underline t))
  (show-paren-mismatch         (:background red :weight 'bold :underline t))

  ;; Rainbow delimiter
  (rainbow-delimiters-base-error-face (:foreground error-red :weight 'bold))
  (rainbow-delimiters-base-face       (:foreground fg))
  (rainbow-delimiters-depth-1-face    (:foreground medium-gray-blue))
  (rainbow-delimiters-depth-2-face    (:foreground gray-blue))
  (rainbow-delimiters-depth-3-face    (:foreground cyan))
  (rainbow-delimiters-depth-4-face    (:foreground green))
  (rainbow-delimiters-depth-5-face    (:foreground medium-gray-blue))
  (rainbow-delimiters-depth-6-face    (:foreground gray-blue))
  (rainbow-delimiters-depth-7-face    (:foreground cyan))
  (rainbow-delimiters-depth-8-face    (:foreground green))
  (rainbow-delimiters-depth-9-face    (:foreground medium-gray-blue))
  (rainbow-delimiters-mismatched-face (:foreground error-red :weight 'bold))
  (rainbow-delimiters-unmatched-face  (:foreground error-red :weight 'bold))

  ;; Mode-line
  (mode-line          (:foreground fg
                       :background dark-gray
                       :box (:line-width 4 :color dark-gray)))
  (mode-line-inactive (:foreground medium-gray
                       :background alt-bg
                       :box (:line-width 4 :color alt-bg)))

;; Tab-bar
  (tab-bar                    (:foreground medium-gray
                               :background dark-gray
                               :box (:line-width 4 :color dark-gray)))
  (tab-bar-tab                (:foreground fg))
  (tab-bar-tab-group-current  (:foreground fg :weight 'bold :underline t))
  (tab-bar-tab-inactive       (:foreground medium-gray))
  (tab-bar-tab-ungrouped      (:foreground medium-gray))
  (tab-bar-tab-group-inactive (:foreground medium-gray :underline t))

  ;; Font lock
  (font-lock-builtin-face           (:foreground gray-blue))
  (font-lock-comment-face           (:foreground medium-gray))
  (font-lock-comment-delimiter-face (:foreground medium-gray))
  (font-lock-constant-face          (:foreground medium-gray-blue))
  (font-lock-doc-face               (:foreground light-gray))
  (font-lock-doc-markup-face        (:foreground blue))
  (font-lock-doc-string-face        (:foreground medium-gray-blue))
  (font-lock-function-name-face     (:foreground cyan))
  (font-lock-keyword-face           (:foreground gray-blue :weight 'bold))
  (font-lock-preprocessor-face      (:foreground medium-gray-blue))
  (font-lock-reference-face         (:foreground blue))
  (font-lock-string-face            (:foreground green))
  (font-lock-type-face              (:foreground white :weight 'bold))
  (font-lock-number-face            (:foreground red))
  (font-lock-variable-name-face     (:foreground white))
  (font-lock-warning-face           (:foreground warning-orange))

  ;; Highlight number
  (highlight-numbers-number (:foreground red))

  ;; HL Todo
  (hl-todo (:foreground yellow :weight 'bold))

  ;; Treesitter
  (tree-sitter-hl-face:attribute             (:foreground white))
  (tree-sitter-hl-face:comment               (:foreground medium-gray))
  (tree-sitter-hl-face:constant              (:foreground white))
  (tree-sitter-hl-face:constant.builtin      (:foreground red))
  (tree-sitter-hl-face:constructor           (:foreground white))
  (tree-sitter-hl-face:doc                   (:foreground light-gray))
  (tree-sitter-hl-face:escape                (:foreground medium-gray-blue))
  (tree-sitter-hl-face:function              (:foreground cyan))
  (tree-sitter-hl-face:function.builtin      (:foreground cyan))
  (tree-sitter-hl-face:function.call         (:foreground cyan))
  (tree-sitter-hl-face:function.macro        (:foreground cyan))
  (tree-sitter-hl-face:function.special      (:foreground cyan))
  (tree-sitter-hl-face:keyword               (:foreground gray-blue :weight 'bold))
  (tree-sitter-hl-face:label                 (:foreground white))
  (tree-sitter-hl-face:method                (:foreground cyan))
  (tree-sitter-hl-face:method.call           (:foreground cyan))
  (tree-sitter-hl-face:number                (:foreground red))
  (tree-sitter-hl-face:operator              (:foreground white))
  (tree-sitter-hl-face:property              (:foreground white))
  (tree-sitter-hl-face:property.definition   (:foreground white))
  (tree-sitter-hl-face:punctuation           (:foreground white))
  (tree-sitter-hl-face:punctuation.bracket   (:foreground white))
  (tree-sitter-hl-face:punctuation.delimiter (:foreground white))
  (tree-sitter-hl-face:punctuation.special   (:foreground medium-gray))
  (tree-sitter-hl-face:string                (:foreground green))
  (tree-sitter-hl-face:string.special        (:foreground medium-gray-blue))
  (tree-sitter-hl-face:tag                   (:foreground pale-purple))
  (tree-sitter-hl-face:type                  (:foreground white))
  (tree-sitter-hl-face:type.argument         (:foreground white))
  (tree-sitter-hl-face:type.builtin          (:foreground white))
  (tree-sitter-hl-face:type.parameter        (:foreground white))
  (tree-sitter-hl-face:type.super            (:foreground white))
  (tree-sitter-hl-face:variable              (:foreground white))
  (tree-sitter-hl-face:variable.builtin      (:foreground white))
  (tree-sitter-hl-face:variable.parameter    (:foreground white))
  (tree-sitter-hl-face:variable.special      (:foreground white))

  ;; Git
  (git-commit-summary          (:foreground white))
  (git-commit-overlong-summary (:foreground error-red))

  ;; Magit
  (magit-branch                 (:foreground cyan))
  (magit-diff-hunk-header       (:background alt-bg))
  (magit-diff-file-header       (:background alt-bg))
  (magit-log-sha1               (:foreground red))
  (magit-log-author             (:foreground green))
  (magit-diffstat-added         (:foreground sign-add))
  (magit-diffstat-removed       (:foreground sign-delete))
  (magit-diff-added             (:background magit-green))
  (magit-diff-removed           (:background magit-red))
  (magit-diff-added-highlight   (:background magit-light-green))
  (magit-diff-removed-highlight (:background magit-light-red))
  (magit-bisect-bad             (:inherit 'error))
  (magit-bisect-good            (:inherit 'success))
  (magit-bisect-skip            (:inherit 'warning))
  (magit-blame-date             (:foreground blue))
  (magit-blame-dimmed           (:inherit 'shadow))
  (magit-blame-hash             (:foreground orange))
  (magit-blame-heading          (:background alt-bg :extend t))
  (magit-blame-highlight        (:foreground yellow))
  (magit-blame-margin           (:foreground medium-gray-blue))
  (magit-blame-name             (:foreground magenta))
  (magit-blame-summary          (:foreground cyan))
  (magit-branch--local          (:foreground blue))
  (magit-branch-remote          (:foreground magenta))
  (magit-branch-remote-head     (:foreground magenta :box t))
  (magit-branch-upstream        (:inherit 'bold))
  (magit-branch-warning         (:inherit 'warning))
  (magit-cherry-equivalent      (:background alt-bg :foreground magenta))
  (magit-cherry-unmatched       (:background alt-bg :foreground cyan))

  ;; git-gutter
  (git-gutter:added       (:foreground sign-add))
  (git-gutter:deleted     (:foreground sign-delete))
  (git-gutter:modified    (:foreground sign-change))

  ;; isearch (and lazy-highlight)
  (lazy-highlight  (:background 'unspecified :foreground orange))
  (isearch         (:background 'unspecified :foreground orange :weight 'bold))
  (isearch-group-1 (:foreground fg :background magenta))
  (isearch-group-2 (:foreground fg :background purple))
  (isearch-fail    (:background error-red :foreground fg))

  ;; Anzu
  (anzu-match-1            (:foreground orange))
  (anzu-match-2            (:foreground magenta))
  (anzu-match-3            (:foreground purple))
  (anzu-mode-line          (:foreground orange))
  (anzu-mode-line-no-match (:foreground red))
  (anzu-replace-highlight  (:foreground orange :weight 'bold))
  (anzu-replace-to         (:foreground yellow))

  ;; Vertico
  (vertico-current     (:inherit 'highlight))
  (vertico-group-title (:foreground medium-gray :weight 'bold))

  ;; Consult
  (consult-line-number-prefix  (:inherit 'line-number))
  (consult-line-number-wrapped (:foreground gray-blue))

  ;; Marginalia
  (marginalia-documentation (:foreground medium-gray))
  (marginalia-file-name     (:foreground medium-gray))

  ;; Orderless
  (orderless-match-face-0 (:foreground orange :weight 'bold))
  (orderless-match-face-1 (:foreground blue :weight 'bold))
  (orderless-match-face-2 (:foreground magenta :weight 'bold))
  (orderless-match-face-3 (:foreground light-green :weight 'bold))

  ;; Corfu
  (corfu-current     (:inherit 'highlight))
  (corfu-bar         (:background medium-gray))
  (corfu-border      (:background medium-gray))
  (corfu-default     (:background alt-bg))
  (corfu-annotations (:foreground medium-gray))
  (corfu-deprecated  (:foreground medium-gray :strike-through t))
  (corfu-echo        (:foreground medium-gray))

  ;; Company (just for compatibility ... use Corfu instead)
  (company-tooltip                      (:background alt-bg))
  (company-tooltip-annotation           (:background alt-bg))
  (company-tooltip-annotation-selection (:background dark-gray))
  (company-tooltip-selection            (:background dark-gray))

  ;; Autocomplete partially typed field
  (company-tooltip-common-selection     (:background 'unspecified
                                         :foreground orange))
  (company-tooltip-common               (:background 'unspecified
                                         :foreground orange))

  (company-scrollbar-fg                 (:background alt-bg))
  (company-scrollbar-bg                 (:background medium-gray))
  (company-preview                      (:background 'unspecified
                                         :foreground green))
  (company-preview-common               (:background 'unspecified
                                         :foreground green))

  ;; org-mode
  (org-default               (:foreground fg))
  (org-block                 (:background "#111111"))
  ;; (org-block                 (:inherit 'fixed-pitch))
  (org-level-1               (:foreground medium-gray-blue :weight 'bold))
  (org-level-2               (:foreground gray-blue :weight 'bold))
  (org-level-3               (:foreground cyan :weight 'bold))
  (org-level-4               (:foreground green :weight 'bold))
  (org-level-5               (:foreground medium-gray-blue :weight 'bold))
  (org-level-6               (:foreground gray-blue :weight 'bold))
  (org-level-7               (:foreground cyan :weight 'bold))
  (org-level-8               (:foreground green :weight 'bold))
  (org-quote                 (:foreground gray-blue))
  (org-code                  (:foreground green))
  (org-verbatim              (:foreground blue))
  (org-inline-src-block      (:foreground green))
  (org-todo                  (:foreground red))
  (org-done                  (:foreground success-green))
  (org-column                (:background 'unspecified))
  (org-column-title          (:background 'unspecified :weight 'bold :underline t))
  (org-document-info-keyword (:foreground medium-gray-blue))
  (org-document-title        (:foreground white :weight 'bold))
  (org-document-info         (:foreground white :weight 'bold))

  ;; Markdown
  (markdown-header-face-1 (:weight 'bold
                           :underline (:style 'line)
                           :foreground medium-gray-blue :weight 'bold))
  (markdown-header-face-2 (:weight 'bold
                           :underline (:style 'line)
                           :foreground gray-blue :weight 'bold))
  (markdown-header-face-3 (:weight 'bold
                           :underline (:style 'line)
                           :foreground cyan :weight 'bold))
  (markdown-header-face-4 (:weight 'bold
                           :underline (:style 'line)
                           :foreground green :weight 'bold))
  (markdown-header-face-5 (:weight 'bold
                           :underline (:style 'line)
                           :foreground medium-gray-blue :weight 'bold))
  (markdown-header-face-6 (:weight 'bold
                           :underline (:style 'line)
                           :foreground gray-blue :weight 'bold))
  (markdown-header-face-7 (:weight 'bold
                           :underline (:style 'line)
                           :foreground cyan :weight 'bold))
  (markdown-header-face-8 (:weight 'bold
                           :underline (:style 'line)
                           :foreground green :weight 'bold))
  (markdown-list-face     (:foreground medium-gray-blue))
  (markdown-hr-face       (:foreground medium-gray :weight 'bold))
  (markdown-code-face     (:background "#111111" :extend t))

  ;; Dired
  (dired-directory (:foreground blue :weight 'bold))
  (dired-ignored   (:foreground gray-blue))
  (dired-header    (:foreground light-gray :weight 'bold :underline t))

  ;; Flymake
  (flymake-error   (:underline (:style 'wave :color error-red)))
  (flymake-warning (:underline (:style 'wave :color warning-orange)))
  (flymake-note    (:underline (:style 'wave :color hint-blue)))

  ;; Flycheck
  (flycheck-error              (:underline (:style 'wave :color error-red)))
  (flycheck-warning            (:underline (:style 'wave :color warning-orange)))
  (flycheck-info               (:underline (:style 'wave :color hint-blue)))
  (flycheck-fringe-error       (:inherit 'error))
  (flycheck-fringe-warning     (:inherit 'warning))
  (flycheck-fringe-info        (:foreground hint-blue :weight 'bold))
  (flycheck-error-list-error   (:inherit 'error))
  (flycheck-error-list-warning (:inherit 'warning))
  (flycheck-error-list-info    (:foreground hint-blue :weight 'bold))

  ;; Compilation
  (compilation-info (:foreground hint-blue))

  ;; diredfl
  (diredfl-compressed-file-name   (:foreground gray-blue))
  (diredfl-compressed-file-suffix (:foreground gray-blue))
  (diredfl-date-time              (:foreground medium-gray-blue))
  (diredfl-deletion               (:strike-through t))
  (diredfl-deletion-file-name     (:foreground red :strike-through t))
  (diredfl-dir-heading            (:foreground yellow
                                   :weight 'bold
                                   :underline t))
  (diredfl-dir-name               (:foreground cyan))
  (diredfl-dir-priv               (:foreground cyan))
  (diredfl-exec-priv              (:foreground green))
  (diredfl-executable-tag         (:foreground green))
  (diredfl-file-name              (:foreground white))
  (diredfl-file-suffix            (:foreground white))
  (diredfl-flag-mark              (:background gray-blue))
  (diredfl-flag-mark-line         (:background gray-blue))
  (diredfl-ignored-file-name      (:foreground gray))
  (diredfl-link-priv              (:foreground magenta))
  (diredfl-no-priv                (:foreground gray))
  (diredfl-number                 (:foreground red))
  (diredfl-other-priv             (:foreground white))
  (diredfl-rare-priv              (:foreground purple))
  (diredfl-read-priv              (:foreground yellow))
  (diredfl-symlink                (:foreground magenta))
  (diredfl-tagged-autofile-name   (:foreground white))
  (diredfl-write-priv             (:foreground red))

  ;; Treemacs
  (treemacs-directory-face       (:foreground white))
  (treemacs-root-face            (:foreground yellow
                                  :weight 'bold
                                  :underline t))
  (treemacs-git-added-face       (:foreground green))
  (treemacs-git-commit-diff-face (:foreground blue))
  (treemacs-git-conflict-face    (:foreground red))
  (treemacs-git-ignored-face     (:foreground gray))
  (treemacs-git-modified-face    (:foreground blue))
  (treemacs-marked-file-face     (:inherit 'highlight))

  ;; nix
  (nix-builtin-face (:foreground red))

  ;; ERC
  (erc-notice-face    (:foreground purple))
  (erc-timestamp-face (:foreground medium-gray-blue))
  (erc-input-face     (:foreground yellow))
  (erc-my-nick-face   (:foreground yellow)))

 (custom-theme-set-variables
  'some-clown-fiesta
  `(pos-tip-foreground-color ,fg)
  `(pos-tip-background-color ,alt-bg)
  `(ansi-color-names-vector [,gray ,red ,green ,gray-blue
                             ,orange ,purple ,cyan ,white])))

(provide-theme 'some-clown-fiesta)

;; Local Variables:
;; no-byte-compile: t
;; eval: (when (fboundp 'rainbow-mode) (rainbow-mode +1))
;; End:

;;; some-clown-fiesta-theme.el ends here.