emacs之配置4，颜色插件

来自https://github.com/oneKelvinSmith/monokai-emacs/blob/master/monokai-theme.el
monokai-theme.el
   1 ;;; monokai-theme.el --- A fruity color theme for Emacs.
   2 
   3 ;; Copyright (C) 2011-2013
   4 
   5 ;; Author: Kelvin Smith <oneKelvinSmith@gmail.com>
   6 ;; URL: http://github.com/oneKelvinSmith/monokai-emacs
   7 ;; Version: 0.1.3
   8 
   9 ;; This program is free software; you can redistribute it and/or modify
  10 ;; it under the terms of the GNU General Public License as published by
  11 ;; the Free Software Foundation, either version 3 of the License, or
  12 ;; (at your option) any later version.
  13 
  14 ;; This program is distributed in the hope that it will be useful,
  15 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17 ;; GNU General Public License for more details.
  18 
  19 ;; You should have received a copy of the GNU General Public License
  20 ;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
  21 
  22 ;;; Commentary:
  23 ;;
  24 ;; A port of the popular Textmate theme Monokai for Emacs 24, built on top
  25 ;; of the new built-in theme support in Emacs 24.
  26 ;;
  27 ;;; Credits:
  28 ;;
  29 ;; Wimer Hazenberg created the original theme.
  30 ;; - http://www.monokai.nl/blog/2006/07/15/textmate-color-theme/
  31 ;;
  32 ;; Bozhidar Batsov created zenburn-theme.el on which this file is based.
  33 ;; - https://github.com/bbatsov/zenburn-emacs
  34 ;;
  35 ;; Color Scheme Designer 3 for complementary colours.
  36 ;; - http://colorschemedesigner.com/
  37 ;;
  38 ;; K. Adam Christensen for his person monokai theme that addresses 256 colors.
  39 ;; - https://github.com/pope/personal/blob/master/etc/emacs.d/monokai-theme.el
  40 
  41 ;;; Code:
  42 
  43 (unless (>= 24 emacs-major-version)
  44   (error "The monokai theme requires Emacs 24 or later!"))
  45 
  46 (deftheme monokai "The Monokai color theme")
  47 
  48 ;;; Color Palette
  49 
  50 (defvar monokai-colors
  51   '((((class color) (min-colors 65535))
  52      (monokai-bg-1      . "#171A0B")
  53      (monokai-bg        . "#272822")
  54      (monokai-bg+1      . "#3E3D31")
  55      (monokai-bg+2      . "#49483E")
  56      (monokai-red-1     . "#A20C41")
  57      (monokai-red       . "#F92672")
  58      (monokai-red+1     . "#FC5C94")
  59      (monokai-red+2     . "#FC87B0")
  60      (monokai-green-1   . "#67930F")
  61      (monokai-green     . "#A6E22E")
  62      (monokai-green+1   . "#C1F161")
  63      (monokai-green+2   . "#CDF187")
  64      (monokai-orange-1  . "#A45E0A")
  65      (monokai-orange    . "#FD971F")
  66      (monokai-orange+1  . "#FEB257")
  67      (monokai-orange+2  . "#FEC683")
  68      (monokai-yellow-1  . "#968B26")
  69      (monokai-yellow    . "#E6DB74")
  70      (monokai-yellow+1  . "#F3EA98")
  71      (monokai-yellow+2  . "#F3ECB0")
  72      (monokai-blue-1    . "#21889B")
  73      (monokai-blue      . "#66D9EF")
  74      (monokai-blue+1    . "#8DE6F7")
  75      (monokai-blue+2    . "#A9EBF7")
  76      (monokai-purple-1  . "#562AA6")
  77      (monokai-purple    . "#AE81FF")
  78      (monokai-purple+1  . "#C2A1FF")
  79      (monokai-purple+2  . "#D2BAFF")
  80      (monokai-magenta-1 . "#A41F99")
  81      (monokai-magenta   . "#FD5FF0")
  82      (monokai-magenta+1 . "#FE87F4")
  83      (monokai-magenta+2 . "#FEA7F7")
  84      (monokai-cyan-1    . "#349B8D")
  85      (monokai-cyan      . "#A1EFE4")
  86      (monokai-cyan+1    . "#BBF7EF")
  87      (monokai-cyan+2    . "#CBF7F1")
  88      (monokai-fg-1      . "#75715E")
  89      (monokai-fg        . "#F8F8F2")
  90      (monokai-fg+1      . "#F8F8F0"))
  91     (t
  92      (monokai-bg-1      . "#141414")
  93      (monokai-bg        . "#1B1E1C")
  94      (monokai-bg+1      . "#212121")
  95      (monokai-bg+2      . "#303030")
  96      (monokai-red-1     . "#5F0000")
  97      (monokai-red       . "#FF1493")
  98      (monokai-red+1     . "#EE6AA7")
  99      (monokai-red+2     . "#FF82AB")
 100      (monokai-green-1   . "#6B8E23")
 101      (monokai-green     . "#87D700")
 102      (monokai-green+1   . "#B3EE3A")
 103      (monokai-green+2   . "#CCFF99")
 104      (monokai-orange-1  . "#A0522D")
 105      (monokai-orange    . "#FF8C00")
 106      (monokai-orange+1  . "#FFA54F")
 107      (monokai-orange+2  . "#FFD39B")
 108      (monokai-yellow-1  . "#968B26")
 109      (monokai-yellow    . "#CDC673")
 110      (monokai-yellow+1  . "#FFF68F")
 111      (monokai-yellow+2  . "#F3ECB0")
 112      (monokai-blue-1    . "#21889B")
 113      (monokai-blue      . "#5FD7FF")
 114      (monokai-blue+1    . "#8DE6F7")
 115      (monokai-blue+2    . "#A9EBF7")
 116      (monokai-purple-1  . "#562AA6")
 117      (monokai-purple    . "#AF87FF")
 118      (monokai-purple+1  . "#C2A1FF")
 119      (monokai-purple+2  . "#D2BAFF")
 120      (monokai-magenta-1 . "#A41F99")
 121      (monokai-magenta   . "#D700D7")
 122      (monokai-magenta+1 . "#FE87F4")
 123      (monokai-magenta+2 . "#FEA7F7")
 124      (monokai-cyan-1    . "#349B8D")
 125      (monokai-cyan      . "#5FFFFF")
 126      (monokai-cyan+1    . "#AFEEEE")
 127      (monokai-cyan+2    . "#CBF7F1")
 128      (monokai-fg-1      . "#8B8878")
 129      (monokai-fg        . "#F5F5F5")
 130      (monokai-fg+1      . "#FFFAFA")))
 131   "List of Monokai colors.
 132 Each element has the form (NAME . HEX).
 133 
 134 `+N' suffixes indicate a color is lighter.
 135 `-N' suffixes indicate a color is darker.")
 136 
 137 
 138 (defun monokai-expand-face (face)
 139   "Expands the simple `FACE' declaration with the color conditions."
 140   (let ((spec (car face))
 141         (props (cadr face)))
 142     (list spec (mapcar
 143                 #'(lambda (entry)
 144                     (let ((color-condition (car entry)))
 145                       (list color-condition
 146                             (monokai-expand-colors (cdr entry) props))))
 147                 monokai-colors))))
 148 
 149 (defun monokai-expand-colors (color-alist props)
 150   "Expand colors in `COLOR-ALIST' onto `PROPS'."
 151   (let ((result '()))
 152     (while (car props)
 153       (let ((key (car props))
 154             (val (cadr props)))
 155         (if (memq key '(:foreground :background :color))
 156             (setq val (or (cdr (assq val color-alist)) val)))
 157         (if (listp val)
 158             (setq val (monokai-expand-colors entry val)))
 159         (setq result (append result `(,key ,val))))
 160       (setq props (cddr props)))
 161     result))
 162 
 163 (defun monokai-theme-set-faces (theme &rest faces)
 164   "Set the `THEME' `FACES' to monokai colors."
 165   (apply 'custom-theme-set-faces
 166          (append (list theme)
 167                  (mapcar 'monokai-expand-face faces))))
 168 
 169 ;;; Theme Faces
 170 (monokai-theme-set-faces
 171  'monokai
 172 ;;;; Built-in
 173 ;;;;; basic coloring
 174  '(button
 175    (:underline t))
 176 
 177  '(link
 178    (:foreground monokai-blue
 179                 :underline t :weight bold))
 180 
 181  '(link-visited
 182    (:foreground monokai-purple
 183                 :underline t
 184                 :weight normal))
 185 
 186  '(default
 187     (:foreground monokai-fg
 188                  :background monokai-bg))
 189 
 190  '(cursor
 191    (:foreground monokai-bg-1
 192                 :background monokai-fg))
 193 
 194  '(escape-glyph
 195    (:foreground monokai-fg-1
 196                 :bold t))
 197 
 198  '(fringe
 199    (:foreground monokai-fg
 200                 :background monokai-bg))
 201 
 202  '(header-line
 203    (:foreground monokai-fg-1
 204                 :background monokai-bg-1
 205                 :box (:line-width -1 :style released-button)))
 206 
 207  '(highlight
 208    (:foreground monokai-fg+1
 209                 :background monokai-bg+2))
 210 
 211  '(success
 212    (:foreground monokai-green
 213                 :weight bold))
 214 
 215  '(warning
 216    (:foreground monokai-yellow-1
 217                 :weight bold))
 218 
 219  '(menu
 220    (:foreground monokai-fg
 221                 :background monokai-bg))
 222 
 223  '(minibuffer-prompt
 224    (:foreground monokai-blue))
 225 
 226  '(mode-line
 227    (:foreground monokai-fg
 228                 :background monokai-bg+2
 229                 :box (:line-width -1 :style released-button)))
 230 
 231 
 232  '(mode-line-buffer-id
 233    (:foreground monokai-green
 234                 :weight bold))
 235 
 236  '(mode-line-inactive
 237    (:foreground monokai-bg+2
 238                 :background monokai-bg
 239                 :box (:line-width -1 :style released-button)))
 240 
 241  '(region
 242    (:background monokai-bg+2))
 243 
 244  '(secondary-selection
 245    (:background monokai-bg+2))
 246 
 247  '(trailing-whitespace
 248    (:background monokai-red))
 249 
 250  '(vertical-border
 251    (:foreground monokai-bg+2))
 252 
 253 ;;;;; compilation
 254  '(compilation-column-face
 255    (:foreground monokai-yellow))
 256 
 257  '(compilation-enter-directory-face
 258    (:foreground monokai-green))
 259 
 260  '(compilation-error-face
 261    (:foreground monokai-red
 262                 :weight bold
 263                 :underline t))
 264 
 265  '(compilation-face
 266    (:foreground monokai-fg))
 267 
 268  '(compilation-info-face
 269    (:foreground monokai-blue))
 270 
 271  '(compilation-info
 272    (:foreground monokai-purple
 273                 :underline t))
 274 
 275  '(compilation-leave-directory-face
 276    (:foreground monokai-green))
 277 
 278  '(compilation-line-face
 279    (:foreground monokai-bg+2))
 280 
 281  '(compilation-line-number
 282    (:foreground monokai-bg+2))
 283 
 284  '(compilation-message-face
 285    (:foreground monokai-blue))
 286 
 287  '(compilation-warning-face
 288    (:foreground monokai-yellow-1
 289                 :weight bold
 290                 :underline t))
 291 
 292 ;;;;; grep
 293  '(grep-context-face
 294    (:foreground monokai-fg))
 295 
 296  '(grep-error-face
 297    (:foreground monokai-red
 298                 :weight bold
 299                 :underline t))
 300 
 301  '(grep-hit-face
 302    (:foreground monokai-magenta))
 303 
 304  '(grep-match-face
 305    (:foreground monokai-orange
 306                 :weight bold))
 307 
 308  '(match
 309    (:foreground monokai-green
 310                 :background monokai-bg-1
 311                 :weight bold))
 312 
 313 ;;;;; isearch
 314  '(isearch
 315    (:foreground monokai-orange
 316                 :background monokai-bg-1))
 317 
 318  '(isearch-fail
 319    (:foreground monokai-fg+1
 320                 :background monokai-red))
 321 
 322  '(lazy-highlight
 323    (:foreground monokai-magenta
 324                 :background monokai-bg-1))
 325 
 326 ;;;;; font lock
 327  '(font-lock-builtin-face
 328    (:foreground monokai-green))
 329 
 330  '(font-lock-comment-delimiter-face
 331    (:foreground monokai-fg-1))
 332 
 333  '(font-lock-comment-face
 334    (:foreground monokai-fg-1))
 335 
 336  '(font-lock-constant-face
 337    (:foreground monokai-purple))
 338 
 339  '(font-lock-doc-face
 340    (:foreground monokai-fg-1))
 341 
 342  '(font-lock-doc-string-face
 343    (:foreground monokai-fg-1))
 344 
 345  '(font-lock-function-name-face
 346    (:foreground monokai-green))
 347 
 348  '(font-lock-keyword-face
 349    (:foreground monokai-red
 350                 :weight bold))
 351 
 352  '(font-lock-negation-char-face
 353    (:foreground monokai-fg-1))
 354 
 355  '(font-lock-preprocessor-face
 356    (:foreground monokai-red))
 357 
 358  '(font-lock-regexp-grouping-construct
 359    (:foreground monokai-orange
 360                 :weight bold))
 361 
 362  '(font-lock-regexp-grouping-backslash
 363    (:foreground monokai-green
 364                 :weight bold))
 365 
 366  '(font-lock-string-face
 367    (:foreground monokai-yellow))
 368 
 369  '(font-lock-type-face
 370    (:foreground monokai-blue))
 371 
 372  '(font-lock-variable-name-face
 373    (:foreground monokai-orange))
 374 
 375  '(font-lock-warning-face
 376    (:foreground monokai-yellow-1
 377                 :weight bold))
 378 
 379  '(c-annotation-face
 380    (:inherit 'font-lock-constant-face))
 381 
 382 ;;;;; newsticker
 383  '(newsticker-date-face
 384    (:foreground monokai-fg))
 385 
 386  '(newsticker-default-face
 387    (:foreground monokai-fg))
 388 
 389  '(newsticker-enclosure-face
 390    (:foreground monokai-green+1))
 391 
 392  '(newsticker-extra-face
 393    (:foreground monokai-fg-1
 394                 :height 0.8))
 395 
 396  '(newsticker-feed-face
 397    (:foreground monokai-fg))
 398 
 399  '(newsticker-immortal-item-face
 400    (:foreground monokai-green))
 401 
 402  '(newsticker-new-item-face
 403    (:foreground monokai-blue))
 404 
 405  '(newsticker-obsolete-item-face
 406    (:foreground monokai-red))
 407 
 408  '(newsticker-old-item-face
 409    (:foreground monokai-fg-1))
 410 
 411  '(newsticker-statistics-face
 412    (:foreground monokai-fg))
 413 
 414  '(newsticker-treeview-face
 415    (:foreground monokai-fg))
 416 
 417  '(newsticker-treeview-immortal-face
 418    (:foreground monokai-green))
 419 
 420  '(newsticker-treeview-listwindow-face
 421    (:foreground monokai-fg))
 422 
 423  '(newsticker-treeview-new-face
 424    (:foreground monokai-blue
 425                 :weight bold))
 426 
 427  '(newsticker-treeview-obsolete-face
 428    (:foreground monokai-red))
 429 
 430  '(newsticker-treeview-old-face
 431    (:foreground monokai-fg-1))
 432 
 433  '(newsticker-treeview-selection-face
 434    (:foreground monokai-orange))
 435 ;;;; Third-party
 436 ;;;;; ace-jump
 437  '(ace-jump-face-background
 438    (:foreground monokai-fg-1
 439                 :background monokai-bg
 440                 :inverse-video nil))
 441 
 442  '(ace-jump-face-foreground
 443    (:foreground monokai-green
 444                 :background monokai-bg
 445                 :inverse-video nil))
 446 
 447 ;;;;; full-ack
 448  '(ack-separator
 449    (:foreground monokai-fg))
 450 
 451  '(ack-file
 452    (:foreground monokai-blue))
 453 
 454  '(ack-line
 455    (:foreground monokai-yellow))
 456 
 457  '(ack-match
 458    (:foreground monokai-orange
 459                 :background monokai-bg-1
 460                 :weight bold))
 461 ;;;;; acutes
 462  '(font-latex-bold
 463    (:inherit 'bold))
 464 
 465  '(font-latex-warning
 466    (:inherit 'font-lock-warning))
 467 
 468  '(font-latex-sedate
 469    (:foreground monokai-fg-1
 470                 :weight bold ))
 471 
 472  '(font-latex-title-4
 473    (:inherit 'variable-pitch
 474              :weight bold))
 475 
 476 ;;;;; auto-complete
 477  '(ac-candidate-face
 478    (:background monokai-bg+1
 479                 :foreground monokai-fg-1))
 480 
 481  '(ac-selection-face
 482    (:background monokai-bg+2
 483                 :foreground monokai-orange))
 484 
 485  '(popup-tip-face
 486    (:background monokai-bg+2
 487                 :foreground monokai-orange))
 488 
 489  '(popup-scroll-bar-foreground-face
 490    (:background monokai-fg-1))
 491 
 492  '(popup-scroll-bar-background-face
 493    (:background monokai-bg-1))
 494 
 495  '(popup-isearch-match
 496    (:background monokai-bg
 497                 :foreground monokai-fg))
 498 
 499 ;;;;; android mode
 500  '(android-mode-debug-face
 501    (:foreground monokai-green))
 502 
 503  '(android-mode-error-face
 504    (:foreground monokai-orange
 505                 :weight bold))
 506 
 507  '(android-mode-info-face
 508    (:foreground monokai-blue))
 509 
 510  '(android-mode-verbose-face
 511    (:foreground monokai-purple))
 512 
 513  '(android-mode-warning-face
 514    (:foreground monokai-yellow-1))
 515 
 516 ;;;;; bm
 517  '(bm-face
 518    (:background monokai-yellow-1
 519                 :foreground monokai-bg))
 520 
 521  '(bm-fringe-face
 522    (:background monokai-yellow-1
 523                 :foreground monokai-bg))
 524 
 525  '(bm-fringe-persistent-face
 526    (:background monokai-orange-1
 527                 :foreground monokai-bg))
 528 
 529  '(bm-persistent-face
 530    (:background monokai-orange-1
 531                 :foreground monokai-bg))
 532 
 533 ;;;;; clojure-test-mode
 534  '(clojure-test-failure-face
 535    (:foreground monokai-red
 536                 :weight bold
 537                 :underline t))
 538 
 539  '(clojure-test-error-face
 540    (:foreground monokai-orange
 541                 :weight bold
 542                 :underline t))
 543 
 544  '(clojure-test-success-face
 545    (:foreground monokai-green
 546                 :weight bold
 547                 :underline t))
 548 
 549 ;;;;; ctable
 550  '(ctbl:face-cell-select
 551    (:background monokai-blue
 552                 :foreground monokai-bg))
 553 
 554  '(ctbl:face-continue-bar
 555    (:background monokai-bg-1
 556                 :foreground monokai-bg))
 557 
 558  '(ctbl:face-row-select
 559    (:background monokai-cyan
 560                 :foreground monokai-bg))
 561 
 562 ;;;;; diff
 563  '(diff-added
 564    (:foreground monokai-green
 565                 :background monokai-bg-1))
 566 
 567  '(diff-changed
 568    (:foreground monokai-yellow))
 569 
 570  '(diff-removed
 571    (:foreground monokai-red
 572                 :background monokai-bg-1))
 573 
 574  '(diff-refine-added
 575    (:inherit 'diff-added
 576              :weight bold))
 577 
 578  '(diff-refine-change
 579    (:inherit 'diff-changed
 580              :weight bold))
 581 
 582  '(diff-refine-removed
 583    (:inherit 'diff-removed
 584              :weight bold))
 585 
 586  '(diff-header
 587    (:background monokai-bg+1))
 588 
 589  '(diff-file-header
 590    (:background monokai-bg+1
 591                 :foreground monokai-fg
 592                 :bold t))
 593 
 594 ;;;;; dired+
 595  '(diredp-display-msg
 596    (:foreground monokai-blue))
 597 
 598  '(diredp-compressed-file-suffix
 599    (:foreground monokai-orange))
 600 
 601  '(diredp-date-time
 602    (:foreground monokai-magenta))
 603 
 604  '(diredp-deletion
 605    (:foreground monokai-yellow))
 606 
 607  '(diredp-deletion-file-name
 608    (:foreground monokai-red))
 609 
 610  '(diredp-dir-heading
 611    (:foreground monokai-blue
 612                 :background monokai-bg-1))
 613 
 614  '(diredp-dir-priv
 615    (:foreground monokai-cyan))
 616 
 617  '(diredp-exec-priv
 618    (:foreground monokai-red))
 619 
 620  '(diredp-executable-tag
 621    (:foreground monokai-green+1))
 622 
 623  '(diredp-file-name
 624    (:foreground monokai-blue))
 625 
 626  '(diredp-file-suffix
 627    (:foreground monokai-green))
 628 
 629  '(diredp-flag-mark
 630    (:foreground monokai-yellow))
 631 
 632  '(diredp-flag-mark-line
 633    (:foreground monokai-orange))
 634 
 635  '(diredp-ignored-file-name
 636    (:foreground monokai-red))
 637 
 638  '(diredp-link-priv
 639    (:foreground monokai-yellow))
 640 
 641  '(diredp-mode-line-flagged
 642    (:foreground monokai-yellow))
 643 
 644  '(diredp-mode-line-marked
 645    (:foreground monokai-orange))
 646 
 647  '(diredp-no-priv
 648    (:foreground monokai-fg))
 649 
 650  '(diredp-number
 651    (:foreground monokai-green+1))
 652 
 653  '(diredp-other-priv
 654    (:foreground monokai-yellow-1))
 655 
 656  '(diredp-rare-priv
 657    (:foreground monokai-red-1))
 658 
 659  '(diredp-read-priv
 660    (:foreground monokai-green-1))
 661 
 662  '(diredp-symlink
 663    (:foreground monokai-yellow))
 664 
 665  '(diredp-write-priv
 666    (:foreground monokai-magenta))
 667 
 668 ;;;;; ert
 669  '(ert-test-result-expected
 670    (:foreground monokai-green
 671                 :background monokai-bg))
 672 
 673  '(ert-test-result-unexpected
 674    (:foreground monokai-red
 675                 :background monokai-bg))
 676 
 677 ;;;;; eshell
 678  '(eshell-prompt
 679    (:foreground monokai-fg
 680                 :weight bold))
 681 
 682  '(eshell-ls-archive
 683    (:foreground monokai-purple
 684                 :weight bold))
 685 
 686  '(eshell-ls-backup
 687    (:inherit 'font-lock-comment))
 688 
 689  '(eshell-ls-clutter
 690    (:inherit 'font-lock-comment))
 691 
 692  '(eshell-ls-directory
 693    (:foreground monokai-blue
 694                 :weight bold))
 695 
 696  '(eshell-ls-executable
 697    (:foreground monokai-green
 698                 :weight bold))
 699 
 700  '(eshell-ls-unreadable
 701    (:foreground monokai-red))
 702 
 703  '(eshell-ls-missing
 704    (:inherit 'font-lock-warning))
 705 
 706  '(eshell-ls-product
 707    (:inherit 'font-lock-doc))
 708 
 709  '(eshell-ls-special
 710    (:foreground monokai-yellow
 711                 :weight bold))
 712 
 713  '(eshell-ls-symlink
 714    (:foreground monokai-cyan
 715                 :weight bold))
 716 
 717 ;;;;; flx
 718 '(flx-highlight-face
 719   (:foreground monokai-green
 720                :weight bold))
 721 ;;;;; flycheck
 722  '(flycheck-error
 723    (supports :underline
 724              (:style wave)
 725              (:underline (:style wave :color monokai-red))))
 726 
 727  '(flycheck-warning
 728    (supports :underline
 729              (:style wave)
 730              (:underline (:style wave :color monokai-yellow-1))))
 731 
 732  '(flycheck-fringe-error
 733    (:foreground monokai-red
 734                 :weight bold))
 735 
 736  '(flycheck-fringe-warning
 737    (:foreground monokai-yellow-1
 738                 :weight bold))
 739 ;;;;; flymake
 740  '(flymake-errline
 741    (supports :underline
 742              (:style wave)
 743              (:underline (:style wave :color ,monokai-red))))
 744 
 745  '(flymake-warnline
 746    (supports :underline
 747              (:style wave)
 748              (:underline (:style wave :color ,monokai-yellow-1))))
 749  '(flymake-infoline
 750    (supports :underline
 751              (:style wave)
 752              (:underline
 753               (:style wave :color ,monokai-blue))))
 754 
 755 ;;;;; flyspell
 756  '(flyspell-duplicate
 757    (supports :underline
 758              (:style wave)
 759              (:underline
 760               (:style wave :color ,monokai-orange) :inherit unspecified)))
 761  '(flyspell-incorrect
 762    (supports :underline
 763              (:style wave)
 764              (:underline
 765               (:style wave :color ,monokai-red) :inherit unspecified)))
 766 
 767  ;;;;; erc
 768   '(erc-action-face
 769     (:inherit 'erc-default-face))
 770 
 771   '(erc-bold-face
 772     (:weight bold))
 773 
 774   '(erc-current-nick-face
 775     (:foreground monokai-blue
 776                  :weight bold))
 777 
 778   '(erc-dangerous-host-face
 779     (:inherit 'font-lock-warning))
 780 
 781   '(erc-default-face
 782     (:foreground monokai-fg))
 783 
 784   '(erc-direct-msg-face
 785     (:inherit 'erc-default))
 786 
 787   '(erc-error-face
 788     (:inherit 'font-lock-warning))
 789 
 790   '(erc-fool-face
 791     (:inherit 'erc-default))
 792 
 793   '(erc-highlight-face
 794     (:inherit 'hover-highlight))
 795 
 796   '(erc-input-face
 797     (:foreground monokai-fg-1))
 798 
 799   '(erc-keyword-face
 800     (:foreground monokai-blue
 801                  :weight bold))
 802 
 803   '(erc-nick-default-face
 804     (:foreground monokai-fg-1
 805                  :weight bold))
 806 
 807   '(erc-my-nick-face
 808     (:foreground monokai-red
 809                  :weight bold))
 810 
 811   '(erc-nick-msg-face
 812     (:inherit 'erc-default))
 813 
 814   '(erc-notice-face
 815     (:foreground monokai-green))
 816 
 817   '(erc-pal-face
 818     (:foreground monokai-orange
 819                  :weight bold))
 820 
 821   '(erc-prompt-face
 822     (:foreground monokai-orange
 823                  :background monokai-bg
 824                  :weight bold))
 825 
 826   '(erc-timestamp-face
 827     (:foreground monokai-green+1))
 828 
 829   '(erc-underline-face
 830     (:underline t))
 831 
 832  ;;;;; git-gutter
 833   '(git-gutter:added
 834     (:foreground monokai-green
 835                  :weight bold
 836                  :inverse-video t))
 837 
 838   '(git-gutter:deleted
 839     (:foreground monokai-red
 840                  :weight bold
 841                  :inverse-video t))
 842 
 843   '(git-gutter:modified
 844     (:foreground monokai-yellow
 845                  :weight bold
 846                  :inverse-video t))
 847 
 848  ;;;;; git-gutter-fr
 849   '(git-gutter-fr:added
 850     (:foreground monokai-green
 851                  :weight bold))
 852 
 853   '(git-gutter-fr:deleted
 854     (:foreground monokai-red
 855                  :weight bold))
 856 
 857   '(git-gutter-fr:modified
 858     (:foreground monokai-yellow
 859                  :weight bold))
 860 
 861   ;; gnus
 862   '(gnus-group-mail-1
 863     (:inherit 'gnus-group-mail-1-empty))
 864 
 865   '(gnus-group-mail-1-empty
 866     (:inherit 'gnus-group-news-1-empty))
 867 
 868   '(gnus-group-mail-2
 869     (:bold t
 870            :inherit 'gnus-group-mail-2-empty))
 871 
 872   '(gnus-group-mail-2-empty
 873     (:inherit 'gnus-group-news-2-empty))
 874 
 875   '(gnus-group-mail-3
 876     (:bold t
 877            :inherit 'gnus-group-mail-3-empty))
 878 
 879   '(gnus-group-mail-3-empty
 880     (:inherit 'gnus-group-news-3-empty))
 881 
 882   '(gnus-group-mail-4
 883     (:bold t
 884            :inherit 'gnus-group-mail-4-empty))
 885 
 886   '(gnus-group-mail-4-empty
 887     (:inherit 'gnus-group-news-4-empty))
 888 
 889   '(gnus-group-mail-5
 890     (:bold t
 891            :inherit 'gnus-group-mail-5-empty))
 892 
 893   '(gnus-group-mail-5-empty
 894     (:inherit 'gnus-group-news-5-empty))
 895 
 896   '(gnus-group-mail-6
 897     (:bold t
 898            :inherit 'gnus-group-mail-6-empty))
 899 
 900   '(gnus-group-mail-6-empty
 901     (:inherit 'gnus-group-news-6-empty))
 902 
 903   '(gnus-group-mail-low
 904     (:bold t
 905            :inherit 'gnus-group-mail-low-empty))
 906 
 907   '(gnus-group-mail-low-empty
 908     (:inherit 'gnus-group-news-low-empty))
 909 
 910   '(gnus-group-news-1
 911     (:bold t
 912            :inherit 'gnus-group-news-1-empty))
 913 
 914   '(gnus-group-news-2
 915     (:bold t
 916            :inherit 'gnus-group-news-2-empty))
 917 
 918   '(gnus-group-news-3
 919     (:bold t
 920            :inherit 'gnus-group-news-3-empty))
 921 
 922   '(gnus-group-news-4
 923     (:bold t
 924            :inherit 'gnus-group-news-4-empty))
 925 
 926   '(gnus-group-news-5
 927     (:bold t
 928            :inherit 'gnus-group-news-5-empty))
 929 
 930   '(gnus-group-news-6
 931     (:bold t
 932            :inherit 'gnus-group-news-6-empty))
 933 
 934   '(gnus-group-news-low
 935     (:bold t
 936            :inherit 'gnus-group-news-low-empty))
 937 
 938   '(gnus-header-content
 939     (:inherit 'message-header-other))
 940 
 941   '(gnus-header-from
 942     (:inherit 'message-header-from))
 943 
 944   '(gnus-header-name
 945     (:inherit 'message-header-name))
 946 
 947   '(gnus-header-newsgroups
 948     (:inherit 'message-header-other))
 949 
 950   '(gnus-header-subject
 951     (:inherit 'message-header-subject))
 952 
 953   '(gnus-summary-cancelled
 954     (:foreground monokai-orange))
 955 
 956   '(gnus-summary-high-ancient
 957     (:foreground monokai-blue))
 958 
 959   '(gnus-summary-high-read
 960     (:foreground monokai-green
 961                  :weight bold))
 962 
 963   '(gnus-summary-high-ticked
 964     (:foreground monokai-orange
 965                  :weight bold))
 966 
 967   '(gnus-summary-high-unread
 968     (:foreground monokai-fg
 969                  :weight bold))
 970 
 971   '(gnus-summary-low-ancient
 972     (:foreground monokai-blue))
 973 
 974   '(gnus-summary-low-read
 975     (:foreground monokai-green))
 976 
 977   '(gnus-summary-low-ticked
 978     (:foreground monokai-orange
 979                  :weight bold))
 980 
 981   '(gnus-summary-low-unread
 982     (:foreground monokai-fg))
 983 
 984   '(gnus-summary-normal-ancient
 985     (:foreground monokai-blue))
 986 
 987   '(gnus-summary-normal-read
 988     (:foreground monokai-green))
 989 
 990   '(gnus-summary-normal-ticked
 991     (:foreground monokai-orange
 992                  :weight bold))
 993 
 994   '(gnus-summary-normal-unread
 995     (:foreground monokai-fg))
 996 
 997   '(gnus-summary-selected
 998     (:foreground monokai-fg-1
 999                  :weight bold))
1000 
1001   '(gnus-cite-1
1002     (:foreground monokai-blue))
1003 
1004   '(gnus-cite-10
1005     (:foreground monokai-yellow-1))
1006 
1007   '(gnus-cite-11
1008     (:foreground monokai-yellow))
1009 
1010   '(gnus-cite-2
1011     (:foreground monokai-blue-1))
1012 
1013   '(gnus-cite-3
1014     (:foreground monokai-cyan))
1015 
1016   '(gnus-cite-4
1017     (:foreground monokai-purple))
1018 
1019   '(gnus-cite-5
1020     (:foreground monokai-green+1))
1021 
1022   '(gnus-cite-6
1023     (:foreground monokai-green))
1024 
1025   '(gnus-cite-7
1026     (:foreground monokai-red))
1027 
1028   '(gnus-cite-8
1029     (:foreground monokai-red))
1030 
1031   '(gnus-cite-9
1032     (:foreground monokai-purple))
1033 
1034   '(gnus-group-news-1-empty
1035     (:foreground monokai-fg-1))
1036 
1037   '(gnus-group-news-2-empty
1038     (:foreground monokai-green+1))
1039 
1040   '(gnus-group-news-3-empty
1041     (:foreground monokai-green+1))
1042 
1043   '(gnus-group-news-4-empty
1044     (:foreground monokai-cyan))
1045 
1046   '(gnus-group-news-5-empty
1047     (:foreground monokai-cyan+1))
1048 
1049   '(gnus-group-news-6-empty
1050     (:foreground monokai-bg+2))
1051 
1052   '(gnus-group-news-low-empty
1053     (:foreground monokai-bg+2))
1054 
1055   '(gnus-signature
1056     (:foreground monokai-fg-1))
1057 
1058   '(gnus-x
1059     (:background monokai-fg
1060                  :foreground monokai-bg))
1061  ;;;;; guide-key
1062   '(guide-key/highlight-command-face
1063     (:foreground monokai-blue))
1064 
1065   '(guide-key/key-face
1066     (:foreground monokai-green))
1067 
1068   '(guide-key/prefix-command-face
1069     (:foreground monokai-green+1))
1070 
1071  ;;;;; helm
1072   '(helm-header
1073     (:foreground monokai-green
1074                  :background monokai-bg
1075                  :underline nil :box nil))
1076 
1077   '(helm-source-header
1078     (:foreground monokai-yellow
1079                  :background monokai-bg-1
1080                  :underline nil :weight bold
1081                  :box (:line-width -1 :style released-button)))
1082 
1083   '(helm-selection
1084     (:background monokai-bg+2
1085                  :underline nil))
1086 
1087   '(helm-selection-line
1088     (:background monokai-bg+1))
1089 
1090   '(helm-visible-mark
1091     (:foreground monokai-fg-1
1092                  :background monokai-bg+2))
1093 
1094   '(helm-candidate-number
1095     (:foreground monokai-green+2
1096                  :background monokai-bg-1))
1097 
1098   '(helm-ff-directory
1099     (:foreground monokai-magenta))
1100 
1101  ;;;;; hl-line-mode
1102   '(hl-line
1103     (:background monokai-bg+1 :inherit 't))
1104 
1105  ;;;;; hl-sexp
1106   '(hl-sexp-face
1107     (:background monokai-bg+1 :inherit 't))
1108 
1109  ;;;;; ido-mode
1110   '(ido-first-match
1111     (:foreground monokai-orange
1112                  :background monokai-bg
1113                  :weight bold))
1114 
1115   '(ido-only-match
1116     (:foreground monokai-green
1117                  :background monokai-bg
1118                  :weight bold))
1119 
1120   '(ido-subdir
1121     (:foreground monokai-blue
1122                  :background monokai-bg))
1123 
1124  ;;;;; Js2-mode
1125   '(js2-warning-face
1126     (:foreground monokai-yellow-1
1127                  :underline t))
1128 
1129   '(js2-error-face
1130     (:foreground monokai-red
1131                  :weight bold))
1132 
1133   '(js2-jsdoc-tag-face
1134     (:foreground monokai-green))
1135 
1136   '(js2-jsdoc-type-face
1137     (:foreground monokai-blue))
1138 
1139   '(js2-jsdoc-value-face
1140     (:foreground monokai-purple))
1141 
1142   '(js2-function-param-face
1143     (:foreground monokai-green))
1144 
1145   '(js2-external-variable-face
1146     (:foreground monokai-yellow))
1147 
1148  ;;;;; jabber-mode
1149 
1150   '(jabber-roster-user-away
1151     (:foreground monokai-purple))
1152 
1153   '(jabber-roster-user-online
1154     (:foreground monokai-green))
1155 
1156   '(jabber-roster-user-dnd
1157     (:foreground monokai-red))
1158 
1159   '(jabber-rare-time-face
1160     (:foreground monokai-purple))
1161 
1162   '(jabber-chat-prompt-local
1163     (:foreground monokai-blue))
1164 
1165   '(jabber-chat-prompt-foreign
1166     (:foreground monokai-orange))
1167 
1168   '(jabber-activity-face
1169     (:foreground monokai-red))
1170 
1171   '(jabber-activity-personal-face
1172     (:foreground monokai-cyan))
1173 
1174   '(jabber-title-small
1175     (:height 1.1 :weight bold))
1176 
1177   '(jabber-title-medium
1178     (:height 1.2 :weight bold))
1179 
1180   '(jabber-title-large
1181     (:height 1.3 :weight bold))
1182 
1183  ;;;;; linum-mode
1184   '(linum
1185     (:foreground monokai-purple
1186                  :background monokai-bg))
1187 
1188  ;;;;; macrostep
1189   '(macrostep-gensym-1
1190     (:foreground monokai-green+2
1191                  :background monokai-bg-1))
1192 
1193   '(macrostep-gensym-2
1194     (:foreground monokai-red+1
1195                  :background monokai-bg-1))
1196 
1197   '(macrostep-gensym-3
1198     (:foreground monokai-blue+1
1199                  :background monokai-bg-1))
1200 
1201   '(macrostep-gensym-4
1202     (:foreground monokai-magenta
1203                  :background monokai-bg-1))
1204 
1205   '(macrostep-gensym-5
1206     (:foreground monokai-yellow
1207                  :background monokai-bg-1))
1208 
1209   '(macrostep-expansion-highlight-face
1210     (:inherit 'highlight))
1211 
1212   '(macrostep-macro-face
1213     (:underline t))
1214 
1215  ;;;;; magit
1216   '(magit-section-title
1217     (:foreground monokai-yellow
1218                  :weight bold))
1219 
1220   '(magit-branch
1221     (:foreground monokai-blue
1222                  :weight bold))
1223 
1224   '(magit-item-highlight
1225     (:background monokai-bg+2))
1226 
1227  ;;;;; message-mode
1228   '(message-cited-text
1229     (:inherit 'font-lock-comment))
1230 
1231   '(message-header-name
1232     (:foreground monokai-green+1))
1233 
1234   '(message-header-other
1235     (:foreground monokai-green))
1236 
1237   '(message-header-to
1238     (:foreground monokai-fg-1
1239                  :weight bold))
1240 
1241   '(message-header-from
1242     (:foreground monokai-fg-1
1243                  :weight bold))
1244 
1245   '(message-header-cc
1246     (:foreground monokai-fg-1
1247                  :weight bold))
1248 
1249   '(message-header-newsgroups
1250     (:foreground monokai-fg-1
1251                  :weight bold))
1252 
1253   '(message-header-subject
1254     (:foreground monokai-orange
1255                  :weight bold))
1256 
1257   '(message-header-xheader
1258     (:foreground monokai-green))
1259 
1260   '(message-mml
1261     (:foreground monokai-fg-1
1262                  :weight bold))
1263 
1264   '(message-separator
1265     (:inherit 'font-lock-comment))
1266 
1267  ;;;;; egg
1268   '(egg-text-base
1269     (:foreground monokai-fg))
1270 
1271   '(egg-help-header-1
1272     (:foreground monokai-blue))
1273 
1274   '(egg-help-header-2
1275     (:foreground monokai-green))
1276 
1277   '(egg-branch
1278     (:foreground monokai-blue))
1279 
1280   '(egg-branch-mono
1281     (:foreground monokai-blue))
1282 
1283   '(egg-term
1284     (:foreground monokai-blue))
1285 
1286   '(egg-diff-add
1287     (:foreground monokai-green+1))
1288 
1289   '(egg-diff-del
1290     (:foreground monokai-red+1))
1291 
1292   '(egg-diff-file-header
1293     (:foreground monokai-fg-1))
1294 
1295   '(egg-section-title
1296     (:foreground monokai-blue))
1297 
1298   '(egg-stash-mono
1299     (:foreground monokai-purple))
1300 
1301  ;;;;; message-mode
1302   '(message-cited-text
1303     (:inherit 'font-lock-comment))
1304 
1305   '(message-header-name
1306     (:foreground monokai-green+1))
1307 
1308   '(message-header-other
1309     (:foreground monokai-green))
1310 
1311   '(message-header-to
1312     (:foreground monokai-yellow
1313                  :weight bold))
1314 
1315   '(message-header-from
1316     (:foreground monokai-yellow
1317                  :weight bold))
1318 
1319   '(message-header-cc
1320     (:foreground monokai-yellow
1321                  :weight bold))
1322 
1323   '(message-header-newsgroups
1324     (:foreground monokai-yellow
1325                  :weight bold))
1326 
1327   '(message-header-subject
1328     (:foreground monokai-orange
1329                  :weight bold))
1330 
1331   '(message-header-xheader
1332     (:foreground monokai-green))
1333 
1334   '(message-mml
1335     (:foreground monokai-yellow
1336                  :weight bold))
1337 
1338   '(message-separator
1339     (:inherit 'font-lock-comment))
1340 
1341  ;;;;; mew
1342   '(mew-face-header-subject
1343     (:foreground monokai-orange))
1344 
1345   '(mew-face-header-from
1346     (:foreground monokai-yellow))
1347 
1348   '(mew-face-header-date
1349     (:foreground monokai-green))
1350 
1351   '(mew-face-header-to
1352     (:foreground monokai-red))
1353 
1354   '(mew-face-header-key
1355     (:foreground monokai-blue))
1356 
1357   '(mew-face-header-private
1358     (:foreground monokai-purple))
1359 
1360   '(mew-face-header-important
1361     (:foreground monokai-blue))
1362 
1363   '(mew-face-header-marginal
1364     (:foreground monokai-fg
1365                  :weight bold))
1366 
1367   '(mew-face-header-warning
1368     (:foreground monokai-yellow-1))
1369 
1370   '(mew-face-header-xmew
1371     (:foreground monokai-green))
1372 
1373   '(mew-face-header-xmew-bad
1374     (:foreground monokai-red))
1375 
1376   '(mew-face-body-url
1377     (:foreground monokai-blue))
1378 
1379   '(mew-face-body-comment
1380     (:foreground monokai-fg-1
1381                  :slant italic))
1382 
1383   '(mew-face-body-cite1
1384     (:foreground monokai-cyan))
1385 
1386   '(mew-face-body-cite2
1387     (:foreground monokai-purple))
1388 
1389   '(mew-face-body-cite3
1390     (:foreground monokai-orange))
1391 
1392   '(mew-face-body-cite4
1393     (:foreground monokai-yellow))
1394 
1395   '(mew-face-body-cite5
1396     (:foreground monokai-red))
1397 
1398   '(mew-face-mark-review
1399     (:foreground monokai-blue))
1400 
1401   '(mew-face-mark-escape
1402     (:foreground monokai-green))
1403 
1404   '(mew-face-mark-delete
1405     (:foreground monokai-red))
1406 
1407   '(mew-face-mark-unlink
1408     (:foreground monokai-yellow))
1409 
1410   '(mew-face-mark-refile
1411     (:foreground monokai-orange))
1412 
1413   '(mew-face-mark-unread
1414     (:foreground monokai-purple))
1415 
1416   '(mew-face-eof-message
1417     (:foreground monokai-red))
1418 
1419   '(mew-face-eof-part
1420     (:foreground monokai-yellow))
1421 
1422  ;;;;; mic-paren
1423   '(paren-face-match
1424     (:foreground monokai-bg-1
1425                  :background monokai-orange
1426                  :weight bold))
1427 
1428   '(paren-face-mismatch
1429     (:foreground monokai-bg-1
1430                  :background monokai-magenta
1431                  :weight bold))
1432 
1433   '(paren-face-no-match
1434     (:foreground monokai-bg-1
1435                  :background monokai-purple
1436                  :weight bold))
1437 
1438  ;;;;; mingus
1439   '(mingus-directory-face
1440     (:foreground monokai-blue))
1441 
1442   '(mingus-pausing-face
1443     (:foreground monokai-magenta))
1444 
1445   '(mingus-playing-face
1446     (:foreground monokai-cyan))
1447 
1448   '(mingus-playlist-face
1449     (:foreground monokai-cyan ))
1450 
1451   '(mingus-song-file-face
1452     (:foreground monokai-yellow))
1453 
1454   '(mingus-stopped-face
1455     (:foreground monokai-red))
1456 
1457  ;;;;; nav
1458   '(nav-face-heading
1459     (:foreground monokai-fg-1))
1460 
1461   '(nav-face-button-num
1462     (:foreground monokai-blue))
1463 
1464   '(nav-face-dir
1465     (:foreground monokai-green))
1466 
1467   '(nav-face-hdir
1468     (:foreground monokai-red))
1469 
1470   '(nav-face-file
1471     (:foreground monokai-fg))
1472 
1473   '(nav-face-hfile
1474     (:foreground monokai-purple))
1475 
1476  ;;;;; mu4e
1477   '(mu4e-cited-1-face
1478     (:foreground monokai-blue
1479                  :slant italic))
1480 
1481   '(mu4e-cited-2-face
1482     (:foreground monokai-purple
1483                  :slant italic))
1484 
1485   '(mu4e-cited-3-face
1486     (:foreground monokai-cyan
1487                  :slant italic))
1488 
1489   '(mu4e-cited-4-face
1490     (:foreground monokai-green
1491                  :slant italic))
1492 
1493   '(mu4e-cited-5-face
1494     (:foreground monokai-orange
1495                  :slant italic))
1496 
1497   '(mu4e-cited-6-face
1498     (:foreground monokai-purple
1499                  :slant italic))
1500 
1501   '(mu4e-cited-7-face
1502     (:foreground monokai-yellow
1503                  :slant italic))
1504 
1505   '(mu4e-replied-face
1506     (:foreground monokai-fg-1))
1507 
1508   '(mu4e-trashed-face
1509     (:foreground monokai-fg-1
1510                  :strike-through t))
1511 
1512  ;;;;; mumamo
1513   '(mumamo-background-chunk-major
1514     (:background nil))
1515 
1516   '(mumamo-background-chunk-submode1
1517     (:background monokai-bg-1))
1518 
1519   '(mumamo-background-chunk-submode2
1520     (:background monokai-bg+2))
1521 
1522   '(mumamo-background-chunk-submode3
1523     (:background monokai-fg-1))
1524 
1525   '(mumamo-background-chunk-submode4
1526     (:background monokai-bg+2))
1527 
1528  ;;;;; org-mode
1529   '(org-agenda-date-today
1530     (:foreground monokai-fg+1
1531                  :slant italic
1532                  :weight bold))
1533 
1534   '(org-agenda-structure
1535     (:inherit 'font-lock-comment-face))
1536 
1537   '(org-archived
1538     (:foreground monokai-fg
1539                  :weight bold))
1540 
1541   '(org-checkbox
1542     (:background monokai-bg+2
1543                  :foreground monokai-fg+1
1544                  :box (:line-width 1 :style released-button)))
1545   '(org-date
1546     (:foreground monokai-blue
1547                  :underline t))
1548 
1549   '(org-deadline-announce
1550     (:foreground monokai-red))
1551 
1552   '(org-done
1553     (:foreground monokai-green+1
1554                  :weight bold))
1555   '(org-formula
1556     (:foreground monokai-yellow))
1557 
1558   '(org-headline-done
1559     (:foreground monokai-green+1))
1560 
1561   '(org-hide
1562     (:foreground monokai-bg-1))
1563 
1564   '(org-level-1
1565     (:foreground monokai-orange))
1566 
1567   '(org-level-2
1568     (:foreground monokai-orange+1))
1569 
1570   '(org-level-3
1571     (:foreground monokai-cyan))
1572 
1573   '(org-level-4
1574     (:foreground monokai-cyan+1))
1575 
1576   '(org-level-5
1577     (:foreground monokai-purple))
1578 
1579   '(org-level-6
1580     (:foreground monokai-purple+1))
1581 
1582   '(org-level-7
1583     (:foreground monokai-red+1))
1584 
1585   '(org-level-8
1586     (:foreground monokai-red+2))
1587 
1588   '(org-link
1589     (:foreground monokai-blue
1590                  :underline t))
1591 
1592   '(org-scheduled
1593     (:foreground monokai-purple+1))
1594 
1595   '(org-scheduled-previously
1596     (:foreground monokai-red))
1597 
1598   '(org-scheduled-today
1599     (:foreground monokai-blue+1))
1600 
1601   '(org-special-keyword
1602     (:foreground monokai-fg-1))
1603 
1604   '(org-table
1605     (:foreground monokai-purple))
1606 
1607   '(org-tag
1608     (:weight bold))
1609 
1610   '(org-time-grid
1611     (:foreground monokai-orange))
1612 
1613   '(org-todo
1614     (:foreground monokai-red
1615                  :weight bold))
1616 
1617   '(org-upcoming-deadline
1618     (:inherit 'font-lock-keyword-face))
1619 
1620   '(org-warning
1621     (:foreground monokai-yellow-1
1622                  :weight bold
1623                  :underline t))
1624 
1625   '(org-column
1626     (:background monokai-bg-1))
1627 
1628   '(org-column-title
1629     (:background monokai-bg-1
1630                  :underline t
1631                  :weight bold))
1632 
1633  ;;;;; outline
1634   '(outline-1
1635     (:foreground monokai-orange))
1636 
1637   '(outline-2
1638     (:foreground monokai-magenta))
1639 
1640   '(outline-3
1641     (:foreground monokai-blue))
1642 
1643   '(outline-4
1644     (:foreground monokai-yellow))
1645 
1646   '(outline-5
1647     (:foreground monokai-cyan))
1648 
1649   '(outline-6
1650     (:foreground monokai-purple))
1651 
1652   '(outline-7
1653     (:foreground monokai-red))
1654 
1655   '(outline-8
1656     (:foreground monokai-green))
1657 
1658  ;;;;; rainbow-delimiters
1659   '(rainbow-delimiters-depth-1-face
1660     (:foreground monokai-orange))
1661 
1662   '(rainbow-delimiters-depth-2-face
1663     (:foreground monokai-blue))
1664 
1665   '(rainbow-delimiters-depth-3-face
1666     (:foreground monokai-purple))
1667 
1668   '(rainbow-delimiters-depth-4-face
1669     (:foreground monokai-green))
1670 
1671   '(rainbow-delimiters-depth-5-face
1672     (:foreground monokai-cyan))
1673 
1674   '(rainbow-delimiters-depth-6-face
1675     (:foreground monokai-red))
1676 
1677   '(rainbow-delimiters-depth-7-face
1678     (:foreground monokai-orange))
1679 
1680   '(rainbow-delimiters-depth-8-face
1681     (:foreground monokai-blue+1))
1682 
1683   '(rainbow-delimiters-depth-9-face
1684     (:foreground monokai-red+1))
1685 
1686   '(rainbow-delimiters-depth-10-face
1687     (:foreground monokai-green+1))
1688 
1689   '(rainbow-delimiters-depth-11-face
1690     (:foreground monokai-purple+1))
1691 
1692   '(rainbow-delimiters-depth-12-face
1693     (:foreground monokai-orange+1))
1694 
1695  ;;;;;rcirc
1696   '(rcirc-my-nick
1697     (:foreground monokai-blue))
1698 
1699   '(rcirc-other-nick
1700     (:foreground monokai-orange))
1701 
1702   '(rcirc-bright-nick
1703     (:foreground monokai-blue+1))
1704 
1705   '(rcirc-dim-nick
1706     (:foreground monokai-blue-1))
1707 
1708   '(rcirc-server
1709     (:foreground monokai-green))
1710 
1711   '(rcirc-server-prefix
1712     (:foreground monokai-green+1))
1713 
1714   '(rcirc-timestamp
1715     (:foreground monokai-purple))
1716 
1717   '(rcirc-nick-in-message
1718     (:foreground monokai-yellow))
1719 
1720   '(rcirc-nick-in-message-full-line
1721     (:bold t))
1722 
1723   '(rcirc-prompt
1724     (:foreground monokai-fg-1
1725                  :bold t))
1726 
1727   '(rcirc-track-nick
1728     (:inverse-video t))
1729 
1730   '(rcirc-track-keyword
1731     (:bold t))
1732 
1733   '(rcirc-url
1734     (:bold t))
1735 
1736   '(rcirc-keyword
1737     (:foreground monokai-red
1738                  :bold t))
1739 
1740  ;;;;; rhtml-mode
1741   '(erb-face
1742     (:foreground monokai-fg+1
1743                  :background monokai-bg-1))
1744 
1745   '(erb-delim-face
1746     (:foreground monokai-cyan-1
1747                  :background monokai-bg-1))
1748 
1749   '(erb-exec-face
1750     (:foreground monokai-fg+1
1751                  :background monokai-bg-1))
1752 
1753   '(erb-exec-delim-face
1754     (:foreground monokai-cyan-1
1755                  :background monokai-bg-1))
1756 
1757   '(erb-out-face
1758     (:foreground monokai-fg+1
1759                  :background monokai-bg-1))
1760 
1761   '(erb-out-delim-face
1762     (:foreground monokai-cyan-1
1763                  :background monokai-bg-1))
1764 
1765   '(erb-comment-face
1766     (:foreground monokai-fg-1
1767                  :background monokai-bg-1))
1768 
1769   '(erb-comment-delim-face
1770     (:foreground monokai-cyan-1
1771                  :background monokai-bg-1))
1772 
1773  ;;;;; rpm-mode
1774   '(rpm-spec-dir-face
1775     (:foreground monokai-green))
1776 
1777   '(rpm-spec-doc-face
1778     (:foreground monokai-blue))
1779 
1780   '(rpm-spec-ghost-face
1781     (:foreground monokai-magenta))
1782 
1783   '(rpm-spec-macro-face
1784     (:foreground monokai-yellow))
1785 
1786   '(rpm-spec-obsolete-tag-face
1787     (:foreground monokai-red))
1788 
1789   '(rpm-spec-package-face
1790     (:foreground monokai-purple))
1791 
1792   '(rpm-spec-section-face
1793     (:foreground monokai-yellow))
1794 
1795   '(rpm-spec-tag-face
1796     (:foreground monokai-purple))
1797 
1798   '(rpm-spec-var-face
1799     (:foreground monokai-orange))
1800  ;;;;; rst-mode
1801   '(rst-level-1-face
1802     (:foreground monokai-orange))
1803 
1804   '(rst-level-2-face
1805     (:foreground monokai-green))
1806 
1807   '(rst-level-3-face
1808     (:foreground monokai-blue))
1809 
1810   '(rst-level-4-face
1811     (:foreground monokai-yellow))
1812 
1813   '(rst-level-5-face
1814     (:foreground monokai-purple))
1815 
1816   '(rst-level-6-face
1817     (:foreground monokai-red))
1818 
1819  ;;;;; show-paren
1820   '(show-paren-mismatch
1821     (:foreground monokai-bg-1
1822                  :background monokai-red
1823                  :weight bold))
1824 
1825   '(show-paren-match
1826     (:foreground monokai-bg-1
1827                  :background monokai-orange
1828                  ::weight bold))
1829 
1830  ;;;;; sml-mode-line
1831   '(sml-modeline-end-face
1832     (:inherit 'default
1833               :width condensed))
1834 
1835  ;;;;; SLIME
1836   '(slime-repl-inputed-output-face
1837     (:foreground monokai-red))
1838 
1839  ;;;;; tabbar
1840   '(tabbar-button
1841     (:foreground monokai-fg
1842                  :background monokai-bg))
1843 
1844   '(tabbar-selected
1845     (:foreground monokai-fg
1846                  :background monokai-bg
1847                  :box (:line-width -1 :style pressed-button)))
1848 
1849   '(tabbar-unselected
1850     (:foreground monokai-fg
1851                  :background monokai-bg+2
1852                  :box (:line-width -1 :style released-button)))
1853  ;;;;; term
1854   '(term-color-black
1855     (:foreground monokai-bg
1856                  :background monokai-bg+1))
1857 
1858   '(term-color-red
1859     (:foreground monokai-red
1860                  :background monokai-red+1))
1861 
1862   '(term-color-green
1863     (:foreground monokai-green
1864                  :background monokai-green+1))
1865 
1866   '(term-color-yellow
1867     (:foreground monokai-orange
1868                  :background monokai-orange+1))
1869 
1870   '(term-color-blue
1871     (:foreground monokai-blue
1872                  :background monokai-blue+1))
1873 
1874   '(term-color-magenta
1875     (:foreground monokai-purple
1876                  :background monokai-purple+1))
1877 
1878   '(term-color-cyan
1879     (:foreground monokai-cyan
1880                  :background monokai-cyan+1))
1881 
1882   '(term-color-white
1883     (:foreground monokai-fg
1884                  :background monokai-fg+1))
1885 
1886   '(term-default-fg-color
1887     (:foreground monokai-fg))
1888 
1889   '(term-default-bg-color
1890     (:foreground monokai-bg))
1891 
1892  ;;;;; volatile-highlights
1893   '(vhl/default-face
1894     (:background monokai-bg+2))
1895 
1896  ;;;;; emacs-w3m
1897   '(w3m-anchor
1898     (:foreground monokai-fg-1
1899                  :underline t
1900                  :weight bold))
1901 
1902   '(w3m-arrived-anchor
1903     (:foreground monokai-yellow-1
1904                  :underline t
1905                  :weight normal))
1906 
1907   '(w3m-form
1908     (:foreground monokai-red
1909                  :underline t))
1910 
1911   '(w3m-header-line-location-title
1912     (:foreground monokai-fg-1
1913                  :underline t
1914                  :weight bold))
1915 
1916   '(w3m-history-current-url
1917     (:inherit 'match))
1918 
1919   '(w3m-lnum
1920     (:foreground monokai-purple
1921                  :background monokai-bg))
1922 
1923   '(w3m-lnum-match
1924     (:background monokai-bg-1
1925                  :foreground monokai-orange
1926                  :weight bold))
1927 
1928   '(w3m-lnum-minibuffer-prompt
1929     (:foreground monokai-fg-1))
1930 
1931  ;;;;; whitespace-mode
1932   '(whitespace-space
1933     (:background monokai-bg
1934                  :foreground monokai-bg-1))
1935   '(whitespace-hspace
1936     (:background monokai-bg
1937                  :foreground monokai-bg-1))
1938 
1939   '(whitespace-tab
1940     (:background monokai-red))
1941 
1942   '(whitespace-newline
1943     (:foreground monokai-bg-1))
1944 
1945   '(whitespace-trailing
1946     (:background monokai-red))
1947 
1948   '(whitespace-line
1949     (:background monokai-bg
1950                  :foreground monokai-red))
1951 
1952   '(whitespace-space-before-tab
1953     (:background monokai-bg
1954                  :foreground monokai-orange))
1955 
1956   '(whitespace-indentation
1957     (:background monokai-fg-1
1958                  :foreground monokai-red))
1959 
1960   '(whitespace-empty
1961     (:background monokai-fg-1))
1962 
1963   '(whitespace-space-after-tab
1964     (:background monokai-fg-1
1965                  :foreground monokai-red))
1966 
1967  ;;;;; wanderlust
1968   '(wl-highlight-folder-few-face
1969     (:foreground monokai-purple))
1970 
1971   '(wl-highlight-folder-many-face
1972     (:foreground monokai-red))
1973 
1974   '(wl-highlight-folder-path-face
1975     (:foreground monokai-orange))
1976 
1977   '(wl-highlight-folder-unread-face
1978     (:foreground monokai-blue))
1979 
1980   '(wl-highlight-folder-zero-face
1981     (:foreground monokai-fg))
1982 
1983   '(wl-highlight-folder-unknown-face
1984     (:foreground monokai-cyan))
1985 
1986   '(wl-highlight-message-citation-header
1987     (:foreground monokai-yellow))
1988 
1989   '(wl-highlight-message-cited-text-1
1990     (:foreground monokai-purple))
1991 
1992   '(wl-highlight-message-cited-text-2
1993     (:foreground monokai-purple+1))
1994 
1995   '(wl-highlight-message-cited-text-3
1996     (:foreground monokai-blue))
1997 
1998   '(wl-highlight-message-cited-text-4
1999     (:foreground monokai-blue+1))
2000 
2001   '(wl-highlight-message-header-contents-face
2002     (:foreground monokai-green))
2003 
2004   '(wl-highlight-message-headers-face
2005     (:foreground monokai-red+1))
2006 
2007   '(wl-highlight-message-important-header-contents
2008     (:foreground monokai-purple))
2009 
2010   '(wl-highlight-message-header-contents
2011     (:foreground monokai-green+1))
2012 
2013   '(wl-highlight-message-important-header-contents2
2014     (:foreground monokai-purple+1))
2015 
2016   '(wl-highlight-message-signature
2017     (:foreground monokai-green))
2018 
2019   '(wl-highlight-message-unimportant-header-contents
2020     (:foreground monokai-fg))
2021 
2022   '(wl-highlight-summary-answered-face
2023     (:foreground monokai-blue))
2024 
2025   '(wl-highlight-summary-disposed-face
2026     (:foreground monokai-fg
2027                  :slant italic))
2028 
2029   '(wl-highlight-summary-new-face
2030     (:foreground monokai-blue))
2031 
2032   '(wl-highlight-summary-normal-face
2033     (:foreground monokai-fg))
2034 
2035   '(wl-highlight-summary-thread-top-face
2036     (:foreground monokai-fg-1))
2037 
2038   '(wl-highlight-thread-indent-face
2039     (:foreground monokai-magenta))
2040 
2041   '(wl-highlight-summary-refiled-face
2042     (:foreground monokai-fg))
2043 
2044   '(wl-highlight-summary-displaying-face
2045     (:underline t
2046                 :weight bold))
2047 
2048  ;;;;; which-func-mode
2049   '(which-func
2050     (:foreground monokai-purple+1))
2051 
2052  ;;;;; yascroll
2053   '(yascroll:thumb-text-area
2054     (:background monokai-bg-1))
2055 
2056   '(yascroll:thumb-fringe
2057     (:background monokai-bg-1
2058                  :foreground monokai-bg-1))
2059  )
2060 
2061 ;;; Theme Variables
2062 (custom-theme-set-variables
2063  'monokai
2064 ;;;;; ansi-color
2065  '(ansi-color-names-vector
2066    [monokai-bg
2067     monokai-red
2068     monokai-green
2069     monokai-orange
2070     monokai-blue
2071     monokai-purple
2072     monokai-cyan
2073     monokai-fg])
2074 
2075 ;;;;; fill-column-indicator
2076  '(fci-rule-color monokai-bg-1)
2077 ;;;;; vc-annotate
2078  '(vc-annotate-color-map
2079    '(( 20. . monokai-fg-1)
2080      ( 40. . monokai-bg+2)
2081      ( 60. . monokai-red)
2082      ( 80. . monokai-red+1)
2083      (100. . monokai-orange)
2084      (120. . monokai-orange+1)
2085      (140. . monokai-green)
2086      (160. . monokai-green+1)
2087      (180. . monokai-yellow)
2088      (200. . monokai-yellow+1)
2089      (220. . monokai-blue)
2090      (240. . monokai-blue+1)
2091      (260. . monokai-purple)
2092      (280. . monokai-purple+1)
2093      (300. . monokai-cyan)
2094      (320. . monokai-cyan+1)
2095      (340. . monokai-magenta)
2096      (360. . monokai-magenta+1)))
2097  '(vc-annotate-very-old-color monokai-magenta)
2098  '(vc-annotate-background monokai-bg)
2099  )
2100 
2101 ;;; Rainbow Support
2102 (declare-function rainbow-mode 'rainbow-mode)
2103 (declare-function rainbow-colorize-by-assoc 'rainbow-mode)
2104 
2105 (defvar monokai-add-font-lock-keywords nil
2106   "Whether to add font-lock keywords for monokai color names.
2107 In buffers visiting library `monokai-theme.el' the monokai
2108 specific keywords are always added.  In all other Emacs-Lisp
2109 buffers this variable controls whether this should be done.
2110 This requires library `rainbow-mode'.")
2111 
2112 (defvar monokai-colors-font-lock-keywords nil)
2113 
2114 ;;; Footer
2115 
2116 ;;;###autoload
2117 (and load-file-name
2118      (boundp 'custom-theme-load-path)
2119      (add-to-list 'custom-theme-load-path
2120                   (file-name-as-directory
2121                    (file-name-directory load-file-name))))
2122 
2123 (provide-theme 'monokai)
2124 ;;; monokai-theme.el ends here
相关阅读:
asp.net禁用頁面緩存
 SQL排序方法,EXEC法和CASE WHEN法
 Web Service 基础连接已经关闭的解决方案
 用CSS写TABLE边框
 SQL2000分页存储过程，针对表,2005有自带的row_number
GridView RowCommand事件中取得當前行
 取得Repeter中數據項,如TR
FireFox自动撑高层解决方案
 PostgreSql 添加语言语法
 CSS设置图片居中
原文地址：https://www.cnblogs.com/ziyouchutuwenwu/p/3486247.html