;(setq load-path (cons "/usr/share/emacs/site-lisp" load-path)) (setq auto-mode-alist (cons '("\\.py$" . python-mode) auto-mode-alist)) (setq interpreter-mode-alist (cons '("python" . python-mode) interpreter-mode-alist)) (autoload 'python-mode "python-mode" "Python editing mode." t) ;; Use "y or n" answers instead of full words "yes or no" (fset 'yes-or-no-p 'y-or-n-p) ;; turn on visual bell (setq visible-bell t) ;; turn on paren matching (show-paren-mode t) (setq show-paren-style 'mixed) ;; Turn on mouse wheel (mouse-wheel-mode) ;; make file name and computer title (set-default 'frame-title-format (list "" "emacs" "@" (getenv "HOST") " : %f" )) (setq font-lock-maximum-decoration t) (setq-default tab-width 4) ;; Turn off use of tabs for indentation in many modes (setq indent-tabs-mode nil) ;; LaTeX mode (add-hook 'latex-mode-hook '(lambda() (setq indent-tabs-mode nil) ) ) ;; C mode (add-hook 'c-mode-hook '(lambda() (setq indent-tabs-mode nil) ) ) ;; C++ mode (add-hook 'c++-mode-hook '(lambda() (setq indent-tabs-mode nil) ) ) ;; Fortran mode (add-hook 'fortran-mode-hook '(lambda() (setq indent-tabs-mode nil) ) ) ;; perl mode (add-hook 'perl-mode-hook '(lambda() (setq indent-tabs-mode nil) ) ) ;; Lisp mode (add-hook 'lisp-mode-hook '(lambda() (setq indent-tabs-mode nil) ) ) ;; (set-background-color "Black") ;; (set-foreground-color "snow") ;; (set-mouse-color "orchid") ;; (set-cursor-color "orchid") ;; (set-face-background 'region "darkred") ;; (set-face-foreground 'region "white") ;; (setq w3-node-style 'font-lock-keyword-face) ;; (setq w3-address-style 'font-lock-comment-face) ;; (setq w3-bold-style 'font-lock-keyword-face) ;; (setq w3-italic-style 'font-lock-comment-face) (if (eq window-system 'x) (progn (transient-mark-mode t) (if (fboundp 'what\ line) (fmakunbound 'what\ line)) (if (fboundp 'set\ cursor\ free) (fmakunbound 'set\ cursor\ free)) (if (fboundp 'set\ cursor\ bound) (fmakunbound 'set\ cursor\ bound)) (if (fboundp 'set\ scroll\ margins) (fmakunbound 'set\ scroll\ margins)) (if (fboundp 'what\ line) (fmakunbound 'what\ line)) (if (x-display-color-p) (progn (eval-after-load "font-lock" '(progn (setq c-font-lock-keywords c-font-lock-keywords-2 c++-font-lock-keywords c++-font-lock-keywords-2 lisp-font-lock-keywords lisp-font-lock-keywords-2))) (global-font-lock-mode t) (mapcar (function (lambda (flist) (copy-face (car (cdr flist)) (car flist)) (set-face-foreground (car flist) (car (cdr (cdr flist)))) )) '((comment-color default "orange") (doc-string-color default "turquoise") (string-color default "green") (function-name-color default "yellow") (keyword-color default "greenyellow") (variable-color default "cyan" ) (type-color default "skyblue") (italic-blue default "skyblue") ) ) (setq font-lock-comment-face `comment-color font-lock-doc-string-face `doc-string-color font-lock-string-face `string-color font-lock-function-name-face `function-name-color font-lock-keyword-face `keyword-color font-lock-variable-name-face `variable-color font-lock-type-face `type-color ) ; (set-face-foreground 'font-lock-comment-face "saddle brown") ; (set-face-foreground 'font-lock-doc-string-face "chocolate") ; (set-face-foreground 'font-lock-string-face "firebrick") ; (set-face-foreground 'font-lock-function-name-face "blue") ; (set-face-foreground 'font-lock-keyword-face "slate blue") ; (set-face-foreground 'font-lock-type-face "steel blue") (set-face-foreground 'modeline "black") (set-face-background 'modeline "lavender") ; (set-face-foreground 'font-lock-type-face `type-color) ;;;;;;;;;; Background color ; (set-background-color "\#0D0A28") (set-background-color "Black") (set-foreground-color "snow") (set-mouse-color "orchid") (set-cursor-color "orchid") (set-face-background 'region "darkred") (set-face-foreground 'region "white") (setq w3-node-style 'font-lock-keyword-face) (setq w3-address-style 'font-lock-comment-face) (setq w3-bold-style 'font-lock-keyword-face) (setq w3-italic-style 'font-lock-comment-face) ) ; else x-display-color-p (if (eq 'gray-scale (x-display-visual-class)) (progn (set-face-background 'region "DarkSlateGrey") ) (progn (set-face-background 'region "White") (set-face-foreground 'region "Black") (setq hilit-background-mode 'mono) ) ) ) ) ) (mapcar (function (lambda (flist) (copy-face (car (cdr flist)) (car flist)) (set-face-foreground (car flist) (car (cdr (cdr flist)))) )) '((comment-color italic "orange") (doc-string-color italic "turquoise") (string-color italic "green") (function-name-color default "yellow") (keyword-color default "greenyellow") (variable-color default "cyan" ) (type-color default "skyblue") (italic-blue default "skyblue") ) ) (setq auto-mode-alist (append '(("\\.ftn$" . fortran-mode) ("\\.for$" . fortran-mode) ("\\.F$" . fortran-mode) ("\\.inc$" . fortran-mode) ("\\.pfp$" . fortran-mode) ("\\.car$" . fortran-mode) ("\\.edt$" . fortran-mode) ("\\.temp$" . fortran-mode) ("\\.lex$" . c-mode) ("\\.C$" . c++-mode) ("\\.cc$" . c++-mode) ("\\.c$" . c++-mode) ("\\.h$" . c++-mode) ("\\.cxx$" . c++-mode) ; ("\\.html$" . html-mode) ;("\\.py$" . python-mode) ) auto-mode-alist)) (setq c++-indent-level 4 c++-continued-statement-offset 4 c++-brace-offset -4 c++-argdecl-indent 4 c++-label-offset -4) ;(setq fortran-do-indent 4 ; fortran-if-indent 4 ; fortran-comment-indent-style nil ; fortran-continuation-char 38) ; some interesting modes: (add-hook 'c++-mode-hook (function (lambda () (setq indent-tabs-mode nil) (c-set-style "Ellemtel")))) (setq indent-tabs-mode nil) ;;; Tramp stuff (add-to-list 'load-path "~/emacs/tramp/lisp/") (setq tramp-default-method "scpx") (require 'tramp) (setq tramp-auto-save-directory "~/emacs/tramp-autosave") ;(setq tramp-auto-save-directory '/home/cplager/emacs/backups') ; (add-to-list 'backup-directory-alist ; (cons "." "~/emacs/backups/")) ;;; end tramp (add-to-list 'load-path "~/emacs/") (require 'pc-bufsw) (global-font-lock-mode t) (global-set-key "\M-g" 'goto-line) (global-set-key "\M-$" 'ispell-complete-word) (global-set-key [f1] 'revert-buffer) (global-set-key [f2] 'font-lock-fontify-buffer) (global-set-key [f11] 'auto-save-mode) (global-set-key [f12] 'tool-bar-mode) ( if (string-match "^21" emacs-version) (progn ; Emacs 21 only stuff here (global-set-key (kbd "") 'beginning-of-buffer) (global-set-key (kbd "") 'end-of-buffer) (tool-bar-mode) ) ) (custom-set-variables '(load-home-init-file t t)) (custom-set-faces) (defalias 'perl-mode 'cperl-mode) ;(setq cperl-hairy t) ;; Turns on most of the CPerlMode options (setq cperl-invalid-face (quote off)) (setq cperl-indent-level 3 cperl-hash-background "black" cperl-scalar-foreground "red") ; 2) ;; cperl-continued-statement-offset 2 ; 2 ;; cperl-lineup-step nil ;; cperl-brace-imaginary-offset 0 ;; cperl-brace-offset 0 ;; cperl-label-offset -2 ;; cperl-min-label-indent 1 ;; cperl-close-paren-offset -1 ;; cperl-auto-newline nil ;; cperl-auto-newline-after-colon nil ;; cperl-tab-always-indent t ;; cperl-can-font-lock t ;; cperl-font-lock t ; nil ;; cperl-hairy nil ;; cperl-comment-column 32 ;; ) ;; This setting is mainly for using emacs in the shell. ;; It makes the backspace key work correctly. ; (keyboard-translate ?\C-h ?\C-?) (setq load-path (cons "/cdf/home/cplager/emacs" load-path)) ;; html-helper-mode for auto time stamps (autoload 'html-helper-mode "html-helper-mode" "Yay HTML" t) (setq auto-mode-alist (cons '("\\.html$" . html-helper-mode) auto-mode-alist)) (setq html-helper-do-write-file-hooks t)