From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Ergus Newsgroups: gmane.emacs.devel Subject: Add new theme Date: Fri, 18 Mar 2022 22:43:52 +0100 Message-ID: <20220318214352.uvusoy7cnqr5y6oj@Ergus> References: <20220318214352.uvusoy7cnqr5y6oj.ref@Ergus> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="pz2wdw56kcunnhue" Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="11868"; mail-complaints-to="usenet@ciao.gmane.io" To: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane-mx.org@gnu.org Fri Mar 18 22:45:58 2022 Return-path: Envelope-to: ged-emacs-devel@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1nVKQ2-0002sX-Qe for ged-emacs-devel@m.gmane-mx.org; Fri, 18 Mar 2022 22:45:58 +0100 Original-Received: from localhost ([::1]:57326 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1nVKQ1-0007pR-Cy for ged-emacs-devel@m.gmane-mx.org; Fri, 18 Mar 2022 17:45:57 -0400 Original-Received: from eggs.gnu.org ([209.51.188.92]:41010) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1nVKOp-00073B-J2 for emacs-devel@gnu.org; Fri, 18 Mar 2022 17:44:43 -0400 Original-Received: from sonic303-3.consmr.mail.bf2.yahoo.com ([74.6.131.42]:39035) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1nVKOn-0007VE-CE for emacs-devel@gnu.org; Fri, 18 Mar 2022 17:44:43 -0400 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=aol.com; s=a2048; t=1647639879; bh=EP5f26zgpIPo6dEoM1ukc5UsL8h6sEMDRu+kFWq+PVM=; h=Date:From:To:Subject:References:From:Subject:Reply-To; b=B74J4XPdI6fzVOaTHOEouFTdhAAUqAanf5hQLdwiRsOCGWnyZTG03nmEy2nR8jNLkGK+1EqIO7KQo+efzKICc/sD7g5dCY88IQs0GTyyZbv4dK1hX+S8qBN5Ybl9dmVxrqog2IiADny/jgs3igzu/tJdtc980+Neuhm4jfmIKrTj+b2CWVDedX5k/HX6bqnldoumWd8ZxXj3Mq+JuRUVAP2ClhNqMmDJABoGRdg7Bs41uJCEdkhJSZ5TyGRXhYcttaSXR4FOfx+7su9PD95GJEpVsIvGk99vztgmLcrB0P9bp/7dNo7qxPAvY3tJ/MGTl1mJX8uJQMrFfgaXBYFqSA== X-SONIC-DKIM-SIGN: v=1; a=rsa-sha256; c=relaxed/relaxed; d=yahoo.com; s=s2048; t=1647639879; bh=zpY2ZrD9pBPw7FLmA4BHkduJBiuOwxdYgwjfK1gmmBF=; h=X-Sonic-MF:Date:From:To:Subject:From:Subject; b=EFeoU0jQbh7UJnwWcMM7LSDcXR6cly49wO39iQTSx9XD7afy+KkBKG/9BqBdXw3ybUhhIh8N6Hnwwr9C5Nkd4/Fr0xazPaIdNQUyf+ix+smKVC+s4SlRaEP0Q8bsp/oMe3MECnl2slR18gMWdfjISwJHRsHAnhLZpEkRpqT5VXfF63ppPkVCnSQzMKXD1SyKWk7gZQ5g1gVCL4ZZWu51VDaPPyYy9+U6xdkZSrMSBe0x908irBy23iwCSunu384v8mdIp9fR2lJy44iStTJuvI8lVlZ9e1oeR0ujii1laoF9HmHdI3+5COoNqkqW6RQF23RnKJJtpJBqFx1fTRnEkQ== X-YMail-OSG: p_3UjQAVM1kSbb7ZzlOpVWfu6VfdNwKgcM6CpF3xwShLH94Kc.MdQTiNuL4AGYL WNg_V7tj.BEmZK56idFL.4.53IDZNuJR8O0n9uq9ox_13mvKS7BY69P2NCq0LfTIlaGrWFN.4zjL SFWBCLsqzohB6sV7Uxk1pB078szfI0AWbnRxgn3De.OUZP24iRLefb9cbTzn.xbSFb8Q6fbTrkVg aYPu99wOFIX3AdxIjVupzdarcwcXfq7H52UQ2JsTF7Thj4nVChcCJjPq7a8mlZqiyl1mgA6Vmeha _fUvG4enriZHjHi.3p5tC4QwIoMWFIBSOqh9f8D5sKPTJimINlS.HzlP0.w9XgWGUGiTVIRIS576 KsgIeLsgpTx7vxkLo6x3bC6_ZB39tthB4z4XCAUR71_T_ed_xzzziZCZL7iaPF.E.eugF30UtDBD 9X7tNIN.C1stQcAUFpoKNQJQ0rbLliF6gpqM__e6rFL.W8rIKMAneqmaTF2j1qpfRsEf8S.7DEjx nFCukM.WD1bTp3JU7bWHLb472MJIJH_kXv9U5syHrkokeo3tPP_fCbgK4bldtF5TWnyaT2.KYI6t 6LskNMyutzvUZxM8.inpIW860z3dUN3wYY1LAQrFR19MuBtr4KKwYt3Z0JLvwDgEJ5RsC1HHz48Z eFaw4bmLFlY3PWhG6_8_IwmV0DGScIDDcMSZnaoyradhiji4fMCzwAj8DbmeKmIPkaIdLICEIU5p G536xaL.JM0fmOULJk9GgrLqsnPVvTU8Lh5TSiL02GtkxTuPjTBmX1PDumrJ_ns_bMgKTHXZGiTn b9Pw.ii5m7BXAOAkUdsyFpoF6D7bKWByLKXPQH13g6 X-Sonic-MF: Original-Received: from sonic.gate.mail.ne1.yahoo.com by sonic303.consmr.mail.bf2.yahoo.com with HTTP; Fri, 18 Mar 2022 21:44:39 +0000 Original-Received: by kubenode512.mail-prod1.omega.ir2.yahoo.com (VZM Hermes SMTP Server) with ESMTPA ID 52e2c68fd24d5275e7fc1ecdae55c48b; Fri, 18 Mar 2022 21:44:33 +0000 (UTC) Content-Disposition: inline X-Mailer: WebService/1.1.19894 mail.backend.jedi.jws.acl:role.jedi.acl.token.atz.jws.hermes.aol Received-SPF: pass client-ip=74.6.131.42; envelope-from=spacibba@aol.com; helo=sonic303-3.consmr.mail.bf2.yahoo.com X-Spam_score_int: -20 X-Spam_score: -2.1 X-Spam_bar: -- X-Spam_report: (-2.1 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, FREEMAIL_FROM=0.001, RCVD_IN_DNSWL_NONE=-0.0001, RCVD_IN_MSPIKE_H2=-0.001, SPF_HELO_NONE=0.001, SPF_PASS=-0.001, T_SCC_BODY_TEXT_LINE=-0.01 autolearn=ham autolearn_force=no X-Spam_action: no action X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane-mx.org@gnu.org Original-Sender: "Emacs-devel" Xref: news.gmane.io gmane.emacs.devel:287301 Archived-At: --pz2wdw56kcunnhue Content-Type: text/plain; charset=us-ascii; format=flowed Content-Disposition: inline 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 --pz2wdw56kcunnhue Content-Type: text/plain; charset=us-ascii Content-Disposition: attachment; filename="simple-16-theme.el" ;;; simple-16-theme.el --- Custom theme for faces -*- lexical-binding:t -*- ;; Copyright (C) 2020 Free Software Foundation, Inc. ;; Author: Jimmy Aguilar Mena ;; 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 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 --pz2wdw56kcunnhue--