[PLUG] Editor in Console window
David Bridges
dbridges at austin.rr.com
Sun Nov 24 00:16:44 UTC 2002
Rich Shepard <rshepard at appl-ecosys.com> writes:
Not sure if this will help you Rick, but here is an old post that you sent with your .emacs file.
> 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