Emacs kai xromata

[Dimitrios P. Bouras]

Maistrelis Kostas wrote:
> 
> 3erei kanis pos mporo na pros8eso xromata ston emacs
> etsi oste na emfanizei exromes le3eis klidia?
> (syntax highlighting, coloring) ???

  Exw ena palaio .emacs (apo to 1994) gia ton Lucid emacs.
 Mporei kai na sou kanei, gi'auto to stelnw :)

  Dhmhtrhs
-------------- next part --------------
;------------------------------------
; This is a Lucid Emacs setup file.
; Last update: Mar 1994
;------------------------------------
;
; The following statements set up the indentation format in c-mode
;------------------------------------------------------------------
(setq default-tab-width 4)
(setq c-auto-newline t)
(setq c-indent-level 4)
(setq c-continued-brace-offset 0)
(setq c-continued-statement-offset 4)
(setq c-brace-offset -4)
(setq c-argdecl-indent 4)
(setq c-label-offset -4)
(setq c-tab-always-indent nil)

; The following hook configures the desire colors
; and high-light style in special font-lock-mode
;-------------------------------------------------
(setq font-lock-mode-hook '(lambda () 
		(set-face-underline-p 'font-lock-string-face nil)
		(set-face-foreground  'font-lock-function-name-face "gold")
		(set-face-foreground  'font-lock-comment-face "cyan")
		(set-face-foreground  'font-lock-doc-string-face "blue")
		(set-face-foreground  'font-lock-keyword-face "ivory")
		(set-face-foreground  'font-lock-string-face "thistle1")
		(set-face-foreground  'font-lock-type-face "DarkKhaki")
		(setq c-font-lock-keywords c-font-lock-keywords-2)
		(setq lisp-font-lock-keywords lisp-font-lock-keywords-2)
		(font-lock-set-defaults)
	)
)

; The following hooks set up color font
; display under various language modes
;---------------------------------------
(add-hook 'emacs-lisp-mode-hook	'turn-on-font-lock)
(add-hook 'c-mode-hook		'turn-on-font-lock)
(add-hook 'c++-mode-hook	'turn-on-font-lock)
(add-hook 'dired-mode-hook	'turn-on-font-lock)
(add-hook 'tex-mode-hook	'turn-on-font-lock)
(add-hook 'perl-mode-hook	'turn-on-font-lock)
(add-hook 'postscript-mode-hook	'turn-on-font-lock)
(add-hook 'tex-mode-hook	'turn-on-font-lock)
(add-hook 'texinfo-mode-hook	'turn-on-font-lock)

; The following statements specify the default display colors.
;--------------------------------------------------------------
(set-face-foreground 'default "green")
(set-face-background 'default "black")
(set-face-foreground 'modeline "ivory")
(set-face-background 'modeline "LightSeaGreen")
(set-face-foreground 'highlight "yellow")
(set-face-background 'highlight "blue")
(set-face-foreground 'bold "ivory")
(set-face-background 'bold "black")
(set-face-foreground 'italic "gold1")
(set-face-background 'italic "black")
(set-face-foreground 'bold-italic "gold")
(set-face-background 'bold-italic "black")
(set-face-background 'isearch "bisque3")

; The following statements specify the default font sizes.
;----------------------------------------------------------
(set-face-font 'default "-*-lucidatypewriter-medium-r-*-*-14-*-*-*-*-*-*-*")
(set-face-font 'italic "-*-courier-medium-i-*-*-16-*-*-*-*-*-*-*")
(set-face-font 'highlight "-*-courier-bold-r-*-*-16-*-*-*-*-*-*-*")
(set-face-font 'bold "-*-courier-bold-r-*-*-16-*-*-*-*-*-*-*")
(set-face-font 'bold-italic "-*-courier-bold-i-*-*-16-*-*-*-*-*-*-*")
(set-face-font 'modeline "-*-fixed-bold-r-*-*-*-120-*-*-*-*-*-*")

; Turn on line numbering in the modeline.
;-----------------------------------------
(setq line-number-mode t)

; Define extra popup menus
;--------------------------
(defvar handy-menu
	'("Edit"
    	["Undo"		advertised-undo					t]
		"-----"
		["Cut"		x-kill-primary-selection		t]
		["Copy"		x-copy-primary-selection		t]
		["Paste"	x-yank-clipboard-selection 		t]
		["Clear"	x-delete-primary-selection 		t]
		"-----"
		["Search forward..."	isearch-forward		t]
		["Search backward..."	isearch-backward	t]
		["Replace..."			query-replace		t]
	)
)

(defun handy-popup-menu (e)
	(interactive "@e")
	(popup-menu handy-menu)
)

(define-key global-map 'button3 'handy-popup-menu)

; Define extra keyboard mappings
;--------------------------------
(global-set-key 'f11	'keyboard-quit)
(global-set-key 'f14	'advertised-undo)
(global-set-key 'f16	'x-copy-primary-selection)
(global-set-key 'f18	'x-yank-clipboard-selection)
(global-set-key 'f20	'x-kill-primary-selection)
(global-set-key 'f19	'isearch-forward)