;; digtheme.el theme (llm-)extracted from Digit's config.el, init.el, and digit's hand written theme.

(deftheme digtheme
    "emacs theme by Digit. extracted:20260111 version:004"  )

;; Core Defaults
(set-face-attribute 'default nil
;;                    :inherit nil
;;                    :stipple nil
                    :background "#000000"
                    :foreground "#ffbb55"
;;                    :inverse-video nil
;;                    :box nil
;;                    :strike-through nil
;;                    :overline nil
;;                    :underline nil
;;                    :slant 'normal
;;                    :weight 'normal
;;                    :height 90
;;                    :width 'normal
;;                    :foundry "PfEd"
;;                    :family "nztt"
)

;; Terminal Colors
(setq dig-termcol-0 "#5D3634")
(setq dig-termcol-1 "#CB1A1A")
(setq dig-termcol-2 "#D77E09")
(setq dig-termcol-3 "#FFD500")
(setq dig-termcol-4 "#724745")
(setq dig-termcol-5 "#A24F5C")
(setq dig-termcol-6 "#D15D19")
(setq dig-termcol-7 "#D19970")
(setq dig-termcol-8 "#B26C4E")
(setq dig-termcol-9 "#FF0000")
(setq dig-termcol-10 "#FFB300")
(setq dig-termcol-11 "#FFF300")
(setq dig-termcol-12 "#BB5754")
(setq dig-termcol-13 "#B1515F")
(setq dig-termcol-14 "#FF5E00")
(setq dig-termcol-15 "#FFEACB")

;; Abbreviated Terminal Colors
(setq dtc0 dig-termcol-0)
(setq dtc1 dig-termcol-1)
(setq dtc2 dig-termcol-2)
(setq dtc3 dig-termcol-3)
(setq dtc4 dig-termcol-4)
(setq dtc5 dig-termcol-5)
(setq dtc6 dig-termcol-6)
(setq dtc7 dig-termcol-7)
(setq dtc8 dig-termcol-8)
(setq dtc9 dig-termcol-9)
(setq dtc10 dig-termcol-10)
(setq dtc11 dig-termcol-11)
(setq dtc12 dig-termcol-12)
(setq dtc13 dig-termcol-13)
(setq dtc14 dig-termcol-14)
(setq dtc15 dig-termcol-15)

;; UI Elements
(defface cursor '((((background light)) (:background "black"))
                  (((background dark)) (:background "white"))))

(defface fixed-pitch '((t (:family "Monospace"))))
(defface variable-pitch '((t (:family "nztt"))))

(defface escape-glyph '((((background dark)) (:foreground "cyan"))
                        (((type pc)) (:foreground "magenta"))
                        (t (:foreground "brown"))))

(defface homoglyph '((((background dark)) (:foreground "cyan"))
                     (((type pc)) (:foreground "magenta"))
                     (t (:foreground "brown"))))

(defface minibuffer-prompt '((((background dark)) (:foreground "cyan"))
                             (((type pc)) (:foreground "magenta"))
                             (t (:foreground "medium blue"))))

(defface highlight '((t (:background "#573800"))))
(defface region '((t (:extend t :background "#195738"))))

(defface shadow '((((class color grayscale) (min-colors 88) (background light)) (:foreground "grey50"))
                  (((class color grayscale) (min-colors 88) (background dark)) (:foreground "grey70"))
                  (((class color) (min-colors 8) (background light)) (:foreground "green"))
                  (((class color) (min-colors 8) (background dark)) (:foreground "yellow"))))

(defface secondary-selection '((((class color) (min-colors 88) (background light)) (:extend t :background "yellow1"))
                               (((class color) (min-colors 88) (background dark)) (:extend t :background "SkyBlue4"))
                               (((class color) (min-colors 16) (background light)) (:extend t :background "yellow"))
                               (((class color) (min-colors 16) (background dark)) (:extend t :background "SkyBlue4"))
                               (((class color) (min-colors 8)) (:extend t :foreground "black" :background "cyan"))
                               (t (:inverse-video t))))

