Re: [Psgml-user] Color Scheme for Black Background

[Mark J. <ma...@du...>]

Holger Rauch writes:
> 
> Does anybody have a color scheme for PSGML mode for a black background? 

Hi Holger,

I hacked together some color-themes especially for sgml-mode. They
provide boldface start and end tags and use the color-theme package. 

To install the themes, place both color-theme.el and
color-theme-sgml.el somewhere in your load-path. Fire up emacs, and
do:

  M-x color-theme-sgml-XXXX 
  
where XXXX is one of: light, blue-hi, blue-lo, green-hi, green-lo

I have screenshots and links the download URL here:

  http://dulug.duke.edu/~mark/screenshots/


Or, if you'd prefer to do it all in your startup files, try something
like this:
==================================================================

(setq-default sgml-set-face t)          

(make-face 'sgml-comment-face)          ; Use all faces defined by PSGML
(make-face 'sgml-doctype-face)
(make-face 'sgml-end-tag-face)
(make-face 'sgml-entity-face)
(make-face 'sgml-ignored-face)
(make-face 'sgml-ms-end-face)
(make-face 'sgml-ms-start-face)
(make-face 'sgml-pi-face)
(make-face 'sgml-sgml-face)
(make-face 'sgml-short-ref-face)
(make-face 'sgml-start-tag-face)

(setq-default 
 sgml-markup-faces '(
                     (comment . sgml-comment-face)
                     (doctype . sgml-doctype-face)
                     (end-tag . sgml-end-tag-face)
                     (entity . sgml-entity-face)
                     (ignored . sgml-ignored-face)
                     (ms-end . sgml-ms-end-face)
                     (ms-start . sgml-ms-start-face)
                     (pi . sgml-pi-face)
                     (sgml . sgml-sgml-face)
                     (short-ref . sgml-short-ref-face)
                     (start-tag . sgml-start-tag-face)
                     ))


;; No need to edit the following, unless you DON'T use color-theme

;; --  Most Common Faces  --

;; Dark Backgrounds

;   (set-face-foreground 'sgml-start-tag-face "DeepSkyBlue")
;   (set-face-foreground 'sgml-end-tag-face "SeaGreen2") 
;   (set-face-foreground 'sgml-doctype-face "salmon")
;   (set-face-foreground 'sgml-pi-face "lime green")
;   (set-face-foreground 'sgml-entity-face "magenta")

;; Light Backgrounds

;   (set-face-foreground 'sgml-start-tag-face "blue2") 
;   (set-face-foreground 'sgml-end-tag-face "green4")
;   (set-face-foreground 'sgml-doctype-face "brown")
;   (set-face-foreground 'sgml-pi-face "OrangeRed")
;   (set-face-foreground 'sgml-entity-face "DarkOrchid1")


;; --  Less Common faces --  

;; (set-face-foreground 'sgml-ignored-face "gray50")
;; (set-face-background 'sgml-ignored-face "gray60")
;; (set-face-foreground 'sgml-ms-end-face "green")
;; (set-face-foreground 'sgml-ms-start-face "DarkGoldenRod")
;; (set-face-foreground 'sgml-sgml-face "brown")
;; 

==============================================================
> If
> so, I would appreciate it very much if that person could mail it to
> me. Thanks a lot! I've already been fiddling around with colors in my
> personal GNU Emacs init file, but didn't get very far. All that I got is
> elements appearing in PeachPuff. The other colors were not taken into
> account at all. By the way, I'm using GNU Emacs version 20.7.1. Below you
> find an excerpt of my init file.
> 
> Greetings,
> 
> 	Holger
> 
> ---------------------------------------------------------------------------
> 
> (modify-face 'highlight "turquoise4" nil nil nil nil nil)
> (modify-face 'italic "PeachPuff" nil nil nil nil nil)
> (modify-face 'bold-italic nil "plum" nil nil nil nil)
> 
> (setq sgml-markup-faces 
>       '((start-tag . italic)
>         (end-tag   . italic)
>         (comment   . font-lock-comment-face)        ;; comment declaration
>         ;; ignored      - ignored marked section
>         ;; ms-end       - marked section start, if not ignored 
>         ;; ms-start     - marked section end, if not ignored
>         (pi        . bold)                          ;; processing
> instruction
>         (sgml      . highlight)                     ;; SGML declaration
>         (doctype   . font-lock-string-face)         ;; doctype declaration
>         (entity    . font-lock-reference-face)      ;; general entity
> reference
>         (shortref  . font-lock-function-name-face)));; short reference
> 
> 
> _______________________________________________
> Psgml-user mailing list
> Psg...@li...
> http://lists.sourceforge.net/lists/listinfo/psgml-user

-- 
_____________________________________
Mark Johnson
Duke Physics        <ma...@du...>
Debian SGML         <mr...@de...>
Home Page:          <http://dulug.duke.edu/~mark/>
GPG fp: 50DF A22D 5119 3485 E9E4  89B2 BCBC B2C8 2BE2 FE81