solarized-definitions.el (44744B)
1 ;;; solarized-definitions.el --- Solarized theme color assignments -*- lexical-binding: t -*- 2 3 (eval-when-compile 4 (unless (require 'cl-lib nil t) 5 (require 'cl) 6 (defalias 'cl-case 'case))) 7 8 (defconst solarized-description 9 "Color theme by Ethan Schoonover, created 2011-03-24. 10 Ported to Emacs by Greg Pfeil, http://ethanschoonover.com/solarized.") 11 12 (defgroup solarized nil 13 "Customizations for the Solarized theme." 14 :group 'faces 15 :prefix "solarized-") 16 17 (defcustom solarized-termcolors 16 18 "The number of colors to use on 256-color terminals. 19 This is set to 16 by default, meaning that Solarized will attempt to use the 20 standard 16 colors of your terminal emulator. You will need to set those colors 21 to the correct Solarized values either manually or by importing one of the many 22 colorschemes available for popular terminal emulators and Xdefaults." 23 :type '(choice (const 16) (const 256)) 24 :group 'solarized) 25 26 (defcustom solarized-degrade nil 27 "Use only 256 colors on graphic displays. 28 For test purposes only; when in GUI mode, forces Solarized to use the 256 29 degraded color mode to test the approximate color values for accuracy." 30 :type 'boolean 31 :group 'solarized) 32 33 (defcustom solarized-diff-mode 'normal 34 "Sets the level of highlighting to use in diff-like modes." 35 :type '(choice (const high) (const normal) (const low)) 36 :group 'solarized) 37 38 (defcustom solarized-bold nil 39 "Stops Solarized from displaying bold when nil." 40 :type 'boolean 41 :group 'solarized) 42 43 (defcustom solarized-underline nil 44 "Stops Solarized from displaying underlines when nil." 45 :type 'boolean 46 :group 'solarized) 47 48 (defcustom solarized-italic nil 49 "Stops Solarized from displaying italics when nil." 50 :type 'boolean 51 :group 'solarized) 52 53 (defcustom solarized-contrast 'normal 54 "Adjust the contrast level of Solarized. 55 Stick with normal! It's been carefully tested. Setting this option to high or 56 low does use the same Solarized palette but simply shifts some values up or down 57 in order to expand or compress the tonal range displayed." 58 :type '(choice (const high) (const normal) (const low)) 59 :group 'solarized) 60 61 (defcustom solarized-broken-srgb 62 (if (and (eq system-type 'darwin) (eq window-system 'ns)) 63 (not (and (boundp 'ns-use-srgb-colorspace) 64 ns-use-srgb-colorspace)) 65 nil) 66 "Whether sRGB is broken on your system. 67 If you are on a Mac and have either Emacs prior to 24.4 or Mac OS prior to 10.7 68 this should be t (the default is usually correct). Solarized works around this 69 issue by using with alternative colors. However, these colors are not totally 70 portable, so you may be able to edit the “Gen RGB” column in 71 solarized-definitions.el to improve them further." 72 :type 'boolean 73 :group 'solarized) 74 75 ;; FIXME: The Generic RGB colors will actually vary from device to device, but 76 ;; hopefully these are closer to the intended colors than the sRGB values 77 ;; that Emacs seems to dislike 78 (defvar solarized-colors ; ANSI(Solarized terminal) 79 ;; name sRGB Gen RGB 256 16 8 80 '((base03 "#002b36" "#042028" "#1c1c1c" "brightblack" "black") 81 (base02 "#073642" "#0a2832" "#262626" "black" "black") 82 (base01 "#586e75" "#465a61" "#585858" "brightgreen" "green") 83 (base00 "#657b83" "#52676f" "#626262" "brightyellow" "yellow") 84 (base0 "#839496" "#708183" "#808080" "brightblue" "blue") 85 (base1 "#93a1a1" "#81908f" "#8a8a8a" "brightcyan" "cyan") 86 (base2 "#eee8d5" "#e9e2cb" "#e4e4e4" "white" "white") 87 (base3 "#fdf6e3" "#fcf4dc" "#ffffd7" "brightwhite" "white") 88 (yellow "#b58900" "#a57705" "#af8700" "yellow" "yellow") 89 (orange "#cb4b16" "#bd3612" "#d75f00" "brightred" "red") 90 (red "#dc322f" "#c60007" "#d70000" "red" "red") 91 (magenta "#d33682" "#c61b6e" "#af005f" "magenta" "magenta") 92 (violet "#6c71c4" "#5859b7" "#5f5faf" "brightmagenta" "magenta") 93 (blue "#268bd2" "#2075c7" "#0087ff" "blue" "blue") 94 (cyan "#2aa198" "#259185" "#00afaf" "cyan" "cyan") 95 (green "#859900" "#728a05" "#5f8700" "green" "green")) 96 "This is a table of all the colors used by the Solarized color theme. 97 Each column is a different set, one of which will be chosen based on term 98 capabilities, etc.") 99 100 (defun solarized--current-colors (light) 101 "Attempt to mimic the Vim version’s color configuration. 102 If LIGHT is non-nil, invert the base faces." 103 (let ((current-colors 104 (cons 105 (cons 'back (copy-sequence (cdr (assoc 'base03 solarized-colors)))) 106 (mapcar #'copy-sequence (copy-sequence solarized-colors))))) 107 (if light 108 (setf (cdr (assoc 'base03 current-colors)) (cdr (assoc 'base3 solarized-colors)) 109 (cdr (assoc 'base02 current-colors)) (cdr (assoc 'base2 solarized-colors)) 110 (cdr (assoc 'base01 current-colors)) (cdr (assoc 'base1 solarized-colors)) 111 (cdr (assoc 'base00 current-colors)) (cdr (assoc 'base0 solarized-colors)) 112 (cdr (assoc 'base0 current-colors)) (cdr (assoc 'base00 solarized-colors)) 113 (cdr (assoc 'base1 current-colors)) (cdr (assoc 'base01 solarized-colors)) 114 (cdr (assoc 'base2 current-colors)) (cdr (assoc 'base02 solarized-colors)) 115 (cdr (assoc 'base3 current-colors)) (cdr (assoc 'base03 solarized-colors)) 116 (cdr (assoc 'back current-colors)) (cdr (assoc 'base03 current-colors)))) 117 (cond ((eq 'high solarized-contrast) 118 (setf (cdr (assoc 'base01 current-colors)) (cdr (assoc 'base00 current-colors)) 119 (cdr (assoc 'base00 current-colors)) (cdr (assoc 'base0 current-colors)) 120 (cdr (assoc 'base0 current-colors)) (cdr (assoc 'base1 current-colors)) 121 (cdr (assoc 'base1 current-colors)) (cdr (assoc 'base2 current-colors)) 122 (cdr (assoc 'base2 current-colors)) (cdr (assoc 'base3 current-colors)) 123 (cdr (assoc 'back current-colors)) (cdr (assoc 'back current-colors)))) 124 ((eq 'low solarized-contrast) 125 (setf (cdr (assoc 'back current-colors)) (cdr (assoc 'base02 current-colors))))) 126 current-colors)) 127 128 (defun solarized-face-for-index (facespec index &optional light) 129 "Replace the Solarized symbols in FACESPEC with the colors in column INDEX. 130 The colors are looked up in ‘solarized-colors’, and base colors are inverted if 131 LIGHT is non-nil." 132 (let ((new-fontspec (copy-sequence facespec))) 133 (dolist (property '(:foreground :background :color)) 134 (let ((color-name (plist-get new-fontspec property))) 135 (when (and color-name (symbolp color-name)) 136 (plist-put new-fontspec 137 property 138 ;; NOTE: We try to turn an 8-color term into a 10-color term by not 139 ;; using default background and foreground colors, expecting the 140 ;; user to have the right colors set for them. 141 (unless (and (= index 5) 142 (or (and (eq property :background) 143 (eq color-name 'back)) 144 (and (eq property :foreground) 145 (member color-name '(base0 base1))))) 146 (nth index 147 (assoc color-name 148 (solarized--current-colors light)))))))) 149 (when (consp (plist-get new-fontspec :box)) 150 (plist-put new-fontspec 151 :box 152 (solarized-face-for-index (plist-get new-fontspec :box) 153 index 154 light))) 155 (when (consp (plist-get new-fontspec :underline)) 156 (plist-put new-fontspec 157 :underline 158 (solarized-face-for-index (plist-get new-fontspec :underline) 159 index 160 light))) 161 new-fontspec)) 162 163 (defun dark-and-light (display plist index) 164 "Return a list of faces, distinguishing between dark and light if necessary." 165 (let ((dark (solarized-face-for-index plist index)) 166 (light (solarized-face-for-index plist index t))) 167 (if (equal dark light) 168 (list (list display dark)) 169 (list (list (cons '(background dark) display) dark) 170 (list (cons '(background light) display) light))))) 171 172 (defun 8-and-16 (plist) 173 "Return a list of faces, distinguishing between dark and light if necessary." 174 (let ((eight (dark-and-light '() plist 5)) 175 (sixteen (dark-and-light '() plist 4))) 176 (append 177 (unless (equal eight sixteen) 178 (mapcar (lambda (spec) 179 (setf (car spec) 180 (append '((type tty) (min-colors 16)) (car spec))) 181 spec) 182 sixteen)) 183 (mapcar (lambda (spec) 184 (setf (car spec) 185 (append '((type tty) (min-colors 8)) (car spec))) 186 spec) 187 eight)))) 188 189 (defun create-face-spec (name facespec) 190 "Generate a full face-spec for face NAME from the Solarized FACESPEC. 191 This generates the spec across a variety of displays from the FACESPEC, which 192 contains Solarized symbols." 193 `(,name (,@(dark-and-light '((type graphic)) 194 facespec 195 (cond (solarized-degrade 3) 196 (solarized-broken-srgb 2) 197 (t 1))) 198 ;; only produce 256-color term-specific settings if ‘solarized-termcolors’ is 256 199 ,@(when (= solarized-termcolors 256) 200 (dark-and-light '((type tty) (min-colors 256)) facespec 3)) 201 ,@(8-and-16 facespec)))) 202 203 (defun solarized-color-definitions () 204 "Produces the set of face-specs for all faces defined by this theme." 205 (let ((bold (if solarized-bold 'bold 'unspecified)) 206 (bright-bold (if solarized-bold 'unspecified 'bold)) 207 (underline (if solarized-underline t 'unspecified)) 208 (opt-under (if (eq solarized-contrast 'low) t 'unspecified)) 209 (italic (if solarized-italic 'italic 'unspecified))) 210 (let ((bg-back '(:background back)) 211 (bg-base03 '(:background base03)) 212 (bg-base02 '(:background base02)) 213 (bg-base01 '(:background base01)) 214 (bg-base00 '(:background base00)) 215 (bg-base0 '(:background base0)) 216 (bg-base1 '(:background base1)) 217 (bg-base2 '(:background base2)) 218 (bg-base3 '(:background base3)) 219 (bg-green '(:background green)) 220 (bg-yellow '(:background yellow)) 221 (bg-orange '(:background orange)) 222 (bg-red '(:background red)) 223 (bg-magenta '(:background magenta)) 224 (bg-violet '(:background violet)) 225 (bg-blue '(:background blue)) 226 (bg-cyan '(:background cyan)) 227 228 (fg-base03 '(:foreground base03)) 229 (fg-base02 '(:foreground base02)) 230 (fg-base01 '(:foreground base01)) 231 (fg-base00 '(:foreground base00)) 232 (fg-base0 '(:foreground base0)) 233 (fg-base1 '(:foreground base1)) 234 (fg-base2 '(:foreground base2)) 235 (fg-base3 '(:foreground base3)) 236 (fg-green '(:foreground green)) 237 (fg-yellow '(:foreground yellow)) 238 (fg-orange '(:foreground orange)) 239 (fg-red '(:foreground red)) 240 (fg-magenta '(:foreground magenta)) 241 (fg-violet '(:foreground violet)) 242 (fg-blue '(:foreground blue)) 243 (fg-cyan '(:foreground cyan)) 244 245 (fmt-none `()) 246 (fmt-bold `(:weight ,bold)) 247 (fmt-bldi `(:weight ,bold :slant ,italic)) 248 (fmt-undr `( :underline ,underline)) 249 (fmt-undb `(:weight ,bold :underline ,underline)) 250 (fmt-undi `( :slant ,italic :underline ,underline)) 251 (fmt-uopt `( :underline ,opt-under)) 252 (fmt-curl-red '( :underline (:color red :style wave))) 253 (fmt-curl-violet '( :underline (:color violet :style wave))) 254 (fmt-curl-cyan '( :underline (:color cyan :style wave))) 255 (fmt-curl-yellow '( :underline (:color yellow :style wave))) 256 (fmt-ital `( :slant ,italic)) 257 ;; FIXME: not quite the same 258 (fmt-stnd `( :inverse-video t)) 259 (fmt-revr `( :inverse-video t)) 260 (fmt-revb `(:weight ,bold :inverse-video t)) 261 (fmt-revbb `(:weight ,bright-bold :inverse-video t)) 262 (fmt-revbbu `(:weight ,bright-bold :underline ,underline :inverse-video t))) 263 (mapcar (lambda (face) (apply 'create-face-spec face)) 264 `(;; basic 265 (default (,@fg-base0 ,@bg-back)) ; Normal 266 (cursor (,@fg-base03 ,@bg-base0)) ; Cursor 267 (shadow (,@fg-base01)) 268 (link (,@fmt-undr ,@fg-violet)) ; Underlined 269 (link-visited (,@fmt-undr ,@fg-magenta)) 270 (match (,@fmt-revr ,@fg-yellow)) ; Search 271 (error (,@fmt-revr ,@fg-red)) ; ErrorMsg 272 (warning (,@fmt-bold ,@fg-red)) ; WarningMsg 273 (success (,@fg-blue)) ; MoreMsg 274 (escape-glyph (,@fg-red)) 275 (fringe (,@fg-base01 ,@bg-base02)) 276 (linum (,@fg-base01 ,@bg-base02)) 277 (header-line (,@fg-base0 ,@bg-base02 ,@fmt-revbb)) ; Pmenu 278 (highlight (,@bg-base02)) 279 (hl-line (:underline ,opt-under ,@bg-base02)) ; CursorLine 280 (isearch (,@fmt-stnd ,@fg-orange ,@bg-back)) ; IncSearch 281 (isearch-fail (:inherit error)) ; ErrorMsg 282 (lazy-highlight (:inherit match)) ; Search 283 (menu (,@fg-base0 ,@bg-base02)) 284 (minibuffer-prompt (,@fmt-bold ,@fg-cyan)) ; Question 285 (mode-line ; StatusLine 286 (,@fg-base1 ,@bg-base02 ,@fmt-revbb :box nil)) 287 (mode-line-inactive ; StatusLineNC 288 (,@fg-base00 ,@bg-base02 ,@fmt-revbb :box nil)) 289 (mode-line-buffer-id (,@fmt-bold :inherit mode-line)) 290 (mode-line-buffer-id-inactive (,@fmt-bold :inherit mode-line-inactive)) 291 (region (,@fg-base01 ,@bg-base03 ,@fmt-revbb)) ; Visual 292 (secondary-selection (,@bg-base02)) 293 (shadow (,@fg-base01)) 294 (trailing-whitespace (,@fmt-revr ,@fg-red)) 295 (vertical-border (,@fg-base0)) 296 ;; comint 297 (comint-highlight-prompt (,@fg-blue)) 298 ;; compilation 299 (compilation-info (,@fmt-bold ,@fg-green)) 300 (compilation-warning (,@fmt-bold ,@fg-orange)) 301 ;; custom 302 (custom-button 303 (,@fg-base1 ,@bg-base02 :box (:line-width 2 :style released-button))) 304 (custom-button-mouse 305 (,@fmt-revr ,@fg-base1 ,@bg-base02 :inherit custom-button)) 306 (custom-button-pressed 307 (,@fmt-revr ,@fg-base1 ,@bg-base02 308 :box (:line-width 2 :style pressed-button) 309 :inherit custom-button-mouse)) 310 (custom-changed (,@fmt-revr ,@fg-blue ,@bg-base3)) 311 (custom-comment (,@fg-base1 ,@bg-base02)) 312 (custom-comment-tag (,@fg-base1 ,@bg-base02)) 313 (custom-documentation (:inherit default)) 314 (custom-group-tag (,@fg-base1)) 315 (custom-group-tag-1 (,@fmt-bold ,@fg-base1)) 316 (custom-invalid (,@fmt-revr ,@fg-red ,@bg-back)) 317 (custom-link (,@fg-violet)) 318 (custom-state (,@fg-green)) 319 (custom-variable-tag (,@fg-base1)) 320 ;; diff - DiffAdd, DiffChange, DiffDelete, and DiffText 321 ,@(cl-case solarized-diff-mode 322 (high 323 `((diff-added (,@fmt-revr ,@fg-green)) 324 (diff-changed (,@fmt-revr ,@fg-yellow)) 325 (diff-removed (,@fmt-revr ,@fg-red)) 326 (diff-refine-changed (,@fmt-revr ,@fg-blue ,@bg-back)))) 327 (low 328 `((diff-added (,@fmt-undr ,@fg-green)) 329 (diff-changed (,@fmt-undr ,@fg-yellow)) 330 (diff-removed (,@fmt-bold ,@fg-red)) 331 (diff-refine-changed (,@fmt-undr ,@fg-blue ,@bg-back)))) 332 (normal 333 (if window-system 334 `((diff-added (,@fmt-bold ,@fg-green ,@bg-base02)) 335 (diff-changed (,@fmt-bold ,@fg-yellow ,@bg-base02)) 336 (diff-removed (,@fmt-bold ,@fg-red ,@bg-base02)) 337 (diff-refine-changed (,@fmt-bold ,@fg-blue ,@bg-base02))) 338 `((diff-added (,@fg-green ,@bg-base02)) 339 (diff-changed (,@fg-yellow ,@bg-base02)) 340 (diff-removed (,@fg-red ,@bg-base02)) 341 (diff-refine-changed (,@fg-blue ,@bg-base02)))))) 342 (diff-refine-added (:inherit diff-added ,@fmt-revr)) 343 (diff-refine-removed (:inherit diff-removed ,@fmt-revr)) 344 (diff-file-header (:inherit default ,@fg-blue)) 345 (diff-hunk-header (:inherit default)) 346 (diff-header (,@fg-base1 ,@bg-back)) 347 ;; IDO 348 (ido-only-match (,@fg-green)) 349 (ido-subdir (,@fg-blue)) 350 (ido-first-match (,@fmt-bold ,@fg-green)) 351 ;; emacs-wiki 352 (emacs-wiki-bad-link-face (,@fmt-undr ,@fg-red)) 353 (emacs-wiki-link-face (,@fmt-undr ,@fg-blue)) 354 (emacs-wiki-verbatim-face (,@fmt-undr ,@fg-base00)) 355 ;; eshell 356 (eshell-ls-archive (,@fg-magenta)) 357 (eshell-ls-backup (,@fg-yellow)) 358 (eshell-ls-clutter (,@fg-orange)) 359 (eshell-ls-directory (,@fg-blue)) ; Directory 360 (eshell-ls-executable (,@fg-green)) 361 (eshell-ls-missing (,@fg-red)) 362 (eshell-ls-product (,@fg-yellow)) 363 (eshell-ls-readonly (,@fg-base1)) 364 (eshell-ls-special (,@fg-violet)) 365 (eshell-ls-symlink (,@fg-cyan)) 366 (eshell-ls-unreadable (,@fg-base00)) 367 (eshell-prompt (,@fmt-bold ,@fg-green)) 368 ;; font-lock 369 (font-lock-builtin-face (,@fmt-none ,@fg-green)) ; Statement 370 (font-lock-comment-face (,@fmt-ital ,@fg-base01)) ; Comment 371 (font-lock-constant-face (,@fmt-none ,@fg-cyan)) ; Constant 372 (font-lock-function-name-face ; Identifier 373 (,@fmt-none ,@fg-blue)) 374 (font-lock-keyword-face (,@fmt-none ,@fg-green)) ; Statement 375 (font-lock-string-face (,@fmt-none ,@fg-cyan)) ; Constant 376 (font-lock-type-face (,@fmt-none ,@fg-yellow)) ; Type 377 (font-lock-variable-name-face ; Identifier 378 (,@fmt-none ,@fg-blue)) 379 (font-lock-warning-face (,@fmt-bold ,@fg-red)) ; Error 380 (font-lock-doc-face (,@fmt-ital ,@fg-base01)) ; Comment 381 (font-lock-doc-string-face ; Comment (XEmacs-only) 382 (,@fmt-ital ,@fg-base01)) 383 (font-lock-color-constant-face (,@fmt-none ,@fg-green)) 384 (font-lock-comment-delimiter-face ; Comment 385 (,@fmt-ital ,@fg-base01)) 386 (font-lock-preprocessor-face (,@fmt-none ,@fg-orange)) ; PreProc 387 (font-lock-reference-face (,@fmt-none ,@fg-cyan)) 388 (font-lock-negation-char-face (,@fmt-none ,@fg-red)) 389 (font-lock-other-type-face (,@fmt-ital ,@fg-blue)) 390 (font-lock-regexp-grouping-construct (,@fmt-none ,@fg-orange)) 391 (font-lock-special-keyword-face (,@fmt-none ,@fg-red)) ; Special 392 (font-lock-exit-face (,@fmt-none ,@fg-red)) 393 (font-lock-other-emphasized-face (,@fmt-bldi ,@fg-violet)) 394 (font-lock-regexp-grouping-backslash (,@fmt-none ,@fg-yellow)) 395 ;; info 396 (info-xref (:inherit link)) 397 (info-xref-visited (:inherit link-visited)) 398 ;; org 399 (org-block-background (,@bg-base02)) 400 (org-hide (,@fg-base03)) 401 (org-todo (,@fmt-bold ,@fg-base03 ,@bg-red)) 402 (org-done (,@fmt-bold ,@fg-green)) 403 (org-todo-kwd-face (,@fmt-bold ,@fg-base03 ,@bg-red)) 404 (org-done-kwd-face (,@fmt-bold ,@fg-green)) 405 (org-project-kwd-face (,@fg-violet ,@bg-base03)) 406 (org-waiting-kwd-face (,@fg-orange ,@bg-base03)) 407 (org-someday-kwd-face (,@fg-blue ,@bg-base03)) 408 (org-started-kwd-face (,@fg-yellow ,@bg-base03)) 409 (org-cancelled-kwd-face (,@fg-green ,@bg-base03)) 410 (org-delegated-kwd-face (,@fg-cyan ,@bg-base03)) 411 (org-default (:inherit default)) 412 (org-level-1 (:inherit outline-1)) 413 (org-level-2 (:inherit outline-2)) 414 (org-level-3 (:inherit outline-3)) 415 (org-level-4 (:inherit outline-4)) 416 (org-level-5 (:inherit outline-5)) 417 (org-level-6 (:inherit outline-6)) 418 (org-level-7 (:inherit outline-7)) 419 (org-level-8 (:inherit outline-8)) 420 (org-special-keyword (,@fmt-ital ,@fg-base01)) 421 (org-drawer (,@fmt-bold ,@fg-blue)) 422 (org-column (,@fmt-revr ,@fg-cyan)) 423 (org-column-title (,@fmt-bold ,@fmt-revr)) 424 (org-warning (,@fmt-bold ,@fg-red)) 425 (org-archived (,@fg-base01)) 426 (org-link (,@fmt-undr ,@fg-violet)) 427 (org-footnote (,@fmt-undr ,@fg-violet)) 428 (org-ellipses (,@fg-yellow :strike-through t) ) 429 (org-target (,@fmt-undr)) 430 (org-date (,@fmt-undr ,@fg-violet)) 431 (org-date-selected (,@fmt-revr ,@fg-red)) 432 (org-sexp-date (,@fmt-undr ,@fg-violet)) 433 (org-tag (,@fmt-bold)) 434 (org-list-dt (,@fmt-bold)) 435 (org-agenda-done (,@fg-green)) 436 (org-headline-done (,@fg-base01)) 437 (org-priority (,@fmt-ital ,@fg-base01)) 438 (org-checkbox (,@fmt-bold)) 439 (org-table (,@fg-cyan)) 440 (org-formula (:weight bold :slant italic ,@fg-red)) 441 (org-code (,@fg-base01)) 442 (org-document-title (,@fmt-bold ,@fg-cyan)) 443 (org-document-info (,@fg-cyan)) 444 (org-document-info-keyword (,@fg-base01)) 445 (org-block (,@fg-base01)) 446 (org-verbatim (,@fmt-undr ,@fg-base01)) 447 (org-clock-overlay (,@fmt-revr ,@bg-cyan ,@fg-base03)) 448 (org-agenda-structure (,@fmt-bold ,@fg-blue)) 449 (org-scheduled (:weight bold :slant italic ,@fg-green)) 450 (org-scheduled-today (:weight bold :slant italic ,@fg-green)) 451 (org-agenda-dimmed-todo-face (,@fg-base00)) 452 (org-scheduled-previously (,@fmt-bold ,@fg-red)) 453 (org-upcoming-deadline (,@fmt-bold ,@fg-red)) 454 (org-agenda-restriction-lock (,@fmt-revr ,@fg-base03 ,@bg-cyan)) 455 (org-time-grid (,@fg-yellow)) 456 (org-latex-and-related(,@fg-orange)) 457 ;; table 458 (table-cell (,@fmt-none ,@fg-base0 ,@bg-back)) 459 ;; outline - pandocBlockQuoteLeader[1–6] 460 (outline-1 (,@fg-blue)) 461 (outline-2 (,@fg-cyan)) 462 (outline-3 (,@fg-yellow)) 463 (outline-4 (,@fg-red)) 464 (outline-5 (,@fg-base0)) 465 (outline-6 (,@fg-base01)) 466 (outline-7 (,@fg-orange)) 467 (outline-8 (,@fg-violet)) 468 ;; show-paren - MatchParen 469 (show-paren-match (,@fmt-bold ,@fg-cyan ,@bg-base02)) 470 (show-paren-mismatch (,@fmt-bold ,@fg-red ,@bg-base01)) 471 ;; speedbar 472 ;; (speedbar-button-face (,@fmt-none ,@fg-base1)) 473 (speedbar-button-face 474 (,@fg-base1 ,@bg-base02 475 :box (:line-width 2 :style released-button))) 476 (speedbar-directory-face (,@fmt-none ,@fg-blue)) 477 (speedbar-file-face (,@fmt-none ,@fg-green)) 478 ;; (speedbar-highlight-face (,@bg-base02)) 479 (speedbar-highlight-face 480 (,@fmt-revr ,@fg-base1 ,@bg-base02 481 :inherit speedbar-button-face)) 482 ;; (speedbar-selected-face (,@fmt-undr ,@fg-yellow)) 483 (speedbar-selected-face (,@fmt-none ,@bg-base02 ,@fg-green)) 484 (speedbar-separator-face (,@fmt-stnd)) 485 (speedbar-tag-face (,@fmt-none ,@fg-blue)) 486 ;; widgets 487 (widget-field 488 (,@fg-base1 ,@bg-base02 :box (:line-width 1 :color base2) 489 :inherit default)) 490 (widget-single-line-field (:inherit widget-field)) 491 ;; extra modules 492 ;; ------------- 493 ;; alert 494 (alert-urgent (,@fg-red)) 495 (alert-high (,@fg-orange)) 496 (alert-moderate (,@fg-yellow)) 497 (alert-normal (,@fg-green)) 498 (alert-low (,@fg-blue)) 499 (alert-trivial (,@fg-violet)) 500 ;; col-highlight -- Highlight the current column. 501 ;; http://www.emacswiki.org/emacs/col-highlight.el 502 (col-highlight (,@bg-base02)) 503 ;; ace-jump-mode 504 (ace-jump-face-background (,@fmt-none ,@fg-base01)) 505 (ace-jump-face-foreground (,@fmt-bold ,@fg-red)) 506 ;; bm visual bookmarks 507 (bm-face ((t (,@bg-orange ,@fg-base03)))) 508 (bm-fringe-face ((t (,@bg-orange ,@fg-base03)))) 509 (bm-fringe-persistent-face ((t (,@bg-blue ,@fg-base03)))) 510 (bm-persistent-face ((t (,@bg-blue ,@fg-base03)))) 511 ;; Flymake 512 (flymake-errline (,@fmt-bold ,@fg-red)) ; Error 513 (flymake-warnline (,@fmt-bold ,@fg-red)) 514 ;; column-marker 515 (column-marker-1 (,@bg-base01)) 516 (column-marker-2 (,@bg-cyan)) 517 (column-marker-3 (,@bg-violet)) 518 ;; jabber 519 (jabber-activity-face (,@fmt-bold ,@fg-red)) 520 (jabber-activity-personal-face (,@fmt-bold ,@fg-blue)) 521 (jabber-chat-error (,@fmt-bold ,@fg-red)) 522 (jabber-chat-prompt-foreign (,@fmt-bold ,@fg-red)) 523 (jabber-chat-prompt-local (,@fmt-bold ,@fg-blue)) 524 (jabber-chat-prompt-system (,@fmt-bold ,@fg-green)) 525 (jabber-chat-text-foreign (,@fg-base1)) 526 (jabber-chat-text-local (,@fg-base0)) 527 (jabber-chat-rare-time-face (,@fmt-undr ,@fg-green)) 528 (jabber-roster-user-away (,@fmt-ital ,@fg-green)) 529 (jabber-roster-user-chatty (,@fmt-bold ,@fg-orange)) 530 (jabber-roster-user-dnd (,@fmt-ital ,@fg-red)) 531 (jabber-roster-user-error 532 (:weight light :slant italic ,@fg-red)) 533 (jabber-roster-user-offline (,@fg-base01)) 534 (jabber-roster-user-online (,@fmt-bold ,@fg-blue)) 535 (jabber-roster-user-xa (,@fmt-ital ,@fg-magenta)) 536 ;; git-gutter 537 (git-gutter:modified (,@fg-violet)) 538 (git-gutter:added (,@fg-green)) 539 (git-gutter:deleted (,@fg-red)) 540 ;; gnus - these are mostly taken from mutt, not VIM 541 (gnus-cite-1 (:inherit outline-1)) 542 (gnus-cite-2 (:inherit outline-2)) 543 (gnus-cite-3 (:inherit outline-3)) 544 (gnus-cite-4 (:inherit outline-4)) 545 (gnus-cite-5 (:inherit outline-5)) 546 (gnus-cite-6 (:inherit outline-6)) 547 (gnus-cite-7 (:inherit outline-7)) 548 (gnus-cite-8 (:inherit outline-8)) 549 (gnus-cite-9 (,@fg-green)) 550 (gnus-cite-10 (,@fg-magenta)) 551 (gnus-cite-11 (,@fg-base02)) 552 (gnus-group-mail-1 (,@fmt-bold ,@fg-base3)) 553 (gnus-group-mail-1-empty (,@fg-base3)) 554 (gnus-group-mail-2 (,@fmt-bold ,@fg-base2)) 555 (gnus-group-mail-2-empty (,@fg-base2)) 556 (gnus-group-mail-3 (,@fmt-bold ,@fg-magenta)) 557 (gnus-group-mail-3-empty (,@fg-magenta)) 558 (gnus-group-mail-low (,@fmt-bold ,@fg-base00)) 559 (gnus-group-mail-low-empty (,@fg-base00)) 560 (gnus-group-news-1 (,@fmt-bold ,@fg-base1)) 561 (gnus-group-news-1-empty (,@fg-base1)) 562 (gnus-group-news-2 (,@fmt-bold ,@fg-blue)) 563 (gnus-group-news-2-empty (,@fg-blue)) 564 (gnus-group-news-low (,@fmt-bold ,@fg-violet)) 565 (gnus-group-news-low-empty (,@fg-violet)) 566 (gnus-emphasis-highlight-words ; highlight 567 (,@fmt-none ,fg-yellow)) 568 (gnus-header-content (,@fmt-none ,@fg-base01)) ; hdrdefault 569 (gnus-header-from (,@fmt-none ,@fg-base00)) ; header ^From 570 (gnus-header-name (,@fmt-none ,@fg-base01)) ; hdrdefault 571 (gnus-header-newsgroups (,@fmt-none ,@fg-base02)) ; hdrdefault 572 (gnus-header-subject (,@fmt-none ,@fg-blue)) ; header ^Subject 573 (gnus-server-agent (,@fmt-bold ,@fg-base3)) 574 (gnus-server-closed (,@fmt-ital ,@fg-base1)) 575 (gnus-server-denied (,@fmt-bold ,@fg-base2)) 576 (gnus-server-offline (,@fmt-bold ,@fg-green)) 577 (gnus-server-opened (,@fmt-bold ,@fg-cyan)) 578 (gnus-signature (,@fmt-none ,@fg-base01)) ; signature 579 (gnus-splash (,@fg-base2)) 580 (gnus-summary-cancelled ; deleted messages 581 (,@fmt-none ,@fg-red)) 582 (gnus-summary-high-ancient 583 (,@fmt-bold :inherit gnus-summary-normal-ancient)) 584 (gnus-summary-high-read 585 (,@fmt-bold :inherit gnus-summary-normal-read)) 586 (gnus-summary-high-ticked 587 (,@fmt-bold :inherit gnus-summary-normal-ticked)) 588 (gnus-summary-high-undownloaded 589 (,@fmt-bold :inherit gnus-summary-normal-undownloaded)) 590 (gnus-summary-high-unread 591 (,@fmt-bold :inherit gnus-summary-normal-unread)) 592 (gnus-summary-low-ancient 593 (,@fmt-ital :inherit gnus-summary-normal-ancient)) 594 (gnus-summary-low-read 595 (,@fmt-ital :inherit gnus-summary-normal-ancient)) 596 (gnus-summary-low-unread 597 (,@fmt-ital :inherit gnus-summary-normal-unread)) 598 (gnus-summary-low-ticked 599 (,@fmt-ital :inherit gnus-summary-normal-ancient)) 600 (gnus-summary-low-undownloaded 601 (,@fmt-ital :inherit gnus-summary-normal-ancient)) 602 (gnus-summary-normal-ancient ; old messages 603 (,@fmt-none ,@fg-blue)) 604 (gnus-summary-normal-read ; read messages 605 (,@fmt-none ,@fg-base01)) 606 (gnus-summary-normal-ticked (,@fmt-none ,@fg-red)) ; flagged 607 (gnus-summary-normal-undownloaded (,@fmt-none ,@fg-base2)) 608 (gnus-summary-normal-unread ; unread messages 609 (,@fmt-none ,@fg-blue)) 610 (gnus-summary-selected ; indicator 611 (,@fmt-none ,@fg-base03 ,@bg-yellow)) 612 ;;helm 613 (helm-apt-deinstalled (,@fg-base01)) 614 (helm-apt-installed (,@fg-green)) 615 (helm-bookmark-addressbook (,@fg-blue)) 616 (helm-bookmark-directory (:inherit helm-ff-directory)) 617 (helm-bookmark-file (:inherit helm-ff-file)) 618 (helm-bookmark-gnus (,@fg-cyan)) 619 (helm-bookmark-info (,@fg-green)) 620 (helm-bookmark-man (,@fg-violet)) 621 (helm-bookmark-w3m (,@fg-yellow)) 622 (helm-bookmarks-su (,@fg-orange)) 623 (helm-buffer-not-saved (,@fg-orange)) 624 (helm-buffer-process (,@fg-magenta)) 625 (helm-buffer-saved-out (,@fmt-revr ,@fg-red ,@bg-back)) 626 (helm-buffer-size (,@fg-base01)) 627 (helm-candidate-number (,@fmt-bold ,@bg-base02 ,@fg-base1)) 628 (helm-emms-playlist (,@fmt-none ,@fg-base01)) 629 (helm-etags+-highlight-face (:inherit highlight)) 630 (helm-ff-directory (,@bg-back ,@fg-blue)) 631 (helm-ff-executable (,@fmt-bold ,@fg-green)) 632 (helm-ff-file (:inherit default)) 633 (helm-ff-invalid-symlink (,@bg-base02 ,@fg-red)) 634 (helm-ff-prefix (,@fmt-revr ,@fg-yellow)) 635 (helm-ff-symlink (,@fmt-bold ,@fg-cyan)) 636 (helm-gentoo-match (:inherit helm-match)) 637 (helm-grep-cmd-line (:inherit diff-added)) 638 (helm-grep-file (,@fmt-undr ,@fg-cyan)) 639 (helm-grep-finish (,@fg-green)) 640 (helm-grep-lineno (,@fg-orange)) 641 (helm-grep-match (:inherit helm-match)) 642 (helm-grep-running (,@fg-red)) 643 (helm-helper (:inherit helm-header)) 644 (helm-history-deleted (:inherit helm-ff-invalid-symlink)) 645 (helm-history-remote (,@fg-red)) 646 (helm-lisp-completion-info (,@fg-base0)) 647 (helm-lisp-show-completion (,@fmt-bold ,@fg-yellow ,@bg-base02)) 648 (helm-ls-git-added-copied-face (,@fg-green)) 649 (helm-ls-git-conflict-face (,@fmt-bold ,@fg-red)) 650 (helm-ls-git-deleted-and-staged-face (,@fmt-ital ,@fg-base01)) 651 (helm-ls-git-deleted-not-staged-face (,@fmt-bold ,@fg-green)) 652 (helm-ls-git-modified-and-staged-face (,@fmt-ital ,@fg-base01)) 653 (helm-ls-git-modified-not-staged-face (,@fmt-ital ,@fg-base01)) 654 (helm-ls-git-renamed-modified-face (,@fg-green)) 655 (helm-ls-git-untracked-face (,@fg-red)) 656 (helm-M-x-key (,@fmt-none ,@fg-orange)) 657 (helm-match (:inherit match)) 658 (helm-moccur-buffer (,@fmt-undr ,@fg-cyan)) 659 (helm-selection (:inherit region)) 660 (helm-selection-line (:inherit secondary-selection)) 661 (helm-separator (,@fg-red)) 662 (helm-source-header (:inherit helm-header)) 663 (helm-time-zone-current (,@fg-green)) 664 (helm-time-zone-home (,@fg-red)) 665 (helm-visible-mark (,@fmt-bold ,@bg-back ,@fg-magenta)) 666 (helm-w3m-bookmarks (:inherit helm-bookmark-w3m)) 667 ;; markdown 668 (markdown-bold-face (:inherit bold)) 669 (markdown-header-delimiter-face (:inherit shadow)) 670 (markdown-header-face (:inherit outline-1)) 671 (markdown-header-face-1 (:inherit outline-1)) 672 (markdown-header-face-2 (:inherit outline-2)) 673 (markdown-header-face-3 (:inherit outline-3)) 674 (markdown-header-face-4 (:inherit outline-4)) 675 (markdown-header-face-5 (:inherit outline-5)) 676 (markdown-header-face-6 (:inherit outline-6)) 677 (markdown-header-rule-face (:inherit shadow)) 678 (markdown-italic-face (:inherit italic)) 679 (markdown-link-face (:inherit shadow)) 680 (markdown-link-title-face (:inherit link)) 681 (markdown-url-face (:inherit link)) 682 ;; Message 683 (message-mml (,@fg-blue)) 684 (message-cited-text (,@fg-base2)) 685 (message-separator (,@fg-base3)) 686 (message-header-xheader (,@fg-violet)) 687 (message-header-name (,@fg-cyan)) 688 (message-header-other (,@fg-red)) 689 (message-header-newsgroups (,@fmt-bldi ,@fg-yellow)) 690 (message-header-subject (,@fg-base00)) 691 (message-header-cc (,@fmt-bold ,@fg-green)) 692 (message-header-to (,@fmt-bold ,@fg-base1)) 693 ;; minimap 694 (minimap-active-region-background (,@bg-base02)) 695 (minimap-semantic-function-face (,bg-base3)) 696 (minimap-semantic-type-face (,bg-base3)) 697 (minimap-semantic-variable-face (,bg-base3)) 698 ;; parenface 699 (parenface-bracket-face (:inherit shadow)) 700 (parenface-curly-face (:inherit shadow)) 701 (parenface-paren-face (:inherit shadow)) 702 ;; paren-face 703 (parenthesis (:inherit shadow)) 704 ;; rainbow-delimiters 705 (rainbow-delimiters-depth-1-face (:inherit outline-1)) 706 (rainbow-delimiters-depth-2-face (:inherit outline-2)) 707 (rainbow-delimiters-depth-3-face (:inherit outline-3)) 708 (rainbow-delimiters-depth-4-face (:inherit outline-4)) 709 (rainbow-delimiters-depth-5-face (:inherit outline-5)) 710 (rainbow-delimiters-depth-6-face (:inherit outline-6)) 711 (rainbow-delimiters-depth-7-face (:inherit outline-7)) 712 (rainbow-delimiters-depth-8-face (:inherit outline-8)) 713 (rainbow-delimiters-depth-9-face (,@fg-green)) 714 ;; powerline 715 (powerline-active1 (,@fg-base00 :inherit mode-line)) 716 (powerline-active2 (,@fg-base0 :inherit mode-line)) 717 (powerline-inactive1 (,@fg-base02 ,@bg-base1 :inherit mode-line-inactive)) 718 (powerline-inactive2 (,@fg-base01 :inherit mode-line-inactive)) 719 ;; slime 720 (slime-error-face (,@fmt-revr ,@fg-red)) ; ErrorMsg 721 (slime-note-face (,@fg-yellow)) 722 (slime-repl-inputted-output-face (,@fg-red)) 723 (slime-repl-output-mouseover-face (:box (:color base3))) 724 (slime-style-warning-face (,@fmt-bold ,@fg-orange)) 725 (slime-warning-face (,@fmt-bold ,@fg-red)) ; WarningMsg 726 ;; smartparens 727 (sp-pair-overlay-face (,@bg-base02)) 728 (sp-wrap-overlay-face (,@bg-base02)) 729 (sp-wrap-tag-overlay-face (,@bg-base02)) 730 (sp-show-pair-match-face (,@fg-magenta ,@bg-back)) 731 (sp-show-pair-mismatch-face (,@bg-red ,@fg-base02)) 732 ;; whitespace 733 (whitespace-empty (,@fg-red)) 734 (whitespace-hspace (,@fg-orange)) 735 (whitespace-indentation (,@fg-base02)) 736 (whitespace-space (,@fg-base02)) 737 (whitespace-space-after-tab (,@fg-cyan)) 738 (whitespace-space-before-tab (,@fmt-bold ,@fg-red)) 739 (whitespace-tab (,@fg-base02)) 740 (whitespace-trailing (,@fmt-bold ,@fg-red ,@bg-base02)) 741 (whitespace-highlight-face (,@fg-red ,@bg-blue)) 742 (whitespace-line (,@fg-magenta)) 743 (whitespace-newline (:inherit shadow :slant normal)) 744 ;; writegood 745 (writegood-weasels-face (,@fmt-curl-cyan ,@fg-cyan)) 746 (writegood-passive-voice-face (,@fg-magenta)) 747 (writegood-duplicates-face (:inherit error)) 748 ;; rcirc 749 (rcirc-my-nick (,@fg-blue)) 750 (rcirc-nick-in-message (,@fg-orange)) 751 (rcirc-other-nick (,@fg-green)) 752 (rcirc-prompt (,@fg-yellow)) 753 (rcirc-bright-nick (,@fg-magenta)) 754 (rcirc-server (,@fg-base1)) 755 (rcirc-timestamp (,@fg-base01)) 756 ;;font-latex 757 (font-latex-warning-face (,@fg-red)) 758 (font-latex-sectioning-5-face (,@fg-violet)) 759 ;;flyspell 760 (flyspell-incorrect (,@fmt-curl-red)) ; SpellBad 761 (flyspell-duplicate (,@fmt-curl-yellow)) 762 ;; rst-mode 763 (rst-level-1 (:inherit outline-1)) 764 (rst-level-2 (:inherit outline-2)) 765 (rst-level-3 (:inherit outline-3)) 766 (rst-level-4 (:inherit outline-4)) 767 (rst-level-5 (:inherit outline-5)) 768 (rst-level-6 (:inherit outline-6)) 769 ;;ansi-color 770 (ansi-color-cyan (,@fg-cyan ,@bg-cyan)) 771 (ansi-color-blue (,@fg-blue ,@bg-blue)) 772 (ansi-color-magenta (,@fg-magenta ,@bg-magenta)) 773 (ansi-color-red (,@fg-red ,@bg-red)) 774 (ansi-color-yellow (,@fg-yellow ,@bg-yellow)) 775 (ansi-color-green (,@fg-green ,@bg-green)) 776 (ansi-color-black (,@fg-base02 ,@bg-base02)) 777 (ansi-color-white (,@fg-base2 ,@bg-base2)) 778 (ansi-color-bright-cyan (,@fg-base1 ,@bg-base1)) 779 (ansi-color-bright-blue (,@fg-base0 ,@bg-base0)) 780 (ansi-color-bright-magenta (,@fg-violet ,@bg-violet)) 781 (ansi-color-bright-red (,@fg-orange ,@bg-orange)) 782 (ansi-color-bright-yellow (,@fg-base00 ,@bg-base00)) 783 (ansi-color-bright-green (,@fg-base01 ,@bg-base01)) 784 (ansi-color-bright-black (,@fg-base03 ,@bg-base03)) 785 (ansi-color-bright-white (,@fg-base3 ,@bg-base3)) 786 ;; company 787 (company-tooltip (,@fg-base00 ,@bg-base02)) 788 (company-tooltip-selection (,@fg-green ,@bg-base02)) 789 (company-tooltip-mouse (,@fg-base1 ,@bg-base02)) 790 (company-tooltip-common (,@fg-blue ,@bg-base02 ,@fmt-undr)) 791 (company-tooltip-common-selection (,@fg-green ,@bg-base02 ,@fmt-undr)) 792 (company-tooltip-annotation (,@fg-yellow ,@bg-base02)) 793 (company-scrollbar-fg (,@bg-base0)) 794 (company-scrollbar-bg (,@bg-base02)) 795 (company-preview (,@bg-green)) 796 (company-preview-common (,@fg-base01 ,@bg-base02)) 797 (company-template-field (,@fg-base03 ,@bg-yellow)) 798 ;; hydra 799 (hydra-face-red (,@fmt-bold ,@fg-red)) 800 (hydra-face-blue (,@fmt-bold ,@fg-blue)) 801 (hydra-face-amaranth (,@fmt-bold ,@fg-orange)) 802 (hydra-face-pink (,@fmt-bold ,@fg-magenta)) 803 (hydra-face-teal (,@fmt-bold ,@fg-cyan)) 804 ;; guide-key 805 (guide-key/prefix-command-face (,@fg-blue)) 806 (guide-key/highlight-command-face (,@fg-orange)) 807 (guide-key/key-face (,@fg-green)) 808 ;; magit 809 (magit-log-sha1 (,@fg-red)) 810 (magit-branch (,@fg-yellow)) 811 (magit-tag (,@fg-green)) 812 (magit-log-author (,@fg-cyan)) 813 (magit-log-head-label-remote (,@fg-green)) 814 (magit-log-head-label-tags (,@fg-orange)) 815 (magit-log-head-label-local (,@fg-yellow)) 816 (magit-log-head-label-head (,@fg-violet)) 817 (magit-process-ok (,@fg-green :inherit magit-section-title)) 818 (magit-process-ng (,@fg-red :inherit magit-section-title)) 819 ;; undo-tree 820 (undo-tree-visualizer-current-face (,@fg-orange)) 821 (undo-tree-visualizer-default-face (:inherit shadow)) 822 (undo-tree-visualizer-active-branch-face (:inherit default)) 823 (undo-tree-visualizer-unmodified-face (,@fg-cyan)) 824 (undo-tree-visualizer-register-face (,@fg-yellow)) 825 ;; haskell 826 (haskell-keyword-face (,@fg-cyan))))))) 827 828 (provide 'solarized-definitions) 829 ;;; solarized-definitions.el ends here