GNU Emacs theme submission

GNU Emacs theme submission

[Michael Corral]

[-- Attachment #1: Type: TEXT/PLAIN, Size: 173 bytes --]

Hello,

I have attached a custom theme that I made for Emacs, called TangoMod,
for inclusion in Emacs 24. Hopefully someone besides me will like it.

Thanks,

Michael Corral

[-- Attachment #2: Type: TEXT/plain, Size: 11467 bytes --]

;;; color-theme-TangoMod.el --- Custom face theme for Emacs

;; Copyright (C) 2011 Michael Corral

;; This file 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.

;; This file 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 <http://www.gnu.org/licenses/>.

;;; Code:

(eval-when-compile
  (require 'color-theme))

(defun color-theme-TangoMod ()
  "Modified version of color-theme-tango."
  (interactive)
  (color-theme-install
   '(color-theme-TangoMod
     ((foreground-color . "white")
      (background-color . "#1a1e21")
      (mouse-color . "yellow")
      (cursor-color . "#fce94f")
      (border-color . "black")
      (background-mode . light))
     (fringe ((t (:background "#2e3436" :foreground "#e14440"))))
     (linum ((t (:background "#1a1e21" :foreground "#f7b66c"))))
     (default ((t (nil))))
     (modeline ((t (:foreground "black" :background "#f0f08b"))))
     (modeline-buffer-id ((t (:foreground "black" :background "#f0cd5d"))))
     (modeline-mousable ((t (:foreground "black" :background "gold2"))))
     (modeline-mousable-minor-mode ((t (:foreground "black" :background "gold2"))))
     (highlight ((t (:foreground "black" :background "Aquamarine"))))
     (bold ((t (:bold t))))
     (italic ((t (:italic t))))
     (bold-italic ((t (:bold t :italic t))))
     (region ((t (:foreground "black" :background "#d0d0ff"))))
     (secondary-selection ((t (:foreground "black" :background "aquamarine"))))
     (underline ((t (:underline t))))
     (lazy-highlight-face ((t (:foreground "yellow"))))
     (font-lock-comment-face ((t (:foreground "#888a85" :italic t))))
     (font-lock-string-face ((t (:foreground "plum1"))))
     (font-lock-type-face ((t (:foreground "#64d370" :bold t))))
     (font-lock-builtin-face ((t (:foreground "LightSteelBlue"))))
     (font-lock-keyword-face ((t (:foreground "#00dcff" :bold t))))
     (font-lock-variable-name-face ((t (:foreground "#ffd370" :bold t))))
     (font-lock-function-name-face ((t (:foreground "LightPink" :bold t))))
     (font-lock-constant-face ((t (:foreground "Aquamarine"))))
     (font-lock-warning-face ((t (:foreground "#f57900" :bold t))))
     (widget-documentation-face ((t (:foreground "lime green"))))
     (widget-button-face ((t (:bold t))))
     (widget-field-face ((t (:background "dim gray"))))
     (widget-single-line-field-face ((t (:background "dim gray"))))
     (widget-inactive-face ((t (:foreground "light gray"))))
     (widget-button-pressed-face ((t (:foreground "red"))))
     (custom-invalid-face ((t (:foreground "yellow" :background "red"))))
     (custom-rogue-face ((t (:foreground "pink" :background "black"))))
     (custom-modified-face ((t (:foreground "white" :background "blue"))))
     (custom-set-face ((t (:foreground "blue" :background "white"))))
     (custom-changed-face ((t (:foreground "white" :background "blue"))))
     (custom-saved-face ((t (:underline t))))
     (custom-button-face ((t (nil))))
     (custom-documentation-face ((t (nil))))
     (custom-state-face ((t (:foreground "lime green"))))
     (custom-variable-tag-face ((t (:foreground "light blue" :underline t))))
     (custom-variable-button-face ((t (:bold t :underline t))))
     (custom-face-tag-face ((t (:underline t))))
     (custom-group-tag-face-1 ((t (:foreground "pink" :underline t))))
     (custom-group-tag-face ((t (:foreground "light blue" :underline t))))
     (speedbar-button-face ((t (:foreground "green3"))))
     (speedbar-file-face ((t (:foreground "cyan"))))
     (speedbar-directory-face ((t (:foreground "light blue"))))
     (speedbar-tag-face ((t (:foreground "yellow"))))
     (speedbar-selected-face ((t (:foreground "red" :underline t))))
     (speedbar-highlight-face ((t (:background "sea green"))))
     (font-lock-doc-string-face ((t (:foreground "orange" :bold t))))
     (font-lock-exit-face ((t (:foreground "green"))))
     (header-line ((t (:background "grey30" :foreground "grey"))))
     (minibuffer-prompt ((t (:foreground "cyan"))))
     (ff-paths-non-existant-file-face ((t (:foreground "NavyBlue" :bold t))))
     (show-paren-match-face ((t (:background "red"))))
     (show-paren-mismatch-face ((t (:foreground "white" :background "purple"))))
     (message-header-to-face ((t (:foreground "green2" :bold t))))
     (message-header-cc-face ((t (:foreground "LightGoldenrod" :bold t))))
     (message-header-subject-face ((t (:foreground "green3"))))
     (message-header-newsgroups-face ((t (:foreground "yellow" :bold t :italic t))))
     (message-header-other-face ((t (:foreground "Salmon"))))
     (message-header-name-face ((t (:foreground "green3"))))
     (message-header-xheader-face ((t (:foreground "GreenYellow"))))
     (message-separator-face ((t (:foreground "Tan"))))
     (message-cited-text-face ((t (:foreground "Gold"))))
     (message-mml-face ((t (:foreground "ForestGreen"))))
     (gnus-group-news-1-face ((t (:foreground "PaleTurquoise" :bold t))))
     (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise"))))
     (gnus-group-news-2-face ((t (:foreground "turquoise" :bold t))))
     (gnus-group-news-2-empty-face ((t (:foreground "turquoise"))))
     (gnus-group-news-3-face ((t (:bold t))))
     (gnus-group-news-3-empty-face ((t (nil))))
     (gnus-group-news-4-face ((t (:bold t))))
     (gnus-group-news-4-empty-face ((t (nil))))
     (gnus-group-news-5-face ((t (:bold t))))
     (gnus-group-news-5-empty-face ((t (nil))))
     (gnus-group-news-6-face ((t (:bold t))))
     (gnus-group-news-6-empty-face ((t (nil))))
     (gnus-group-news-low-face ((t (:foreground "DarkTurquoise" :bold t))))
     (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise"))))
     (gnus-group-mail-1-face ((t (:foreground "aquamarine1" :bold t))))
     (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1"))))
     (gnus-group-mail-2-face ((t (:foreground "aquamarine2" :bold t))))
     (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2"))))
     (gnus-group-mail-3-face ((t (:foreground "aquamarine3" :bold t))))
     (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3"))))
     (gnus-group-mail-low-face ((t (:foreground "aquamarine4" :bold t))))
     (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4"))))
     (gnus-summary-selected-face ((t (:underline t))))
     (gnus-summary-cancelled-face ((t (:foreground "yellow" :background "black"))))
     (gnus-summary-high-ticked-face ((t (:foreground "pink" :bold t))))
     (gnus-summary-low-ticked-face ((t (:foreground "pink" :italic t))))
     (gnus-summary-normal-ticked-face ((t (:foreground "pink"))))
     (gnus-summary-high-ancient-face ((t (:foreground "SkyBlue" :bold t))))
     (gnus-summary-low-ancient-face ((t (:foreground "SkyBlue" :italic t))))
     (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue"))))
     (gnus-summary-high-unread-face ((t (:bold t))))
     (gnus-summary-low-unread-face ((t (:italic t))))
     (gnus-summary-normal-unread-face ((t (nil))))
     (gnus-summary-high-read-face ((t (:foreground "PaleGreen" :bold t))))
     (gnus-summary-low-read-face ((t (:foreground "PaleGreen" :italic t))))
     (gnus-summary-normal-read-face ((t (:foreground "PaleGreen"))))
     (gnus-splash-face ((t (:foreground "Brown"))))
     (eshell-ls-directory-face ((t (:foreground "SkyBlue" :bold t))))
     (eshell-ls-symlink-face ((t (:foreground "Cyan" :bold t))))
     (eshell-ls-executable-face ((t (:foreground "Green" :bold t))))
     (eshell-ls-readonly-face ((t (:foreground "Pink"))))
     (eshell-ls-unreadable-face ((t (:foreground "DarkGrey"))))
     (eshell-ls-special-face ((t (:foreground "Magenta" :bold t))))
     (eshell-ls-missing-face ((t (:foreground "Red" :bold t))))
     (eshell-ls-archive-face ((t (:foreground "Orchid" :bold t))))
     (eshell-ls-backup-face ((t (:foreground "LightSalmon"))))
     (eshell-ls-product-face ((t (:foreground "LightSalmon"))))
     (eshell-ls-clutter-face ((t (:foreground "OrangeRed" :bold t))))
     (eshell-prompt-face ((t (:foreground "Pink" :bold t))))
     (term-default-fg ((t (nil))))
     (term-default-bg ((t (nil))))
     (term-default-fg-inv ((t (nil))))
     (term-default-bg-inv ((t (nil))))
     (term-bold ((t (:bold t))))
     (term-underline ((t (:underline t))))
     (term-invisible ((t (nil))))
     (term-invisible-inv ((t (nil))))
     (term-black ((t (:foreground "black"))))
     (term-red ((t (:foreground "red"))))
     (term-green ((t (:foreground "green"))))
     (term-yellow ((t (:foreground "yellow"))))
     (term-blue ((t (:foreground "blue"))))
     (term-magenta ((t (:foreground "magenta"))))
     (term-cyan ((t (:foreground "cyan"))))
     (term-white ((t (:foreground "white"))))
     (term-blackbg ((t (:background "black"))))
     (term-redbg ((t (:background "red"))))
     (term-greenbg ((t (:background "green"))))
     (term-yellowbg ((t (:background "yellow"))))
     (term-bluebg ((t (:background "blue"))))
     (term-magentabg ((t (:background "magenta"))))
     (term-cyanbg ((t (:background "cyan"))))
     (term-whitebg ((t (:background "white"))))
     (font-latex-math-face ((t (:foreground "burlywood"))))
     (font-latex-sedate-face ((t (:foreground "LightGray"))))
     (gnus-emphasis-bold ((t (:bold t))))
     (gnus-emphasis-italic ((t (:italic t))))
     (gnus-emphasis-underline ((t (:underline t))))
     (gnus-emphasis-underline-bold ((t (:bold t :underline t))))
     (gnus-emphasis-underline-italic ((t (:italic t :underline t))))
     (gnus-emphasis-bold-italic ((t (:bold t :italic t))))
     (gnus-emphasis-underline-bold-italic ((t (:bold t :italic t :underline t))))
     (gnus-emphasis-highlight-words ((t (:foreground "yellow" :background "black"))))
     (gnus-signature-face ((t (:italic t))))
     (gnus-header-from-face ((t (:foreground "spring green"))))
     (gnus-header-subject-face ((t (:foreground "yellow" :bold t))))
     (gnus-header-newsgroups-face ((t (:foreground "SeaGreen3" :bold t :italic t))))
     (gnus-header-name-face ((t (:foreground "pink"))))
     (gnus-header-content-face ((t (:foreground "lime green" :italic t))))
     (gnus-cite-attribution-face ((t (:italic t))))
     (gnus-cite-face-1 ((t (:foreground "light blue"))))
     (gnus-cite-face-2 ((t (:foreground "light cyan"))))
     (gnus-cite-face-3 ((t (:foreground "light yellow"))))
     (gnus-cite-face-4 ((t (:foreground "light pink"))))
     (gnus-cite-face-5 ((t (:foreground "pale green"))))
     (gnus-cite-face-6 ((t (:foreground "beige"))))
     (gnus-cite-face-7 ((t (:foreground "orange"))))
     (gnus-cite-face-8 ((t (:foreground "magenta"))))
     (gnus-cite-face-9 ((t (:foreground "violet"))))
     (gnus-cite-face-10 ((t (:foreground "medium purple"))))
     (gnus-cite-face-11 ((t (:foreground "turquoise")))))))

;;; color-theme-TangoMod.el  ends here

Re: GNU Emacs theme submission

[Tassilo Horn]

Michael Corral <micorral@comcast.net> writes:

Hi Michael,

> I have attached a custom theme that I made for Emacs, called TangoMod,
> for inclusion in Emacs 24. Hopefully someone besides me will like it.

First of all, thanks a lot.

But your theme is not a custom theme, it's a color-theme for
color-theme.el.  These are different things. ;-)

Have a look at the few existing custom themes at

  http://git.savannah.gnu.org/cgit/emacs.git/tree/etc/themes

It shouldn't be too hard to transform your color-theme into a custom
theme.

Bye,
Tassilo

Re: GNU Emacs theme submission

[Eli Zaretskii]

> From: Tassilo Horn <tassilo@member.fsf.org>
> Date: Sat, 29 Jan 2011 10:13:23 +0100
> Cc: emacs-devel@gnu.org
> 
> Have a look at the few existing custom themes at
> 
>   http://git.savannah.gnu.org/cgit/emacs.git/tree/etc/themes

Please make a point of mentioning the name of the file in the Emacs
tree as well.  It would be reasonable to assume that someone who
contributes to Emacs 24 already has a checkout of the development
trunk.  We have enough git propaganda on this list, no need to add
more.

Re: GNU Emacs theme submission

[Michael Corral]

[-- Attachment #1: Type: TEXT/PLAIN, Size: 531 bytes --]

2011-01-29, Monsieur Tassilo Horn a ecrit:
> First of all, thanks a lot.
>
> But your theme is not a custom theme, it's a color-theme for
> color-theme.el.  These are different things. ;-)
>
> Have a look at the few existing custom themes at
>
>  http://git.savannah.gnu.org/cgit/emacs.git/tree/etc/themes
>
> It shouldn't be too hard to transform your color-theme into a custom
> theme.

Hello Tassilo,

OK, I transformed my theme (hopefully) into the format for a custom
theme. It's in the attached file.

Thanks,

Michael Corral

[-- Attachment #2: Type: TEXT/plain, Size: 10843 bytes --]

;;; TangoMod-theme.el --- Custom face theme for Emacs

;; Copyright (C) 2011 Michael Corral

;; This file 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.

;; This file 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 <http://www.gnu.org/licenses/>.

;;; Code:

(deftheme TangoMod
  "Modified, darker version of Tango theme")

(custom-theme-set-faces
 'TangoMod
 '(default ((t (:background "#1a1e21" :foreground "#ffffff"))))
 '(cursor ((t (:background "#fce94f" :foreground "#fce94f"))))
 '(fringe ((t (:background "#2e3436" :foreground "#e14440"))))
 '(linum ((t (:background "#1a1e21" :foreground "#f7b66c"))))
 '(modeline ((t (:foreground "black" :background "#f0f08b"))))
 '(modeline-buffer-id ((t (:foreground "black" :background "#f0cd5d"))))
 '(modeline-mousable ((t (:foreground "black" :background "gold2"))))
 '(modeline-mousable-minor-mode ((t (:foreground "black" :background "gold2"))))
 '(highlight ((t (:foreground "black" :background "Aquamarine"))))
 '(bold ((t (:bold t))))
 '(italic ((t (:italic t))))
 '(bold-italic ((t (:bold t :italic t))))
 '(region ((t (:foreground "black" :background "#d0d0ff"))))
 '(secondary-selection ((t (:foreground "black" :background "aquamarine"))))
 '(underline ((t (:underline t))))
 '(lazy-highlight-face ((t (:foreground "yellow"))))
 '(font-lock-comment-face ((t (:foreground "#888a85" :italic t))))
 '(font-lock-string-face ((t (:foreground "plum1"))))
 '(font-lock-type-face ((t (:foreground "#64d370" :bold t))))
 '(font-lock-builtin-face ((t (:foreground "LightSteelBlue"))))
 '(font-lock-keyword-face ((t (:foreground "#00dcff" :bold t))))
 '(font-lock-variable-name-face ((t (:foreground "#ffd370" :bold t))))
 '(font-lock-function-name-face ((t (:foreground "LightPink" :bold t))))
 '(font-lock-constant-face ((t (:foreground "Aquamarine"))))
 '(font-lock-warning-face ((t (:foreground "#f57900" :bold t))))
 '(widget-documentation-face ((t (:foreground "lime green"))))
 '(widget-button-face ((t (:bold t))))
 '(widget-field-face ((t (:background "dim gray"))))
 '(widget-single-line-field-face ((t (:background "dim gray"))))
 '(widget-inactive-face ((t (:foreground "light gray"))))
 '(widget-button-pressed-face ((t (:foreground "red"))))
 '(custom-invalid-face ((t (:foreground "yellow" :background "red"))))
 '(custom-rogue-face ((t (:foreground "pink" :background "black"))))
 '(custom-modified-face ((t (:foreground "white" :background "blue"))))
 '(custom-set-face ((t (:foreground "blue" :background "white"))))
 '(custom-changed-face ((t (:foreground "white" :background "blue"))))
 '(custom-saved-face ((t (:underline t))))
 '(custom-button-face ((t (nil))))
 '(custom-documentation-face ((t (nil))))
 '(custom-state-face ((t (:foreground "lime green"))))
 '(custom-variable-tag-face ((t (:foreground "light blue" :underline t))))
 '(custom-variable-button-face ((t (:bold t :underline t))))
 '(custom-face-tag-face ((t (:underline t))))
 '(custom-group-tag-face-1 ((t (:foreground "pink" :underline t))))
 '(custom-group-tag-face ((t (:foreground "light blue" :underline t))))
 '(speedbar-button-face ((t (:foreground "green3"))))
 '(speedbar-file-face ((t (:foreground "cyan"))))
 '(speedbar-directory-face ((t (:foreground "light blue"))))
 '(speedbar-tag-face ((t (:foreground "yellow"))))
 '(speedbar-selected-face ((t (:foreground "red" :underline t))))
 '(speedbar-highlight-face ((t (:background "sea green"))))
 '(font-lock-doc-string-face ((t (:foreground "orange" :bold t))))
 '(font-lock-exit-face ((t (:foreground "green"))))
 '(header-line ((t (:background "grey30" :foreground "grey"))))
 '(minibuffer-prompt ((t (:foreground "cyan"))))
 '(ff-paths-non-existant-file-face ((t (:foreground "NavyBlue" :bold t))))
 '(show-paren-match-face ((t (:background "red"))))
 '(show-paren-mismatch-face ((t (:foreground "white" :background "purple"))))
 '(message-header-to-face ((t (:foreground "green2" :bold t))))
 '(message-header-cc-face ((t (:foreground "LightGoldenrod" :bold t))))
 '(message-header-subject-face ((t (:foreground "green3"))))
 '(message-header-newsgroups-face ((t (:foreground "yellow" :bold t :italic t))))
 '(message-header-other-face ((t (:foreground "Salmon"))))
 '(message-header-name-face ((t (:foreground "green3"))))
 '(message-header-xheader-face ((t (:foreground "GreenYellow"))))
 '(message-separator-face ((t (:foreground "Tan"))))
 '(message-cited-text-face ((t (:foreground "Gold"))))
 '(message-mml-face ((t (:foreground "ForestGreen"))))
 '(gnus-group-news-1-face ((t (:foreground "PaleTurquoise" :bold t))))
 '(gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise"))))
 '(gnus-group-news-2-face ((t (:foreground "turquoise" :bold t))))
 '(gnus-group-news-2-empty-face ((t (:foreground "turquoise"))))
 '(gnus-group-news-3-face ((t (:bold t))))
 '(gnus-group-news-3-empty-face ((t (nil))))
 '(gnus-group-news-4-face ((t (:bold t))))
 '(gnus-group-news-4-empty-face ((t (nil))))
 '(gnus-group-news-5-face ((t (:bold t))))
 '(gnus-group-news-5-empty-face ((t (nil))))
 '(gnus-group-news-6-face ((t (:bold t))))
 '(gnus-group-news-6-empty-face ((t (nil))))
 '(gnus-group-news-low-face ((t (:foreground "DarkTurquoise" :bold t))))
 '(gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise"))))
 '(gnus-group-mail-1-face ((t (:foreground "aquamarine1" :bold t))))
 '(gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1"))))
 '(gnus-group-mail-2-face ((t (:foreground "aquamarine2" :bold t))))
 '(gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2"))))
 '(gnus-group-mail-3-face ((t (:foreground "aquamarine3" :bold t))))
 '(gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3"))))
 '(gnus-group-mail-low-face ((t (:foreground "aquamarine4" :bold t))))
 '(gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4"))))
 '(gnus-summary-selected-face ((t (:underline t))))
 '(gnus-summary-cancelled-face ((t (:foreground "yellow" :background "black"))))
 '(gnus-summary-high-ticked-face ((t (:foreground "pink" :bold t))))
 '(gnus-summary-low-ticked-face ((t (:foreground "pink" :italic t))))
 '(gnus-summary-normal-ticked-face ((t (:foreground "pink"))))
 '(gnus-summary-high-ancient-face ((t (:foreground "SkyBlue" :bold t))))
 '(gnus-summary-low-ancient-face ((t (:foreground "SkyBlue" :italic t))))
 '(gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue"))))
 '(gnus-summary-high-unread-face ((t (:bold t))))
 '(gnus-summary-low-unread-face ((t (:italic t))))
 '(gnus-summary-normal-unread-face ((t (nil))))
 '(gnus-summary-high-read-face ((t (:foreground "PaleGreen" :bold t))))
 '(gnus-summary-low-read-face ((t (:foreground "PaleGreen" :italic t))))
 '(gnus-summary-normal-read-face ((t (:foreground "PaleGreen"))))
 '(gnus-splash-face ((t (:foreground "Brown"))))
 '(eshell-ls-directory-face ((t (:foreground "SkyBlue" :bold t))))
 '(eshell-ls-symlink-face ((t (:foreground "Cyan" :bold t))))
 '(eshell-ls-executable-face ((t (:foreground "Green" :bold t))))
 '(eshell-ls-readonly-face ((t (:foreground "Pink"))))
 '(eshell-ls-unreadable-face ((t (:foreground "DarkGrey"))))
 '(eshell-ls-special-face ((t (:foreground "Magenta" :bold t))))
 '(eshell-ls-missing-face ((t (:foreground "Red" :bold t))))
 '(eshell-ls-archive-face ((t (:foreground "Orchid" :bold t))))
 '(eshell-ls-backup-face ((t (:foreground "LightSalmon"))))
 '(eshell-ls-product-face ((t (:foreground "LightSalmon"))))
 '(eshell-ls-clutter-face ((t (:foreground "OrangeRed" :bold t))))
 '(eshell-prompt-face ((t (:foreground "Pink" :bold t))))
 '(term-default-fg ((t (nil))))
 '(term-default-bg ((t (nil))))
 '(term-default-fg-inv ((t (nil))))
 '(term-default-bg-inv ((t (nil))))
 '(term-bold ((t (:bold t))))
 '(term-underline ((t (:underline t))))
 '(term-invisible ((t (nil))))
 '(term-invisible-inv ((t (nil))))
 '(term-black ((t (:foreground "black"))))
 '(term-red ((t (:foreground "red"))))
 '(term-green ((t (:foreground "green"))))
 '(term-yellow ((t (:foreground "yellow"))))
 '(term-blue ((t (:foreground "blue"))))
 '(term-magenta ((t (:foreground "magenta"))))
 '(term-cyan ((t (:foreground "cyan"))))
 '(term-white ((t (:foreground "white"))))
 '(term-blackbg ((t (:background "black"))))
 '(term-redbg ((t (:background "red"))))
 '(term-greenbg ((t (:background "green"))))
 '(term-yellowbg ((t (:background "yellow"))))
 '(term-bluebg ((t (:background "blue"))))
 '(term-magentabg ((t (:background "magenta"))))
 '(term-cyanbg ((t (:background "cyan"))))
 '(term-whitebg ((t (:background "white"))))
 '(font-latex-math-face ((t (:foreground "burlywood"))))
 '(font-latex-sedate-face ((t (:foreground "LightGray"))))
 '(gnus-emphasis-bold ((t (:bold t))))
 '(gnus-emphasis-italic ((t (:italic t))))
 '(gnus-emphasis-underline ((t (:underline t))))
 '(gnus-emphasis-underline-bold ((t (:bold t :underline t))))
 '(gnus-emphasis-underline-italic ((t (:italic t :underline t))))
 '(gnus-emphasis-bold-italic ((t (:bold t :italic t))))
 '(gnus-emphasis-underline-bold-italic ((t (:bold t :italic t :underline t))))
 '(gnus-emphasis-highlight-words ((t (:foreground "yellow" :background "black"))))
 '(gnus-signature-face ((t (:italic t))))
 '(gnus-header-from-face ((t (:foreground "spring green"))))
 '(gnus-header-subject-face ((t (:foreground "yellow" :bold t))))
 '(gnus-header-newsgroups-face ((t (:foreground "SeaGreen3" :bold t :italic t))))
 '(gnus-header-name-face ((t (:foreground "pink"))))
 '(gnus-header-content-face ((t (:foreground "lime green" :italic t))))
 '(gnus-cite-attribution-face ((t (:italic t))))
 '(gnus-cite-face-1 ((t (:foreground "light blue"))))
 '(gnus-cite-face-2 ((t (:foreground "light cyan"))))
 '(gnus-cite-face-3 ((t (:foreground "light yellow"))))
 '(gnus-cite-face-4 ((t (:foreground "light pink"))))
 '(gnus-cite-face-5 ((t (:foreground "pale green"))))
 '(gnus-cite-face-6 ((t (:foreground "beige"))))
 '(gnus-cite-face-7 ((t (:foreground "orange"))))
 '(gnus-cite-face-8 ((t (:foreground "magenta"))))
 '(gnus-cite-face-9 ((t (:foreground "violet"))))
 '(gnus-cite-face-10 ((t (:foreground "medium purple"))))
 '(gnus-cite-face-11 ((t (:foreground "turquoise")))))

(provide-theme 'TangoMod)

;; Local Variables:
;; no-byte-compile: t
;; End:

;;; TangoMod-theme.el  ends here

Re: GNU Emacs theme submission

[Tassilo Horn]

Eli Zaretskii <eliz@gnu.org> writes:

Hi Eli,

>>   http://git.savannah.gnu.org/cgit/emacs.git/tree/etc/themes
>
> Please make a point of mentioning the name of the file in the Emacs
> tree as well.

Yup: all the files in emacs/etc/themes/ ;-)

> It would be reasonable to assume that someone who contributes to Emacs
> 24 already has a checkout of the development trunk.

I wasn't aware he's already contributing.  At least grepping bzr log for
Corral shows no match...

> We have enough git propaganda on this list, no need to add more.

Well, if you want to link to an emacs file in the repository by means of
a browser, there's currently no other way than the git mirror.  The bzr
repository cannot be browsed.

Bye,
Tassilo

Re: GNU Emacs theme submission

[Thien-Thi Nguyen]

() Tassilo Horn <tassilo@member.fsf.org>
() Sat, 29 Jan 2011 13:57:58 +0100

   Well, if you want to link to an emacs file in the repository by means of
   a browser, there's currently no other way than the git mirror.  The bzr
   repository cannot be browsed.

Presuming people read their mail in Emacs, we could adopt a convention of
using the variable name EMACSSRCROOT (or something like that) so that those
who set that environment variable can use ‘find-file-at-point’.

E.g., in ~/.emacs, i have:

  (setenv "EMACSSRCROOT" "~/build/GNU/emacs")

and now i can (even in this buffer), use ‘M-x find-file-at-point’ on

  $EMACSSRCROOT/etc/themes

to visit that directory (in Dired mode).

Of course, Emacs already supports finding its source files (as part of
preparing the decoration in the *Help* buffer); this is a simpler idea
potentially useful in many more contexts.

Re: GNU Emacs theme submission

[Tassilo Horn]

Michael Corral <micorral@comcast.net> writes:

Hi Michael,

> OK, I transformed my theme (hopefully) into the format for a custom
> theme. It's in the attached file.

Seems to work. :-)

> ;;; TangoMod-theme.el --- Custom face theme for Emacs

I think it would be better to make the theme and file
tango-mod(-theme.el), because emacs also runs on systems whose
filesystems are case-insensitive.

And since I guess TangoMod stays for Tango Modified, a better name would
probably be dark-tango, because that's what you say it is: a dark
version of the tango theme.

Bye,
Tassilo

Re: GNU Emacs theme submission

[Stefan Monnier]

>> Have a look at the few existing custom themes at
>> http://git.savannah.gnu.org/cgit/emacs.git/tree/etc/themes
> Please make a point of mentioning the name of the file in the Emacs
> tree as well.  It would be reasonable to assume that someone who
> contributes to Emacs 24 already has a checkout of the development
> trunk.  We have enough git propaganda on this list, no need to add
> more.

Let's please drop this thread and focus on the submitted them, please.


        Stefan

Re: GNU Emacs theme submission

[Michael Corral]

[-- Attachment #1: Type: TEXT/PLAIN, Size: 544 bytes --]

2011-01-29, Monsieur Tassilo Horn a ecrit:
> Seems to work. :-)
>
>> ;;; TangoMod-theme.el --- Custom face theme for Emacs
>
> I think it would be better to make the theme and file
> tango-mod(-theme.el), because emacs also runs on systems whose
> filesystems are case-insensitive.
>
> And since I guess TangoMod stays for Tango Modified, a better name would
> probably be dark-tango, because that's what you say it is: a dark
> version of the tango theme.

OK, I've renamed it to dark-tango, it's in the attached file.

Thanks,

Michael Corral

[-- Attachment #2: Type: TEXT/plain, Size: 10853 bytes --]

;;; dark-tango-theme.el --- Custom face theme for Emacs

;; Copyright (C) 2011 Michael Corral

;; This file 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.

;; This file 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 <http://www.gnu.org/licenses/>.

;;; Code:

(deftheme dark-tango
  "Modified, darker version of Tango theme")

(custom-theme-set-faces
 'dark-tango
 '(default ((t (:background "#1a1e21" :foreground "#ffffff"))))
 '(cursor ((t (:background "#fce94f" :foreground "#fce94f"))))
 '(fringe ((t (:background "#2e3436" :foreground "#e14440"))))
 '(linum ((t (:background "#1a1e21" :foreground "#f7b66c"))))
 '(modeline ((t (:foreground "black" :background "#f0f08b"))))
 '(modeline-buffer-id ((t (:foreground "black" :background "#f0cd5d"))))
 '(modeline-mousable ((t (:foreground "black" :background "gold2"))))
 '(modeline-mousable-minor-mode ((t (:foreground "black" :background "gold2"))))
 '(highlight ((t (:foreground "black" :background "Aquamarine"))))
 '(bold ((t (:bold t))))
 '(italic ((t (:italic t))))
 '(bold-italic ((t (:bold t :italic t))))
 '(region ((t (:foreground "black" :background "#d0d0ff"))))
 '(secondary-selection ((t (:foreground "black" :background "aquamarine"))))
 '(underline ((t (:underline t))))
 '(lazy-highlight-face ((t (:foreground "yellow"))))
 '(font-lock-comment-face ((t (:foreground "#888a85" :italic t))))
 '(font-lock-string-face ((t (:foreground "plum1"))))
 '(font-lock-type-face ((t (:foreground "#64d370" :bold t))))
 '(font-lock-builtin-face ((t (:foreground "LightSteelBlue"))))
 '(font-lock-keyword-face ((t (:foreground "#00dcff" :bold t))))
 '(font-lock-variable-name-face ((t (:foreground "#ffd370" :bold t))))
 '(font-lock-function-name-face ((t (:foreground "LightPink" :bold t))))
 '(font-lock-constant-face ((t (:foreground "Aquamarine"))))
 '(font-lock-warning-face ((t (:foreground "#f57900" :bold t))))
 '(widget-documentation-face ((t (:foreground "lime green"))))
 '(widget-button-face ((t (:bold t))))
 '(widget-field-face ((t (:background "dim gray"))))
 '(widget-single-line-field-face ((t (:background "dim gray"))))
 '(widget-inactive-face ((t (:foreground "light gray"))))
 '(widget-button-pressed-face ((t (:foreground "red"))))
 '(custom-invalid-face ((t (:foreground "yellow" :background "red"))))
 '(custom-rogue-face ((t (:foreground "pink" :background "black"))))
 '(custom-modified-face ((t (:foreground "white" :background "blue"))))
 '(custom-set-face ((t (:foreground "blue" :background "white"))))
 '(custom-changed-face ((t (:foreground "white" :background "blue"))))
 '(custom-saved-face ((t (:underline t))))
 '(custom-button-face ((t (nil))))
 '(custom-documentation-face ((t (nil))))
 '(custom-state-face ((t (:foreground "lime green"))))
 '(custom-variable-tag-face ((t (:foreground "light blue" :underline t))))
 '(custom-variable-button-face ((t (:bold t :underline t))))
 '(custom-face-tag-face ((t (:underline t))))
 '(custom-group-tag-face-1 ((t (:foreground "pink" :underline t))))
 '(custom-group-tag-face ((t (:foreground "light blue" :underline t))))
 '(speedbar-button-face ((t (:foreground "green3"))))
 '(speedbar-file-face ((t (:foreground "cyan"))))
 '(speedbar-directory-face ((t (:foreground "light blue"))))
 '(speedbar-tag-face ((t (:foreground "yellow"))))
 '(speedbar-selected-face ((t (:foreground "red" :underline t))))
 '(speedbar-highlight-face ((t (:background "sea green"))))
 '(font-lock-doc-string-face ((t (:foreground "orange" :bold t))))
 '(font-lock-exit-face ((t (:foreground "green"))))
 '(header-line ((t (:background "grey30" :foreground "grey"))))
 '(minibuffer-prompt ((t (:foreground "cyan"))))
 '(ff-paths-non-existant-file-face ((t (:foreground "NavyBlue" :bold t))))
 '(show-paren-match-face ((t (:background "red"))))
 '(show-paren-mismatch-face ((t (:foreground "white" :background "purple"))))
 '(message-header-to-face ((t (:foreground "green2" :bold t))))
 '(message-header-cc-face ((t (:foreground "LightGoldenrod" :bold t))))
 '(message-header-subject-face ((t (:foreground "green3"))))
 '(message-header-newsgroups-face ((t (:foreground "yellow" :bold t :italic t))))
 '(message-header-other-face ((t (:foreground "Salmon"))))
 '(message-header-name-face ((t (:foreground "green3"))))
 '(message-header-xheader-face ((t (:foreground "GreenYellow"))))
 '(message-separator-face ((t (:foreground "Tan"))))
 '(message-cited-text-face ((t (:foreground "Gold"))))
 '(message-mml-face ((t (:foreground "ForestGreen"))))
 '(gnus-group-news-1-face ((t (:foreground "PaleTurquoise" :bold t))))
 '(gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise"))))
 '(gnus-group-news-2-face ((t (:foreground "turquoise" :bold t))))
 '(gnus-group-news-2-empty-face ((t (:foreground "turquoise"))))
 '(gnus-group-news-3-face ((t (:bold t))))
 '(gnus-group-news-3-empty-face ((t (nil))))
 '(gnus-group-news-4-face ((t (:bold t))))
 '(gnus-group-news-4-empty-face ((t (nil))))
 '(gnus-group-news-5-face ((t (:bold t))))
 '(gnus-group-news-5-empty-face ((t (nil))))
 '(gnus-group-news-6-face ((t (:bold t))))
 '(gnus-group-news-6-empty-face ((t (nil))))
 '(gnus-group-news-low-face ((t (:foreground "DarkTurquoise" :bold t))))
 '(gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise"))))
 '(gnus-group-mail-1-face ((t (:foreground "aquamarine1" :bold t))))
 '(gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1"))))
 '(gnus-group-mail-2-face ((t (:foreground "aquamarine2" :bold t))))
 '(gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2"))))
 '(gnus-group-mail-3-face ((t (:foreground "aquamarine3" :bold t))))
 '(gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3"))))
 '(gnus-group-mail-low-face ((t (:foreground "aquamarine4" :bold t))))
 '(gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4"))))
 '(gnus-summary-selected-face ((t (:underline t))))
 '(gnus-summary-cancelled-face ((t (:foreground "yellow" :background "black"))))
 '(gnus-summary-high-ticked-face ((t (:foreground "pink" :bold t))))
 '(gnus-summary-low-ticked-face ((t (:foreground "pink" :italic t))))
 '(gnus-summary-normal-ticked-face ((t (:foreground "pink"))))
 '(gnus-summary-high-ancient-face ((t (:foreground "SkyBlue" :bold t))))
 '(gnus-summary-low-ancient-face ((t (:foreground "SkyBlue" :italic t))))
 '(gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue"))))
 '(gnus-summary-high-unread-face ((t (:bold t))))
 '(gnus-summary-low-unread-face ((t (:italic t))))
 '(gnus-summary-normal-unread-face ((t (nil))))
 '(gnus-summary-high-read-face ((t (:foreground "PaleGreen" :bold t))))
 '(gnus-summary-low-read-face ((t (:foreground "PaleGreen" :italic t))))
 '(gnus-summary-normal-read-face ((t (:foreground "PaleGreen"))))
 '(gnus-splash-face ((t (:foreground "Brown"))))
 '(eshell-ls-directory-face ((t (:foreground "SkyBlue" :bold t))))
 '(eshell-ls-symlink-face ((t (:foreground "Cyan" :bold t))))
 '(eshell-ls-executable-face ((t (:foreground "Green" :bold t))))
 '(eshell-ls-readonly-face ((t (:foreground "Pink"))))
 '(eshell-ls-unreadable-face ((t (:foreground "DarkGrey"))))
 '(eshell-ls-special-face ((t (:foreground "Magenta" :bold t))))
 '(eshell-ls-missing-face ((t (:foreground "Red" :bold t))))
 '(eshell-ls-archive-face ((t (:foreground "Orchid" :bold t))))
 '(eshell-ls-backup-face ((t (:foreground "LightSalmon"))))
 '(eshell-ls-product-face ((t (:foreground "LightSalmon"))))
 '(eshell-ls-clutter-face ((t (:foreground "OrangeRed" :bold t))))
 '(eshell-prompt-face ((t (:foreground "Pink" :bold t))))
 '(term-default-fg ((t (nil))))
 '(term-default-bg ((t (nil))))
 '(term-default-fg-inv ((t (nil))))
 '(term-default-bg-inv ((t (nil))))
 '(term-bold ((t (:bold t))))
 '(term-underline ((t (:underline t))))
 '(term-invisible ((t (nil))))
 '(term-invisible-inv ((t (nil))))
 '(term-black ((t (:foreground "black"))))
 '(term-red ((t (:foreground "red"))))
 '(term-green ((t (:foreground "green"))))
 '(term-yellow ((t (:foreground "yellow"))))
 '(term-blue ((t (:foreground "blue"))))
 '(term-magenta ((t (:foreground "magenta"))))
 '(term-cyan ((t (:foreground "cyan"))))
 '(term-white ((t (:foreground "white"))))
 '(term-blackbg ((t (:background "black"))))
 '(term-redbg ((t (:background "red"))))
 '(term-greenbg ((t (:background "green"))))
 '(term-yellowbg ((t (:background "yellow"))))
 '(term-bluebg ((t (:background "blue"))))
 '(term-magentabg ((t (:background "magenta"))))
 '(term-cyanbg ((t (:background "cyan"))))
 '(term-whitebg ((t (:background "white"))))
 '(font-latex-math-face ((t (:foreground "burlywood"))))
 '(font-latex-sedate-face ((t (:foreground "LightGray"))))
 '(gnus-emphasis-bold ((t (:bold t))))
 '(gnus-emphasis-italic ((t (:italic t))))
 '(gnus-emphasis-underline ((t (:underline t))))
 '(gnus-emphasis-underline-bold ((t (:bold t :underline t))))
 '(gnus-emphasis-underline-italic ((t (:italic t :underline t))))
 '(gnus-emphasis-bold-italic ((t (:bold t :italic t))))
 '(gnus-emphasis-underline-bold-italic ((t (:bold t :italic t :underline t))))
 '(gnus-emphasis-highlight-words ((t (:foreground "yellow" :background "black"))))
 '(gnus-signature-face ((t (:italic t))))
 '(gnus-header-from-face ((t (:foreground "spring green"))))
 '(gnus-header-subject-face ((t (:foreground "yellow" :bold t))))
 '(gnus-header-newsgroups-face ((t (:foreground "SeaGreen3" :bold t :italic t))))
 '(gnus-header-name-face ((t (:foreground "pink"))))
 '(gnus-header-content-face ((t (:foreground "lime green" :italic t))))
 '(gnus-cite-attribution-face ((t (:italic t))))
 '(gnus-cite-face-1 ((t (:foreground "light blue"))))
 '(gnus-cite-face-2 ((t (:foreground "light cyan"))))
 '(gnus-cite-face-3 ((t (:foreground "light yellow"))))
 '(gnus-cite-face-4 ((t (:foreground "light pink"))))
 '(gnus-cite-face-5 ((t (:foreground "pale green"))))
 '(gnus-cite-face-6 ((t (:foreground "beige"))))
 '(gnus-cite-face-7 ((t (:foreground "orange"))))
 '(gnus-cite-face-8 ((t (:foreground "magenta"))))
 '(gnus-cite-face-9 ((t (:foreground "violet"))))
 '(gnus-cite-face-10 ((t (:foreground "medium purple"))))
 '(gnus-cite-face-11 ((t (:foreground "turquoise")))))

(provide-theme 'dark-tango)

;; Local Variables:
;; no-byte-compile: t
;; End:

;;; dark-tango-theme.el  ends here

Re: GNU Emacs theme submission

[Tassilo Horn]

Michael Corral <micorral@comcast.net> writes:

Hi Michael,

> OK, I've renamed it to dark-tango, it's in the attached file.

Thanks for doing so.

@Others: Do themes also require copyright assignment?  I guess no, so
should I go on adding that theme?

Bye,
Tassilo

Re: GNU Emacs theme submission

[Tim Cross]

[-- Attachment #1: Type: text/plain, Size: 796 bytes --]

On Sun, Jan 30, 2011 at 8:44 PM, Tassilo Horn <tassilo@member.fsf.org>wrote:

> Michael Corral <micorral@comcast.net> writes:
>
> Hi Michael,
>
> > OK, I've renamed it to dark-tango, it's in the attached file.
>
> Thanks for doing so.
>
> @Others: Do themes also require copyright assignment?  I guess no, so
> should I go on adding that theme?
>
> Bye,
> Tassilo
>


> Hi Tassilo,


I have defined a dark 'good' contrast green-ish colour theme using the
auto-generate facility of the new theme suport which appears to work
correctly i.e. can now turn it on/off using the customize-theme funciton.
Would you like me to submit it? Just thought it might be useful to have a
darkish them with good contrast that is not just white or black.

Happy to provide it if it would be a useful additon.

Tim

[-- Attachment #2: Type: text/html, Size: 1458 bytes --]

Re: GNU Emacs theme submission

[Tassilo Horn]

Tim Cross <theophilusx@gmail.com> writes:

Hi Tim,

> I have defined a dark 'good' contrast green-ish colour theme using the
> auto-generate facility of the new theme suport which appears to work
> correctly i.e. can now turn it on/off using the customize-theme
> funciton.  Would you like me to submit it?

Sure, submit it.  That's the idea: have a variety of nice themes for the
Emacs 24 release.

Bye,
Tassilo

Re: GNU Emacs theme submission

[Glenn Morris]

>> OK, I've renamed it to dark-tango, it's in the attached file.

There already is a tango-dark-theme.el in etc/themes.

> @Others: Do themes also require copyright assignment?  I guess no, so
> should I go on adding that theme?

I would have guessed yes, but it is only a guess.

But I thought the idea was to get a selection via

http://elpa.gnu.org/themes/

and install only some subset? There are several there (plus some spam...)
already.

Re: GNU Emacs theme submission

[Stefan Monnier]

> @Others: Do themes also require copyright assignment?

Yes, of course.  Unless they're simple enough to fall in the "tiny
change" category.


        Stefan

Re: GNU Emacs theme submission

[Tassilo Horn]

Stefan Monnier <monnier@iro.umontreal.ca> writes:

>> @Others: Do themes also require copyright assignment?
>
> Yes, of course.  Unless they're simple enough to fall in the "tiny
> change" category.

Ok, I see.  So where to put it then?  From where is the list at

  http://elpa.gnu.org/themes/view.html

generated?

Bye,
Tassilo

Re: GNU Emacs theme submission

[Chong Yidong]

Tassilo Horn <tassilo@member.fsf.org> writes:

> Stefan Monnier <monnier@iro.umontreal.ca> writes:
>
>>> @Others: Do themes also require copyright assignment?
>>
>> Yes, of course.  Unless they're simple enough to fall in the "tiny
>> change" category.
>
> Ok, I see.  So where to put it then?  From where is the list at
>
>   http://elpa.gnu.org/themes/view.html
>
> generated?

That list is generated from the themes submitted by users.  The idea is
that if we decide to include one of these themes, we can approach the
user (the email address is also stored, but not shown) and ask for an
assignment.

Re: GNU Emacs theme submission

[Chong Yidong]

Tassilo Horn <tassilo@member.fsf.org> writes:

> I think it would be better to make the theme and file
> tango-mod(-theme.el), because emacs also runs on systems whose
> filesystems are case-insensitive.
>
> And since I guess TangoMod stays for Tango Modified, a better name would
> probably be dark-tango, because that's what you say it is: a dark
> version of the tango theme.

We already have a tango-dark theme in the repository, with some faces
written by me, and a few others supplied by Jan Moringen.

This theme looks different enough from tango-dark that we could
certainly include it, if Michael is willing to make a copyright
assignment or disclaimer.  I think the name should be something
different.  Why not call it "Corral"?

Re: GNU Emacs theme submission

[Chong Yidong]

Glenn Morris <rgm@gnu.org> writes:

> But I thought the idea was to get a selection via
>
> http://elpa.gnu.org/themes/
>
> and install only some subset? There are several there (plus some
> spam...)  already.

If Emacs developers could look through the list at

  http://elpa.gnu.org/themes/view.html

and recommend some of them for inclusion, I can contact their authors
and ask if they're willing to contribute.

One problem is that people have submitted an awful lot of
dark-background themes, and hardly any light-background ones.

RE: GNU Emacs theme submission

[Drew Adams]

[-- Attachment #1: Type: text/plain, Size: 1097 bytes --]

> If Emacs developers could look through the list at
>   http://elpa.gnu.org/themes/view.html
> and recommend some of them for inclusion, I can contact their authors
> and ask if they're willing to contribute.
> 
> One problem is that people have submitted an awful lot of
> dark-background themes, and hardly any light-background ones.

Attached is a light-background theme that is similar to what I use.

The background is closer to light than dark, but it works pretty well with a
range of foregrounds and backgrounds from light to dark.  HTH.

---

BTW, it's not real clear how someone is supposed to submit a theme that goes
beyond the choices available with the theme generator at
http://elpa.gnu.org/themes/ - that is, how to send an existing theme file.

The instructions there just say to mail the file to emacs-devel.  Is that really
what you want?  No special mail address or subject line?

Why not let users upload an existing theme file to http://elpa.gnu.org/themes/,
as an alternative to letting them generate a theme there?  You have a download
button already; why not add upload?

[-- Attachment #2: one-on-one-theme.el --]
[-- Type: application/octet-stream, Size: 1658 bytes --]

(deftheme one-on-one
  "Created 2011-01-31.")

(custom-theme-set-faces
 'one-on-one
 '(default ((t (:inherit nil :stipple nil :background "LightBlue" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 105 :width normal :foundry "outline" :family "Lucida Console"))))
 '(cursor ((t (:background "red"))))
 '(escape-glyph ((t (:background "gold" :foreground "blue" :box (:line-width 1 :color "blue" :style released-button)))))
 '(highlight ((t (:background "cyan"))))
 '(region ((t (:background "MediumAquamarine"))))
 '(secondary-selection ((t (:background "white" :foreground "black"))))
 '(font-lock-builtin-face ((t (:foreground "Orchid"))))
 '(font-lock-constant-face ((t (:foreground "#00006DE06DE0"))))
 '(font-lock-function-name-face ((t (:foreground "red"))))
 '(font-lock-keyword-face ((t (:foreground "Blue3"))))
 '(font-lock-string-face ((t (:foreground "Magenta4"))))
 '(font-lock-warning-face ((t (:foreground "Yellow" :weight bold))))
 '(mode-line ((t (:background "PaleGoldenrod" :foreground "black" :box (:line-width -1 :style released-button)))))
 '(mode-line-buffer-id ((t (:overline "red" :underline "red"))))
 '(mode-line-inactive ((t (:inherit mode-line :background "LightGray" :foreground "grey20" :box (:line-width -1 :color "grey75") :weight light))))
 '(isearch ((t (:background "Green" :foreground "Black"))))
 '(match ((t (:background "SkyBlue"))))
 '(next-error ((t (:inherit region :background "SkyBlue"))))
 '(query-replace ((t (:inherit isearch :background "white" :foreground "black")))))

(provide-theme 'one-on-one)

Re: GNU Emacs theme submission

[Chong Yidong]

"Drew Adams" <drew.adams@oracle.com> writes:

> Attached is a light-background theme that is similar to what I use.
>
> The background is closer to light than dark, but it works pretty well with a
> range of foregrounds and backgrounds from light to dark.  HTH.

This looks pretty good.  Thanks.

> The instructions there just say to mail the file to emacs-devel.  Is
> that really what you want?  No special mail address or subject line?
>
> Why not let users upload an existing theme file to
> http://elpa.gnu.org/themes/, as an alternative to letting them
> generate a theme there?  You have a download button already; why not
> add upload?

I didn't want people uploading spam.

A couple of spambots did get through the form interface, but I think
that's fixed now.

Re: GNU Emacs theme submission

[Michael Corral]

[-- Attachment #1: Type: TEXT/PLAIN, Size: 526 bytes --]

2011-01-31, Monsieur Chong Yidong a ecrit:
> We already have a tango-dark theme in the repository, with some faces
> written by me, and a few others supplied by Jan Moringen.
>
> This theme looks different enough from tango-dark that we could
> certainly include it, if Michael is willing to make a copyright
> assignment or disclaimer.  I think the name should be something
> different.  Why not call it "Corral"?

Allright, I've renamed it to "greyness". I don't want to name it
after me. :)
It's in the attachment.

Michael

[-- Attachment #2: Type: TEXT/plain, Size: 10837 bytes --]

;;; greyness-theme.el --- Custom face theme for Emacs

;; Copyright (C) 2011 Michael Corral

;; This file 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.

;; This file 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 <http://www.gnu.org/licenses/>.

;;; Code:

(deftheme greyness
  "Modified, darker version of Tango theme")

(custom-theme-set-faces
 'greyness
 '(default ((t (:background "#1a1e21" :foreground "#ffffff"))))
 '(cursor ((t (:background "#fce94f" :foreground "#fce94f"))))
 '(fringe ((t (:background "#2e3436" :foreground "#e14440"))))
 '(linum ((t (:background "#1a1e21" :foreground "#f7b66c"))))
 '(modeline ((t (:foreground "black" :background "#f0f08b"))))
 '(modeline-buffer-id ((t (:foreground "black" :background "#f0cd5d"))))
 '(modeline-mousable ((t (:foreground "black" :background "gold2"))))
 '(modeline-mousable-minor-mode ((t (:foreground "black" :background "gold2"))))
 '(highlight ((t (:foreground "black" :background "Aquamarine"))))
 '(bold ((t (:bold t))))
 '(italic ((t (:italic t))))
 '(bold-italic ((t (:bold t :italic t))))
 '(region ((t (:foreground "black" :background "#d0d0ff"))))
 '(secondary-selection ((t (:foreground "black" :background "aquamarine"))))
 '(underline ((t (:underline t))))
 '(lazy-highlight-face ((t (:foreground "yellow"))))
 '(font-lock-comment-face ((t (:foreground "#888a85" :italic t))))
 '(font-lock-string-face ((t (:foreground "plum1"))))
 '(font-lock-type-face ((t (:foreground "#64d370" :bold t))))
 '(font-lock-builtin-face ((t (:foreground "LightSteelBlue"))))
 '(font-lock-keyword-face ((t (:foreground "#00dcff" :bold t))))
 '(font-lock-variable-name-face ((t (:foreground "#ffd370" :bold t))))
 '(font-lock-function-name-face ((t (:foreground "LightPink" :bold t))))
 '(font-lock-constant-face ((t (:foreground "Aquamarine"))))
 '(font-lock-warning-face ((t (:foreground "#f57900" :bold t))))
 '(widget-documentation-face ((t (:foreground "lime green"))))
 '(widget-button-face ((t (:bold t))))
 '(widget-field-face ((t (:background "dim gray"))))
 '(widget-single-line-field-face ((t (:background "dim gray"))))
 '(widget-inactive-face ((t (:foreground "light gray"))))
 '(widget-button-pressed-face ((t (:foreground "red"))))
 '(custom-invalid-face ((t (:foreground "yellow" :background "red"))))
 '(custom-rogue-face ((t (:foreground "pink" :background "black"))))
 '(custom-modified-face ((t (:foreground "white" :background "blue"))))
 '(custom-set-face ((t (:foreground "blue" :background "white"))))
 '(custom-changed-face ((t (:foreground "white" :background "blue"))))
 '(custom-saved-face ((t (:underline t))))
 '(custom-button-face ((t (nil))))
 '(custom-documentation-face ((t (nil))))
 '(custom-state-face ((t (:foreground "lime green"))))
 '(custom-variable-tag-face ((t (:foreground "light blue" :underline t))))
 '(custom-variable-button-face ((t (:bold t :underline t))))
 '(custom-face-tag-face ((t (:underline t))))
 '(custom-group-tag-face-1 ((t (:foreground "pink" :underline t))))
 '(custom-group-tag-face ((t (:foreground "light blue" :underline t))))
 '(speedbar-button-face ((t (:foreground "green3"))))
 '(speedbar-file-face ((t (:foreground "cyan"))))
 '(speedbar-directory-face ((t (:foreground "light blue"))))
 '(speedbar-tag-face ((t (:foreground "yellow"))))
 '(speedbar-selected-face ((t (:foreground "red" :underline t))))
 '(speedbar-highlight-face ((t (:background "sea green"))))
 '(font-lock-doc-string-face ((t (:foreground "orange" :bold t))))
 '(font-lock-exit-face ((t (:foreground "green"))))
 '(header-line ((t (:background "grey30" :foreground "grey"))))
 '(minibuffer-prompt ((t (:foreground "cyan"))))
 '(ff-paths-non-existant-file-face ((t (:foreground "NavyBlue" :bold t))))
 '(show-paren-match-face ((t (:background "red"))))
 '(show-paren-mismatch-face ((t (:foreground "white" :background "purple"))))
 '(message-header-to-face ((t (:foreground "green2" :bold t))))
 '(message-header-cc-face ((t (:foreground "LightGoldenrod" :bold t))))
 '(message-header-subject-face ((t (:foreground "green3"))))
 '(message-header-newsgroups-face ((t (:foreground "yellow" :bold t :italic t))))
 '(message-header-other-face ((t (:foreground "Salmon"))))
 '(message-header-name-face ((t (:foreground "green3"))))
 '(message-header-xheader-face ((t (:foreground "GreenYellow"))))
 '(message-separator-face ((t (:foreground "Tan"))))
 '(message-cited-text-face ((t (:foreground "Gold"))))
 '(message-mml-face ((t (:foreground "ForestGreen"))))
 '(gnus-group-news-1-face ((t (:foreground "PaleTurquoise" :bold t))))
 '(gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise"))))
 '(gnus-group-news-2-face ((t (:foreground "turquoise" :bold t))))
 '(gnus-group-news-2-empty-face ((t (:foreground "turquoise"))))
 '(gnus-group-news-3-face ((t (:bold t))))
 '(gnus-group-news-3-empty-face ((t (nil))))
 '(gnus-group-news-4-face ((t (:bold t))))
 '(gnus-group-news-4-empty-face ((t (nil))))
 '(gnus-group-news-5-face ((t (:bold t))))
 '(gnus-group-news-5-empty-face ((t (nil))))
 '(gnus-group-news-6-face ((t (:bold t))))
 '(gnus-group-news-6-empty-face ((t (nil))))
 '(gnus-group-news-low-face ((t (:foreground "DarkTurquoise" :bold t))))
 '(gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise"))))
 '(gnus-group-mail-1-face ((t (:foreground "aquamarine1" :bold t))))
 '(gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1"))))
 '(gnus-group-mail-2-face ((t (:foreground "aquamarine2" :bold t))))
 '(gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2"))))
 '(gnus-group-mail-3-face ((t (:foreground "aquamarine3" :bold t))))
 '(gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3"))))
 '(gnus-group-mail-low-face ((t (:foreground "aquamarine4" :bold t))))
 '(gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4"))))
 '(gnus-summary-selected-face ((t (:underline t))))
 '(gnus-summary-cancelled-face ((t (:foreground "yellow" :background "black"))))
 '(gnus-summary-high-ticked-face ((t (:foreground "pink" :bold t))))
 '(gnus-summary-low-ticked-face ((t (:foreground "pink" :italic t))))
 '(gnus-summary-normal-ticked-face ((t (:foreground "pink"))))
 '(gnus-summary-high-ancient-face ((t (:foreground "SkyBlue" :bold t))))
 '(gnus-summary-low-ancient-face ((t (:foreground "SkyBlue" :italic t))))
 '(gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue"))))
 '(gnus-summary-high-unread-face ((t (:bold t))))
 '(gnus-summary-low-unread-face ((t (:italic t))))
 '(gnus-summary-normal-unread-face ((t (nil))))
 '(gnus-summary-high-read-face ((t (:foreground "PaleGreen" :bold t))))
 '(gnus-summary-low-read-face ((t (:foreground "PaleGreen" :italic t))))
 '(gnus-summary-normal-read-face ((t (:foreground "PaleGreen"))))
 '(gnus-splash-face ((t (:foreground "Brown"))))
 '(eshell-ls-directory-face ((t (:foreground "SkyBlue" :bold t))))
 '(eshell-ls-symlink-face ((t (:foreground "Cyan" :bold t))))
 '(eshell-ls-executable-face ((t (:foreground "Green" :bold t))))
 '(eshell-ls-readonly-face ((t (:foreground "Pink"))))
 '(eshell-ls-unreadable-face ((t (:foreground "DarkGrey"))))
 '(eshell-ls-special-face ((t (:foreground "Magenta" :bold t))))
 '(eshell-ls-missing-face ((t (:foreground "Red" :bold t))))
 '(eshell-ls-archive-face ((t (:foreground "Orchid" :bold t))))
 '(eshell-ls-backup-face ((t (:foreground "LightSalmon"))))
 '(eshell-ls-product-face ((t (:foreground "LightSalmon"))))
 '(eshell-ls-clutter-face ((t (:foreground "OrangeRed" :bold t))))
 '(eshell-prompt-face ((t (:foreground "Pink" :bold t))))
 '(term-default-fg ((t (nil))))
 '(term-default-bg ((t (nil))))
 '(term-default-fg-inv ((t (nil))))
 '(term-default-bg-inv ((t (nil))))
 '(term-bold ((t (:bold t))))
 '(term-underline ((t (:underline t))))
 '(term-invisible ((t (nil))))
 '(term-invisible-inv ((t (nil))))
 '(term-black ((t (:foreground "black"))))
 '(term-red ((t (:foreground "red"))))
 '(term-green ((t (:foreground "green"))))
 '(term-yellow ((t (:foreground "yellow"))))
 '(term-blue ((t (:foreground "blue"))))
 '(term-magenta ((t (:foreground "magenta"))))
 '(term-cyan ((t (:foreground "cyan"))))
 '(term-white ((t (:foreground "white"))))
 '(term-blackbg ((t (:background "black"))))
 '(term-redbg ((t (:background "red"))))
 '(term-greenbg ((t (:background "green"))))
 '(term-yellowbg ((t (:background "yellow"))))
 '(term-bluebg ((t (:background "blue"))))
 '(term-magentabg ((t (:background "magenta"))))
 '(term-cyanbg ((t (:background "cyan"))))
 '(term-whitebg ((t (:background "white"))))
 '(font-latex-math-face ((t (:foreground "burlywood"))))
 '(font-latex-sedate-face ((t (:foreground "LightGray"))))
 '(gnus-emphasis-bold ((t (:bold t))))
 '(gnus-emphasis-italic ((t (:italic t))))
 '(gnus-emphasis-underline ((t (:underline t))))
 '(gnus-emphasis-underline-bold ((t (:bold t :underline t))))
 '(gnus-emphasis-underline-italic ((t (:italic t :underline t))))
 '(gnus-emphasis-bold-italic ((t (:bold t :italic t))))
 '(gnus-emphasis-underline-bold-italic ((t (:bold t :italic t :underline t))))
 '(gnus-emphasis-highlight-words ((t (:foreground "yellow" :background "black"))))
 '(gnus-signature-face ((t (:italic t))))
 '(gnus-header-from-face ((t (:foreground "spring green"))))
 '(gnus-header-subject-face ((t (:foreground "yellow" :bold t))))
 '(gnus-header-newsgroups-face ((t (:foreground "SeaGreen3" :bold t :italic t))))
 '(gnus-header-name-face ((t (:foreground "pink"))))
 '(gnus-header-content-face ((t (:foreground "lime green" :italic t))))
 '(gnus-cite-attribution-face ((t (:italic t))))
 '(gnus-cite-face-1 ((t (:foreground "light blue"))))
 '(gnus-cite-face-2 ((t (:foreground "light cyan"))))
 '(gnus-cite-face-3 ((t (:foreground "light yellow"))))
 '(gnus-cite-face-4 ((t (:foreground "light pink"))))
 '(gnus-cite-face-5 ((t (:foreground "pale green"))))
 '(gnus-cite-face-6 ((t (:foreground "beige"))))
 '(gnus-cite-face-7 ((t (:foreground "orange"))))
 '(gnus-cite-face-8 ((t (:foreground "magenta"))))
 '(gnus-cite-face-9 ((t (:foreground "violet"))))
 '(gnus-cite-face-10 ((t (:foreground "medium purple"))))
 '(gnus-cite-face-11 ((t (:foreground "turquoise")))))

(provide-theme 'greyness)

;; Local Variables:
;; no-byte-compile: t
;; End:

;;; greyness.el  ends here

Re: GNU Emacs theme submission

[Manoj Srivastava]

[-- Attachment #1: Type: text/plain, Size: 434 bytes --]

Hi,

        I have a dark background theme that I have developed over years
 (initially as a color-themes theme), with a color schema that caters to
 people who are midly color blind lime me[0]. It does define many more
 faces than some of the schemes recently posted, so I am unsure how
 applicable this is. 

        Hope this is helpful

        manoj

[0] http://www.golden-gryphon.com/blog/manoj/blog/2008/05/26/Theming_Emacs/


[-- Attachment #2: Manoj's Dark background theme --]
[-- Type: application/emacs-lisp, Size: 60545 bytes --]

[-- Attachment #3: Type: text/plain, Size: 197 bytes --]


-- 
"Yeah, but you're taking the universe out of context."
Manoj Srivastava <srivasta@acm.org> <http://www.golden-gryphon.com/>  
4096R/C5779A1C E37E 5EC5 2A01 DA25 AD20  05B6 CF48 9438 C577 9A1C

Re: GNU Emacs theme submission

[Manoj Srivastava]

[-- Attachment #1: Type: text/plain, Size: 408 bytes --]

Hi,

        Now that my Emacs papers have been signed and recorded, I would
 like to re-send the dark background theme that I have developed over
 years (initially as a color-themes theme), with a color schema that
 caters to people who are midly color blind like me. I have added magit
 faces (inherited, for the most part, from the settings for diff mode),
 as well as a few minor tweaks.

        manoj


[-- Attachment #2: Manoj's dark background theme --]
[-- Type: application/emacs-lisp, Size: 61196 bytes --]

[-- Attachment #3: Type: text/plain, Size: 275 bytes --]


-- 
Don't indulge in careless behaviour. Don't be the friend of sensual
pleasures. He who meditates attentively attains abundant joy. 27
Manoj Srivastava <srivasta@acm.org> <http://www.golden-gryphon.com/>  
4096R/C5779A1C E37E 5EC5 2A01 DA25 AD20  05B6 CF48 9438 C577 9A1C

Re: GNU Emacs theme submission

[Chong Yidong]

Manoj Srivastava <srivasta@ieee.org> writes:

>         Now that my Emacs papers have been signed and recorded, I
>  would like to re-send the dark background theme that I have developed
>  over years (initially as a color-themes theme), with a color schema
>  that caters to people who are midly color blind like me. I have added
>  magit faces (inherited, for the most part, from the settings for diff
>  mode), as well as a few minor tweaks.

I was looking through the file prior to committing it, and noticed that
it contains a large number of faces that are no longer existent, such as
font-lock-other-type-face, as well as faces for what are obviously
personal customizations like my-gnus-indirect-fup-face.

Could you remove these from the theme and resend?  Thanks.