[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Suggested font lock preferences for GNU Emacs
From: |
Davin Pearson |
Subject: |
Re: Suggested font lock preferences for GNU Emacs |
Date: |
Sat, 9 Jul 2016 13:25:30 +1200 |
On 8 July 2016 at 21:34, Yuri Khan <yuri.v.khan@gmail.com> wrote:
> On Fri, Jul 8, 2016 at 2:02 PM, Davin Pearson <davin.pearson@gmail.com>
> wrote:
>
> > I would like to submit my screen shot for consideration by the
> developers of GNU Emacs as a replacement for the default Emacs
> fontification.
> >
> > http://davin.50webs.com/emacs-screen-shot.png
>
> Consider contributing a custom theme instead.
>
Thanks for the tip. What about this theme?
(deftheme davins
"Created 2016-07-09.")
(custom-theme-set-faces
'davins
'(default ((t (:family "DejaVu Sans Mono" :foundry "unknown" :width normal
:height 150 :weight normal :slant normal :underline nil :overline nil
:strike-through nil :box nil :inverse-video nil :foreground "#000"
:background "#fff" :stipple nil :inherit nil))))
'(cursor ((t (:foreground "black" :background "#000000"))))
'(fixed-pitch ((t (:family "Monospace"))))
'(variable-pitch ((t (:family "Sans Serif"))))
'(escape-glyph ((((background dark)) (:foreground "cyan")) (((type pc))
(:foreground "magenta")) (t (:foreground "brown"))))
'(minibuffer-prompt ((((background dark)) (:foreground "cyan")) (((type
pc)) (:foreground "magenta")) (t (:foreground "medium blue"))))
'(highlight ((t (:foreground "#fff" :background "#88f"))))
'(region ((t (:foreground "#fff" :background "#f8a"))))
'(shadow ((((class color grayscale) (min-colors 88) (background light))
(:foreground "grey50")) (((class color grayscale) (min-colors 88)
(background dark)) (:foreground "grey70")) (((class color) (min-colors 8)
(background light)) (:foreground "green")) (((class color) (min-colors 8)
(background dark)) (:foreground "yellow"))))
'(secondary-selection ((t (:foreground "white" :background "#8888ff"))))
'(trailing-whitespace ((((class color) (background light)) (:background
"red1")) (((class color) (background dark)) (:background "red1")) (t
(:inverse-video t))))
'(font-lock-builtin-face ((t (:weight bold :foreground "#f00"))))
'(font-lock-comment-delimiter-face ((default (:inherit
(font-lock-comment-face)))))
'(font-lock-comment-face ((t (:weight normal :slant italic :foreground
"#060"))))
'(font-lock-constant-face ((t (:weight bold :foreground "#f00"))))
'(font-lock-doc-face ((t (:weight bold :slant italic :foreground "#f00"
:background "#fff" :inherit (font-lock-string-face)))))
'(font-lock-function-name-face ((t (:weight bold :foreground "black"
:background "yellow"))))
'(font-lock-keyword-face ((t (:weight bold :foreground "#000"))))
'(font-lock-negation-char-face ((t nil)))
'(font-lock-preprocessor-face ((t (:underline (:color foreground-color
:style line) :foreground "#888" :background "#eee" :inherit
(font-lock-builtin-face)))))
'(font-lock-regexp-grouping-backslash ((t (:foreground "#080" :background
"#ccf" :inherit (bold)))))
'(font-lock-regexp-grouping-construct ((t (:foreground "#080" :background
"#ccf" :inherit (bold)))))
'(font-lock-string-face ((t (:weight bold :foreground "white" :background
"#8888ff"))))
'(font-lock-type-face ((t (:weight bold :foreground "#0000ff" :background
"#fff"))))
'(font-lock-variable-name-face ((t (:foreground "#0011ff"))))
'(font-lock-warning-face ((t (:weight bold :foreground "red" :inherit
(error)))))
'(button ((t (:inherit (link)))))
'(link ((((class color) (min-colors 88) (background light)) (:underline
(:color foreground-color :style line) :foreground "RoyalBlue3")) (((class
color) (background light)) (:underline (:color foreground-color :style
line) :foreground "blue")) (((class color) (min-colors 88) (background
dark)) (:underline (:color foreground-color :style line) :foreground
"cyan1")) (((class color) (background dark)) (:underline (:color
foreground-color :style line) :foreground "cyan")) (t (:inherit
(underline)))))
'(link-visited ((default (:inherit (link))) (((class color) (background
light)) (:foreground "magenta4")) (((class color) (background dark))
(:foreground "violet"))))
'(fringe ((((class color) (background light)) (:background "grey95"))
(((class color) (background dark)) (:background "grey10")) (t (:background
"gray"))))
'(header-line ((default (:inherit (mode-line))) (((type tty)) (:underline
(:color foreground-color :style line) :inverse-video nil)) (((class color
grayscale) (background light)) (:box nil :foreground "grey20" :background
"grey90")) (((class color grayscale) (background dark)) (:box nil
:foreground "grey90" :background "grey20")) (((class mono) (background
light)) (:underline (:color foreground-color :style line) :box nil
:inverse-video nil :foreground "black" :background "white")) (((class mono)
(background dark)) (:underline (:color foreground-color :style line) :box
nil :inverse-video nil :foreground "white" :background "black"))))
'(tooltip ((((class color)) (:inherit (variable-pitch) :foreground "black"
:background "lightyellow")) (t (:inherit (variable-pitch)))))
'(mode-line ((t (:box (:line-width -1 :color nil :style released-button)
:foreground "#000" :background "#8f8"))))
'(mode-line-buffer-id ((t (:weight bold :foreground "#000" :background
"#8f8"))))
'(mode-line-emphasis ((t (:weight bold))))
'(mode-line-highlight ((((class color) (min-colors 88)) (:box (:line-width
2 :color "grey40" :style released-button))) (t (:inherit (highlight)))))
'(mode-line-inactive ((default (:inherit (mode-line))) (((class color)
(min-colors 88) (background light)) (:background "grey90" :foreground
"grey20" :box (:line-width -1 :color "grey75" :style nil) :weight light))
(((class color) (min-colors 88) (background dark)) (:background "grey30"
:foreground "grey80" :box (:line-width -1 :color "grey40" :style nil)
:weight light))))
'(isearch ((t (:weight bold :foreground "#ff0000" :background "#000000"))))
'(isearch-fail ((((class color) (min-colors 88) (background light))
(:background "RosyBrown1")) (((class color) (min-colors 88) (background
dark)) (:background "red4")) (((class color) (min-colors 16)) (:background
"red")) (((class color) (min-colors 8)) (:background "red")) (((class color
grayscale)) (:foreground "grey")) (t (:inverse-video t))))
'(lazy-highlight ((t (:foreground "#000000" :background "#0ff"))))
'(match ((((class color) (min-colors 88) (background light)) (:background
"yellow1")) (((class color) (min-colors 88) (background dark)) (:background
"RoyalBlue3")) (((class color) (min-colors 8) (background light))
(:foreground "black" :background "yellow")) (((class color) (min-colors 8)
(background dark)) (:foreground "white" :background "blue")) (((type tty)
(class mono)) (:inverse-video t)) (t (:background "gray"))))
'(next-error ((t (:inherit (region)))))
'(query-replace ((t (:inherit (isearch))))))
(provide-theme 'davins)
--
Sincerely and kindest regards, Davin.
Davin Pearson http://davin.50webs.com
- Suggested font lock preferences for GNU Emacs, Davin Pearson, 2016/07/08
- Re: Suggested font lock preferences for GNU Emacs, Yuri Khan, 2016/07/08
- Re: Suggested font lock preferences for GNU Emacs,
Davin Pearson <=
- Re: Suggested font lock preferences for GNU Emacs, Alex Kost, 2016/07/09
- Re: Suggested font lock preferences for GNU Emacs, Davin Pearson, 2016/07/09
- Re: Suggested font lock preferences for GNU Emacs, Davin Pearson, 2016/07/10
- Message not available
- Re: Suggested font lock preferences for GNU Emacs, Emanuel Berg, 2016/07/10
- Re: Suggested font lock preferences for GNU Emacs, Stefan Monnier, 2016/07/10
- Message not available
- Re: Suggested font lock preferences for GNU Emacs, Emanuel Berg, 2016/07/10
- Re: Suggested font lock preferences for GNU Emacs, Stefan Monnier, 2016/07/10
- Message not available
- Re: Suggested font lock preferences for GNU Emacs, Emanuel Berg, 2016/07/10
- Message not available
- Re: Suggested font lock preferences for GNU Emacs, Emanuel Berg, 2016/07/10
Re: Suggested font lock preferences for GNU Emacs, Emanuel Berg, 2016/07/08