> Date: Sun, 9 Mar 2003 14:52:49 +0100
> From: Kristian =?ISO-8859-1?Q?N=F8rgaard?= <[EMAIL PROTECTED]>
> And btw: How can I change the color of the syntaxhighlightning?
If you use the hilit19 package, you can add hilit mode-patterns to
abc-mode.el. Here are the ones I use:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; hilit19 highlighting patterns for ABC mode
(hilit-set-mode-patterns
'abc-mode
'(
("\\s %.*$" nil comment) ; comment - pink
("^%.*$" nil comment) ; comment - pink
("\\(:\|2\\|\|:\\|:\|\\|::\\|\|1\\|\|\|\\|\\[1\\|\\[2\\)" nil command) ; repeat -
yellow
("\\(\|\\|^.:\\|\\[\\|\\]\\)" nil keyword) ; keyword or bar line - cyan
("\([^\\\)]*\\(\\\\\\(.\\|\n\\)[^\\\(]*\\)*\)" nil define) ; slur - green
("[_^]*[A-Za-z][0-9]?-[ \\|]*[A-Za-z][0-9]?" nil define) ; tie - green
("\"[^\\\"]*\\(\\\\\\(.\\|\n\\)[^\\\"]*\\)*\"" nil string) ; string - orange
("[\\]+" nil gnus-group-overflowing)
)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
I set the colors using the following. If you want, you can put your own
ABC-specific elements to the table below and use those elements for the
mode-patterns above, instead of co-opting the existing elements of
"comment", "define", "keyword", "string", "command", and
"gnus-group-overflowing", like I did.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setq hilit-face-translation-table
'(
(text . palegreen)
(comment . moccasin)
(include . Plum)
(define . green)
(defun . cyan-bold)
(decl . cyan)
(type . yellow)
(keyword . cyan)
(label . orange-underlined)
(string . orange)
(struct . white-bold)
(glob-struct . Plum)
(named-param . Goldenrod)
(crossref . Goldenrod)
(formula . DarkGoldenrod)
(active-error . default/DeepPink-bold)
(error . yellow)
(warning . green)
(rule . cyan-underline)
(msg-subject . yellow)
(msg-from . green)
(msg-to . pink)
(msg-header . cyan)
(msg-separator . black/lightblue)
(msg-quote . pink)
(msg-quote-1 . pink)
(msg-quote-2 . orange)
(msg-quote-3 . lightblue)
(msg-quote-4 . green)
(msg-quote-5 . yellow)
(msg-quote-6 . red)
(summary-seen . white)
(summary-killed . white)
(summary-Xed . green)
(summary-deleted . white)
(summary-unread . yellow)
(summary-new . yellow-bold)
(summary-current . green/dimgrey-bold)
(gnus-group-unsubscribed . white)
(gnus-group-empty)
(gnus-group-full . green)
(gnus-group-overflowing . red)
(dired-directory . cyan)
(dired-link . green)
(dired-ignored . moccasin)
(dired-deleted . orange)
(dired-marked . Plum)
(jargon-entry . cyan)
(jargon-xref . Plum)
(jargon-keyword . yellow)
(command . yellow)
)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
To subscribe/unsubscribe, point your browser to: http://www.tullochgorm.com/lists.html
