Re: Is anyone regularly using XEmacs on a color tty?
sb> == SL Baur <steve(a)xemacs.org>
sb> I just did a quick look-see on a Linux console and the default colors
sb> suck. Almost anything would be better. Has anyone developed a tty
sb> color palette for their own use they would like to share?
Sure. Mind you, I'm still on 19.16 (don't ask...) but I do have a set
of TTY colors that work well for me (using BetterTelnet on a Mac).
Mind you, it uses a lot of blue. The one 'bug' is that with
zmacs-regions I often wind up with blue-on-blue somewhere; I should
probably fix that someday.
================================================================
;; font-lock face setup based on sample.emacs
(set-face-foreground 'font-lock-string-face (list "darkgreen"
"green"))
(copy-face 'font-lock-string-face 'font-lock-doc-string-face)
;; Underline comments looks terrible on tty's
(set-face-underline-p 'font-lock-comment-face nil 'global 'tty)
(set-face-highlight-p 'font-lock-comment-face nil 'global 'tty)
(set-face-foreground 'font-lock-comment-face (list "gray50"
"blue"))
(copy-face 'bold 'font-lock-function-name-face)
(set-face-foreground 'font-lock-function-name-face "red")
;; misc. faces
(and (find-face 'font-lock-preprocessor-face) ; 19.13 and above
(copy-face 'bold 'font-lock-preprocessor-face))
(copy-face 'italic 'font-lock-type-face)
(set-face-foreground 'font-lock-type-face (list "blue3" "blue"))
(copy-face 'default 'font-lock-other-type-face)
(set-face-foreground 'font-lock-other-type-face (list "blue3"
"blue"))
(copy-face 'bold 'font-lock-keyword-face)
(set-face-foreground 'font-lock-keyword-face (list "blue3"
"blue"))
(add-hook 'font-lock-mode-hook 'turn-on-lazy-lock)
(setq lazy-lock-hide-invisible nil)
;;; other faces
(set-face-background 'zmacs-region (list (cons (list 'tty 'color)
"blue")))
and in .gnus:
================================================================
;; more eye candy tweaks--face setup
(setq gnus-article-button-face 'bold-italic)
(make-face 'summary-selection
"Face used for the selected message in a summary.")
(or (face-differs-from-default-p 'summary-selection)
(progn
(set-face-foreground 'summary-selection (list "blue3"
"blue"))
(make-face-bold 'summary-selection)))
(setq gnus-summary-selected-face 'summary-selection)
(setq gnus-signature-face 'default)
(setq gnus-cite-attribution-face 'bold)
(make-face 'cite-face-1
"Face used for citations.")
(or (face-differs-from-default-p 'cite-face-1)
(set-face-foreground 'cite-face-1 (list "blue3" "blue")))
(make-face 'cite-face-2
"Face used for citations.")
(or (face-differs-from-default-p 'cite-face-2)
(set-face-foreground 'cite-face-2 (list "darkred" "red")))
(make-face 'cite-face-3
"Face used for citations.")
(or (face-differs-from-default-p 'cite-face-3)
(set-face-foreground 'cite-face-3 (list "darkgreen"
"green")))
(copy-face 'font-lock-comment-face 'gnus-summary-low-ancient-face)
(copy-face 'font-lock-comment-face 'gnus-summary-high-ancient-face)
(copy-face 'font-lock-comment-face 'gnus-summary-normal-ancient-face)
(copy-face 'font-lock-comment-face 'gnus-summary-low-read-face)
(copy-face 'font-lock-comment-face 'gnus-summary-high-read-face)
(copy-face 'font-lock-comment-face 'gnus-summary-normal-read-face)
(setq gnus-cite-face-list (list 'cite-face-1 'cite-face-2 'cite-face-3))