;;; campbell-theme.el --- Classic blue PowerShell theme -*- lexical-binding: t; -*-

;; Copyright (C) 2026

;; Author: ntmacs contributors
;; Version: 1.0.0
;; Package-Requires: ((emacs "27.1"))
;; Keywords: faces, theme

;;; Commentary:

;; An Emacs theme with the classic Windows PowerShell blue background and
;; white foreground.  The Campbell terminal palette is preserved verbatim for
;; ANSI output; brighter variants are used where editor text needs contrast.

;;; Code:

(deftheme campbell
  "Classic blue PowerShell with the Windows Campbell terminal palette.")

(let ((background     "#012456")
      (foreground     "#FFFFFF")
      (cursor         "#FFFFFF")
      (selection      "#FFFFFF")
      (black          "#0C0C0C")
      (blue           "#0037DA")
      (cyan           "#3A96DD")
      (green          "#8CBD8C")
      (purple         "#881798")
      (red            "#C50F1F")
      (white          "#CCCCCC")
      (yellow         "#C19C00")
      (bright-black   "#767676")
      (bright-blue    "#3B78FF")
      (bright-cyan    "#61D6D6")
      (bright-green   "#16C60C")
      (bright-purple  "#B4009E")
      (bright-red     "#E74856")
      (bright-white   "#F2F2F2")
      (bright-yellow  "#F9F1A5"))
  (custom-theme-set-faces
   'campbell

   ;; Core Emacs UI
   `(default ((t (:background ,background :foreground ,foreground))))
   `(cursor ((t (:background ,cursor))))
   `(fringe ((t (:background ,background :foreground ,bright-black))))
   `(highlight ((t (:background ,bright-black :foreground ,bright-white))))
   `(region ((t (:background ,selection :foreground ,black :extend t))))
   `(secondary-selection ((t (:background ,cyan :foreground ,black :extend t))))
   `(shadow ((t (:foreground ,bright-black))))
   `(vertical-border ((t (:foreground ,bright-black))))
   `(window-divider ((t (:foreground ,bright-black))))
   `(window-divider-first-pixel ((t (:foreground ,background))))
   `(window-divider-last-pixel ((t (:foreground ,bright-black))))
   `(minibuffer-prompt ((t (:foreground ,bright-cyan :weight bold))))
   `(link ((t (:foreground ,bright-cyan :underline t))))
   `(link-visited ((t (:foreground ,bright-purple :underline t))))
   `(button ((t (:foreground ,bright-cyan :underline t))))
   `(escape-glyph ((t (:foreground ,bright-yellow))))
   `(homoglyph ((t (:foreground ,bright-yellow))))
   `(error ((t (:foreground ,bright-red :weight bold))))
   `(warning ((t (:foreground ,bright-yellow :weight bold))))
   `(success ((t (:foreground ,bright-green :weight bold))))
   `(tooltip ((t (:background ,bright-white :foreground ,black))))
   `(child-frame-border ((t (:background ,bright-blue))))

   ;; Mode lines, tabs, and line numbers
   `(mode-line ((t (:background ,bright-white :foreground ,black
                    :box (:line-width -1 :color ,white) :weight bold))))
   `(mode-line-inactive ((t (:background ,background :foreground ,bright-black
                             :box (:line-width -1 :color ,bright-black)))))
   `(mode-line-buffer-id ((t (:weight bold))))
   `(header-line ((t (:background ,background :foreground ,bright-cyan
                      :box (:line-width -1 :color ,bright-black)))))
   `(tab-bar ((t (:background ,background :foreground ,foreground))))
   `(tab-bar-tab ((t (:background ,bright-white :foreground ,black
                       :box (:line-width -1 :color ,bright-white) :weight bold))))
   `(tab-bar-tab-inactive ((t (:background ,background :foreground ,bright-black
                                :box (:line-width -1 :color ,bright-black)))))
   `(tab-line ((t (:background ,background :foreground ,bright-black))))
   `(tab-line-tab ((t (:background ,bright-white :foreground ,black))))
   `(tab-line-tab-current ((t (:background ,bright-blue :foreground ,bright-white
                            :weight bold))))
   `(tab-line-tab-inactive ((t (:background ,background :foreground ,bright-black))))
   `(line-number ((t (:background ,background :foreground ,bright-black))))
   `(line-number-current-line ((t (:background ,background :foreground ,bright-yellow
                                   :weight bold))))
   `(fill-column-indicator ((t (:foreground ,bright-black))))

   ;; Searching, matching, and editing feedback
   `(isearch ((t (:background ,bright-blue :foreground ,bright-white :weight bold))))
   `(isearch-fail ((t (:background ,bright-red :foreground ,black :weight bold))))
   `(lazy-highlight ((t (:background ,yellow :foreground ,black))))
   `(match ((t (:background ,bright-yellow :foreground ,black :weight bold))))
   `(query-replace ((t (:inherit isearch))))
   `(show-paren-match ((t (:background ,bright-green :foreground ,black :weight bold))))
   `(show-paren-mismatch ((t (:background ,bright-red :foreground ,black :weight bold))))
   `(trailing-whitespace ((t (:background ,red))))
   `(hl-line ((t (:underline (:color ,bright-black :style line)))))
   `(pulse-highlight-start-face ((t (:background ,yellow :foreground ,black))))

   ;; Syntax highlighting
   `(font-lock-builtin-face ((t (:foreground ,bright-purple))))
   `(font-lock-comment-face ((t (:foreground ,bright-black :slant italic))))
   `(font-lock-comment-delimiter-face ((t (:foreground ,bright-black))))
   `(font-lock-constant-face ((t (:foreground ,bright-purple))))
   `(font-lock-doc-face ((t (:foreground ,green :slant italic))))
   `(font-lock-doc-markup-face ((t (:foreground ,bright-green))))
   `(font-lock-function-call-face ((t (:foreground ,bright-cyan))))
   `(font-lock-function-name-face ((t (:foreground ,bright-cyan :weight bold))))
   `(font-lock-keyword-face ((t (:foreground ,bright-blue :weight bold))))
   `(font-lock-negation-char-face ((t (:foreground ,bright-red :weight bold))))
   `(font-lock-number-face ((t (:foreground ,bright-purple))))
   `(font-lock-operator-face ((t (:foreground ,bright-white))))
   `(font-lock-preprocessor-face ((t (:foreground ,bright-purple))))
   `(font-lock-property-name-face ((t (:foreground ,cyan))))
   `(font-lock-property-use-face ((t (:foreground ,cyan))))
   `(font-lock-punctuation-face ((t (:foreground ,white))))
   `(font-lock-regexp-grouping-backslash ((t (:foreground ,bright-yellow :weight bold))))
   `(font-lock-regexp-grouping-construct ((t (:foreground ,bright-purple :weight bold))))
   `(font-lock-string-face ((t (:foreground ,bright-yellow))))
   `(font-lock-type-face ((t (:foreground ,bright-green))))
   `(font-lock-variable-name-face ((t (:foreground ,cyan))))
   `(font-lock-variable-use-face ((t (:foreground ,cyan))))
   `(font-lock-warning-face ((t (:foreground ,bright-red :weight bold))))

   ;; Completion and minibuffer interfaces
   `(completions-annotations ((t (:foreground ,bright-black :slant italic))))
   `(completions-common-part ((t (:foreground ,bright-cyan :weight bold))))
   `(completions-first-difference ((t (:foreground ,bright-yellow :weight bold))))
   `(icomplete-first-match ((t (:foreground ,bright-green :weight bold))))
   `(vertico-current ((t (:background ,bright-black :foreground ,bright-white))))
   `(orderless-match-face-0 ((t (:foreground ,bright-cyan :weight bold))))
   `(orderless-match-face-1 ((t (:foreground ,bright-yellow :weight bold))))
   `(orderless-match-face-2 ((t (:foreground ,bright-green :weight bold))))
   `(orderless-match-face-3 ((t (:foreground ,bright-purple :weight bold))))
   `(company-tooltip ((t (:background ,background :foreground ,foreground))))
   `(company-tooltip-selection ((t (:background ,bright-black :foreground ,bright-white))))
   `(company-tooltip-common ((t (:foreground ,bright-cyan :weight bold))))
   `(company-scrollbar-bg ((t (:background ,background))))
   `(company-scrollbar-fg ((t (:background ,bright-black))))
   `(company-preview-common ((t (:foreground ,bright-cyan))))
   `(corfu-default ((t (:background ,background :foreground ,foreground))))
   `(corfu-current ((t (:background ,bright-black :foreground ,bright-white))))
   `(corfu-bar ((t (:background ,bright-black))))
   `(corfu-border ((t (:background ,bright-blue))))

   ;; Diagnostics and compilation
   `(flymake-error ((t (:underline (:style wave :color ,bright-red)))))
   `(flymake-warning ((t (:underline (:style wave :color ,bright-yellow)))))
   `(flymake-note ((t (:underline (:style wave :color ,bright-cyan)))))
   `(flycheck-error ((t (:underline (:style wave :color ,bright-red)))))
   `(flycheck-warning ((t (:underline (:style wave :color ,bright-yellow)))))
   `(flycheck-info ((t (:underline (:style wave :color ,bright-cyan)))))
   `(compilation-error ((t (:foreground ,bright-red :weight bold))))
   `(compilation-warning ((t (:foreground ,bright-yellow :weight bold))))
   `(compilation-info ((t (:foreground ,bright-green))))
   `(compilation-mode-line-exit ((t (:foreground ,bright-green :weight bold))))
   `(compilation-mode-line-fail ((t (:foreground ,bright-red :weight bold))))
   `(compilation-mode-line-run ((t (:foreground ,bright-yellow :weight bold))))

   ;; Diff and version-control interfaces
   `(diff-added ((t (:foreground ,bright-green))))
   `(diff-removed ((t (:foreground ,bright-red))))
   `(diff-changed ((t (:foreground ,bright-yellow))))
   `(diff-refine-added ((t (:background ,green :foreground ,black))))
   `(diff-refine-removed ((t (:background ,red :foreground ,bright-white))))
   `(diff-refine-changed ((t (:background ,yellow :foreground ,black))))
   `(diff-header ((t (:foreground ,bright-cyan))))
   `(diff-file-header ((t (:foreground ,bright-white :weight bold))))
   `(diff-hunk-header ((t (:foreground ,bright-purple))))
   `(diff-context ((t (:foreground ,bright-black))))
   `(magit-section-heading ((t (:foreground ,bright-yellow :weight bold))))
   `(magit-section-highlight ((t (:background ,background))))
   `(magit-branch-local ((t (:foreground ,bright-cyan))))
   `(magit-branch-remote ((t (:foreground ,bright-green))))
   `(magit-hash ((t (:foreground ,bright-black))))
   `(magit-diff-added ((t (:foreground ,bright-green))))
   `(magit-diff-added-highlight ((t (:background ,green :foreground ,black))))
   `(magit-diff-removed ((t (:foreground ,bright-red))))
   `(magit-diff-removed-highlight ((t (:background ,red :foreground ,bright-white))))
   `(magit-diff-context-highlight ((t (:background ,background :foreground ,foreground))))
   `(magit-diff-hunk-heading ((t (:background ,background :foreground ,bright-purple))))
   `(magit-diff-hunk-heading-highlight ((t (:background ,bright-black :foreground ,bright-white))))
   `(magit-diff-file-heading ((t (:foreground ,bright-white :weight bold))))
   `(magit-diff-file-heading-highlight ((t (:background ,background :foreground ,bright-cyan
                                        :weight bold))))
   `(git-gutter:added ((t (:foreground ,bright-green :weight bold))))
   `(git-gutter:deleted ((t (:foreground ,bright-red :weight bold))))
   `(git-gutter:modified ((t (:foreground ,bright-yellow :weight bold))))

   ;; Org and outline
   `(outline-1 ((t (:foreground ,bright-cyan :weight bold))))
   `(outline-2 ((t (:foreground ,bright-green :weight bold))))
   `(outline-3 ((t (:foreground ,bright-blue :weight bold))))
   `(outline-4 ((t (:foreground ,bright-yellow :weight bold))))
   `(outline-5 ((t (:foreground ,bright-purple :weight bold))))
   `(outline-6 ((t (:foreground ,cyan :weight bold))))
   `(outline-7 ((t (:foreground ,green :weight bold))))
   `(outline-8 ((t (:foreground ,yellow :weight bold))))
   `(org-document-title ((t (:foreground ,bright-white :weight bold :height 1.3))))
   `(org-document-info ((t (:foreground ,bright-cyan))))
   `(org-document-info-keyword ((t (:foreground ,bright-black))))
   `(org-level-1 ((t (:inherit outline-1 :height 1.2))))
   `(org-level-2 ((t (:inherit outline-2 :height 1.1))))
   `(org-level-3 ((t (:inherit outline-3))))
   `(org-level-4 ((t (:inherit outline-4))))
   `(org-level-5 ((t (:inherit outline-5))))
   `(org-level-6 ((t (:inherit outline-6))))
   `(org-level-7 ((t (:inherit outline-7))))
   `(org-level-8 ((t (:inherit outline-8))))
   `(org-block ((t (:foreground ,white))))
   `(org-block-begin-line ((t (:foreground ,bright-black :slant italic))))
   `(org-block-end-line ((t (:inherit org-block-begin-line))))
   `(org-code ((t (:foreground ,bright-yellow))))
   `(org-verbatim ((t (:foreground ,bright-green))))
   `(org-quote ((t (:foreground ,bright-white :slant italic))))
   `(org-table ((t (:foreground ,bright-cyan))))
   `(org-date ((t (:foreground ,bright-blue :underline t))))
   `(org-link ((t (:inherit link))))
   `(org-tag ((t (:foreground ,bright-purple :weight bold))))
   `(org-todo ((t (:foreground ,bright-red :weight bold))))
   `(org-done ((t (:foreground ,bright-green :weight bold))))
   `(org-headline-done ((t (:foreground ,bright-black))))
   `(org-checkbox ((t (:foreground ,bright-cyan :weight bold))))
   `(org-special-keyword ((t (:foreground ,bright-black))))

   ;; Markdown
   `(markdown-header-face-1 ((t (:inherit outline-1 :height 1.2))))
   `(markdown-header-face-2 ((t (:inherit outline-2 :height 1.1))))
   `(markdown-header-face-3 ((t (:inherit outline-3))))
   `(markdown-header-face-4 ((t (:inherit outline-4))))
   `(markdown-header-face-5 ((t (:inherit outline-5))))
   `(markdown-header-face-6 ((t (:inherit outline-6))))
   `(markdown-code-face ((t (:foreground ,bright-yellow))))
   `(markdown-inline-code-face ((t (:foreground ,bright-yellow))))
   `(markdown-link-face ((t (:foreground ,bright-cyan))))
   `(markdown-url-face ((t (:foreground ,bright-blue :underline t))))
   `(markdown-blockquote-face ((t (:foreground ,bright-black :slant italic))))

   ;; Dired, calendar, and miscellaneous built-ins
   `(dired-directory ((t (:foreground ,bright-blue :weight bold))))
   `(dired-symlink ((t (:foreground ,bright-cyan))))
   `(dired-mark ((t (:foreground ,bright-yellow :weight bold))))
   `(dired-marked ((t (:foreground ,bright-purple :weight bold))))
   `(dired-flagged ((t (:foreground ,bright-red :weight bold))))
   `(dired-header ((t (:foreground ,bright-cyan :weight bold))))
   `(calendar-today ((t (:background ,bright-white :foreground ,black :weight bold))))
   `(holiday ((t (:foreground ,bright-red))))
   `(diary ((t (:foreground ,bright-yellow))))
   `(help-key-binding ((t (:background ,bright-black :foreground ,bright-white
                         :box (:line-width -1 :color ,bright-black)))))
   `(custom-variable-tag ((t (:foreground ,bright-cyan :weight bold))))
   `(custom-group-tag ((t (:foreground ,bright-blue :weight bold :height 1.1))))
   `(custom-button ((t (:background ,bright-white :foreground ,black
                       :box (:line-width 1 :style released-button)))))
   `(custom-button-mouse ((t (:background ,bright-cyan :foreground ,black))))
   `(custom-button-pressed ((t (:background ,bright-blue :foreground ,bright-white
                               :box (:line-width 1 :style pressed-button)))))
   `(which-key-key-face ((t (:foreground ,bright-cyan :weight bold))))
   `(which-key-command-description-face ((t (:foreground ,foreground))))
   `(which-key-group-description-face ((t (:foreground ,bright-purple))))
   `(which-key-note-face ((t (:foreground ,bright-yellow))))
   `(transient-heading ((t (:foreground ,bright-yellow :weight bold))))
   `(transient-key ((t (:foreground ,bright-cyan :weight bold))))
   `(transient-argument ((t (:foreground ,bright-green))))
   `(transient-inactive-value ((t (:foreground ,bright-black))))

   ;; Shells and ANSI colors
   `(comint-highlight-prompt ((t (:foreground ,bright-cyan :weight bold))))
   `(comint-highlight-input ((t (:foreground ,bright-white :weight bold))))
   `(eshell-prompt ((t (:foreground ,bright-cyan :weight bold))))
   `(ansi-color-black ((t (:foreground ,black :background ,black))))
   `(ansi-color-red ((t (:foreground ,red :background ,red))))
   `(ansi-color-green ((t (:foreground ,green :background ,green))))
   `(ansi-color-yellow ((t (:foreground ,yellow :background ,yellow))))
   `(ansi-color-blue ((t (:foreground ,blue :background ,blue))))
   `(ansi-color-magenta ((t (:foreground ,purple :background ,purple))))
   `(ansi-color-cyan ((t (:foreground ,cyan :background ,cyan))))
   `(ansi-color-white ((t (:foreground ,white :background ,white))))
   `(ansi-color-bright-black ((t (:foreground ,bright-black :background ,bright-black))))
   `(ansi-color-bright-red ((t (:foreground ,bright-red :background ,bright-red))))
   `(ansi-color-bright-green ((t (:foreground ,bright-green :background ,bright-green))))
   `(ansi-color-bright-yellow ((t (:foreground ,bright-yellow :background ,bright-yellow))))
   `(ansi-color-bright-blue ((t (:foreground ,bright-blue :background ,bright-blue))))
   `(ansi-color-bright-magenta ((t (:foreground ,bright-purple :background ,bright-purple))))
   `(ansi-color-bright-cyan ((t (:foreground ,bright-cyan :background ,bright-cyan))))
   `(ansi-color-bright-white ((t (:foreground ,bright-white :background ,bright-white))))
   `(term-color-black ((t (:foreground ,black :background ,black))))
   `(term-color-red ((t (:foreground ,red :background ,red))))
   `(term-color-green ((t (:foreground ,green :background ,green))))
   `(term-color-yellow ((t (:foreground ,yellow :background ,yellow))))
   `(term-color-blue ((t (:foreground ,blue :background ,blue))))
   `(term-color-magenta ((t (:foreground ,purple :background ,purple))))
   `(term-color-cyan ((t (:foreground ,cyan :background ,cyan))))
   `(term-color-white ((t (:foreground ,white :background ,white)))))

  (custom-theme-set-variables
   'campbell
   `(ansi-color-names-vector
     [,black ,red ,green ,yellow ,blue ,purple ,cyan ,white])))

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

(provide-theme 'campbell)

;;; campbell-theme.el ends here