Re: a better face for your eyes

Re: a better face for your eyes

[Thien-Thi Nguyen]

"Gary Weselle" <weselle_g@hotmain.com> writes:

> Any body with a better solution.

there are many "themes" packages, some quite fancy.  below is a simple
one.  i load this on startup, and call `set-theme' from ~/.emacs, which
is early enough to make the mysterious (to me) font-lock machinery DTRT
for things like `font-lock-function-face', etc.  back when i was loading
it later in the session, sometimes font-lock would make disturbing color
choices.

thi

_________________________________________________
;;; set-theme.el
;;;
;;; Rel:v-1-55
;;;
;;; Copyright (C) 2000,2002,2003,2004,2006 Thien-Thi Nguyen
;;; This file is part of ttn's personal elisp library, released under GNU
;;; GPL with ABSOLUTELY NO WARRANTY.  See the file COPYING for details.
;;;
;;; Description: Select an appearance configuration.

(defvar themes '(;;name       bg    fg        m-fg    m-bg (optional)
                 (classic-ttn \#a85 black     white   black)
                 (new-earthy  black sienna    gray30)
                 (zzzzzzzzzz  black darkgreen black)
                 (caffeine    black yellow    white)
                 (polar       white black     white   black)
                 (dream       black cyan      white   blue)
                 (fuori-fuso  black green     magenta)
                 (vt220       black goldenrod gray30))
  "List w/ elements of form:
 \(NAME BACKGROUND FOREGROUND MODELINE-FOREGROUND [MODELINE-BACKGROUND]\)
If MODELINE-BACKGROUND is not specified, it defaults to BACKGROUND.
All elements are symbols.  Use `\\#RGB' to specify a color using RGB components.")

;;;###autoload
(defun set-theme (name)
  "Select appearance configuration NAME.  (See variable `themes'.)"
  (interactive (list (completing-read "Theme: "
                                      (mapcar 'list
                                              (mapcar 'symbol-name
                                                      (mapcar 'car
                                                              themes)))
                                      nil       ;;; predicate
                                      t)))      ;;; require-match
  (when (symbolp name)
    (setq name (symbol-name name)))
  (if (string= "" name)
      (message "(%d themes, none chosen)"
               (and
                (describe-variable 'themes)
                (length themes)))
    (apply (lambda (bg fg m-fg &optional m-bg)
             (set-face-foreground 'default fg)
             (set-face-background 'default bg)
             (let ((v [set-face-background set-face-foreground])
                   (i (if (face-inverse-video-p 'mode-line) 0 1)))
               (funcall (aref v      i)  'mode-line m-fg)
               (funcall (aref v (- 1 i)) 'mode-line (or m-bg bg))))
           (mapcar 'symbol-name
                   (cdr (assq (intern name) themes))))))

(provide 'set-theme)

;;; set-theme.el ends here

RE: a better face for your eyes

[Drew Adams]

    is there a web site with lots of screenshots of different
    themes and their corresponding .el(s)

See http://www.emacswiki.org/cgi-bin/wiki/ColorTheme. It has lots of info on
color themes and links to a couple of such gallery pages.

BTW, there is no reason to quote an entire post just to add a one-line
question like this. The question alone is sufficient in this case;
otherwise, provide only a little of the previous post for context.

a better face for your eyes

[Gary Weselle]

Hi

I find it a lot better for my eyes with so many hours spent in fort of emacs
in different mode to have the back ground dark and not white, I tried black
and it seams to help a lot. But having all the other colors that are used in
different mode it makes it un-comfortable to read.

Any body with a better solution.



Thanks

Re: a better face for your eyes

[Gary Weselle]

"Thien-Thi Nguyen" <ttn@glug.org> wrote in message
news:7e7j6atlhr.fsf@ada2.unipv.it...
> "Gary Weselle" <weselle_g@hotmain.com> writes:
>
> > Any body with a better solution.
>
> there are many "themes" packages, some quite fancy.  below is a simple
> one.  i load this on startup, and call `set-theme' from ~/.emacs, which
> is early enough to make the mysterious (to me) font-lock machinery DTRT
> for things like `font-lock-function-face', etc.  back when i was loading
> it later in the session, sometimes font-lock would make disturbing color
> choices.
>
> thi
>
> _________________________________________________
> ;;; set-theme.el
> ;;;
> ;;; Rel:v-1-55
> ;;;
> ;;; Copyright (C) 2000,2002,2003,2004,2006 Thien-Thi Nguyen
> ;;; This file is part of ttn's personal elisp library, released under GNU
> ;;; GPL with ABSOLUTELY NO WARRANTY.  See the file COPYING for details.
> ;;;
> ;;; Description: Select an appearance configuration.
>
> (defvar themes '(;;name       bg    fg        m-fg    m-bg (optional)
>                  (classic-ttn \#a85 black     white   black)
>                  (new-earthy  black sienna    gray30)
>                  (zzzzzzzzzz  black darkgreen black)
>                  (caffeine    black yellow    white)
>                  (polar       white black     white   black)
>                  (dream       black cyan      white   blue)
>                  (fuori-fuso  black green     magenta)
>                  (vt220       black goldenrod gray30))
>   "List w/ elements of form:
>  \(NAME BACKGROUND FOREGROUND MODELINE-FOREGROUND [MODELINE-BACKGROUND]\)
> If MODELINE-BACKGROUND is not specified, it defaults to BACKGROUND.
> All elements are symbols.  Use `\\#RGB' to specify a color using RGB
components.")
>
> ;;;###autoload
> (defun set-theme (name)
>   "Select appearance configuration NAME.  (See variable `themes'.)"
>   (interactive (list (completing-read "Theme: "
>                                       (mapcar 'list
>                                               (mapcar 'symbol-name
>                                                       (mapcar 'car
>                                                               themes)))
>                                       nil       ;;; predicate
>                                       t)))      ;;; require-match
>   (when (symbolp name)
>     (setq name (symbol-name name)))
>   (if (string= "" name)
>       (message "(%d themes, none chosen)"
>                (and
>                 (describe-variable 'themes)
>                 (length themes)))
>     (apply (lambda (bg fg m-fg &optional m-bg)
>              (set-face-foreground 'default fg)
>              (set-face-background 'default bg)
>              (let ((v [set-face-background set-face-foreground])
>                    (i (if (face-inverse-video-p 'mode-line) 0 1)))
>                (funcall (aref v      i)  'mode-line m-fg)
>                (funcall (aref v (- 1 i)) 'mode-line (or m-bg bg))))
>            (mapcar 'symbol-name
>                    (cdr (assq (intern name) themes))))))
>
> (provide 'set-theme)
>
> ;;; set-theme.el ends here

is there a web site with lots of screenshots of different themes and their
corresponding .el(s)

Re: a better face for your eyes

[Bastien]

"Gary Weselle" <weselle_g@hotmain.com> writes:

> is there a web site with lots of screenshots of different themes and their
> corresponding .el(s)

Have a look at this URL:
http://www.flickr.com/groups/emacs/

You can upload screenshots of your own, since this group is open to
contribution.

regards,

-- 
Bastien

Re: a better face for your eyes

[Rares Vernica]

Thanks a lot,
Ray

Bastien wrote:
> "Gary Weselle" <weselle_g@hotmain.com> writes:
> 
>> is there a web site with lots of screenshots of different themes and their
>> corresponding .el(s)
> 
> Have a look at this URL:
> http://www.flickr.com/groups/emacs/
> 
> You can upload screenshots of your own, since this group is open to
> contribution.
> 
> regards,
> 

Re: a better face for your eyes

[Xavier Maillard]

   From: Bastien <bastien@xxx.fr>

   "Gary Weselle" <weselle_g@hotmain.com> writes:

   > is there a web site with lots of screenshots of different themes and their
   > corresponding .el(s)

   Have a look at this URL:
   http://www.flickr.com/groups/emacs/

   You can upload screenshots of your own, since this group is open to
   contribution.

Oh I forgot it ! I *have to* upload things there. Thank you Bastien for having
made it come into my brain :)

Xavier