;; do not delete this line -- osu-cis-.emacs-version $Revision: 1.4 $

;; RESOLVE/C++ Settings
;; ============================
;; ============================

;; Load RESOLVE/C++ environment
;; (load "rcpp-mode")
(load (concat "/class/sce/rcpp" (getenv "RCPPVERSION") "/setups/rcpp-mode"))

;; Like MS Word and other editors, make it so typing immediately replaces
;; a selection.  In the menu system, this behavior can be changed at
;; Options, Editing Options, Auto Delete Selection.  In elisp, it is
;; called "pending delete".  Also, show the line number on the display bar.
(custom-set-variables
 '(paren-mode (quote paren) nil (paren))
 '(pending-delete-mode t nil (pending-del))
 '(line-number-mode t))

;; Use auto-fill-mode, which is good for writing comments
(setq rcpp-mode-hook 'turn-on-auto-fill)

;; Set up reasonable colors for RESOLVE/C++ mode
(custom-set-faces
 '(default ((t (:size "14pt" :background "whitesmoke"))) t)
 '(font-lock-string-face ((((class color) (background light)) (:foreground "forestgreen"))))
 '(dired-face-permissions ((t (:foreground "black" :background "grey80"))))
 '(jde-java-font-lock-number-face ((((class color) (background light)) (:foreground "brown"))))
 '(font-lock-doc-string-face ((((class color) (background light)) (:foreground "forestgreen"))))
 '(font-lock-preprocessor-face ((t (:bold t :foreground "black"))))
 '(font-lock-variable-name-face ((t (:foreground "blue3"))))
 '(font-lock-keyword-face ((t (:bold t :foreground "black"))))
 '(font-lock-type-face ((t (:bold t :foreground "black"))))
 '(jde-java-font-lock-modifier-face ((((class color) (background light)) (:foreground "red"))))
 '(list-mode-item-selected ((t (:background "gray80"))) t)
 '(font-lock-comment-face ((t (:italic t :foreground "brown"))))
 '(dired-face-executable ((((class color)) nil)))
 '(font-lock-function-name-face ((((class color) (background light)) (:foreground "blue"))))
 '(dired-face-symlink ((((class color)) (:foreground "blue"))))
 '(zmacs-region ((t (:background "gray80"))) t)
 '(dired-face-marked ((((class color)) (:background "gray80")))))

;; ============================
;; End of RESOLVE/C++ Settings

;; Other Useful Settings
;; ============================
;; ============================

;; Allow for use of wheel mouse
(defun scroll-down-slightly () (interactive) (scroll-down 3))
(defun scroll-up-slightly () (interactive) (scroll-up 3))
(global-set-key [mouse-4] 'scroll-down-slightly)
(global-set-key [mouse-5] 'scroll-up-slightly)

;; Make sure emacs sub-shells use csh
(setq shell-file-name "/bin/csh")

;; Put .saves files out of the way
(setq auto-save-list-file-prefix "~/.xemacs/.saves-")

;; If under X, start gnuserv
(if (equal window-system 'x) (progn (gnuserv-start)))

;; ============================
;; End of Other Useful Settings