initel


;; Wheeler Ruml's .xemacs/init.el file
;;
;; Note that customizations done with the fancy customization interface are
;; stored in ~/.xemacs/custom.el.


;; ------------------------------------------------------------------
;; 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)

;; 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)

;; highlight opening paren
(paren-set-mode 'paren)

;; 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)
;; don't show load or mail indicator, and show time using plain text
(setq display-time-form-list '(time-text))
(display-time)

(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/xemacs/site-lisp/tuareg"
		      load-path))
(autoload 'tuareg-mode "tuareg" "Major mode for editing Caml code" t)
(autoload 'camldebug "camldebug" "Run the Caml debugger" t)
(autoload 'tuareg-mode "tuareg" "Run an OCaml toplevel" 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/i386-linux/acl/xeli"
		      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/i386-linux/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))

;; EOF