;;; cutarv41-theme.el --- A high-contrast light theme with blue/pink accents -*- lexical-binding: t; no-byte-compile: t; -*-

(deftheme cutarv41
  "A high-contrast light theme with blue/pink accents, optimized for clarity and syntax highlighting.")

(let ((class '((class color) (min-colors 89)))
      ;; --- Palette ---
      ;; Base UI
      (bg         "#f8f8ff") ;; Default background
      (fg         "#000000") ;; Default foreground
      (cursor     "#f8f8ff") ;; Cursor bg
      (selection  "#aaafff") ;; Region/selected text background

      ;; ANSI Normal
      (dark-blue    "#007cbf") ;; Fringe, minibuffer prompts, function names, line numbers
      (red          "#cf3f29") ;; Errors, negation chars
      (medium-blue  "#2374de") ;; Keywords, active hyperlinks
      (orange       "#c75e10") ;; Constants, debug indicators
      (magenta      "#b05197") ;; Strings, variables, UI dividers
      (green        "#429e66") ;; Docstrings, comment delimiters
      (cyan         "#129cc9") ;; Types/Classes
      (purple       "#a64dd6") ;; Built-ins, visited links

      ;; ANSI Bright
      (light-blue   "#7cc9f2") ;; Inactive mode-line/tabs background
      (light-red    "#f07b69") ;; Warnings, regex constructs
      (accent-blue  "#6f9ff2") ;; Accents
      (yellow       "#f0b94a") ;; Active search, warnings
      (accent-pink  "#EF89DF") ;; Active mode-line/tabs
      (bright-green "#2cd45c") ;; Status indicators
      (bright-cyan  "#11ddee") ;; hl-line hl-tab
      (light-purple "#cca0ff")) ;; Accents

  (custom-theme-set-faces
   'cutarv41

   ;; --- Core UI ---
   `(default ((,class (:background ,bg :foreground ,fg))))
   `(cursor ((,class (:background ,bg :foreground ,bg))))
   `(fringe ((,class (:background ,bg :foreground ,dark-blue))))
   `(region ((,class (:background ,selection))))
   `(highlight ((,class (:background ,light-blue :foreground ,bg))))
   `(hl-line ((,class (:background ,light-purple :extend t))))
   `(link ((,class (:foreground ,medium-blue :underline t))))
   `(link-visited ((,class (:foreground ,purple :underline t))))
   `(minibuffer-prompt ((,class (:foreground ,dark-blue :weight bold))))
   `(vertical-border ((,class (:foreground ,magenta))))

   ;; --- Syntax Highlighting (Font Lock) ---
   `(font-lock-comment-face ((,class (:foreground ,"#666666" :slant italic))))
   `(font-lock-comment-delimiter-face ((,class (:foreground ,bright-green :slant italic))))
   `(font-lock-keyword-face ((,class (:foreground ,medium-blue :weight bold))))
   `(font-lock-string-face ((,class (:foreground ,green))))
   `(font-lock-regexp-grouping-backslash ((,class (:foreground ,yellow))))
   `(font-lock-regexp-grouping-construct ((,class (:foreground ,light-red))))
   `(font-lock-function-name-face ((,class (:foreground ,cyan :weight bold))))
   `(font-lock-variable-name-face ((,class (:foreground ,medium-blue))))
   `(font-lock-type-face ((,class (:foreground ,purple))))
   `(font-lock-constant-face ((,class (:foreground ,light-red))))
   `(font-lock-builtin-face ((,class (:foreground ,orange))))
   `(font-lock-doc-face ((,class (:inherit font-lock-comment-face :foreground ,green))))
   `(font-lock-warning-face ((,class (:foreground ,light-red :weight bold))))
   `(font-lock-negation-char-face ((,class (:foreground ,red))))

   ;; --- Mode-line ---
   `(mode-line ((,class (:background ,accent-pink :foreground ,bg))))
   `(mode-line-inactive ((,class (:background ,light-blue :foreground ,fg :box (:line-width 1 :color ,accent-blue)))))
   `(mode-line-buffer-id ((,class (:weight bold))))
   `(mode-line-highlight ((,class (:box (:line-width 2 :color ,fg)))))

   ;; --- Search & Isearch ---
   `(isearch ((,class (:background ,yellow :foreground ,bg :weight bold))))
   `(isearch-fail ((,class (:background ,red :foreground ,fg))))
   `(lazy-highlight ((,class (:background ,orange :foreground ,bg))))

   ;; --- Line Numbers ---
   `(line-number ((,class (:foreground ,light-blue :background ,fg))))
   `(line-number-current-line ((,class (:foreground ,bg :background ,accent-pink :weight bold))))

   ;; --- Package Specifics ---
   ;; Doom Modeline
   `(doom-modeline-bar ((,class (:background ,accent-pink :foreground ,fg))))
   `(doom-modeline-buffer-file ((,class (:foreground ,fg :weight bold))))
   `(doom-modeline-buffer-path ((,class (:foreground ,fg :weight bold))))
   `(doom-modeline-buffer-modified ((,class (:foreground ,yellow :weight bold))))
   `(doom-modeline-debug ((,class (:foreground ,orange))))
   `(doom-modeline-info ((,class (:foreground ,green))))
   `(doom-modeline-warning ((,class (:foreground ,yellow))))
   `(doom-modeline-error ((,class (:foreground ,red))))

   ;; Org Mode
   `(org-level-1 ((,class (:foreground ,accent-pink :weight bold :height 1.2))))
   `(org-level-2 ((,class (:foreground ,accent-blue :weight bold :height 1.1))))
   `(org-level-3 ((,class (:foreground ,bright-green :weight bold))))
   `(org-level-4 ((,class (:foreground ,bright-cyan :weight bold))))
   `(org-level-5 ((,class (:foreground ,light-purple :weight bold))))
   `(org-todo ((,class (:foreground ,light-red :weight bold :box t))))
   `(org-done ((,class (:foreground ,bright-green :weight bold :box t))))
   `(org-date ((,class (:foreground ,medium-blue))))
   `(org-link ((,class (:foreground ,light-purple :underline t))))
   `(org-code ((,class (:foreground ,orange :background ,bg))))
   `(org-block ((,class (:background ,bg :foreground ,fg :extend t))))
   `(org-block-begin-line ((,class (:foreground ,dark-blue :background ,bg :extend t))))

   ;; Magit
   `(magit-branch-local ((,class (:foreground ,cyan :weight bold))))
   `(magit-branch-remote ((,class (:foreground ,green :weight bold))))
   `(magit-hash ((,class (:foreground ,dark-blue))))
   `(magit-item-highlight ((,class (:background ,selection))))
   `(magit-diff-added ((,class (:foreground ,bright-green :background unspecified))))
   `(magit-diff-removed ((,class (:foreground ,light-red :background unspecified))))
   `(magit-diff-context-highlight ((,class (:background ,dark-blue :foreground ,fg))))
   `(magit-section-heading ((,class (:foreground ,bright-cyan :weight bold :underline t))))

   ;; Tree-sitter
   `(tree-sitter-hl-face:function.call ((,class (:foreground ,accent-pink))))
   `(tree-sitter-hl-face:method.call ((,class (:foreground ,accent-pink))))
   `(tree-sitter-hl-face:type ((,class (:foreground ,cyan))))
   `(tree-sitter-hl-face:property ((,class (:foreground ,light-blue))))
   `(tree-sitter-hl-face:parameter ((,class (:foreground ,orange))))
   `(tree-sitter-hl-face:escape ((,class (:foreground ,light-red))))

   ;; Flycheck / LSP
   `(flycheck-error ((,class (:underline (:style wave :color ,red)))))
   `(flycheck-warning ((,class (:underline (:style wave :color ,orange)))))
   `(flycheck-info ((,class (:underline (:style wave :color ,medium-blue)))))
   `(lsp-face-highlight-textual ((,class (:background ,selection))))

   ;; Dashboard
   `(doom-dashboard-menu-desc ((,class (:foreground ,accent-blue))))
   `(doom-dashboard-banner ((,class (:foreground ,accent-pink))))

   ;; Misc
   `(show-paren-match ((,class (:background ,accent-blue :foreground ,bg :weight bold))))
   `(show-paren-mismatch ((,class (:background ,red :foreground ,fg :weight bold))))
   `(success ((,class (:foreground ,green))))
   `(error ((,class (:foreground ,red :weight bold))))
   `(warning ((,class (:foreground ,orange))))
   `(header-line ((,class (:background ,dark-blue :foreground ,fg))))))

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

(provide-theme 'cutarv41)

;;; cutarv41-theme.el ends here