mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity
master
emacs/etc/themes/dichromacy-theme.el

154 lines
7.3 KiB
EmacsLisp
Raw Permalink Normal View History

Use lexical-binding for themes * etc/themes/adwaita-theme.el: * etc/themes/deeper-blue-theme.el: * etc/themes/dichromacy-theme.el: * etc/themes/light-blue-theme.el: * etc/themes/manoj-dark-theme.el: * etc/themes/misterioso-theme.el: * etc/themes/tango-dark-theme.el: * etc/themes/tango-theme.el: * etc/themes/tsdh-dark-theme.el: * etc/themes/tsdh-light-theme.el: * etc/themes/wheatgrass-theme.el: * etc/themes/whiteboard-theme.el: * etc/themes/wombat-theme.el: Use lexical-binding.
2020-04-26 14:22:34 +00:00
;;; dichromacy-theme.el --- color theme suitable for color-blind users -*- lexical-binding:t -*-
* etc/themes/dichromacy-theme.el: New theme.
2011-06-14 05:00:35 +00:00
; Add 2024 to copyright years
2024-01-02 01:47:10 +00:00
;; Copyright (C) 2011-2024 Free Software Foundation, Inc.
* etc/themes/dichromacy-theme.el: New theme.
2011-06-14 05:00:35 +00:00
;; Author: Chong Yidong <cyd@stupidchicken>
;; 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
Prefer HTTPS to FTP and HTTP in documentation Most of this change is to boilerplate commentary such as license URLs. This change was prompted by ftp://ftp.gnu.org's going-away party, planned for November. Change these FTP URLs to https://ftp.gnu.org instead. Make similar changes for URLs to other organizations moving away from FTP. Also, change HTTP to HTTPS for URLs to gnu.org and fsf.org when this works, as this will further help defend against man-in-the-middle attacks (for this part I omitted the MS-DOS and MS-Windows sources and the test tarballs to keep the workload down). HTTPS is not fully working to lists.gnu.org so I left those URLs alone for now.
2017-09-13 22:52:52 +00:00
;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
* etc/themes/dichromacy-theme.el: New theme.
2011-06-14 05:00:35 +00:00
;;; Code:
Tag themes with properties * doc/emacs/custom.texi (Custom Themes): Document 'theme-choose-variant'. * doc/lispref/customize.texi (Custom Themes): Document the new optional argument to 'deftheme'. (Autoload): Mention that 'deftheme' is not copied verbatim. * etc/themes/adwaita-theme.el (adwaita): Add properties. * etc/themes/deeper-blue-theme.el (deeper-blue): Add properties. * etc/themes/dichromacy-theme.el (dichromacy): Add properties. * etc/themes/light-blue-theme.el (light-blue): Add properties. * etc/themes/manoj-dark-theme.el (manoj-dark): Add properties. * etc/themes/misterioso-theme.el (misterioso): Add properties. * etc/themes/tango-dark-theme.el (tango-dark): Add properties. * etc/themes/tango-theme.el (tango): Add properties. * etc/themes/tsdh-dark-theme.el (tsdh-dark): Add properties. * etc/themes/tsdh-light-theme.el (tsdh-light): Add properties. * etc/themes/wheatgrass-theme.el (wheatgrass): Add properties. * etc/themes/whiteboard-theme.el (whiteboard): Add properties. * etc/themes/wombat-theme.el (wombat): Add properties. * etc/themes/modus-operandi-theme.el: Add properties. * etc/themes/modus-vivendi-theme.el: Add properties. * etc/themes/leuven-dark-theme.el (leuven-dark): Add properties. * etc/themes/leuven-theme.el (leuven): Add properties. * lisp/custom.el (deftheme): Allow for optional arguments to set the property list. (custom-declare-theme): Accept the same optional arguments as 'deftheme'. (theme-list-variants): Add new function. (theme-choose-variant): Add new command for switching between members of a theme family. (toggle-theme): Add an alias for 'theme-choose-variant'. * lisp/emacs-lisp/loaddefs-gen.el (loaddefs-generate--make-autoload): Handle 'defcustom's by extracting the properties. (Bug#57639)
2022-09-17 18:11:42 +00:00
;;;###theme-autoload
* etc/themes/dichromacy-theme.el: New theme.
2011-06-14 05:00:35 +00:00
(deftheme dichromacy
"Face colors suitable for red/green color-blind users.
The color palette is from B. Wong, Nature Methods 8, 441 (2011).
It is intended to provide good variability while being easily
differentiated by individuals with protanopia or deuteranopia.
Basic, Font Lock, Isearch, Gnus, Message, Flyspell, and
Tag themes with properties * doc/emacs/custom.texi (Custom Themes): Document 'theme-choose-variant'. * doc/lispref/customize.texi (Custom Themes): Document the new optional argument to 'deftheme'. (Autoload): Mention that 'deftheme' is not copied verbatim. * etc/themes/adwaita-theme.el (adwaita): Add properties. * etc/themes/deeper-blue-theme.el (deeper-blue): Add properties. * etc/themes/dichromacy-theme.el (dichromacy): Add properties. * etc/themes/light-blue-theme.el (light-blue): Add properties. * etc/themes/manoj-dark-theme.el (manoj-dark): Add properties. * etc/themes/misterioso-theme.el (misterioso): Add properties. * etc/themes/tango-dark-theme.el (tango-dark): Add properties. * etc/themes/tango-theme.el (tango): Add properties. * etc/themes/tsdh-dark-theme.el (tsdh-dark): Add properties. * etc/themes/tsdh-light-theme.el (tsdh-light): Add properties. * etc/themes/wheatgrass-theme.el (wheatgrass): Add properties. * etc/themes/whiteboard-theme.el (whiteboard): Add properties. * etc/themes/wombat-theme.el (wombat): Add properties. * etc/themes/modus-operandi-theme.el: Add properties. * etc/themes/modus-vivendi-theme.el: Add properties. * etc/themes/leuven-dark-theme.el (leuven-dark): Add properties. * etc/themes/leuven-theme.el (leuven): Add properties. * lisp/custom.el (deftheme): Allow for optional arguments to set the property list. (custom-declare-theme): Accept the same optional arguments as 'deftheme'. (theme-list-variants): Add new function. (theme-choose-variant): Add new command for switching between members of a theme family. (toggle-theme): Add an alias for 'theme-choose-variant'. * lisp/emacs-lisp/loaddefs-gen.el (loaddefs-generate--make-autoload): Handle 'defcustom's by extracting the properties. (Bug#57639)
2022-09-17 18:11:42 +00:00
Ansi-Color faces are included."
:background-mode 'light
:kind 'color-scheme)
* etc/themes/dichromacy-theme.el: New theme.
2011-06-14 05:00:35 +00:00
(let ((class '((class color) (min-colors 89)))
(orange "#e69f00")
(skyblue "#56b4e9")
(bluegreen "#009e73")
(yellow "#f8ec59")
(blue "#0072b2")
; Fix typos
2022-11-20 11:59:39 +00:00
(vermilion "#d55e00")
* etc/themes/dichromacy-theme.el: New theme.
2011-06-14 05:00:35 +00:00
(redpurple "#cc79a7")
(bluegray "#848ea9"))
(custom-theme-set-faces
'dichromacy
`(default ((,class (:foreground "black" :background "white"))))
* lisp/faces.el (cursor): Doc fix. Also, remove the :foreground attributes from cursor faces in built-in themes, since that attribute is unmeaningful.
2011-10-18 06:17:05 +00:00
`(cursor ((,class (:background "black"))))
* etc/themes/dichromacy-theme.el: New theme.
2011-06-14 05:00:35 +00:00
;; Highlighting faces
`(fringe ((,class (:background "#f7f7f7"))))
`(highlight ((,class (:foreground ,blue :background "#e5e5e5"))))
Make ':extend' inherited from default spec unless overridden * lisp/faces.el (face-spec-recalc): Handle the :extend attribute specially and always inherit it from the default spec unless overwritten in a theme (bug#37774). * test/lisp/faces-tests.el (faces--test-data-dir): New variable. (faces--test-extend-with-themes): Use test themes instead of ones from etc/themes. Update expected values. * test/data/themes/faces-test-dark-theme.el: New file. * test/data/themes/faces-test-light-theme.el: New file. * doc/lispref/display.texi (Face Attributes): Update the description of ':extend'. * etc/NEWS: Update the entry for ':extend'. * etc/themes/adwaita-theme.el: * etc/themes/deeper-blue-theme.el: * etc/themes/dichromacy-theme.el: * etc/themes/leuven-theme.el: * etc/themes/light-blue-theme.el: * etc/themes/manoj-dark-theme.el: * etc/themes/misterioso-theme.el: * etc/themes/tango-dark-theme.el: * etc/themes/tango-theme.el: * etc/themes/tsdh-dark-theme.el: * etc/themes/tsdh-light-theme.el: * etc/themes/wheatgrass-theme.el: * etc/themes/wombat-theme.el: Remove the now-redundant ':extend' attribute in all the themes.
2019-12-10 00:11:15 +00:00
`(region ((,class (:foreground unspecified :background ,yellow))))
`(secondary-selection ((,class (:background "#e5e5e5"))))
; Fix typos
2022-11-20 11:59:39 +00:00
`(isearch ((,class (:foreground "white" :background ,vermilion))))
* etc/themes/dichromacy-theme.el: New theme.
2011-06-14 05:00:35 +00:00
`(lazy-highlight ((,class (:foreground "white" :background ,redpurple))))
; Fix typos
2022-11-20 11:59:39 +00:00
`(trailing-whitespace ((,class (:background ,vermilion))))
* etc/themes/dichromacy-theme.el: New theme.
2011-06-14 05:00:35 +00:00
;; Mode line faces
`(mode-line ((,class (:box (:line-width -1 :style released-button)
:background "#e5e5e5" :foreground "black"))))
`(mode-line-inactive ((,class (:box (:line-width -1 :style released-button)
:background "#b0b0b0"
:foreground "black"))))
;; Escape and prompt faces
`(minibuffer-prompt ((,class (:weight bold :foreground ,blue))))
; Fix typos
2022-11-20 11:59:39 +00:00
`(escape-glyph ((,class (:foreground ,vermilion))))
`(homoglyph ((,class (:foreground ,vermilion))))
Adapt themes to new error/warning/success faces. * etc/themes/dichromacy-theme.el: * etc/themes/wheatgrass-theme.el: * etc/themes/tango-theme.el: * etc/themes/tango-dark-theme.el: Add error, warning, and success faces.
2011-08-19 00:12:45 +00:00
`(error ((,class (:weight bold :slant italic
; Fix typos
2022-11-20 11:59:39 +00:00
:foreground ,vermilion))))
Adapt themes to new error/warning/success faces. * etc/themes/dichromacy-theme.el: * etc/themes/wheatgrass-theme.el: * etc/themes/tango-theme.el: * etc/themes/tango-dark-theme.el: Add error, warning, and success faces.
2011-08-19 00:12:45 +00:00
`(warning ((,class (:foreground ,orange))))
`(success ((,class (:foreground ,bluegreen))))
* etc/themes/dichromacy-theme.el: New theme.
2011-06-14 05:00:35 +00:00
;; Font lock faces
`(font-lock-builtin-face ((,class (:foreground ,blue))))
`(font-lock-comment-face ((,class (:slant italic :foreground ,bluegreen))))
; Fix typos
2022-11-20 11:59:39 +00:00
`(font-lock-constant-face ((,class (:weight bold :foreground ,vermilion))))
`(font-lock-function-name-face ((,class (:foreground ,vermilion))))
* etc/themes/dichromacy-theme.el: New theme.
2011-06-14 05:00:35 +00:00
`(font-lock-keyword-face ((,class (:weight bold :foreground ,skyblue))))
`(font-lock-string-face ((,class (:foreground ,bluegray))))
`(font-lock-type-face ((,class (:weight bold :foreground ,blue))))
`(font-lock-variable-name-face ((,class (:weight bold :foreground ,orange))))
;; Button and link faces
`(link ((,class (:underline t :foreground ,blue))))
`(link-visited ((,class (:underline t :foreground ,redpurple))))
;; Gnus faces
; Fix typos
2022-11-20 11:59:39 +00:00
`(gnus-group-news-1 ((,class (:weight bold :foreground ,vermilion))))
`(gnus-group-news-1-low ((,class (:foreground ,vermilion))))
* etc/themes/dichromacy-theme.el: New theme.
2011-06-14 05:00:35 +00:00
`(gnus-group-news-2 ((,class (:weight bold :foreground ,orange))))
`(gnus-group-news-2-low ((,class (:foreground ,orange))))
`(gnus-group-news-3 ((,class (:weight bold :foreground ,skyblue))))
`(gnus-group-news-3-low ((,class (:foreground ,skyblue))))
`(gnus-group-news-4 ((,class (:weight bold :foreground ,redpurple))))
`(gnus-group-news-4-low ((,class (:foreground ,redpurple))))
`(gnus-group-news-5 ((,class (:weight bold :foreground ,blue))))
`(gnus-group-news-5-low ((,class (:foreground ,blue))))
`(gnus-group-news-low ((,class (:foreground ,bluegreen))))
; Fix typos
2022-11-20 11:59:39 +00:00
`(gnus-group-mail-1 ((,class (:weight bold :foreground ,vermilion))))
`(gnus-group-mail-1-low ((,class (:foreground ,vermilion))))
* etc/themes/dichromacy-theme.el: New theme.
2011-06-14 05:00:35 +00:00
`(gnus-group-mail-2 ((,class (:weight bold :foreground ,orange))))
`(gnus-group-mail-2-low ((,class (:foreground ,orange))))
`(gnus-group-mail-3 ((,class (:weight bold :foreground ,skyblue))))
`(gnus-group-mail-3-low ((,class (:foreground ,skyblue))))
`(gnus-group-mail-low ((,class (:foreground ,bluegreen))))
`(gnus-header-content ((,class (:foreground ,redpurple))))
`(gnus-header-from ((,class (:weight bold :foreground ,blue))))
`(gnus-header-subject ((,class (:foreground ,orange))))
`(gnus-header-name ((,class (:foreground ,skyblue))))
; Fix typos
2022-11-20 11:59:39 +00:00
`(gnus-header-newsgroups ((,class (:foreground ,vermilion))))
Improve theming of image-dired-thumb-mark * etc/themes/adwaita-theme.el (adwaita): * etc/themes/deeper-blue-theme.el (deeper-blue): * etc/themes/dichromacy-theme.el (dichromacy): * etc/themes/leuven-theme.el (leuven): * etc/themes/manoj-dark-theme.el (manoj-dark): * etc/themes/whiteboard-theme.el (whiteboard): Add definitions for the 'image-dired-thumb-flagged' face.
2021-11-03 22:23:02 +00:00
;; Image-Dired
; Fix typos
2022-11-20 11:59:39 +00:00
`(image-dired-thumb-flagged ((,class (:background ,vermilion))))
Improve theming of image-dired-thumb-mark * etc/themes/adwaita-theme.el (adwaita): * etc/themes/deeper-blue-theme.el (deeper-blue): * etc/themes/dichromacy-theme.el (dichromacy): * etc/themes/leuven-theme.el (leuven): * etc/themes/manoj-dark-theme.el (manoj-dark): * etc/themes/whiteboard-theme.el (whiteboard): Add definitions for the 'image-dired-thumb-mark' face.
2021-11-03 07:21:26 +00:00
`(image-dired-thumb-mark ((,class (:background ,orange))))
* etc/themes/dichromacy-theme.el: New theme.
2011-06-14 05:00:35 +00:00
;; Message faces
`(message-header-name ((,class (:foreground ,skyblue))))
; Fix typos
2022-11-20 11:59:39 +00:00
`(message-header-cc ((,class (:foreground ,vermilion))))
* etc/themes/dichromacy-theme.el: New theme.
2011-06-14 05:00:35 +00:00
`(message-header-other ((,class (:foreground ,bluegreen))))
`(message-header-subject ((,class (:foreground ,orange))))
`(message-header-to ((,class (:weight bold :foreground ,blue))))
`(message-cited-text ((,class (:slant italic :foreground ,bluegreen))))
`(message-separator ((,class (:weight bold :foreground ,redpurple))))
;; Flyspell
`(flyspell-duplicate ((,class (:weight unspecified :foreground unspecified
:slant unspecified :underline ,orange))))
`(flyspell-incorrect ((,class (:weight unspecified :foreground unspecified
Convert ANSI color definitions in themes to use faces (e.g. 'ansi-color-red') * etc/themes/dichromacy-theme.el: * etc/themes/leuven-theme.el: * etc/themes/misterioso-theme.el: * etc/themes/tango-theme.el: * etc/themes/tango-dark-theme.el: * etc/themes/wombat-theme.el: Convert ANSI color definitions to use faces.
2021-10-19 23:01:15 +00:00
:slant unspecified :underline ,redpurple))))
;; ANSI color
`(ansi-color-black ((,class (:background "black" :foreground "black"))))
; Fix typos
2022-11-20 11:59:39 +00:00
`(ansi-color-red ((,class (:background ,vermilion
:foreground ,vermilion))))
Convert ANSI color definitions in themes to use faces (e.g. 'ansi-color-red') * etc/themes/dichromacy-theme.el: * etc/themes/leuven-theme.el: * etc/themes/misterioso-theme.el: * etc/themes/tango-theme.el: * etc/themes/tango-dark-theme.el: * etc/themes/wombat-theme.el: Convert ANSI color definitions to use faces.
2021-10-19 23:01:15 +00:00
`(ansi-color-green ((,class (:background ,bluegreen
:foreground ,bluegreen))))
`(ansi-color-yellow ((,class (:background ,yellow :foreground ,yellow))))
`(ansi-color-blue ((,class (:background ,blue :foreground ,blue))))
`(ansi-color-magenta ((,class (:background ,redpurple
:foreground ,redpurple))))
`(ansi-color-cyan ((,class (:background ,skyblue :foreground ,skyblue))))
`(ansi-color-white ((,class (:background "gray90" :foreground "gray90"))))
`(ansi-color-bright-black ((,class (:background "black"
:foreground "black"))))
; Fix typos
2022-11-20 11:59:39 +00:00
`(ansi-color-bright-red ((,class (:background ,vermilion
:foreground ,vermilion))))
Convert ANSI color definitions in themes to use faces (e.g. 'ansi-color-red') * etc/themes/dichromacy-theme.el: * etc/themes/leuven-theme.el: * etc/themes/misterioso-theme.el: * etc/themes/tango-theme.el: * etc/themes/tango-dark-theme.el: * etc/themes/wombat-theme.el: Convert ANSI color definitions to use faces.
2021-10-19 23:01:15 +00:00
`(ansi-color-bright-green ((,class (:background ,bluegreen
:foreground ,bluegreen))))
`(ansi-color-bright-yellow ((,class (:background ,yellow
:foreground ,yellow))))
`(ansi-color-bright-blue ((,class (:background ,blue :foreground ,blue))))
`(ansi-color-bright-magenta ((,class (:background ,redpurple
:foreground ,redpurple))))
`(ansi-color-bright-cyan ((,class (:background ,skyblue
:foreground ,skyblue))))
`(ansi-color-bright-white ((,class (:background "gray90"
:foreground "gray90"))))))
* etc/themes/dichromacy-theme.el: New theme.
2011-06-14 05:00:35 +00:00
(provide-theme 'dichromacy)
;;; dichromacy-theme.el ends here
Reference in New Issue Copy Permalink