;; Wheeler Ruml's .emacs.d/init.el file
;;
;; bugs:
;;  set M-` as global-set-key
;;  fix initial frame size under X.  set here instead of in custom?


;; ------------------------------------------------------------------
;; Basic file handling

;; enable frequent auto-save (to files that are deleted when master is saved)
;;   default seems to be 300
(setq auto-save-interval 100)

;; no backup files (they aren't deleted when master is saved)
;;   default seems to be t
(setq make-backup-files nil)

(setq large-file-warning-threshold )

;; change Return to do indentation as well
(global-set-key "\C-m" 'newline-and-indent)

;; change Home and End to go to start and end of buffer
(global-set-key [home] 'beginning-of-buffer)
(global-set-key [end] 'end-of-buffer)

;; wrap even when window is split horizontally (C-x 3)
;;   default is t which truncates instead of wrapping
(setq truncate-partial-width-windows nil)

;; load version control (RCS) interface
(load-library "vc")

;; default to text-mode
(setq default-major-mode 'text-mode)
(setq initial-major-mode 'text-mode)

;; ------------------------------------------------------------------
;; The mode line

;; save 2 chars on mode line
(setq display-time-24hr-format t)

;; -------------------------------------------------------------------
;; X-windows stuff

;; put new frame to left of original
;;   (unfortunately, will put every additional new frame there too!)
(setq default-x-frame-plist '(top 27 left 405))
(require 'font-lock)

;; ------------------------------------------------------------------
;; Text mode

(add-hook 'text-mode-hook 'turn-on-auto-fill)
(set-default 'auto-mode-alist
	     (append '(("\\.txt$" . text-mode)) auto-mode-alist))

;; ------------------------------------------------------------------
;; TeX mode

(add-hook 'tex-mode-hook
	  '(lambda ()
	     ;; Meta-` is otherwise unbound in XEmacs
	    (define-key latex-mode-map "\M-`" 'font-lock-fontify-buffer)))

;; ------------------------------------------------------------------
;; Tuareg mode - for OCaml programming
;;
;; C-c C-e in a buffer, -or-
;; M-x tuareg-run-caml, -or-
;; M-x camldebug FILE

(setq load-path (cons "~ruml/lib/emacs/site-lisp/tuareg"
		      load-path))
(autoload 'tuareg-mode "tuareg" "Major mode for editing Caml code" t)
(autoload 'tuareg-run-caml "tuareg" "start up a Caml toplevel" t)
(autoload 'camldebug "camldebug" "Run the Caml debugger" t)
(setq auto-mode-alist (cons '("\\.ml\\w?" . tuareg-mode)
			    auto-mode-alist))
(if (and (boundp 'window-system) window-system)
    (require 'font-lock))
(setq tuareg-interactive-program "ocamltop")
(add-hook 'tuareg-mode-hook
	  '(lambda ()
	     ;; Meta-` is otherwise unbound in XEmacs
	    (define-key tuareg-mode-map "\M-`" 'font-lock-fontify-buffer)
	    (set (make-local-variable 'compile-command)
	     "ocm")))


;; ------------------------------------------------------------------
;; Allegro Common Lisp

(setq load-path (cons "~ruml/bin/acl/eli"
		      load-path))
(autoload 'fi:common-lisp "fi-site-init" "Start Allegro Common Lisp." t)
(autoload 'fi:common-lisp-mode "fi-site-init" "Enter Franz's Lisp Mode." t)
(setq fi:common-lisp-image-name "/home/rai/ruml/bin/acl/alisp")
(setq fi:common-lisp-directory (expand-file-name "~/"))

(set-default 'auto-mode-alist
	     (append '(("\\.system$" . fi:common-lisp-mode)
		       ("\\.lisp$" . fi:common-lisp-mode)
		       ("\\.lsp$" . fi:common-lisp-mode)
		       ("\\.l$" . fi:common-lisp-mode)
		       ("\\.cl$" . fi:common-lisp-mode))
		     auto-mode-alist))

;; ------------------------------------------------------------------
;; VM for reading mail
;;
;; see ~/.vm for VM configuration

(add-to-list 'load-path "~ruml/lib/emacs/site-lisp/vm/lisp")
(require 'vm-autoloads)
(setq mail-user-agent 'vm-user-agent)

;; ------------------------------------------------------------------
;; sending email

;; or sendmail?
(setq send-mail-function 'smtpmail-send-it)
(setq smtpmail-smtp-server "mailhost.cs.unh.edu")
(setq smtpmail-smtp-service 25)
(setq user-mail-address "ruml@cs.unh.edu")

;; ------------------------------------------------------------------
;; BigBrotherDataBase
;;
;; M-x bbdb to search address book
;; use mail-alias field instead of .mailrc
;      multiples w/ same alias will be inserted as a group

(setq load-path (cons "~ruml/lib/emacs/site-lisp/bbdb/lisp"
		      load-path))
(require 'bbdb)
;; VM support is in ~/.vm
(bbdb-initialize 'sendmail)
;;(setq bbdb-use-pop-up nil)

(setq load-path (cons "~ruml/lib/emacs/site-lisp/"
		      load-path))
(autoload 'bbdb/send-hook "moy-bbdb")
(add-hook 'mail-send-hook 'bbdb/send-hook)


(custom-set-variables
  ;; custom-set-variables was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(blink-cursor-mode nil)
 '(display-time-mode t)
 '(fringe-mode 0 nil (fringe))
 '(inhibit-startup-screen t)
 '(large-file-warning-threshold 50000000)
 '(show-paren-mode t)
 '(tool-bar-mode nil))

(custom-set-faces
  ;; custom-set-faces was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(default ((t (:stipple nil :background "#ffffff" :foreground "#000000" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 98 :width semi-condensed :family "misc-fixed"))))
 '(font-lock-string-face ((((class color) (min-colors 88) (background light)) (:foreground "DarkGreen")))))


;; EOF