[nongnu] elpa/inkpot-theme 2e8c4d126b 070/104: Refactor: named colors

[ELPA Syncer]

branch: elpa/inkpot-theme
commit 2e8c4d126be8ec94de2542dcd7824979fe8d7f37
Author: Campbell Barton <ideasman42@gmail.com>
Commit: Campbell Barton <ideasman42@gmail.com>

    Refactor: named colors
---
 inkpot-theme.el | 556 ++++++++++++++++++++++++++++++++------------------------
 1 file changed, 314 insertions(+), 242 deletions(-)

diff --git a/inkpot-theme.el b/inkpot-theme.el
index a98459e7e5..2b3323d490 100644
--- a/inkpot-theme.el
+++ b/inkpot-theme.el
@@ -24,254 +24,326 @@
 ;;; Commentary:
 
 ;; This file is based on Per Vognsen's port of the original vim theme.
-;; The original emacs color-theme version is found at 
http://www.emacswiki.org/emacs/ColorThemeInkpot.
+;; The original Emacs color-theme version is found at 
http://www.emacswiki.org/emacs/ColorThemeInkpot.
 
 ;;; Code:
 
+(deftheme inkpot "Dark color scheme with bright easily identifiable colors.")
+
 ;; Colors from original Vim theme (for reference)
 ;; as of https://github.com/ciaranm/inkpot (Feb 11, 2013)
-;; #000000 #00ff8b #1e1e27 #2e2e2e #2e2e37 #2e2e3f
-;; #303030 #306b8f #306d30 #3b205d #3e3e5e #404040
-;; #409090 #4a2a4a #4b208f #4e4e8f #66cccc #6d3030
-;; #6e2e2e #6e6eaf #7070a0 #7e7eae #808bed #8b8bcd
-;; #8b8bff #8fff8b #ad600b #ad7b20 #ad7b57 #af4f4b
-;; #b9b9b9 #c080d0 #cc6666 #cc66cc #cccc66 #cd8b00
-;; #cd8b60 #ce4e4e #ce8e4e #cfbfad #cfcfcd #d0a060
-;; #df9f2d #eeeeee #f0ad6d #fdab60 #fdd090 #ff8bff
-;; #ffcd00 #ffcd8b #ffffcd #ffffff
-
-
-(deftheme inkpot "Dark color scheme with bright easily identifiable colors.")
 
