Path: news.daimi.aau.dk!glad
From: martino@drachma.daimi.aau.dk (Hans Erik Martino Hansen)
Newsgroups: daimi.beta
Subject: Festligere farver i beta-mode
Date: 04 May 1996 18:50:49 +0200
Organization: DAIMI, Computer Science Dept. of Aarhus Univ.
Lines: 37
Sender: martino@drachma.daimi.aau.dk
Message-ID: <yp4n33ocrh2.fsf@drachma.daimi.aau.dk>
NNTP-Posting-Host: drachma.daimi.aau.dk
X-Newsreader: Gnus v5.1

Hvis du vil have festligere farver i beta-mode i Emacs er her et
eksempel som man kan indsætte i sin .emacs fil

(defun my-beta-mode-hack ()
      (require 'beta-hilit19 "~beta/emacs/current/beta-hilit19")
      (require 'beta-menu19 "~beta/emacs/current/beta-menu19")
      (require 'beta-utils "~beta/emacs/current/beta-utils")
      (hilit-translate beta-fragment-property  'Sienna)
      (hilit-translate beta-fragment-form      'Sienna)
      (hilit-translate beta-fragment-slot      'Red-italic)
      (hilit-translate beta-comment            'gray50)
      (hilit-translate beta-tos                'Red)
      (hilit-translate beta-inner              'Red)
      (hilit-translate beta-string             'gray50)
      (hilit-translate beta-keyword            'purple)
      (hilit-translate beta-descriptor         'purple)
      (hilit-translate beta-if                 'Blue)
      (hilit-translate beta-for                'Blue)
      (hilit-translate beta-code               'Sienna)
      (hilit-translate beta-symbol             'Sienna)
      (hilit-translate beta-type               'Sienna)
      (hilit-translate beta-object-reference   'Blue)
      (hilit-translate beta-pattern            'DarkGreen)
      (hilit-translate beta-virtual            'red)
      (hilit-translate beta-label              'Sienna)
      
	;; (setq beta-compiler-options "-q")
      )
(add-hook 'beta-mode-hook 'my-beta-mode-hack)

hej
/Erik
-- 
 \|/ ____ \|/  Erik M. Hansen (martino@daimi.aau.dk)
 "@'/ ,. \`@"  http://www.daimi.aau.dk/~martino/
 /_| \__/ |_\  Fuglesangsalle 69, DK-8210 Århus V, Denmark. 
    \__U_/     Phone +45 86106814