;; General settings

(setq scroll-step 3)                    ; Move only one line at a time
(setq scroll-conservatively 200)
(setq next-line-add-newlines nil)       ; No newlines on down key
(setq make-backup-files nil)            ; Avoid backup litter
(setq auto-save-list-file-prefix nil)   ; Avoid .save litter
(setq-default indent-tabs-mode nil)     ; Prevent extraneous tabs
(add-hook 'text-mode-hook 'turn-on-auto-fill) ; Automatically wrap text
(line-number-mode t)                    ; Show line number in the modeline
(column-number-mode t)                  ; Show column number in the modeline
(setq font-lock-support-mode 'lazy-lock-mode) ; refontify automatically
(display-time)				; Display the time on modeline
(setq-default kill-whole-line t)        ; Ctrl-k kills whole line if at col 0
(setq-default fill-column 75)	        	; Wrap at col 75
(global-font-lock-mode t)               ; Automatically highlight when possible


;; SML-specific settings

(setq load-path (cons "/cmnusr/local/sml/contrib/emacs/sml-mode-3.3" load-path))
(autoload 'sml-mode "sml-mode" "Major mode for editing SML." t)
(setq auto-mode-alist
      (append '(("\\.sml$" . sml-mode) 
                ("\\.sig$" . sml-mode) 
                ("\\.ML$"  . sml-mode)) auto-mode-alist))

(add-hook 'sml-mode-hook 'turn-on-font-lock)
(add-hook 'sml-load-hook '(lambda () (require 'sml-font)))

(setq sml-program-name "sml")

;; my favorite sml style 
(setq sml-indent-level       2)  
(setq sml-pipe-indent        -2)
(setq sml-case-indent        t)
(setq sml-nested-if-indent   t)
(setq sml-type-of-indent     nil)
(setq sml-electric-semi-mode nil)