-(custom-theme-set-faces 'inkpot
-  '(default ((t (:background "#1e1e27" :foreground "#cfbfad"))))
-  ;; Default (font-lock)
-  '(font-lock-builtin-face ((t (:foreground "#ff8bff"))))
-  '(font-lock-comment-face ((t (:foreground "#cd8b00"))))
-  '(font-lock-comment-delimiter-face ((t (:foreground "#cd8b00"))))
-  '(font-lock-doc-face ((t (:foreground "#808bed")))) ;; Alternate comment 
face.
-  '(font-lock-constant-face ((t (:foreground "#409090"))))
-  '(font-lock-function-name-face ((t (:foreground "#c080d0"))))
-  '(font-lock-keyword-face ((t (:foreground "#808bed"))))
-  '(font-lock-preprocessor-face ((t (:foreground "#409090"))))
-  '(font-lock-reference-face ((t (:bold t :foreground "#808bed"))))
-  '(font-lock-string-face ((t (:foreground "#ffcd8b" :background "#404040"))))
-  '(font-lock-type-face ((t (:foreground "#ff8bff"))))
-  '(font-lock-variable-name-face ((t nil)))
-  '(font-lock-warning-face ((t (:foreground "#ffffff" :background "#6e2e2e"))))
-
-  '(region ((t (:background "#4e4e8f" :foreground "#ffffff"))))
-  '(secondary-selection ((t (:foreground "#b38363" :inverse-video t)))) ;; 
Match gvim secondary selection.
-  '(highlight ((t (:background "#404040"))))
-  '(hl-line ((t (:background "#2e2e37"))))
-  '(fringe ((t (:background "#2e2e2e" :foreground "#8b8bcd"))))
-  '(cursor ((t (:background "#8b8bff" :foreground "#cfdfef"))))
-  '(show-paren-match-face ((t (:background "#4e4e8f"))))
-  '(show-paren-match ((t (:background "#4e4e8f"))))
-  '(show-paren-match-expression ((t (:background "#2e2e3f"))))
-  ;; Note: original theme doesn't show different colors here,
-  ;; simply use bold for 'isearch'.
-  '(isearch ((t (:bold t :foreground "#303030" :background "#ad7b57"))))
-  '(isearch-fail ((t (:foreground "#ffffff" :background "#ce4e4e"))))
-  '(lazy-highlight ((t (:foreground "#303030" :background "#ad7b57"))))
-
-  '(minibuffer-prompt ((t (:bold t :foreground "#7e7eae"))))
-  '(link ((t (:foreground "#ff8bff"))))
-  '(link-visited ((t (:foreground "#cb6ecb")))) ;; Not a vim color, just a 
little darker.
-
-  '(line-number ((t (:background "#2e2e2e" :foreground "#8b8bcd"))))
-  '(line-number-current-line ((t (:bold t :background "#1e1e27" :foreground 
"#ffcd00"))))
-
-  ;; white-space.
-  '(whitespace-trailing ((nil (:background "#343443" :foreground nil))))
-  '(whitespace-space ((nil (:background nil :foreground "#434357"))))
-  '(whitespace-tab ((nil (:background nil :foreground "#434357"))))
-
-  ;; Additions that fit in with the general theme.
-  '(button ((t (:underline t :foreground "#ff8bff"))))
-  '(escape-glyph ((t (:foreground "#8b8bcd")))) ;; Not matching gvim, just 
nice color.
-
-  ;; xref mode.
-  '(xref-line-number ((t (:background "#2e2e2e" :foreground "#8b8bcd"))))
-
-  '(header-line ((t (:bold t :foreground "#b9b9b9" :background "#3e3e5e" :box 
(:line-width -1 :color "#7070a0")))))
-  '(header-line-inactive ((t (:bold nil :foreground "#b9b9b9" :background 
"#3e3e5e" :box (:line-width -1 :color "#7070a0")))))
-  '(mode-line ((t (:bold t :foreground "#b9b9b9" :background "#3e3e5e" :box 
(:line-width -1 :color "#7070a0")))))
-  '(mode-line-inactive ((t (:bold nil :foreground "#b9b9b9" :background 
"#3e3e5e" :box (:line-width -1 :color "#7070a0")))))
-  '(default-italic ((t (:italic t))))
-
-  ;; which-func (shows in the mode-line).
-  '(which-func ((t (:bold t :foreground "#b9b9b9"))))
-
-  ;; diff-mode
-  ;;
-  ;; Not from the inkpot palette, dark colors so we can see the refined colors 
properly.
-  '(diff-added ((t (:background "#163616"))))
-  '(diff-removed ((t (:background "#361616"))))
-  ;; Refine colors for emacs 27+.
-  '(diff-refine-added ((t (:background "#306d30"))))
-  '(diff-refine-removed ((t (:background "#6d3030"))))
-
-  '(w3m-anchor ((t (:foreground "#c080d0"))))
-  '(info-xref ((t (:foreground "#409090"))))
-  '(info-menu-star ((t (:foreground "#409090"))))
-  '(message-cited-text ((t (:foreground "#cd8b00"))))
-  '(gnus-cite-face-1 ((t (:foreground "#708090"))))
-  '(gnus-cite-face-2 ((t (:foreground "#df9f2d"))))
-  '(gnus-cite-face-3 ((t (:foreground "#ad7fa8"))))
-  '(gnus-cite-face-4 ((t (:foreground "#4090904"))))
-  '(gnus-group-mail-1-empty-face ((t (:foreground "#c080d0"))))
-  '(gnus-group-mail-1-face ((t (:bold t :foreground "#c080d0"))))
-  '(gnus-group-mail-2-empty-face ((t (:foreground "#409090"))))
-  '(gnus-group-mail-2-face ((t (:bold t :foreground "#409090"))))
-  '(gnus-group-mail-3-empty-face ((t (:foreground "#506dbd"))))
-  '(gnus-group-mail-3-face ((t (:bold t :foreground "#cd8b00"))))
-  '(gnus-group-mail-3 ((t (:bold t :foreground "#cd8b00"))))
-  '(gnus-group-mail-low-empty-face ((t (:foreground "#8b8bcd"))))
-  '(gnus-group-mail-low-face ((t (:bold t :foreground "8b8bcd"))))
-  '(gnus-group-news-1-empty-face ((t (:foreground "#c080d0"))))
-  '(gnus-group-news-1-face ((t (:bold t :foreground "#c080d0"))))
-  '(gnus-group-news-2-empty-face ((t (:foreground "#409090"))))
-  '(gnus-group-news-2-face ((t (:bold t :foreground "#409090"))))
-  '(gnus-group-news-3-empty-face ((t (:foreground "#506dbd"))))
-  '(gnus-group-news-3-empty ((t (:foreground "#506dbd"))))
-  '(gnus-group-news-3-face ((t (:bold t :foreground "#cd8b00"))))
-  '(gnus-group-news-low-empty-face ((t (:foreground "8b8bcd"))))
-  '(gnus-group-news-low-face ((t (:bold t :foreground "8b8bcd"))))
-  '(gnus-header-name-face ((t (:bold t :foreground "#ab60ed"))))
-  '(gnus-header-from ((t (:bold t :foreground "#cd8b00"))))
-  '(gnus-header-subject ((t (:foreground "#808bed"))))
-  '(gnus-header-content ((t (:italic t :foreground "#409090"))))
-  '(gnus-header-newsgroups-face ((t (:italic t :bold t :foreground 
"#ff8bff"))))
-  '(gnus-signature-face ((t (:italic t :foreground "#708090"))))
-  '(gnus-summary-cancelled-face ((t (:foreground "#cd8b00"))))
-  '(gnus-summary-cancelled ((t (:foreground "#cd8b00"))))
-  '(gnus-summary-high-ancient-face ((t (:bold t :foreground "#ab60ed"))))
-  '(gnus-summary-high-read-face ((t (:bold t :foreground "#c080d0"))))
-  '(gnus-summary-high-ticked-face ((t (:bold t :foreground "#af4f4b"))))
-  '(gnus-summary-high-unread-face ((t (:bold t :foreground "#ffcd8b"))))
-  '(gnus-summary-low-ancient-face ((t (:italic t :foreground "#c080d0"))))
-  '(gnus-summary-low-read-face ((t (:italic t :foreground "#ab60ed"))))
-  '(gnus-summary-low-ticked-face ((t (:italic t :foreground "#af4f4b"))))
-  '(gnus-summary-low-unread-face ((t (:italic t :foreground "#ffcd8b"))))
-  '(gnus-summary-normal-ancient-face ((t (:foreground "#8b8bcd"))))
-  '(gnus-summary-normal-read-face ((t (:foreground "#2e3436"))))
-  '(gnus-summary-normal-read ((t (:foreground "#2e3436"))))
-  '(gnus-summary-normal-ticked-face ((t (:foreground "#af4f4b"))))
-  '(gnus-summary-normal-unread-face ((t (:foreground "#ffcd8b"))))
-  '(gnus-summary-selected ((t (:background "#404040" :foreground "#ffcd8b"))))
-  '(gnus-header-from ((t (:bold t :foreground "#cd8b00"))))
-  '(message-header-name-face ((t (:foreground "#ab60ed"))))
-  '(message-header-name ((t (:foreground "#ab60ed"))))
-  '(message-header-newsgroups-face ((t (:italic t :bold t :foreground 
"#ff8bff"))))
-  '(message-header-other-face ((t (:foreground "#409090"))))
-  '(message-header-other ((t (:foreground "#409090"))))
-  '(message-header-xheader-face ((t (:foreground "#409090"))))
-  '(message-header-subject ((t (:foreground "#808bed"))))
-  '(message-header-to ((t (:foreground "#cd8b00"))))
-  '(message-header-cc ((t (:foreground "#409090"))))
-  '(font-latex-bold-face ((t (:foreground "#cd8b00"))))
-  '(font-latex-italic-face ((t (:foreground "#808bed" :italic t))))
-  '(font-latex-string-face ((t (:foreground "#708090"))))
-  '(font-latex-match-reference-keywords ((t (:foreground "#708090"))))
-  '(font-latex-match-variable-keywords ((t (:foreground "#708090"))))
-
-  ;; Haskell.
-  '(haskell-operator-face ((t (:foreground "#737dd5"))))
-
-  ;; Org-Mode.
-  '(org-hide ((t (:foreground "#708090"))))
-  '(org-level-1 ((t (:bold t :foreground "#8b8bcd" :height 1.0))))
-  '(org-level-2 ((t (:bold nil :foreground "#409090" :height 1.0))))
-  '(org-level-3 ((t (:bold t :foreground "#df9f2d" :height 1.0))))
-  '(org-level-4 ((t (:bold nil :foreground "#af4f4b" :height 1.0))))
-  '(org-date ((t (:underline t :foreground "#f0ad6d"))))
-  '(org-footnote ((t (:underline t :foreground "#ad600b"))))
-  '(org-link ((t (:underline t :foreground "#708090"))))
-  '(org-special-keyword ((t (:foreground "#ad600b"))))
-  '(org-verbatim ((t (:foreground "#ffcd8b" :background "#404040"))))
-  '(org-code ((t (:foreground "#ffcd8b" :background "#404040"))))
-  '(org-block ((t (:foreground "#708090"))))
-  '(org-quote ((t (:inherit org-block :slant italic))))
-  '(org-verse ((t (:inherit org-block :slant italic))))
-  '(org-todo ((t (:bold t :foreground "#af4f4b"))))
-  '(org-done ((t (:bold t :foreground "#409090"))))
-  '(org-warning ((t (:underline t :foreground "#409090"))))
-  '(org-agenda-structure ((t (:weight bold :foreground "#af4f4b"))))
-  '(org-agenda-date ((t (:foreground "#409090"))))
-  '(org-agenda-date-weekend ((t (:weight normal :foreground "8b8bcd"))))
-  '(org-agenda-date-today ((t (:weight bold :foreground "#cd8b00"))))
-
-  ;; reStructuredText.
-  '(rst-external ((t (:foreground "#ff8bff"))))
-  '(rst-definition ((t (:foreground "#409090"))))
-  '(rst-directive ((t (:foreground "#808bed"))))
-  '(rst-emphasis1 ((t (:italic t))))
-  '(rst-emphasis2 ((t (:weight bold t))))
-  '(rst-reference ((t (:foreground "#ff8bff"))))
-  ;; titles baseline.
-  '(rst-adornment ((t (:foreground "#af4f4b"))))
-  ;; titles.
-  '(rst-level-1 ((t (:foreground "#af4f4b"))))
-  '(rst-level-2 ((t (:foreground "#af4f4b"))))
-  '(rst-level-3 ((t (:foreground "#af4f4b"))))
-  '(rst-level-4 ((t (:foreground "#af4f4b"))))
-  '(rst-level-5 ((t (:foreground "#af4f4b"))))
-  '(rst-level-6 ((t (:foreground "#af4f4b"))))
-
-  ;; Colors for popular plugins.
-
-  ;; highlight-numbers (melpa).
-  '(highlight-numbers-number ((t (:foreground "#f0ad6d"))))
-
-  ;; diff-hl (melpa)
-  ;; Use brighter colors to stand out from fringe.
-  '(diff-hl-insert ((t (:background "#306d30"))))
-  '(diff-hl-delete ((t (:background "#af4f4b"))))
-  '(diff-hl-change ((t (:background "#4e4e8f"))))
-
-  ;; lsp-mode (melpa).
-  '(lsp-face-highlight-read ((t (:background "#343443"))))
-  '(lsp-face-highlight-write ((t (:background "#343443"))))
-  '(lsp-face-highlight-textual ((t (:background "#343443"))))
-
-  ;; auto-complete (melpa).
-  '(ac-candidate-face ((t (:foreground "#ffffff" :background "#4e4e8f"))))
-  '(ac-selection-face ((t (:foreground "#ffffff" :background "#2e2e3f" :weight 
bold))))
-
-  ;; ivy (melpa).
-  '(ivy-current-match ((t (:background "#4e4e8f" :foreground "#ffffff"))))
-  ;; highlight matching chars (same as isearch).
-  '(ivy-minibuffer-match-face-2 ((t (:background "#ad7b57" :foreground 
"#303030"))))
-
-  ;; company (melpa).
-  '(company-tooltip ((t (:background "#4e4e8f" :foreground "#ffffff"))))
-  '(company-tooltip-selection ((t (:background "#2e2e3f" :weight bold))))
-  '(company-tooltip-annotation ((t (:foreground "#cfbfad"))))
-  '(company-tooltip-common ((t (:foreground "#303030" :background "#ad7b57"))))
-
-  '(company-scrollbar-bg ((t (:background "#6e6eaf"))))
-  ;; Not based on original theme, could change.
-  '(company-scrollbar-fg ((t (:background "#000000"))))
-
-  ;; helm (melpa).
-  '(helm-selection ((t (:background "#2e2e37"))))
-
-  ;; neotree (melpa).
-  '(neo-banner-face ((t (:foreground "#cd8b00"))))
-  '(neo-header-face ((t (:foreground "#cd8b00"))))
-  '(neo-root-dir-face ((t (:foreground "#808bed"))))
-  '(neo-dir-link-face ((t (:foreground "#00ff8b"))))
-  '(neo-expand-btn-face ((t (:foreground "#808bed"))))
-  '(neo-file-link-face ((t (:foreground "#cfbfad"))))
-
-  ;; highlight-indent-guides (melpa).
-  '(highlight-indent-guides-odd-face ((t (:background "#252530"))))
-  '(highlight-indent-guides-even-face ((t (:background "#1b1b24"))))
-
-  ;; visual-indentation-mode (stand alone package).
-  '(visual-indentation-light-face ((t (:background "#343443"))))
-  '(visual-indentation-dark-face ((t (:background "#252530")))))
+;; Ordered around the color wheel, starting at red.
+;; Include VIM usage in comments.
+
+(let ((ip-red-dark              "#6e2e2e") ;; bg:Error
+      (ip-red-dark+0.2          "#6d3030") ;; bg:DiffDelete
+      (ip-red-mid               "#af4f4b") ;; fg:Title
+      (ip-red-light             "#ce4e4e") ;; bg:ErrorMsg
+      ;; (ip-red-light+4.5      "#cc6666") ;; sp:SpellBad
+
+      (ip-orange-dark           "#ad600b") ;; fg:doxygenSpecialMultilineDesc 
fg:doxygenSpecialOnelineDesc
+      ;; (ip-orange-dark+12.3   "#ad7b20") ;; bg:doxygenComment
+      (ip-orange-bright         "#cd8b00") ;; fg:Comment
+      (ip-orange-light          "#df9f2d") ;; fg:Underlined
+      ;; (ip-orange-light+11.7  "#fdd090") ;; fg:doxygenParam fg:doxygenPrev 
fg:doxygenSmallSpecial fg:doxygenSpecial
+
+      (ip-brown-mid             "#ad7b57") ;; bg:Search
+      ;; (ip-brown-mid+12.6     "#cd8b60") ;; bg:IncSearch
+      (ip-brown-mid+13          "#ce8e4e") ;; bg:WarningMsg
+      ;; (ip-brown-mid+13.8     "#d0a060") ;; fg:Folded
+      ;; (ip-brown-mid+31.4     "#fdab60") ;; fg:doxygenBrief fg:doxygenSpecial
+
+      (ip-brown-bright          "#f0ad6d") ;; fg:Number
+      (ip-brown-light           "#ffcd8b") ;; fg:Constant fg:String
+      ;; (ip-brown-light+30.9   "#ffffcd") ;; fg:DiffText fg:DiffChange 
fg:DiffDelete fg:DiffAdd
+
+      (ip-cream-light           "#cfbfad") ;; fg:Normal fg:MBENormal 
fg:MatchParen
+
+      ;; (ip-yellow-mid         "#cccc66") ;; sp:SpellLocal
+      (ip-yellow-bright         "#ffcd00") ;; fg:Question
+
+      (ip-green-mid             "#306d30") ;; bg:DiffAdd
+      (ip-green-bright          "#00ff8b") ;; fg:User1 fg:Directory
+      ;; (ip-green-light        "#8fff8b") ;; bg:lCursor
+
+      (ip-cyan-dark             "#306b8f") ;; bg:DiffChange
+      (ip-cyan-mid              "#409090") ;; fg:PreProc
+      ;; (ip-cyan-bright        "#66cccc") ;; sp:SpellCap
+
+      ;; Use name 'slate' as the palette has many de-saturated blues.
+      (ip-slate-dark-inverted   "#b38363")
+      (ip-slate-dark            "#1e1e27") ;; bg:Normal
+      (ip-slate-dark+7.6        "#2e2e37") ;; bg:CursorLine
+      (ip-slate-dark+7.9        "#2e2e3f") ;; bg:MBENormal bg:MBEChanged 
bg:PmenuSel
+      (ip-slate-dark+15.7       "#3e3e5e") ;; bg:StatusLine bg:User1 bg:User2 
bg:StatusLineNC bg:VertSplit
+
+      (ip-slate-mid             "#4e4e8f") ;; bg:MBEVisibleNormal 
bg:MBEVisibleChanged bg:Visual bg:Pmenu bg:MatchParen
+      (ip-slate-light           "#7070a0") ;; fg:User2
+      (ip-slate-light+5.5       "#7e7eae") ;; fg:ModeMsg fg:MoreMsg
+      (ip-slate-light+5.9       "#6e6eaf") ;; bg:WildMenu bg:PmenuSbar 
bg:PmenuThumb
+      (ip-slate-lite+17.7       "#8b8bcd") ;; fg:FoldColumn fg:LineNr 
fg:NonText
+
+      (ip-blue-bright           "#808bed") ;; fg:Statement fg:TaglistTagName
+      (ip-blue-bright+1.6       "#8b8bff") ;; bg:Cursor bg:CursorIM
+
+      ;; (ip-purple-dark        "#3b205d") ;; fg:SpecialKey
+      ;; (ip-purple-dark+10.4   "#4b208f") ;; bg:Folded
+      ;; (ip-purple-mid         "#4a2a4a") ;; bg:DiffText
+
+      ;; (ip-pink-dark-3.9      "#cc66cc") ;; sp:SpellRare
+      (ip-pink-dark             "#c080d0") ;; fg:Special fg:SpecialChar 
fg:perlSpecialMatch fg:perlSpecialString
+      ;;                                      fg:cSpecialCharacter fg:cFormat 
fg:Conceal
+      (ip-pink-light            "#ff8bff") ;; fg:Identifier fg:Type
+
+      ;; Tones.
+      (ip-grey+18               "#2e2e2e") ;; bg:FoldColumn bg:LineNr 
bg:ColorColumn
+      (ip-grey+19               "#303030") ;; fg:IncSearch fg:Search fg:Todo
+      (ip-grey+25               "#404040") ;; fg:Cursor fg:lCursor fg:CursorIM 
bg:String bg:SpecialChar
+      ;;                                      bg:perlSpecialMatch 
bg:perlSpecialString bg:cSpecialCharacter bg:cFormat
+      (ip-grey+73               "#b9b9b9") ;; fg:StatusLine fg:StatusLineNC 
fg:VertSplit
+      ;; (ip-grey+81            "#cfcfcd") ;; fg:MBEVisibleNormal
+      ;; (ip-grey+93            "#eeeeee") ;; fg:WildMenu fg:MBEChanged  
fg:MBEVisibleChanged fg:Visual
+      ;;                                         fg:Pmenu fg:PmenuSel 
fg:PmenuSbar fg:PmenuThumb
+
+      (ip-black                 "#000000") ;; bg:Normal
+      (ip-white                 "#ffffff") ;; fg:ErrorMsg fg:WarningMsg
+
+      ;; End palette colors.
+      )
+
+  (custom-theme-set-faces
+   'inkpot
+   `(default ((t (:background ,ip-slate-dark :foreground ,ip-cream-light))))
+   ;; Default (font-lock)
+   `(font-lock-builtin-face ((t (:foreground ,ip-pink-light))))
+   `(font-lock-comment-face ((t (:foreground ,ip-orange-bright))))
+   `(font-lock-comment-delimiter-face ((t (:foreground ,ip-orange-bright))))
+   `(font-lock-doc-face ((t (:foreground ,ip-blue-bright)))) ;; Alternate 
comment face.
+   `(font-lock-constant-face ((t (:foreground ,ip-cyan-mid))))
+   `(font-lock-function-name-face ((t (:foreground ,ip-pink-dark))))
+   `(font-lock-keyword-face ((t (:foreground ,ip-blue-bright))))
+   `(font-lock-preprocessor-face ((t (:foreground ,ip-cyan-mid))))
+   `(font-lock-reference-face ((t (:bold t :foreground ,ip-blue-bright))))
+   `(font-lock-string-face ((t (:foreground ,ip-brown-light :background 
,ip-grey+25))))
+   `(font-lock-type-face ((t (:foreground ,ip-pink-light))))
+   '(font-lock-variable-name-face ((t nil)))
+   `(font-lock-warning-face ((t (:foreground ,ip-white :background 
,ip-red-dark))))
+
+   `(region ((t (:background ,ip-slate-mid :foreground ,ip-white))))
+   ;; Match gvim secondary selection (which is the background inverted).
+   `(secondary-selection ((t (:foreground ,ip-slate-dark-inverted 
:inverse-video t))))
+   `(highlight ((t (:background ,ip-grey+25))))
+   `(hl-line ((t (:background ,ip-slate-dark+7.6))))
+   `(fringe ((t (:background ,ip-grey+18 :foreground ,ip-slate-lite+17.7))))
+   `(cursor ((t (:background ,ip-blue-bright+1.6))))
+   `(show-paren-match-face ((t (:background ,ip-slate-mid))))
+   `(show-paren-match ((t (:background ,ip-slate-mid))))
+   `(show-paren-match-expression ((t (:background ,ip-slate-dark+7.9))))
+   ;; Note: original theme doesn't show different colors here,
+   ;; simply use bold for 'isearch'.
+   `(isearch ((t (:bold t :foreground ,ip-grey+19 :background ,ip-brown-mid))))
+   `(isearch-fail ((t (:foreground ,ip-white :background ,ip-red-light))))
+   `(lazy-highlight ((t (:foreground ,ip-grey+19 :background ,ip-brown-mid))))
+
+   `(minibuffer-prompt ((t (:bold t :foreground ,ip-slate-light+5.5))))
+   `(link ((t (:foreground ,ip-pink-light))))
+   `(link-visited ((t (:foreground ,ip-pink-dark)))) ;; Not a vim color, just 
a little darker.
+
+   `(line-number ((t (:background ,ip-grey+18 :foreground 
,ip-slate-lite+17.7))))
+   `(line-number-current-line ((t (:bold t :background ,ip-slate-dark 
:foreground ,ip-yellow-bright))))
+
+   ;; white-space.
+   '(whitespace-trailing ((nil (:background "#343443" :foreground nil))))
+   '(whitespace-space ((nil (:background nil :foreground "#434357"))))
+   '(whitespace-tab ((nil (:background nil :foreground "#434357"))))
+
+   ;; Additions that fit in with the general theme.
+   `(button ((t (:underline t :foreground ,ip-pink-light))))
+   `(escape-glyph ((t (:foreground ,ip-slate-lite+17.7)))) ;; Not matching 
gvim, just nice color.
+
+   ;; xref mode.
+   `(xref-line-number ((t (:background ,ip-grey+18 :foreground 
,ip-slate-lite+17.7))))
+
+   ;; Follow gvim, inactive mode-line isn't bold.
+   `(header-line ((t (:bold t :foreground ,ip-grey+73 :background 
,ip-slate-dark+15.7 :box (:line-width -1 :color ,ip-slate-light)))))
+   `(header-line-inactive ((t (:foreground ,ip-grey+73 :background 
,ip-slate-dark+15.7 :box (:line-width -1 :color ,ip-slate-light)))))
+   `(mode-line ((t (:bold t :foreground ,ip-grey+73 :background 
,ip-slate-dark+15.7 :box (:line-width -1 :color ,ip-slate-light)))))
+   `(mode-line-inactive ((t (:foreground ,ip-grey+73 :background 
,ip-slate-dark+15.7 :box (:line-width -1 :color ,ip-slate-light)))))
+   '(default-italic ((t (:italic t))))
+
+   ;; which-func (shows in the mode-line).
+   `(which-func ((t (:bold t :foreground ,ip-grey+73))))
+
+   ;; diff-mode
+   ;;
+   ;; Not from the inkpot palette, dark colors so we can see the refined 
colors properly.
+   '(diff-added ((t (:background "#163616"))))
+   '(diff-removed ((t (:background "#361616"))))
+   ;; Refine colors for emacs 27+.
+   `(diff-refine-added ((t (:background ,ip-green-mid))))
+   `(diff-refine-removed ((t (:background ,ip-red-dark+0.2))))
+
+   `(w3m-anchor ((t (:foreground ,ip-pink-dark))))
+   `(info-xref ((t (:foreground ,ip-cyan-mid))))
+   `(info-menu-star ((t (:foreground ,ip-cyan-mid))))
+   `(message-cited-text ((t (:foreground ,ip-orange-bright))))
+   '(gnus-cite-face-1 ((t (:foreground "#708090"))))
+   `(gnus-cite-face-2 ((t (:foreground ,ip-orange-light))))
+   '(gnus-cite-face-3 ((t (:foreground "#ad7fa8"))))
+   '(gnus-cite-face-4 ((t (:foreground "#4090904"))))
+   `(gnus-group-mail-1-empty-face ((t (:foreground ,ip-pink-dark))))
+   `(gnus-group-mail-1-face ((t (:bold t :foreground ,ip-pink-dark))))
+   `(gnus-group-mail-2-empty-face ((t (:foreground ,ip-cyan-mid))))
+   `(gnus-group-mail-2-face ((t (:bold t :foreground ,ip-cyan-mid))))
+   '(gnus-group-mail-3-empty-face ((t (:foreground "#506dbd"))))
+   `(gnus-group-mail-3-face ((t (:bold t :foreground ,ip-orange-bright))))
+   `(gnus-group-mail-3 ((t (:bold t :foreground ,ip-orange-bright))))
+   `(gnus-group-mail-low-empty-face ((t (:foreground ,ip-slate-lite+17.7))))
+   `(gnus-group-mail-low-face ((t (:bold t :foreground,ip-slate-lite+17.7))))
+   `(gnus-group-news-1-empty-face ((t (:foreground ,ip-pink-dark))))
+   `(gnus-group-news-1-face ((t (:bold t :foreground ,ip-pink-dark))))
+   `(gnus-group-news-2-empty-face ((t (:foreground ,ip-cyan-mid))))
+   `(gnus-group-news-2-face ((t (:bold t :foreground ,ip-cyan-mid))))
+   '(gnus-group-news-3-empty-face ((t (:foreground "#506dbd"))))
+   '(gnus-group-news-3-empty ((t (:foreground "#506dbd"))))
+   `(gnus-group-news-3-face ((t (:bold t :foreground ,ip-orange-bright))))
+   `(gnus-group-news-low-empty-face ((t (:foreground,ip-slate-lite+17.7))))
+   `(gnus-group-news-low-face ((t (:bold t :foreground,ip-slate-lite+17.7))))
+   '(gnus-header-name-face ((t (:bold t :foreground "#ab60ed"))))
+   `(gnus-header-from ((t (:bold t :foreground ,ip-orange-bright))))
+   `(gnus-header-subject ((t (:foreground ,ip-blue-bright))))
+   `(gnus-header-content ((t (:italic t :foreground ,ip-cyan-mid))))
+   `(gnus-header-newsgroups-face ((t (:italic t :bold t :foreground 
,ip-pink-light))))
+   '(gnus-signature-face ((t (:italic t :foreground "#708090"))))
+   `(gnus-summary-cancelled-face ((t (:foreground ,ip-orange-bright))))
+   `(gnus-summary-cancelled ((t (:foreground ,ip-orange-bright))))
+   '(gnus-summary-high-ancient-face ((t (:bold t :foreground "#ab60ed"))))
+   `(gnus-summary-high-read-face ((t (:bold t :foreground ,ip-pink-dark))))
+   `(gnus-summary-high-ticked-face ((t (:bold t :foreground ,ip-red-mid))))
+   `(gnus-summary-high-unread-face ((t (:bold t :foreground ,ip-brown-light))))
+   `(gnus-summary-low-ancient-face ((t (:italic t :foreground ,ip-pink-dark))))
+   '(gnus-summary-low-read-face ((t (:italic t :foreground "#ab60ed"))))
+   `(gnus-summary-low-ticked-face ((t (:italic t :foreground ,ip-red-mid))))
+   `(gnus-summary-low-unread-face ((t (:italic t :foreground 
,ip-brown-light))))
+   `(gnus-summary-normal-ancient-face ((t (:foreground ,ip-slate-lite+17.7))))
+   '(gnus-summary-normal-read-face ((t (:foreground "#2e3436"))))
+   '(gnus-summary-normal-read ((t (:foreground "#2e3436"))))
+   `(gnus-summary-normal-ticked-face ((t (:foreground ,ip-red-mid))))
+   `(gnus-summary-normal-unread-face ((t (:foreground ,ip-brown-light))))
+   `(gnus-summary-selected ((t (:background ,ip-grey+25 :foreground 
,ip-brown-light))))
+   `(gnus-header-from ((t (:bold t :foreground ,ip-orange-bright))))
+   '(message-header-name-face ((t (:foreground "#ab60ed"))))
+   '(message-header-name ((t (:foreground "#ab60ed"))))
+   `(message-header-newsgroups-face ((t (:italic t :bold t :foreground 
,ip-pink-light))))
+   `(message-header-other-face ((t (:foreground ,ip-cyan-mid))))
+   `(message-header-other ((t (:foreground ,ip-cyan-mid))))
+   `(message-header-xheader-face ((t (:foreground ,ip-cyan-mid))))
+   `(message-header-subject ((t (:foreground ,ip-blue-bright))))
+   `(message-header-to ((t (:foreground ,ip-orange-bright))))
+   `(message-header-cc ((t (:foreground ,ip-cyan-mid))))
+   `(font-latex-bold-face ((t (:foreground ,ip-orange-bright))))
+   `(font-latex-italic-face ((t (:foreground ,ip-blue-bright :italic t))))
+   '(font-latex-string-face ((t (:foreground "#708090"))))
+   '(font-latex-match-reference-keywords ((t (:foreground "#708090"))))
+   '(font-latex-match-variable-keywords ((t (:foreground "#708090"))))
+
+   ;; Haskell.
+   `(haskell-operator-face ((t (:foreground ,ip-blue-bright))))
+
+   ;; Org-Mode.
+   '(org-hide ((t (:foreground "#708090"))))
+   `(org-level-1 ((t (:bold t :foreground ,ip-slate-lite+17.7 :height 1.0))))
+   `(org-level-2 ((t (:bold nil :foreground ,ip-cyan-mid :height 1.0))))
+   `(org-level-3 ((t (:bold t :foreground ,ip-orange-light :height 1.0))))
+   `(org-level-4 ((t (:bold nil :foreground ,ip-red-mid :height 1.0))))
+   `(org-date ((t (:underline t :foreground ,ip-brown-bright))))
+   `(org-footnote ((t (:underline t :foreground ,ip-orange-dark))))
+   '(org-link ((t (:underline t :foreground "#708090"))))
+   `(org-special-keyword ((t (:foreground ,ip-orange-dark))))
+   `(org-verbatim ((t (:foreground ,ip-brown-light :background ,ip-grey+25))))
+   `(org-code ((t (:foreground ,ip-brown-light :background ,ip-grey+25))))
+   '(org-block ((t (:foreground "#708090"))))
+   '(org-quote ((t (:inherit org-block :slant italic))))
+   '(org-verse ((t (:inherit org-block :slant italic))))
+   `(org-todo ((t (:bold t :foreground ,ip-red-mid))))
+   `(org-done ((t (:bold t :foreground ,ip-cyan-mid))))
+   `(org-warning ((t (:underline t :foreground ,ip-cyan-mid))))
+   `(org-agenda-structure ((t (:weight bold :foreground ,ip-red-mid))))
+   `(org-agenda-date ((t (:foreground ,ip-cyan-mid))))
+   `(org-agenda-date-weekend ((t (:weight normal 
:foreground,ip-slate-lite+17.7))))
+   `(org-agenda-date-today ((t (:weight bold :foreground ,ip-orange-bright))))
+
+   ;; reStructuredText.
+   `(rst-external ((t (:foreground ,ip-pink-light))))
+   `(rst-definition ((t (:foreground ,ip-cyan-mid))))
+   `(rst-directive ((t (:foreground ,ip-blue-bright))))
+   '(rst-emphasis1 ((t (:italic t))))
+   '(rst-emphasis2 ((t (:weight bold t))))
+   `(rst-reference ((t (:foreground ,ip-pink-light))))
+   ;; titles baseline.
+   `(rst-adornment ((t (:foreground ,ip-red-mid))))
+   ;; titles.
+   `(rst-level-1 ((t (:foreground ,ip-red-mid))))
+   `(rst-level-2 ((t (:foreground ,ip-red-mid))))
+   `(rst-level-3 ((t (:foreground ,ip-red-mid))))
+   `(rst-level-4 ((t (:foreground ,ip-red-mid))))
+   `(rst-level-5 ((t (:foreground ,ip-red-mid))))
+   `(rst-level-6 ((t (:foreground ,ip-red-mid))))
+
+   ;; Colors for popular plugins.
+
+   ;; highlight-numbers (melpa).
+   `(highlight-numbers-number ((t (:foreground ,ip-brown-bright))))
+
+   ;; diff-hl (melpa)
+   ;; Use brighter colors to stand out from fringe.
+   `(diff-hl-insert ((t (:background ,ip-green-mid))))
+   `(diff-hl-delete ((t (:background ,ip-red-mid))))
+   `(diff-hl-change ((t (:background ,ip-slate-mid))))
+
+   ;; lsp-mode (melpa).
+   `(lsp-face-highlight-read ((t (:background ,ip-slate-dark+7.9))))
+   `(lsp-face-highlight-write ((t (:background ,ip-slate-dark+7.9))))
+   `(lsp-face-highlight-textual ((t (:background ,ip-slate-dark+7.9))))
+
+   ;; auto-complete (melpa).
+   `(ac-candidate-face ((t (:foreground ,ip-white :background ,ip-slate-mid))))
+   `(ac-selection-face ((t (:foreground ,ip-white :background 
,ip-slate-dark+7.9 :weight bold))))
+
+   ;; ivy (melpa).
+   `(ivy-current-match ((t (:background ,ip-slate-mid :foreground ,ip-white))))
+   ;; highlight matching chars (same as isearch).
+   `(ivy-minibuffer-match-face-2 ((t (:background ,ip-brown-mid :foreground 
,ip-grey+19))))
+
+   ;; company (melpa).
+   `(company-tooltip ((t (:background ,ip-slate-mid :foreground ,ip-white))))
+   `(company-tooltip-selection ((t (:background ,ip-slate-dark+7.9 :weight 
bold))))
+   `(company-tooltip-annotation ((t (:foreground ,ip-cream-light))))
+   `(company-tooltip-common ((t (:foreground ,ip-grey+19 :background 
,ip-brown-mid))))
+
+   `(company-scrollbar-bg ((t (:background ,ip-slate-light+5.9))))
+   ;; Not based on original theme, could change.
+   `(company-scrollbar-fg ((t (:background ,ip-black))))
+
+   ;; helm (melpa).
+   `(helm-selection ((t (:background ,ip-slate-dark+7.6))))
+
+   ;; neotree (melpa).
+   `(neo-banner-face ((t (:foreground ,ip-orange-bright))))
+   `(neo-header-face ((t (:foreground ,ip-orange-bright))))
+   `(neo-root-dir-face ((t (:foreground ,ip-blue-bright))))
+   `(neo-dir-link-face ((t (:foreground ,ip-green-bright))))
+   `(neo-expand-btn-face ((t (:foreground ,ip-blue-bright))))
+   `(neo-file-link-face ((t (:foreground ,ip-cream-light))))
+
+   ;; highlight-indent-guides (melpa).
+   `(highlight-indent-guides-odd-face ((t (:background ,ip-slate-dark+15.7))))
+   `(highlight-indent-guides-even-face ((t (:background ,ip-slate-dark+7.9))))
+
+   ;; visual-indentation-mode (stand alone package).
+   `(visual-indentation-light-face ((t (:background ,ip-slate-dark+15.7))))
+   `(visual-indentation-dark-face ((t (:background ,ip-slate-dark+7.9))))))
 
 ;;;###autoload
 (when load-file-name