[PLUG] Editor in Console window
Rich Shepard
rshepard at appl-ecosys.com
Mon Jul 22 13:33:11 UTC 2002
On Mon, 22 Jul 2002, Stephen Liu wrote:
> The problem is I can't read the content with deep red characters on dark
> background. How to change the background colour
Stephen,
Below is a copy of ~/.emacs. They're always a work in progress and readily
shared among users. I like the same appearance of emacs whether it's running
on a console or in a virtual terminal during an X session. Take what works
for you.
Rich
-----------------------------------------------------------
(cond (window-system
(setq default-frame-alist
'((width . 350)
(height . 400)
(font . "-adobe-courier-medium-r-*--*-165-*-*-m-*-iso8859-1")
(foreground-color . "white")
(background-color . "black")
(mouse-color . "Orchid")
(cursor-color . "Orchid")
(icon-type . t) ; gnu picture as Emacs icon
(icon-name . nil) ; use frame title
))
(setq frame-title-format "%b") ; set frame title to buffer name
(setq icon-title-format "%b") ; set icon title to buffer name
))
(custom-set-variables)
(custom-set-faces
'(default ((t (:size "14"))) t))
(setq default-major-mode 'text-mode)
(add-hook 'text-mode-hook 'turn-on-auto-fill)
(setq-default transient-mark-mode t)
;(require 'tex-site)
(require 'ps-print)
(global-font-lock-mode t)
(setq font-lock-maximum-decoration t)
(cond (window-system
(setq font-lock-face-attributes
; face fg bg bf it ul
'((font-lock-comment-face "GreenYellow" nil t t nil)
(font-lock-string-face "wheat" nil nil t nil)
(font-lock-keyword-face "purple" nil t nil nil)
(font-lock-type-face "MediumVioletRed" nil t nil nil)
(font-lock-function-name-face "DarkOliveGreen4" nil t nil nil)
(font-lock-variable-name-face "DodgerBlue" nil t nil nil)
(font-lock-reference-face "SeaGreen" nil nil t t ))
font-lock-maximum-decoration t
font-lock-support-mode 'lazy-lock-mode
font-lock-verbose nil
lazy-lock-stealth-verbose nil
)
(if (fboundp 'global-font-lock-mode)
(global-font-lock-mode t)
(add-hook 'find-file-hooks 'turn-on-font-lock))
))
;; kludge until colors work correctly:
(make-face 'rbs-comment-face)
(set-face-foreground 'rbs-comment-face "wheat")
(set-face-background 'rbs-comment-face "black")
(make-face 'rbs-string-face)
(set-face-foreground 'rbs-string-face "LightPink1")
(set-face-background 'rbs-comment-face "black")
(make-face 'rbs-keyword-face)
(set-face-foreground 'rbs-keyword-face "khaki1")
(set-face-background 'rbs-keyword-face "black")
(make-face 'rbs-type-face)
(set-face-foreground 'rbs-type-face "Goldenrod1")
(set-face-background 'rbs-type-face "black")
(make-face 'rbs-function-name-face)
(set-face-foreground 'rbs-function-name-face "PaleGreen1")
(set-face-background 'rbs-function-name-face "black")
(make-face 'rbs-variable-name-face)
(set-face-foreground 'rbs-variable-name-face "turquoise2")
(set-face-background 'rbs-variable-name-face "black")
(make-face 'rbs-reference-face)
(set-face-foreground 'rbs-reference-face "Magenta2")
(set-face-background 'rbs-reference-face "black")
(make-face 'rbs-constant-face)
(set-face-foreground 'rbs-constant-face "black")
(set-face-background 'rbs-constant-face "black")
; let the new face be the font face
(setq font-lock-comment-face 'rbs-comment-face)
(setq font-lock-string-face 'rbs-string-face)
(setq font-lock-keyword-face 'rbs-keyword-face)
(setq font-lock-type-face 'rbs-type-face)
(setq font-lock-function-name-face 'rbs-function-name-face)
(setq font-lock-variable-name-face 'rbs-variable-name-face)
(setq font-lock-reference-face 'rbs-reference-face)
(setq font-lock-constant-face 'rbs-constant-face)
;; for C code:
(global-set-key "%" 'match-paren)
(defun match-paren (arg)
"Go to the matching parenthesis if on parenthesis otherwise insert %."
(interactive "p")
(cond ((looking-at "\\s\(") (forward-list 1) (backward-char 1))
((looking-at "\\s\)") (forward-char 1) (backward-list 1))
((looking-at "\\s\{") (forward-list 1) (backward-char 1))
((looking-at "\\s\}") (forward-char 1) (backward-list 1))
((looking-at "\\s\[") (forward-list 1) (backward-char 1))
((looking-at "\\s\]") (forward-char 1) (backward-list 1))
(t (self-insert-command (or arg 1)))))
More information about the PLUG
mailing list