emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/material-theme fad77e3 001/118: initial commit, first vers


From: ELPA Syncer
Subject: [nongnu] elpa/material-theme fad77e3 001/118: initial commit, first version of theme
Date: Thu, 21 Oct 2021 18:06:07 -0400 (EDT)

branch: elpa/material-theme
commit fad77e3658f54d36a11d59d71f04ae07450a7785
Author: Christoph Paulik <cpaulik@gmail.com>
Commit: Christoph Paulik <cpaulik@gmail.com>

    initial commit, first version of theme
---
 Readme.org         |   7 +
 material-theme.el  | 636 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 material-theme.png | Bin 0 -> 640583 bytes
 3 files changed, 643 insertions(+)

diff --git a/Readme.org b/Readme.org
new file mode 100644
index 0000000..0848d24
--- /dev/null
+++ b/Readme.org
@@ -0,0 +1,7 @@
+* Material Theme for Emacs
+
+Emacs colortheme based on the colors proposed by the 
[[http://www.google.com/design/spec/style/color.html#color-color-palette][Google
 Material Design]]
+
+* Screenshot
+
+[[./material-theme.png]]
diff --git a/material-theme.el b/material-theme.el
new file mode 100644
index 0000000..84b80ce
--- /dev/null
+++ b/material-theme.el
@@ -0,0 +1,636 @@
+;;; material-theme.el --- A Theme based on the colors of the Google Material 
Design
+
+;; Copyright (C) 2014 Paulik Christoph
+
+;; Author: Christoph Paulik <cpaulik@gmail.com>
+;; Keywords: themes
+;; URL: http://github.com/cpaulik/emacs-material-theme
+;; Version: 2015
+;; X-Original-Version: 0.1
+;; Package-Requires: ((emacs "24.1"))
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; To use it, put the following in your Emacs configuration file:
+;;
+;;   (load-theme 'material t)
+;;
+;; Requirements: Emacs 24.
+
+;;; Credits:
+
+;; Thanks to Bruce Williams of the Spacegray Theme which was used as the 
boilerplate:
+;; https://github.com/bruce/emacs-spacegray-theme
+
+;;; Code:
+
+(deftheme material
+  "A UI Theme for Emacs based on material design colors")
+(display-color-cells (selected-frame))
+(let* ((class '((class color) (min-colors 89)))
+       (256color (eq (display-color-cells (selected-frame)) 256))
+
+       (background "#263238") ;; sidebar-container
+       (current-line "#37474f") ;; tree-row
+       (far-background "#1c1f26") ;; panel-control
+       (subtle "#a7adba") ;; tree-row-hover-disclosure-button-control
+       (selection "#555555") ;; tab-control-dirty-tab-close-button
+       (secondary-selection "#bf616a") ;; tab-control-hover-tab-close-button
+       (foreground "#ffffff")
+       (comment "#b0bec5") ;; table-row
+       (red "#f36c60") ;; tab-control-hover-tab-close-button
+       (orange "#ff9800") ;; darker tab-control-dirty-tab-close-butto
+       (yellow "#fff59d") ;; tab-control-dirty-tab-close-button
+       (green "#8bc34a") ;; complement tab-control-dirty-tab-close-button
+       (aqua "#81d4fa") ;; lighter complement 
tab-control-dirty-tab-close-button
+       (blue "#4dd0e1") ;; complement tab-control-dirty-tab-close-button
+       (purple "#b39ddb")) ;; complement tab-control-dirty-tab-close-button
+
+  (custom-theme-set-faces
+   'material
+   `(default ((,class (:foreground ,foreground :background ,background))))
+   `(bold ((,class (:weight bold))))
+   `(bold-italic ((,class (:slant italic :weight bold))))
+   `(underline ((,class (:underline t))))
+   `(italic ((,class (:slant italic))))
+   `(font-lock-builtin-face ((,class (:foreground "#ff7043"))))
+   `(font-lock-comment-delimiter-face ((,class (:foreground ,comment))))
+   `(font-lock-comment-face ((,class (:foreground ,comment))))
+   `(font-lock-constant-face ((,class (:foreground ,green))))
+   `(font-lock-doc-face ((,class (:foreground "moccasin"))))
+   `(font-lock-doc-string-face ((,class (:foreground ,yellow))))
+   `(font-lock-function-name-face ((,class (:foreground ,"#b3e5fc"))))
+   `(font-lock-keyword-face ((,class (:foreground ,yellow))))
+   `(font-lock-negation-char-face ((,class (:foreground ,blue))))
+   `(font-lock-preprocessor-face ((,class (:foreground "gold"))))
+   `(font-lock-regexp-grouping-backslash ((,class (:foreground ,yellow))))
+   `(font-lock-regexp-grouping-construct ((,class (:foreground ,purple))))
+   `(font-lock-string-face ((,class (:foreground "#9ccc65"))))
+   `(font-lock-type-face ((,class (:foreground "CadetBlue1"))))
+   `(font-lock-variable-name-face ((,class (:foreground ,yellow))))
+   `(font-lock-warning-face ((,class (:weight bold :foreground ,red))))
+   `(shadow ((,class (:foreground ,comment))))
+   `(success ((,class (:foreground "SeaGreen2"))))
+   `(error ((,class (:foreground ,red))))
+   `(warning ((,class (:foreground ,orange))))
+
+   ;; Flycheck
+   `(flycheck-error ((,class (:underline (:style wave :color ,red)))))
+   `(flycheck-warning ((,class (:underline (:style wave :color ,orange)))))
+
+   ;; Flymake
+   `(flymake-warnline ((,class (:underline (:style wave :color ,orange) 
:background ,background))))
+   `(flymake-errline ((,class (:underline (:style wave :color ,red) 
:background ,background))))
+
+   ;; Clojure errors
+   `(clojure-test-failure-face ((,class (:background nil :inherit 
flymake-warnline))))
+   `(clojure-test-error-face ((,class (:background nil :inherit 
flymake-errline))))
+   `(clojure-test-success-face ((,class (:background nil :foreground nil 
:underline ,green))))
+
+   ;; EDTS errors
+   `(edts-face-warning-line ((t (:background nil :inherit flymake-warnline))))
+   `(edts-face-warning-mode-line ((,class (:background nil :foreground ,orange 
:weight bold))))
+   `(edts-face-error-line ((t (:background nil :inherit flymake-errline))))
+   `(edts-face-error-mode-line ((,class (:background nil :foreground ,red 
:weight bold))))
+
+   ;; For Brian Carper's extended clojure syntax table
+   `(clojure-keyword ((,class (:foreground ,yellow))))
+   `(clojure-parens ((,class (:foreground ,foreground))))
+   `(clojure-braces ((,class (:foreground ,green))))
+   `(clojure-brackets ((,class (:foreground ,yellow))))
+   `(clojure-double-quote ((,class (:foreground ,aqua :background nil))))
+   `(clojure-special ((,class (:foreground ,blue))))
+   `(clojure-java-call ((,class (:foreground ,purple))))
+
+   ;; Rainbow-delimiters
+   `(rainbow-delimiters-depth-1-face ((,class (:foreground ,foreground))))
+   `(rainbow-delimiters-depth-2-face ((,class (:foreground ,aqua))))
+   `(rainbow-delimiters-depth-3-face ((,class (:foreground ,yellow))))
+   `(rainbow-delimiters-depth-4-face ((,class (:foreground ,green))))
+   `(rainbow-delimiters-depth-5-face ((,class (:foreground ,blue))))
+   `(rainbow-delimiters-depth-6-face ((,class (:foreground ,foreground))))
+   `(rainbow-delimiters-depth-7-face ((,class (:foreground ,aqua))))
+   `(rainbow-delimiters-depth-8-face ((,class (:foreground ,yellow))))
+   `(rainbow-delimiters-depth-9-face ((,class (:foreground ,green))))
+   `(rainbow-delimiters-unmatched-face ((,class (:foreground ,red))))
+
+   ;; MMM-mode
+   `(mmm-code-submode-face ((,class (:background ,current-line))))
+   `(mmm-comment-submode-face ((,class (:inherit font-lock-comment-face))))
+   `(mmm-output-submode-face ((,class (:background ,current-line))))
+
+   ;; Search
+   `(match ((,class (:foreground ,selection :background ,current-line 
:inverse-video nil))))
+   `(isearch ((,class (:foreground ,selection :background ,current-line))))
+   `(isearch-lazy-highlight-face ((,class (:foreground ,selection :background 
nil :inverse-video nil))))
+   `(isearch-fail ((,class (:background ,background :inherit 
font-lock-warning-face :inverse-video t))))
+
+   ;; Anzu
+   `(anzu-mode-line ((,class (:foreground ,orange))))
+   `(anzu-replace-highlight ((,class (:inherit isearch-lazy-highlight-face))))
+   `(anzu-replace-to ((,class (:inherit isearch))))
+
+   ;; IDO
+   `(ido-subdir ((,class (:foreground ,purple))))
+   `(ido-first-match ((,class (:foreground ,orange))))
+   `(ido-only-match ((,class (:foreground ,green))))
+   `(ido-indicator ((,class (:foreground ,red :background ,background))))
+   `(ido-virtual ((,class (:foreground ,comment))))
+
+   ;; flx-ido
+   `(flx-highlight-face ((,class (:inherit nil :foreground ,yellow :weight 
bold :underline nil))))
+
+   ;; which-function
+   `(which-func ((,class (:foreground ,blue :background nil))))
+
+   ;; Emacs interface
+   `(cursor ((,class (:background ,orange))))
+   `(fringe ((,class (:background ,background))))
+   `(linum ((,class (:background ,background :foreground ,subtle))))
+   `(linum-highlight-face ((,class (:background ,current-line :foreground 
,foreground))))
+   `(border ((,class (:background ,current-line))))
+   `(border-glyph ((,class (nil))))
+   `(highlight ((,class (:inverse-video nil :background ,current-line))))
+   `(gui-element ((,class (:background ,current-line :foreground 
,foreground))))
+   `(mode-line ((,class (:foreground ,foreground :background ,far-background
+                                     :family "Lucida Grande"))))
+   `(mode-line-buffer-id ((,class (:foreground ,foreground :background nil))))
+   `(mode-line-inactive ((,class (:inherit mode-line
+                                           :foreground ,subtle
+                                           :background ,far-background :weight 
normal
+                                           :box nil))))
+   `(mode-line-emphasis ((,class (:foreground ,foreground :slant italic))))
+   `(mode-line-highlight ((,class (:foreground ,purple :box nil))))
+   `(minibuffer-prompt ((,class (:foreground ,blue))))
+   `(region ((,class (:background ,selection :foreground ,background))))
+   `(secondary-selection ((,class (:background ,secondary-selection))))
+
+   `(header-line ((,class (:inherit mode-line :foreground ,purple :background 
nil))))
+
+   `(trailing-whitespace ((,class (:foreground ,red :inverse-video t 
:underline nil))))
+   `(whitespace-trailing ((,class (:foreground ,red :inverse-video t 
:underline nil))))
+   `(whitespace-space-after-tab ((,class (:foreground ,red :inverse-video t 
:underline nil))))
+   `(whitespace-space-before-tab ((,class (:foreground ,red :inverse-video t 
:underline nil))))
+   `(whitespace-empty ((,class (:foreground ,red :inverse-video t :underline 
nil))))
+   `(whitespace-line ((,class (:background nil :foreground ,red))))
+   `(whitespace-indentation ((,class (:background nil :foreground ,aqua))))
+   `(whitespace-space ((,class (:background nil :foreground ,selection))))
+   `(whitespace-newline ((,class (:background nil :foreground ,selection))))
+   `(whitespace-tab ((,class (:background nil :foreground ,selection))))
+   `(whitespace-hspace ((,class (:background nil :foreground ,selection))))
+
+   ;; Parenthesis matching (built-in)
+   `(show-paren-match-face ((,class (:background "dodgerblue1" :foreground 
"white"))))
+   `(show-paren-mismatch-face ((,class (:background "red1" :foreground 
"white"))))
+
+   ;; Smartparens paren matching
+   `(sp-show-pair-match-face ((,class (:foreground nil :background nil 
:inherit show-paren-match))))
+   `(sp-show-pair-mismatch-face ((,class (:foreground nil :background nil 
:inherit show-paren-mismatch))))
+
+   ;; Parenthesis matching (mic-paren)
+   `(paren-face-match ((,class (:foreground nil :background nil :inherit 
show-paren-match))))
+   `(paren-face-mismatch ((,class (:foreground nil :background nil :inherit 
show-paren-mismatch))))
+   `(paren-face-no-match ((,class (:foreground nil :background nil :inherit 
show-paren-mismatch))))
+
+   ;; Parenthesis dimming (parenface)
+   `(paren-face ((,class (:foreground ,comment :background nil))))
+
+   `(sh-heredoc ((,class (:foreground nil :inherit font-lock-string-face 
:weight normal))))
+   `(sh-quoted-exec ((,class (:foreground nil :inherit 
font-lock-preprocessor-face))))
+   `(slime-highlight-edits-face ((,class (:weight bold))))
+   `(slime-repl-input-face ((,class (:weight normal :underline nil))))
+   `(slime-repl-prompt-face ((,class (:underline nil :weight bold :foreground 
,purple))))
+   `(slime-repl-result-face ((,class (:foreground ,green))))
+   `(slime-repl-output-face ((,class (:foreground ,blue :background 
,background))))
+
+   `(csv-separator-face ((,class (:foreground ,orange))))
+
+   `(diff-added ((,class (:foreground ,green))))
+   `(diff-changed ((,class (:foreground ,purple))))
+   `(diff-removed ((,class (:foreground ,orange))))
+   `(diff-header ((,class (:foreground ,aqua :background nil))))
+   `(diff-file-header ((,class (:foreground ,blue :background nil))))
+   `(diff-hunk-header ((,class (:foreground ,purple))))
+   `(diff-refine-added ((,class (:inherit diff-added :inverse-video t))))
+   `(diff-refine-removed ((,class (:inherit diff-removed :inverse-video t))))
+
+   `(ediff-even-diff-A ((,class (:foreground nil :background nil 
:inverse-video t))))
+   `(ediff-even-diff-B ((,class (:foreground nil :background nil 
:inverse-video t))))
+   `(ediff-odd-diff-A  ((,class (:foreground ,comment :background nil 
:inverse-video t))))
+   `(ediff-odd-diff-B  ((,class (:foreground ,comment :background nil 
:inverse-video t))))
+
+   `(eldoc-highlight-function-argument ((,class (:foreground ,green :weight 
bold))))
+
+   ;; macrostep
+   `(macrostep-expansion-highlight-face ((,class (:inherit highlight 
:foreground nil))))
+
+   ;; undo-tree
+   `(undo-tree-visualizer-default-face ((,class (:foreground ,foreground))))
+   `(undo-tree-visualizer-current-face ((,class (:foreground ,green :weight 
bold))))
+   `(undo-tree-visualizer-active-branch-face ((,class (:foreground ,red))))
+   `(undo-tree-visualizer-register-face ((,class (:foreground ,yellow))))
+
+   ;; dired+
+   `(diredp-compressed-file-suffix ((,class (:foreground ,blue))))
+   `(diredp-deletion ((,class (:inherit error :inverse-video t))))
+   `(diredp-deletion-file-name ((,class (:inherit error))))
+   `(diredp-dir-heading ((,class (:foreground ,green :weight bold))))
+   `(diredp-dir-priv ((,class (:foreground ,aqua :background nil))))
+   `(diredp-exec-priv ((,class (:foreground ,blue :background nil))))
+   `(diredp-executable-tag ((,class (:foreground ,red :background nil))))
+   `(diredp-file-name ((,class (:foreground ,yellow))))
+   `(diredp-file-suffix ((,class (:foreground ,green))))
+   `(diredp-flag-mark ((,class (:foreground ,green :inverse-video t))))
+   `(diredp-flag-mark-line ((,class (:background nil :inherit highlight))))
+   `(diredp-ignored-file-name ((,class (:foreground ,comment))))
+   `(diredp-link-priv ((,class (:background nil :foreground ,purple))))
+   `(diredp-mode-line-flagged ((,class (:foreground ,red))))
+   `(diredp-mode-line-marked ((,class (:foreground ,green))))
+   `(diredp-no-priv ((,class (:background nil))))
+   `(diredp-number ((,class (:foreground ,yellow))))
+   `(diredp-other-priv ((,class (:background nil :foreground ,purple))))
+   `(diredp-rare-priv ((,class (:foreground ,red :background nil))))
+   `(diredp-read-priv ((,class (:foreground ,green :background nil))))
+   `(diredp-symlink ((,class (:foreground ,purple))))
+   `(diredp-write-priv ((,class (:foreground ,yellow :background nil))))
+
+   ;; Magit (a patch is pending in magit to make these standard upstream)
+   `(magit-branch ((,class (:foreground ,green))))
+   `(magit-diff-add ((,class (:inherit diff-added))))
+   `(magit-diff-del ((,class (:inherit diff-removed))))
+   `(magit-header ((,class (:inherit nil :weight bold))))
+   `(magit-item-highlight ((,class (:inherit highlight :background nil))))
+   `(magit-log-author ((,class (:foreground ,aqua))))
+   `(magit-log-graph ((,class (:foreground ,comment))))
+   `(magit-log-head-label-bisect-bad ((,class (:foreground ,red))))
+   `(magit-log-head-label-bisect-good ((,class (:foreground ,green))))
+   `(magit-log-head-label-default ((,class (:foreground ,yellow :box nil 
:weight bold))))
+   `(magit-log-head-label-local ((,class (:foreground ,purple :box nil :weight 
bold))))
+   `(magit-log-head-label-remote ((,class (:foreground ,purple :box nil 
:weight bold))))
+   `(magit-log-head-label-tags ((,class (:foreground ,aqua :box nil :weight 
bold))))
+   `(magit-log-sha1 ((,class (:foreground ,yellow))))
+   `(magit-section-title ((,class (:foreground ,blue :weight bold))))
+
+   ;; git-gutter
+   `(git-gutter:modified ((,class (:foreground ,purple :weight bold))))
+   `(git-gutter:added ((,class (:foreground ,green :weight bold))))
+   `(git-gutter:deleted ((,class (:foreground ,red :weight bold))))
+   `(git-gutter:unchanged ((,class (:background ,yellow))))
+
+   ;; git-gutter-fringe
+   `(git-gutter-fr:modified ((,class (:foreground ,purple :weight bold))))
+   `(git-gutter-fr:added ((,class (:foreground ,green :weight bold))))
+   `(git-gutter-fr:deleted ((,class (:foreground ,red :weight bold))))
+
+   `(link ((,class (:foreground nil :underline t))))
+   `(widget-button ((,class (:underline t))))
+   `(widget-field ((,class (:background ,current-line :box (:line-width 1 
:color ,foreground)))))
+
+   ;; Compilation (most faces politely inherit from 'success, 'error, 'warning 
etc.)
+   `(compilation-column-number ((,class (:foreground ,yellow))))
+   `(compilation-line-number ((,class (:foreground ,yellow))))
+   `(compilation-message-face ((,class (:foreground ,blue))))
+   `(compilation-mode-line-exit ((,class (:foreground ,green))))
+   `(compilation-mode-line-fail ((,class (:foreground ,red))))
+   `(compilation-mode-line-run ((,class (:foreground ,blue))))
+
+   ;; Grep
+   `(grep-context-face ((,class (:foreground ,comment))))
+   `(grep-error-face ((,class (:foreground ,red :weight bold :underline t))))
+   `(grep-hit-face ((,class (:foreground ,blue))))
+   `(grep-match-face ((,class (:foreground nil :background nil :inherit 
match))))
+
+   `(regex-tool-matched-face ((,class (:foreground nil :background nil 
:inherit match))))
+
+   ;; Helm
+   `(helm-header ((,class (:foreground ,foreground :background ,background))))
+   `(helm-selection ((,class (:foreground ,red :background ,current-line))))
+   `(helm-ff-file ((,class (:foreground ,aqua ))))
+   `(helm-ff-directory ((,class (:background ,"#cfd8dc" :foreground 
,"#000000"))))
+
+   `(helm-source-header ((,class (:background ,green :height 1.3 :bold t ))))
+
+   ;; mark-multiple
+   `(mm/master-face ((,class (:inherit region :foreground nil :background 
nil))))
+   `(mm/mirror-face ((,class (:inherit region :foreground nil :background 
nil))))
+
+   `(org-agenda-structure ((,class (:foreground ,aqua :bold t))))
+   `(org-agenda-date ((,class (:foreground ,blue :underline nil))))
+   `(org-agenda-done ((,class (:foreground ,green))))
+   `(org-agenda-dimmed-todo-face ((,class (:foreground ,comment))))
+   `(org-block ((,class (:foreground ,orange))))
+   `(org-block-background ((,class (:background "#1F2232"))))
+   `(org-code ((,class (:foreground ,yellow))))
+   `(org-column ((,class (:background ,current-line))))
+   `(org-column-title ((,class (:inherit org-column :weight bold :underline 
t))))
+   `(org-date ((,class (:foreground ,blue :underline t))))
+   `(org-document-info ((,class (:foreground ,aqua))))
+   `(org-document-info-keyword ((,class (:foreground ,green))))
+   `(org-document-title ((,class (:weight bold :foreground ,orange :height 
1.44))))
+   `(org-done ((,class (:foreground ,green :bold t))))
+   `(org-ellipsis ((,class (:foreground ,comment))))
+   `(org-footnote ((,class (:foreground ,aqua))))
+   `(org-formula ((,class (:foreground ,red))))
+   `(org-hide ((,class (:foreground ,background :background ,background))))
+   `(org-link ((,class (:foreground ,blue :underline t))))
+   `(org-scheduled ((,class (:foreground ,green))))
+   `(org-scheduled-previously ((,class (:foreground ,orange))))
+   `(org-scheduled-today ((,class (:foreground ,green))))
+   `(org-special-keyword ((,class (:foreground ,orange))))
+   `(org-table ((,class (:foreground ,"#eeeeee"))))
+   `(org-todo ((,class (:foreground ,red :bold t))))
+   `(org-upcoming-deadline ((,class (:foreground ,orange))))
+   `(org-warning ((,class (:weight bold :foreground ,red))))
+
+   `(markdown-url-face ((,class (:inherit link))))
+   `(markdown-link-face ((,class (:foreground ,blue :underline t))))
+
+   ;`(hl-sexp-face ((,class (:background ,current-line))))
+   `(highlight-symbol-face ((,class (:background ,selection))))
+   `(highlight-80+ ((,class (:background ,current-line))))
+
+   ;; Python-specific overrides
+   `(py-builtins-face ((,class (:foreground ,"#ff7043" :weight normal))))
+
+   ;; js2-mode
+   `(js2-warning ((,class (:underline ,orange))))
+   `(js2-error ((,class (:foreground nil :underline ,red))))
+   `(js2-external-variable ((,class (:foreground ,purple))))
+   `(js2-function-param ((,class (:foreground ,blue))))
+   `(js2-instance-member ((,class (:foreground ,blue))))
+   `(js2-private-function-call ((,class (:foreground ,red))))
+
+   ;; js3-mode
+   `(js3-warning-face ((,class (:underline ,orange))))
+   `(js3-error-face ((,class (:foreground nil :underline ,red))))
+   `(js3-external-variable-face ((,class (:foreground ,purple))))
+   `(js3-function-param-face ((,class (:foreground ,blue))))
+   `(js3-jsdoc-tag-face ((,class (:foreground ,orange))))
+   `(js3-jsdoc-type-face ((,class (:foreground ,aqua))))
+   `(js3-jsdoc-value-face ((,class (:foreground ,yellow))))
+   `(js3-jsdoc-html-tag-name-face ((,class (:foreground ,blue))))
+   `(js3-jsdoc-html-tag-delimiter-face ((,class (:foreground ,green))))
+   `(js3-instance-member-face ((,class (:foreground ,blue))))
+   `(js3-private-function-call-face ((,class (:foreground ,red))))
+
+   ;; coffee-mode
+   `(coffee-mode-class-name ((,class (:foreground ,orange :weight bold))))
+   `(coffee-mode-function-param ((,class (:foreground ,purple))))
+
+   ;; nxml
+   `(nxml-name-face ((,class (:foreground unspecified :inherit 
font-lock-constant-face))))
+   `(nxml-attribute-local-name-face ((,class (:foreground unspecified :inherit 
font-lock-variable-name-face))))
+   `(nxml-ref-face ((,class (:foreground unspecified :inherit 
font-lock-preprocessor-face))))
+   `(nxml-delimiter-face ((,class (:foreground unspecified :inherit 
font-lock-keyword-face))))
+   `(nxml-delimited-data-face ((,class (:foreground unspecified :inherit 
font-lock-string-face))))
+   `(rng-error-face ((,class (:underline ,red))))
+
+   ;; RHTML
+   `(erb-delim-face ((,class (:background ,current-line))))
+   `(erb-exec-face ((,class (:background ,current-line :weight bold))))
+   `(erb-exec-delim-face ((,class (:background ,current-line))))
+   `(erb-out-face ((,class (:background ,current-line :weight bold))))
+   `(erb-out-delim-face ((,class (:background ,current-line))))
+   `(erb-comment-face ((,class (:background ,current-line :weight bold :slant 
italic))))
+   `(erb-comment-delim-face ((,class (:background ,current-line))))
+
+   ;; Message-mode
+   `(message-header-other ((,class (:foreground nil :background nil :weight 
normal))))
+   `(message-header-subject ((,class (:inherit message-header-other :weight 
bold :foreground ,yellow))))
+   `(message-header-to ((,class (:inherit message-header-other :weight bold 
:foreground ,orange))))
+   `(message-header-cc ((,class (:inherit message-header-to :foreground nil))))
+   `(message-header-name ((,class (:foreground ,blue :background nil))))
+   `(message-header-newsgroups ((,class (:foreground ,aqua :background nil 
:slant normal))))
+   `(message-separator ((,class (:foreground ,purple))))
+
+   ;; Jabber
+   `(jabber-chat-prompt-local ((,class (:foreground ,yellow))))
+   `(jabber-chat-prompt-foreign ((,class (:foreground ,orange))))
+   `(jabber-chat-prompt-system ((,class (:foreground ,yellow :weight bold))))
+   `(jabber-chat-text-local ((,class (:foreground ,yellow))))
+   `(jabber-chat-text-foreign ((,class (:foreground ,orange))))
+   `(jabber-chat-text-error ((,class (:foreground ,red))))
+
+   `(jabber-roster-user-online ((,class (:foreground ,green))))
+   `(jabber-roster-user-xa ((,class :foreground ,comment)))
+   `(jabber-roster-user-dnd ((,class :foreground ,yellow)))
+   `(jabber-roster-user-away ((,class (:foreground ,orange))))
+   `(jabber-roster-user-chatty ((,class (:foreground ,purple))))
+   `(jabber-roster-user-error ((,class (:foreground ,red))))
+   `(jabber-roster-user-offline ((,class (:foreground ,comment))))
+
+   `(jabber-rare-time-face ((,class (:foreground ,comment))))
+   `(jabber-activity-face ((,class (:foreground ,purple))))
+   `(jabber-activity-personal-face ((,class (:foreground ,aqua))))
+
+   ;; Powerline
+   `(powerline-active1 ((t (:foreground ,foreground :background ,selection))))
+   `(powerline-active2 ((t (:foreground ,foreground :background 
,current-line))))
+
+   ;; Outline
+   `(outline-1 ((,class (:inherit nil :foreground ,"SkyBlue1"))))
+   `(outline-2 ((,class (:inherit nil :foreground ,yellow))))
+   `(outline-3 ((,class (:inherit nil :foreground ,"#4dd0e1"))))
+   `(outline-4 ((,class (:inherit nil :foreground ,"#aed581"))))
+   `(outline-5 ((,class (:inherit nil :foreground ,orange))))
+   `(outline-6 ((,class (:inherit nil :foreground ,"CadetBlue1"))))
+   `(outline-7 ((,class (:inherit nil :foreground ,"aquamarine1"))))
+   `(outline-8 ((,class (:inherit nil :foreground ,purple))))
+   `(outline-9 ((,class (:inherit nil :foreground ,"LightSteelBlue1"))))
+
+   ;; Ledger-mode
+   `(ledger-font-comment-face ((,class (:inherit font-lock-comment-face))))
+   `(ledger-font-occur-narrowed-face ((,class (:inherit font-lock-comment-face 
:invisible t))))
+   `(ledger-font-occur-xact-face ((,class (:inherit highlight))))
+   `(ledger-font-payee-cleared-face ((,class (:foreground ,green))))
+   `(ledger-font-payee-uncleared-face ((,class (:foreground ,aqua))))
+   `(ledger-font-posting-account-cleared-face ((,class (:foreground ,blue))))
+   `(ledger-font-posting-account-face ((,class (:foreground ,purple))))
+   `(ledger-font-posting-account-pending-face ((,class (:foreground ,yellow))))
+   `(ledger-font-xact-highlight-face ((,class (:inherit highlight))))
+   `(ledger-occur-narrowed-face ((,class (:inherit font-lock-comment-face 
:invisible t))))
+   `(ledger-occur-xact-face ((,class (:inherit highlight))))
+
+   ;; mu4e
+   `(mu4e-header-highlight-face ((,class (:underline nil :inherit region))))
+   `(mu4e-header-marks-face ((,class (:underline nil :foreground ,yellow))))
+   `(mu4e-flagged-face ((,class (:foreground ,orange :inherit nil))))
+   `(mu4e-replied-face ((,class (:foreground ,blue :inherit nil))))
+   `(mu4e-unread-face ((,class (:foreground ,yellow :inherit nil))))
+   `(mu4e-cited-1-face ((,class (:inherit outline-1 :slant normal))))
+   `(mu4e-cited-2-face ((,class (:inherit outline-2 :slant normal))))
+   `(mu4e-cited-3-face ((,class (:inherit outline-3 :slant normal))))
+   `(mu4e-cited-4-face ((,class (:inherit outline-4 :slant normal))))
+   `(mu4e-cited-5-face ((,class (:inherit outline-5 :slant normal))))
+   `(mu4e-cited-6-face ((,class (:inherit outline-6 :slant normal))))
+   `(mu4e-cited-7-face ((,class (:inherit outline-7 :slant normal))))
+   `(mu4e-ok-face ((,class (:foreground ,green))))
+   `(mu4e-view-contact-face ((,class (:inherit nil :foreground ,yellow))))
+   `(mu4e-view-link-face ((,class (:inherit link :foreground ,blue))))
+   `(mu4e-view-url-number-face ((,class (:inherit nil :foreground ,aqua))))
+   `(mu4e-view-attach-number-face ((,class (:inherit nil :foreground 
,orange))))
+   `(mu4e-highlight-face ((,class (:inherit highlight))))
+   `(mu4e-title-face ((,class (:inherit nil :foreground ,green))))
+
+   ;; Gnus
+   `(gnus-cite-1 ((,class (:inherit outline-1 :foreground nil))))
+   `(gnus-cite-2 ((,class (:inherit outline-2 :foreground nil))))
+   `(gnus-cite-3 ((,class (:inherit outline-3 :foreground nil))))
+   `(gnus-cite-4 ((,class (:inherit outline-4 :foreground nil))))
+   `(gnus-cite-5 ((,class (:inherit outline-5 :foreground nil))))
+   `(gnus-cite-6 ((,class (:inherit outline-6 :foreground nil))))
+   `(gnus-cite-7 ((,class (:inherit outline-7 :foreground nil))))
+   `(gnus-cite-8 ((,class (:inherit outline-8 :foreground nil))))
+   ;; there are several more -cite- faces...
+   `(gnus-header-content ((,class (:inherit message-header-other))))
+   `(gnus-header-subject ((,class (:inherit message-header-subject))))
+   `(gnus-header-from ((,class (:inherit message-header-other-face :weight 
bold :foreground ,orange))))
+   `(gnus-header-name ((,class (:inherit message-header-name))))
+   `(gnus-button ((,class (:inherit link :foreground nil))))
+   `(gnus-signature ((,class (:inherit font-lock-comment-face))))
+
+   `(gnus-summary-normal-unread ((,class (:foreground ,blue :weight normal))))
+   `(gnus-summary-normal-read ((,class (:foreground ,foreground :weight 
normal))))
+   `(gnus-summary-normal-ancient ((,class (:foreground ,aqua :weight normal))))
+   `(gnus-summary-normal-ticked ((,class (:foreground ,orange :weight 
normal))))
+   `(gnus-summary-low-unread ((,class (:foreground ,comment :weight normal))))
+   `(gnus-summary-low-read ((,class (:foreground ,comment :weight normal))))
+   `(gnus-summary-low-ancient ((,class (:foreground ,comment :weight normal))))
+   `(gnus-summary-high-unread ((,class (:foreground ,yellow :weight normal))))
+   `(gnus-summary-high-read ((,class (:foreground ,green :weight normal))))
+   `(gnus-summary-high-ancient ((,class (:foreground ,green :weight normal))))
+   `(gnus-summary-high-ticked ((,class (:foreground ,orange :weight normal))))
+   `(gnus-summary-cancelled ((,class (:foreground ,red :background nil :weight 
normal))))
+
+   `(gnus-group-mail-low ((,class (:foreground ,comment))))
+   `(gnus-group-mail-low-empty ((,class (:foreground ,comment))))
+   `(gnus-group-mail-1 ((,class (:foreground nil :weight normal :inherit 
outline-1))))
+   `(gnus-group-mail-2 ((,class (:foreground nil :weight normal :inherit 
outline-2))))
+   `(gnus-group-mail-3 ((,class (:foreground nil :weight normal :inherit 
outline-3))))
+   `(gnus-group-mail-4 ((,class (:foreground nil :weight normal :inherit 
outline-4))))
+   `(gnus-group-mail-5 ((,class (:foreground nil :weight normal :inherit 
outline-5))))
+   `(gnus-group-mail-6 ((,class (:foreground nil :weight normal :inherit 
outline-6))))
+   `(gnus-group-mail-1-empty ((,class (:inherit gnus-group-mail-1 :foreground 
,comment))))
+   `(gnus-group-mail-2-empty ((,class (:inherit gnus-group-mail-2 :foreground 
,comment))))
+   `(gnus-group-mail-3-empty ((,class (:inherit gnus-group-mail-3 :foreground 
,comment))))
+   `(gnus-group-mail-4-empty ((,class (:inherit gnus-group-mail-4 :foreground 
,comment))))
+   `(gnus-group-mail-5-empty ((,class (:inherit gnus-group-mail-5 :foreground 
,comment))))
+   `(gnus-group-mail-6-empty ((,class (:inherit gnus-group-mail-6 :foreground 
,comment))))
+   `(gnus-group-news-1 ((,class (:foreground nil :weight normal :inherit 
outline-5))))
+   `(gnus-group-news-2 ((,class (:foreground nil :weight normal :inherit 
outline-6))))
+   `(gnus-group-news-3 ((,class (:foreground nil :weight normal :inherit 
outline-7))))
+   `(gnus-group-news-4 ((,class (:foreground nil :weight normal :inherit 
outline-8))))
+   `(gnus-group-news-5 ((,class (:foreground nil :weight normal :inherit 
outline-1))))
+   `(gnus-group-news-6 ((,class (:foreground nil :weight normal :inherit 
outline-2))))
+   `(gnus-group-news-1-empty ((,class (:inherit gnus-group-news-1 :foreground 
,comment))))
+   `(gnus-group-news-2-empty ((,class (:inherit gnus-group-news-2 :foreground 
,comment))))
+   `(gnus-group-news-3-empty ((,class (:inherit gnus-group-news-3 :foreground 
,comment))))
+   `(gnus-group-news-4-empty ((,class (:inherit gnus-group-news-4 :foreground 
,comment))))
+   `(gnus-group-news-5-empty ((,class (:inherit gnus-group-news-5 :foreground 
,comment))))
+   `(gnus-group-news-6-empty ((,class (:inherit gnus-group-news-6 :foreground 
,comment))))
+
+   ;; emms
+   `(emms-playlist-selected-face ((,class (:foreground ,orange))))
+   `(emms-playlist-track-face ((,class (:foreground ,blue))))
+   `(emms-browser-track-face ((,class (:foreground ,blue))))
+   `(emms-browser-artist-face ((,class (:foreground ,red :height 1.3))))
+   `(emms-browser-composer-face ((,class (:inherit emms-browser-artist-face))))
+   `(emms-browser-performer-face ((,class (:inherit 
emms-browser-artist-face))))
+   `(emms-browser-album-face ((,class (:foreground ,green :height 1.2))))
+
+   ;; stripe-buffer
+   `(stripe-highlight ((,class (:background ,current-line))))
+   `(stripe-hl-line ((,class (:background ,selection :foreground 
,foreground))))
+
+   ;; erc
+   `(erc-direct-msg-face ((,class (:foreground ,orange))))
+   `(erc-error-face ((,class (:foreground ,red))))
+   `(erc-header-face ((,class (:foreground ,foreground :background 
,selection))))
+   `(erc-input-face ((,class (:foreground ,green))))
+   `(erc-keyword-face ((,class (:foreground ,yellow))))
+   `(erc-current-nick-face ((,class (:foreground ,green))))
+   `(erc-my-nick-face ((,class (:foreground ,green))))
+   `(erc-nick-default-face ((,class (:weight normal :foreground ,purple))))
+   `(erc-nick-msg-face ((,class (:weight normal :foreground ,yellow))))
+   `(erc-notice-face ((,class (:foreground ,comment))))
+   `(erc-pal-face ((,class (:foreground ,orange))))
+   `(erc-prompt-face ((,class (:foreground ,blue))))
+   `(erc-timestamp-face ((,class (:foreground ,aqua))))
+   `(erc-keyword-face ((,class (:foreground ,green))))
+
+   ;; twittering-mode
+   `(twittering-username-face ((,class (:inherit erc-pal-face))))
+   `(twittering-uri-face ((,class (:foreground ,blue :inherit link))))
+   `(twittering-timeline-header-face ((,class (:foreground ,green :weight 
bold))))
+   `(twittering-timeline-footer-face ((,class (:inherit 
twittering-timeline-header-face))))
+
+   `(custom-variable-tag ((,class (:foreground ,blue))))
+   `(custom-group-tag ((,class (:foreground ,blue))))
+   `(custom-state ((,class (:foreground ,green))))
+
+   ;; ansi-term
+   `(term ((,class (:foreground nil :background nil :inherit default))))
+   `(term-color-black   ((,class (:foreground ,foreground :background 
,foreground))))
+   `(term-color-red     ((,class (:foreground ,red :background ,red))))
+   `(term-color-green   ((,class (:foreground ,green :background ,green))))
+   `(term-color-yellow  ((,class (:foreground ,yellow :background ,yellow))))
+   `(term-color-blue    ((,class (:foreground ,blue :background ,blue))))
+   `(term-color-magenta ((,class (:foreground ,purple :background ,purple))))
+   `(term-color-cyan    ((,class (:foreground ,aqua :background ,aqua))))
+   `(term-color-white   ((,class (:foreground ,background :background 
,background)))))
+
+  (custom-theme-set-variables
+   'material
+   `(fci-rule-color ,current-line)
+   `(vc-annotate-color-map
+     '((20  . ,red)
+       (40  . ,orange)
+       (60  . ,yellow)
+       (80  . ,green)
+       (100 . ,aqua)
+       (120 . ,blue)
+       (140 . ,purple)
+       (160 . ,red)
+       (180 . ,orange)
+       (200 . ,yellow)
+       (220 . ,green)
+       (240 . ,aqua)
+       (260 . ,blue)
+       (280 . ,purple)
+       (300 . ,red)
+       (320 . ,orange)
+       (340 . ,yellow)
+       (360 . ,green)))
+   `(vc-annotate-very-old-color nil)
+   `(vc-annotate-background nil)
+   `(ansi-color-names-vector (vector ,foreground ,red ,green ,yellow ,blue 
,purple ,aqua ,background))
+   '(ansi-color-faces-vector [default bold shadow italic underline bold 
bold-italic bold])))
+
+;;;###autoload
+(when (and (boundp 'custom-theme-load-path)
+           load-file-name)
+  ;; add theme folder to `custom-theme-load-path' when installing over MELPA
+  (add-to-list 'custom-theme-load-path
+               (file-name-as-directory (file-name-directory load-file-name))))
+
+(provide-theme 'material)
+
+;; Local Variables:
+;; rainbow-mode: t
+;; hl-sexp-mode: nil
+;; End:
+
+;;; material-theme.el ends here
diff --git a/material-theme.png b/material-theme.png
new file mode 100644
index 0000000..81b799c
Binary files /dev/null and b/material-theme.png differ



reply via email to

[Prev in Thread] Current Thread [Next in Thread]