RE: GNU Emacs theme submission

["Drew Adams" <drew.adams@oracle.com>]

[-- 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)