From: Ergus <spacibba@aol.com>
To: emacs-devel@gnu.org
Subject: Add new theme
Date: Fri, 18 Mar 2022 22:43:52 +0100 [thread overview]
Message-ID: <20220318214352.uvusoy7cnqr5y6oj@Ergus> (raw)
In-Reply-To: 20220318214352.uvusoy7cnqr5y6oj.ref@Ergus
[-- Attachment #1: Type: text/plain, Size: 132 bytes --]
Hi:
I have a very simple color theme (attached) I would like to add to
vanilla... Is there any process to get it in?
Best,
Ergus
[-- Attachment #2: simple-16-theme.el --]
[-- Type: text/plain, Size: 7549 bytes --]
;;; simple-16-theme.el --- Custom theme for faces -*- lexical-binding:t -*-
;; Copyright (C) 2020 Free Software Foundation, Inc.
;; Author: Jimmy Aguilar Mena <spacibba@aol.com>
;; 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 <https://www.gnu.org/licenses/>.
;;; Code:
(deftheme simple-16
"Dark theme with a set of simple 16 colors only.")
(defmacro simple-16-theme-color (colorname)
"Get color by name COLORNAME from `simple-16-color-theme-alist'."
(alist-get colorname '((black . "#000000")
(red . "#cd0000")
(green . "#00cd00")
(yellow . "#cdcd00")
(blue . "#0000ee")
(magenta . "#cd00cd")
(cyan . "#00cdcd")
(white . "#e5e5e5")
(brightblack . "#444444") ;;
(brightred . "#ff0000")
(brightgreen . "#00ff00")
(brightyellow . "#ffff00")
(brightblue . "#5c5cff")
(brightmagenta . "#ff00ff")
(brightcyan . "#00ffff")
(brightwhite . "#ffffff"))))
(custom-theme-set-faces
'simple-16
`(default ((t :background ,(simple-16-theme-color black)
:foreground ,(simple-16-theme-color white))))
`(font-lock-builtin-face ((t :foreground ,(simple-16-theme-color green))))
`(font-lock-comment-face ((t :foreground ,(simple-16-theme-color blue))))
`(font-lock-constant-face ((t :foreground ,(simple-16-theme-color magenta))))
`(font-lock-doc-face ((t :foreground ,(simple-16-theme-color cyan))))
`(font-lock-function-name-face ((t :foreground ,(simple-16-theme-color white))))
`(font-lock-keyword-face ((t :foreground ,(simple-16-theme-color yellow))))
`(font-lock-preprocessor-face ((t :foreground ,(simple-16-theme-color magenta))))
`(font-lock-string-face ((t :foreground ,(simple-16-theme-color red))))
`(font-lock-type-face ((t :foreground ,(simple-16-theme-color green))))
`(font-lock-variable-name-face ((t :foreground ,(simple-16-theme-color white))))
`(highlight ((default :background ,(simple-16-theme-color blue) :foreground nil)
(((class color) (min-colors 16)) :background ,(simple-16-theme-color brightblack))))
`(secondary-selection ((t :background ,(simple-16-theme-color blue) :foreground nil)
(((class color) (min-colors 16)) :background ,(simple-16-theme-color brightblack))))
`(isearch ((t :background ,(simple-16-theme-color blue)
:foreground nil
:weight ultrabold)))
`(lazy-highlight ((default :background ,(simple-16-theme-color cyan))
(((class color) (min-colors 16)) :background ,(simple-16-theme-color brightblack))))
`(region ((default :background ,(simple-16-theme-color blue)
:foreground ,(simple-16-theme-color white))
(((class color) (min-colors 16)) :background ,(simple-16-theme-color brightblue) :foreground nil)))
`(trailing-whitespace ((default :background ,(simple-16-theme-color cyan))
(((class color) (min-colors 16)) :background ,(simple-16-theme-color brightblack))))
;; Modeline
`(mode-line ((t :background ,(simple-16-theme-color blue)
:foreground ,(simple-16-theme-color white)
:weight bold)))
`(mode-line-inactive ((default :background ,(simple-16-theme-color black)
:foreground ,(simple-16-theme-color white)
:weight normal)
(((class color) (min-colors 16))
:background ,(simple-16-theme-color brightblack)
:foreground ,(simple-16-theme-color brightwhite))))
;; line numbers
`(line-number ((default :foreground ,(simple-16-theme-color white))
(((class color) (min-colors 16)) :foreground ,(simple-16-theme-color brightblack))))
`(line-number-current-line ((t :foreground ,(simple-16-theme-color green))))
;; column indicator
`(fill-column-indicator ((default :foreground ,(simple-16-theme-color white))
(((class color) (min-colors 16)) :foreground ,(simple-16-theme-color brightblack))))
`(show-paren-match ((default :background ,(simple-16-theme-color blue))
(((class color) (min-colors 16)) :background ,(simple-16-theme-color brightblack))))
;; tab-bar
`(tab-bar ((t :inherit default :weight light)))
`(tab-bar-tab ((t :inherit tab-bar :background ,(simple-16-theme-color blue) :weight ultra-bold)))
`(tab-bar-tab-inactive ((t :inherit tab-bar :foreground ,(simple-16-theme-color white))))
;; tab-line
`(tab-line ((t :inherit default :weight light)))
`(tab-line-tab ((t :inherit tab-line)))
`(tab-line-tab-current ((t :inherit tab-line :background ,(simple-16-theme-color blue) :weight ultra-bold)))
`(tab-line-tab-inactive ((t :inherit tab-line :foreground ,(simple-16-theme-color white))))
;; Some others
`(Man-overstrike ((t :inherit font-lock-type-face :bold t)))
`(Man-underline ((t :inherit font-lock-keyword-face :underline t)))
`(which-func ((t :background nil :foreground ,(simple-16-theme-color white))))
`(dired-directory ((t :foreground ,(simple-16-theme-color cyan))))
;; External packages
;; Company
`(company-tooltip ((default :background ,(simple-16-theme-color blue)
:foreground ,(simple-16-theme-color white))
(((class color) (min-colors 16)) :background ,(simple-16-theme-color brightblack))))
`(company-tooltip-common ((t :inherit company-tooltip
:foreground ,(simple-16-theme-color green))))
`(company-tooltip-selection ((t :background ,(simple-16-theme-color blue)
:weight ultra-bold)))
`(company-tooltip-scrollbar-track ((default :background ,(simple-16-theme-color blue))
(((class color) (min-colors 16)) :background ,(simple-16-theme-color brightblack))))
`(company-tooltip-scrollbar-thumb ((t :background ,(simple-16-theme-color blue))))
;; Avy
`(avy-lead-face ((t :background ,(simple-16-theme-color blue)
:foreground ,(simple-16-theme-color brightwhite))))
;; Flycheck
`(flycheck-error ((t :inherit nil :background nil :foreground nil :underline t)))
;; Flymake
`(flymake-error ((t :inherit nil :background nil :foreground nil :underline t)))
;; highlight-escape-sequences
`(hes-escape-backslash-face ((t :inherit font-lock-regexp-grouping-backslash
:foreground ,(simple-16-theme-color magenta))))
`(hes-escape-sequence-face ((t :inherit font-lock-regexp-grouping-construct
:foreground ,(simple-16-theme-color magenta))))
;; mu4e
`(mu4e-unread-face ((t :inherit nil :foreground ,(simple-16-theme-color blue) :weight bold)))
`(mu4e-system-face ((t :inherit nil :foreground ,(simple-16-theme-color green))))
`(mu4e-trashed-face ((t :inherit nil :foreground ,(simple-16-theme-color red))))
;;`(mu4e-replied-face ((t (:inherit nil :foreground ,(simple-16-theme-color blue)))))
`(mu4e-header-highlight-face ((t :inherit hl-line :weight bold :underline nil)))
)
(provide-theme 'simple-16)
;;; simple-16-theme.el ends here
next parent reply other threads:[~2022-03-18 21:43 UTC|newest]
Thread overview: 2+ messages / expand[flat|nested] mbox.gz Atom feed top
[not found] <20220318214352.uvusoy7cnqr5y6oj.ref@Ergus>
2022-03-18 21:43 ` Ergus [this message]
2022-03-20 20:34 ` Add new theme Philip Kaludercic
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=20220318214352.uvusoy7cnqr5y6oj@Ergus \
--to=spacibba@aol.com \
--cc=emacs-devel@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.