(defface trailing-whitespace '((((class color) (background light)) (:background "red1"))
                                (((class color) (background dark)) (:background "red1"))
                                (t (:inverse-video t))))

(defface fringe '((((class color) (background light)) (:background "grey95"))
                  (((class color) (background dark)) (:background "grey10"))
                  (t (:background "gray"))))

(defface header-line '((t (:overline "#352025" :box nil :foreground "#FFC27B" :background "#3a281d" :inherit mode-line))))

(defface tooltip '((t (:height 59 :foreground "#EEC055" :background "#3f2d2e" :inherit variable-pitch))))

(defface mode-line '((t (:overline "#bb9977" :foreground "#ffdda5" :background "#60492f"))))
(defface mode-line-buffer-id '((t nil)))
(defface mode-line-emphasis '((t (:underline (:color "#fff" :style line :position nil)))))
(defface mode-line-highlight '((t (:weight light :overline "#ff6600" :box (:line-width (1 . -1) :color "#853" :style nil) :background "#554433"))))
(defface mode-line-inactive '((t (:weight light :overline "#809" :box (:line-width (1 . -1) :color "#302030" :style nil) :foreground "#a09080" :background "#332233" :inherit mode-line))))

(defface isearch '((((class color) (min-colors 88) (background light)) (:foreground "lightskyblue1" :background "magenta3"))
                   (((class color) (min-colors 88) (background dark)) (:foreground "brown4" :background "palevioletred2"))
                   (((class color) (min-colors 16)) (:foreground "cyan1" :background "magenta4"))
                   (((class color) (min-colors 8)) (:foreground "cyan1" :background "magenta4"))
                   (t (:inverse-video t))))

(defface isearch-fail '((((class color) (min-colors 88) (background light)) (:background "RosyBrown1"))
                        (((class color) (min-colors 88) (background dark)) (:background "red4"))
                        (((class color) (min-colors 16)) (:background "red"))
                        (((class color) (min-colors 8)) (:background "red"))
                        (((class color grayscale)) (:foreground "grey"))
                        (t (:inverse-video t))))

(defface lazy-highlight '((((class color) (min-colors 88) (background light)) (:distant-foreground "black" :background "paleturquoise"))
                          (((class color) (min-colors 88) (background dark)) (:distant-foreground "white" :background "paleturquoise4"))
                          (((class color) (min-colors 16)) (:distant-foreground "white" :background "turquoise3"))
                          (((class color) (min-colors 8)) (:distant-foreground "white" :background "turquoise3"))
                          (t (:underline (:color foreground-color :style line :position nil)))))

(defface match '((((class color) (min-colors 88) (background light)) (:background "khaki1"))
                 (((class color) (min-colors 88) (background dark)) (:background "RoyalBlue3"))
                 (((class color) (min-colors 8) (background light)) (:foreground "black" :background "yellow"))
                 (((class color) (min-colors 8) (background dark)) (:foreground "white" :background "blue"))
                 (((type tty) (class mono)) (:inverse-video t))
                 (t (:background "gray"))))

(defface next-error '((t (:inherit region))))
(defface query-replace '((t (:inherit isearch))))

(defface custom-button '((t (:background "#332233" :foreground "#ffddaa" :box (:line-width 2 :style released-button)))))
(defface custom-button-mouse '((t (:background "#996633" :foreground "#ffcc00" :box (:line-width 2 :style released-button)))))
(defface custom-button-pressed '((t (:background "#fc0" :foreground "#963" :box (:line-width 2 :style pressed-button)))))

;; Font Lock Faces
(defface font-lock-bracket-face '((t (:inherit font-lock-punctuation-face))))
(defface font-lock-builtin-face '((((class grayscale) (background light)) (:weight bold :foreground "LightGray"))
                                  (((class grayscale) (background dark)) (:weight bold :foreground "DimGray"))
                                  (((class color) (min-colors 88) (background light)) (:foreground "dark slate blue"))
                                  (((class color) (min-colors 88) (background dark)) (:foreground "LightSteelBlue"))
                                  (((class color) (min-colors 16) (background light)) (:foreground "Orchid"))
                                  (((class color) (min-colors 16) (background dark)) (:foreground "LightSteelBlue"))
                                  (((class color) (min-colors 8)) (:weight bold :foreground "blue"))
                                  (t (:weight bold))))

(defface font-lock-comment-delimiter-face '((default (:inherit font-lock-comment-face))))
(defface font-lock-comment-face '((((class grayscale) (background light)) (:slant italic :weight bold :foreground "DimGray"))
                                  (((class grayscale) (background dark)) (:slant italic :weight bold :foreground "LightGray"))
                                  (((class color) (min-colors 88) (background light)) (:foreground "Firebrick"))
                                  (((class color) (min-colors 88) (background dark)) (:foreground "chocolate1"))
                                  (((class color) (min-colors 16) (background light)) (:foreground "red"))
                                  (((class color) (min-colors 16) (background dark)) (:foreground "red1"))
                                  (((class color) (min-colors 8) (background light)) (:foreground "red"))
                                  (((class color) (min-colors 8) (background dark)) (:foreground "yellow"))
                                  (t (:slant italic :weight bold))))

(defface font-lock-constant-face '((((class grayscale) (background light)) (:underline (:color foreground-color :style line :position nil) :weight bold :foreground "LightGray"))
                                   (((class grayscale) (background dark)) (:underline (:color foreground-color :style line :position nil) :weight bold :foreground "Gray50"))
                                   (((class color) (min-colors 88) (background light)) (:foreground "dark cyan"))
                                   (((class color) (min-colors 88) (background dark)) (:foreground "Aquamarine"))
                                   (((class color) (min-colors 16) (background light)) (:foreground "CadetBlue"))
                                   (((class color) (min-colors 16) (background dark)) (:foreground "Aquamarine"))
                                   (((class color) (min-colors 8)) (:foreground "magenta"))
                                   (t (:underline (:color foreground-color :style line :position nil) :weight bold))))

(defface font-lock-delimiter-face '((t (:inherit font-lock-punctuation-face))))
(defface font-lock-doc-face '((t (:inherit font-lock-string-face))))
(defface font-lock-doc-markup-face '((t (:inherit font-lock-constant-face))))
(defface font-lock-escape-face '((t (:inherit font-lock-regexp-grouping-backslash))))
(defface font-lock-function-call-face '((t (:inherit font-lock-function-name-face))))
(defface font-lock-function-name-face '((((class color) (min-colors 88) (background light)) (:foreground "Blue1"))
                                        (((class color) (min-colors 88) (background dark)) (:foreground "LightSkyBlue"))
                                        (((class color) (min-colors 16) (background light)) (:foreground "Blue"))
                                        (((class color) (min-colors 16) (background dark)) (:foreground "LightSkyBlue"))
                                        (((class color) (min-colors 8)) (:weight bold :foreground "blue"))
                                        (t (:weight bold :inverse-video t))))

(defface font-lock-keyword-face '((((class grayscale) (background light)) (:weight bold :foreground "LightGray"))
                                  (((class grayscale) (background dark)) (:weight bold :foreground "DimGray"))
                                  (((class color) (min-colors 88) (background light)) (:foreground "Purple"))
                                  (((class color) (min-colors 88) (background dark)) (:foreground "Cyan1"))
                                  (((class color) (min-colors 16) (background light)) (:foreground "Purple"))
                                  (((class color) (min-colors 16) (background dark)) (:foreground "Cyan"))
                                  (((class color) (min-colors 8)) (:weight bold :foreground "cyan"))
                                  (t (:weight bold))))

(defface font-lock-negation-char-face '((t nil)))
(defface font-lock-number-face '((t nil)))
(defface font-lock-misc-punctuation-face '((t (:inherit font-lock-punctuation-face))))
(defface font-lock-operator-face '((t nil)))
(defface font-lock-preprocessor-face '((t (:inherit font-lock-builtin-face))))
(defface font-lock-property-name-face '((t (:inherit font-lock-variable-name-face))))
(defface font-lock-property-use-face '((t (:inherit font-lock-property-name-face))))
(defface font-lock-punctuation-face '((t nil)))
(defface font-lock-regexp-grouping-backslash '((t (:inherit bold))))
(defface font-lock-regexp-grouping-construct '((t (:inherit bold))))

(defface font-lock-string-face '((((class grayscale) (background light)) (:slant italic :foreground "DimGray"))
                                 (((class grayscale) (background dark)) (:slant italic :foreground "LightGray"))
                                 (((class color) (min-colors 88) (background light)) (:foreground "VioletRed4"))
                                 (((class color) (min-colors 88) (background dark)) (:foreground "LightSalmon"))
                                 (((class color) (min-colors 16) (background light)) (:foreground "RosyBrown"))
                                 (((class color) (min-colors 16) (background dark)) (:foreground "LightSalmon"))
                                 (((class color) (min-colors 8) (background light)) (:foreground "red"))
                                 (((class color) (min-colors 8) (background dark)) (:foreground "yellow"))
                                 (t (:slant italic))))

(defface font-lock-type-face '((((class grayscale) (background light)) (:weight bold :foreground "Gray90"))
                               (((class grayscale) (background dark)) (:weight bold :foreground "DimGray"))
                               (((class color) (min-colors 88) (background light)) (:foreground "ForestGreen"))
                               (((class color) (min-colors 88) (background dark)) (:foreground "PaleGreen"))
                               (((class color) (min-colors 16) (background light)) (:foreground "ForestGreen"))
                               (((class color) (min-colors 16) (background dark)) (:foreground "PaleGreen"))
                               (((class color) (min-colors 8) (background light)) (:foreground "green"))
                               (((class color) (min-colors 8) (background dark)) (:foreground "green"))
                               (t (:underline (:color foreground-color :style line :position nil) :weight bold))))

(defface font-lock-variable-name-face '((((class grayscale) (background light)) (:slant italic :weight bold :foreground "Gray90"))
                                        (((class grayscale) (background dark)) (:slant italic :weight bold :foreground "DimGray"))
                                        (((class color) (min-colors 88) (background light)) (:foreground "sienna"))
                                        (((class color) (min-colors 88) (background dark)) (:foreground "LightGoldenrod"))
                                        (((class color) (min-colors 16) (background light)) (:foreground "DarkGoldenrod"))
                                        (((class color) (min-colors 16) (background dark)) (:foreground "LightGoldenrod"))
                                        (((class color) (min-colors 8) (background light)) (:weight light :foreground "yellow"))
                                        (((class color) (min-colors 8) (background dark)) (:weight light :foreground "yellow"))
                                        (t (:slant italic :weight bold))))

(defface font-lock-variable-use-face '((t (:inherit font-lock-variable-name-face))))
(defface font-lock-warning-face '((t (:inherit error))))

;; Button and Link Faces
(defface button '((t (:inherit link))))
(defface link '((t (:underline (:color foreground-color :style line :position nil) :foreground "#d3feb4" :background "#005700"))))
(defface link-visited '((default (:inherit link))
                        (((class color) (background light)) (:foreground "magenta4"))
                        (((class color) (background dark)) (:foreground "violet"))))

;; ERC Faces
(defface erc-action-face '((t nil)))
(defface erc-button '((t (:underline "#cba"))))
(defface erc-command-indicator-face '((t (:underline "#119999"))))
(defface erc-current-nick-face '((t (:background "#420" :foreground "#cbd"))))
(defface erc-default-face '((t (:foreground "#CFA259"))))
(defface erc-fool-face '((t (:foreground "#888e8b"))))
(defface erc-header-line '((t (:foreground "#EEC055"))))
(defface erc-input-face '((t (:foreground "#a73"))))
(defface erc-keyword-face '((t (:foreground "pale green"))))
(defface erc-keyword-plait-face '((t (:background "#029" :foreground "#f0f" :family "pen"))))
(defface erc-my-nick-face '((t (:foreground "brown"))))
(defface erc-my-nick-prefix-face '((t (:inherit erc-nick-default-face))))
(defface erc-nick-default-face '((t (:underline "#654"))))
(defface erc-nick-msg-face '((t (:foreground "IndianRed"))))
(defface erc-nick-prefix-face '((t (:inherit erc-nick-default-face))))
(defface erc-notice-face '((t (:foreground "#86c"))))
(defface erc-pal-face '((t (:background "#552233"))))
(defface erc-prompt-face '((t (:background "#426" :foreground "#b85"))))
(defface erc-timestamp-face '((t (:foreground "#988262" :family "referal"))))

;; Org Mode Faces
(defface org-level-1 '((t (:inherit nil :foreground "#7c0"))))
(defface org-level-2 '((t (:foreground "#bb0"))))
(defface org-level-3 '((t (:foreground "#9a7e55"))))
(defface org-level-4 '((t (:foreground "#a54"))))
(defface org-level-5 '((t (:foreground "#772f70"))))
(defface org-level-6 '((t (:foreground "#538"))))
(defface org-level-7 '((t (:foreground "#358"))))
(defface org-level-8 '((t (:foreground "#385"))))

;; Rainbow Delimiters
(defface rainbow-delimiters-depth-1-face '((t (:foreground "#aee"))))
(defface rainbow-delimiters-depth-2-face '((t (:foreground "#fff"))))
(defface rainbow-delimiters-depth-3-face '((t (:foreground "#ffde00"))))
(defface rainbow-delimiters-depth-4-face '((t (:foreground "#ff8d00"))))
(defface rainbow-delimiters-depth-5-face '((t (:foreground "#d36"))))
(defface rainbow-delimiters-depth-6-face '((t (:foreground "#a1c"))))
(defface rainbow-delimiters-depth-7-face '((t (:foreground "#75b"))))
(defface rainbow-delimiters-depth-8-face '((t (:foreground "#88d"))))
(defface rainbow-delimiters-depth-9-face '((t (:foreground "#8bf"))))
(defface rainbow-delimiters-unmatched-face '((t (:foreground "#00ff00"))))

;; Scroll Bar and Tab Bar
(defface scroll-bar '((t (:background "#321" :foreground "#963"))))
(defface tab-bar '((t (:inherit nil :background "#573819" :foreground "#ffaa00"))))
(defface tab-bar-tab-inactive '((t (:inherit tab-bar-tab :background "#381900"))))

;; Miscellaneous Faces
(defface error '((t (:foreground "Green"))))
(defface linum '((t (:inherit (shadow default) :background "#060402" :foreground "#FFFFFF"))))
(defface sauron-header-face '((t (:foreground "#6a4c38" :overline "black"))))
(defface stripe-highlight '((t (:background "#191517"))))

;; Custom Faces from init.el
(defface erc-foolishness-level-1-face '((t (:foreground "#ffaa00"))))
(defface erc-foolishness-level-2-face '((t (:foreground "#ff6600" :weight bold))))
(defface erc-foolishness-level-3-face '((t (:foreground "#ff0000" :background "#330000" :weight bold))))
(defface erc-keyword-lunacat-face '((t (:background "#223355" :foreground "#88ff33"))))
(defface erc-keyword-witcraft-face '((t (:background "#990077"))))
(defface erc-keyword-bedrock-face '((t (:foreground "#55ff00" :background "#111111"))))
(defface erc-keyword-savant-face '((t (:foreground "#608" :background "#ff0"))))
(defface erc-keyword-bot-face '((t (:foreground "#8800ff"))))
(defface erc-keyword-soffmi-face '((t (:background "#beeeef"))))
(defface erc-keyword-plait-face '((t (:background "#029" :foreground "#f0f" :family "hurpicat"))))
(defface erc-keyword-remunter-face '((t (:background "#b0f" :foreground "#f80" :family "hurpicat"))))

;; Fill Column Indicator
(set-face-attribute 'fill-column-indicator nil :background "#380000")

;; Mouse Color
(set-mouse-color "dark orange")