From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Davin Pearson Newsgroups: gmane.emacs.help Subject: Re: Suggested font lock preferences for GNU Emacs Date: Sat, 9 Jul 2016 13:25:30 +1200 Message-ID: References: <7184db3d-3990-4d23-8362-573c62056a4f@googlegroups.com> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=UTF-8 X-Trace: ger.gmane.org 1468027572 29679 80.91.229.3 (9 Jul 2016 01:26:12 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Sat, 9 Jul 2016 01:26:12 +0000 (UTC) Cc: "help-gnu-emacs@gnu.org" To: Yuri Khan Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Sat Jul 09 03:26:03 2016 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1bLh1t-0001ti-R3 for geh-help-gnu-emacs@m.gmane.org; Sat, 09 Jul 2016 03:26:02 +0200 Original-Received: from localhost ([::1]:48490 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bLh1s-0007us-Rt for geh-help-gnu-emacs@m.gmane.org; Fri, 08 Jul 2016 21:26:00 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:50931) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bLh1T-0007bU-3E for help-gnu-emacs@gnu.org; Fri, 08 Jul 2016 21:25:37 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1bLh1P-0003Ua-La for help-gnu-emacs@gnu.org; Fri, 08 Jul 2016 21:25:34 -0400 Original-Received: from mail-qt0-x233.google.com ([2607:f8b0:400d:c0d::233]:34080) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bLh1P-0003US-EW for help-gnu-emacs@gnu.org; Fri, 08 Jul 2016 21:25:31 -0400 Original-Received: by mail-qt0-x233.google.com with SMTP id u25so5330665qtb.1 for ; Fri, 08 Jul 2016 18:25:31 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113; h=mime-version:in-reply-to:references:from:date:message-id:subject:to :cc; bh=JGT3l30D6hM3/VOl8yCSb9bJT3lyiwFCdxZXQM4mkLA=; b=KnYRhwvxY4+kjYQegZ+XTWO9pWlZbo11yEeRRPWkjLTClh52Zowj1z/3AkXaFrQZIe kPH1GMp4Hd5XmNOcl/a5GoqO7/RA799tNY0fHHLbVta3OCTCcQUlz6JWgHo4CWuU4+Na fdD41kz2eGcqNrzBoBExuWR3xlth0eE/UJb5NIJLFMcPZLwHXG/uX7YkQShAwVaEjpey 4BqICNNySH435kpatE1eHB6oydGiWt9M6MtjtdQh8uEZwn6KWPFzX5zg7ct0hMlDcON5 lG1yCmFOxUiEWvs8EM2S4fsJQLs3UwCEn3161zX7aLZq3xd697moaJc0S7GGH9Hg05BA 8SWg== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20130820; h=x-gm-message-state:mime-version:in-reply-to:references:from:date :message-id:subject:to:cc; bh=JGT3l30D6hM3/VOl8yCSb9bJT3lyiwFCdxZXQM4mkLA=; b=MuFc6i70mwGISn8A8XRONga7JjgB69hYnwVa2Vxg7jravVd7Q3BtDy78rm+kECGyeO he/cA0bQkWNQixMQVPtQkQqIxL9kZOw3IQspTWaZokcUL4pDUb2gcRQDKCI8YW3nCMt6 vsNFjdl4MS41fRYZBs4kCdcd4ZDOLVzweJlpPRZKd+db5jBxwBa22qnP53u4e2J0NFiG Ct7bmO4mjueZIux8hNNZGNYJWq5mn0s8ArqOBBOG4OG5Oy1/2+gTP7k1Czp1lxMdIXfp UEerWIpa9EANYfzo8KHQEORyJD7hh9y01UehiecCsnLYHCoFbdB/85iBtruYap6Jb8R1 eu1A== X-Gm-Message-State: ALyK8tJbYEDY2Evtfbs4xSSfqqOhrQRd3NWEHPjK2BHyP9R2+AVMDqCxwjIwzq1beuA4oZ8s1b4h/UXAoRPkbQ== X-Received: by 10.237.33.147 with SMTP id l19mr13129571qtc.33.1468027530732; Fri, 08 Jul 2016 18:25:30 -0700 (PDT) Original-Received: by 10.55.12.5 with HTTP; Fri, 8 Jul 2016 18:25:30 -0700 (PDT) In-Reply-To: X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 2607:f8b0:400d:c0d::233 X-Content-Filtered-By: Mailman/MimeDel 2.1.21 X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.21 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Original-Sender: "help-gnu-emacs" Xref: news.gmane.org gmane.emacs.help:110743 Archived-At: On 8 July 2016 at 21:34, Yuri Khan wrote: > On Fri, Jul 8, 2016 at 2:02 PM, Davin Pearson > 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