;; 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
Comments (0)
You don't have permission to comment on this page.