;;; misterioso-theme.el --- Custom face theme for Emacs ;; Copyright (C) 2011-2017 Free Software Foundation, Inc. ;; Author: Sebastian Hermida ;; This file is part of GNU Emacs. ;; GNU Emacs 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. ;; GNU Emacs 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 GNU Emacs. If not, see . ;;; Code: (deftheme my-misterioso "Predominantly blue/cyan faces on a dark cyan background.") (let ((class '((class color) (min-colors 89)))) (custom-theme-set-faces 'my-misterioso ;; Ensure sufficient contrast on 256-color xterms. ;'(default ((((type nil)) (:background ,"#282a36" :foreground ,"#f8f8f2")) ; (,class (:background ,"#282a36" :foreground ,"#f8f8f2")))) ;;'(default ((t (:background "#181a26" :foreground "WhiteSmoke")))) `(cursor ((,class (:background "#415160")))) ;; Highlighting faces `(fringe ((,class (:background "#2e3748")))) `(highlight ((,class (:background "#338f86" :foreground "#e1e1e0")))) `(region ((,class (:background "#2d4948" :foreground "#e1e1e0")))) `(isearch ((,class (:background "#fcffad" :foreground "#000000")))) `(lazy-highlight ((,class (:background "#338f86")))) `(trailing-whitespace ((,class (:background "#ff4242")))) ;; Mode line faces `(mode-line ((,class (:background "#212931" :foreground "#eeeeec")))) `(mode-line-inactive ((,class (:background "#878787" :foreground "#eeeeec")))) `(header-line ((,class (:background "#e5e5e5" :foreground "#333333")))) ;; Escape and prompt faces `(minibuffer-prompt ((,class (:foreground "#729fcf" :weight bold)))) ;; Font lock faces `(font-lock-builtin-face ((,class (:foreground "#23d7d7")))) `(font-lock-comment-face ((,class (:foreground "#74af68")))) `(font-lock-constant-face ((,class (:foreground "#008b8b")))) `(font-lock-function-name-face ((,class (:foreground "#00ede1" :weight bold)))) `(font-lock-keyword-face ((,class (:foreground "#ffad29" :weight bold)))) `(font-lock-string-face ((,class (:foreground "#e67128")))) `(font-lock-type-face ((,class (:foreground "#34cae2")))) `(font-lock-variable-name-face ((,class (:foreground "#dbdb95")))) `(font-lock-warning-face ((,class (:foreground "#ff4242" :weight bold)))) ;; Buttons and links `(button ((,class (:underline t)))) `(link ((,class (:foreground "#59e9ff" :underline t)))) `(link-visited ((,class (:foreground "#ed74cd" :underline t)))) ;; Gnus faces `(gnus-group-news-1 ((,class (:foreground "#ff4242" :weight bold)))) `(gnus-group-news-1-low ((,class (:foreground "#ff4242")))) `(gnus-group-news-2 ((,class (:foreground "#00ede1" :weight bold)))) `(gnus-group-news-2-low ((,class (:foreground "#00ede1")))) `(gnus-group-news-3 ((,class (:foreground "#23d7d7" :weight bold)))) `(gnus-group-news-3-low ((,class (:foreground "#23d7d7")))) `(gnus-group-news-4 ((,class (:foreground "#74af68" :weight bold)))) `(gnus-group-news-4-low ((,class (:foreground "#74af68")))) `(gnus-group-news-5 ((,class (:foreground "#dbdb95" :weight bold)))) `(gnus-group-news-5-low ((,class (:foreground "#dbdb95")))) `(gnus-group-news-low ((,class (:foreground "#008b8b")))) `(gnus-group-mail-1 ((,class (:foreground "#ff4242" :weight bold)))) `(gnus-group-mail-1-low ((,class (:foreground "#ff4242")))) `(gnus-group-mail-2 ((,class (:foreground "#00ede1" :weight bold)))) `(gnus-group-mail-2-low ((,class (:foreground "#00ede1")))) `(gnus-group-mail-3 ((,class (:foreground "#23d7d7" :weight bold)))) `(gnus-group-mail-3-low ((,class (:foreground "#23d7d7")))) `(gnus-group-mail-low ((,class (:foreground "#008b8b")))) `(gnus-header-content ((,class (:weight normal :foreground "#ffad29")))) `(gnus-header-from ((,class (:foreground "#e67128" :weight bold)))) `(gnus-header-subject ((,class (:foreground "#dbdb95")))) `(gnus-header-name ((,class (:foreground "#00ede1")))) `(gnus-header-newsgroups ((,class (:foreground "#e67128")))) ;; Message faces `(message-header-name ((,class (:foreground "#ffad29" :weight bold)))) `(message-header-cc ((,class (:foreground "#e67128")))) `(message-header-other ((,class (:foreground "#e67128")))) `(message-header-subject ((,class (:foreground "#dbdb95")))) `(message-header-to ((,class (:foreground "#00ede1")))) `(message-cited-text ((,class (:foreground "#74af68")))) `(message-separator ((,class (:foreground "#23d7d7")))))) (custom-theme-set-variables 'my-misterioso '(ansi-color-names-vector ["#2d3743" "#ff4242" "#74af68" "#dbdb95" "#34cae2" "#008b8b" "#00ede1" "#e1e1e0"])) (provide-theme 'my-misterioso) ;; Local Variables: ;; no-byte-compile: t ;; End: ;;; my-misterioso-theme.el ends here