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