;; Enable slime support
(setq inferior-lisp-program "/usr/bin/sbcl --noinform")
(add-to-list 'load-path "/usr/share/emacs/site-lisp/slime/")
(require 'slime)
(slime-setup)

;; When in X, enable mouse wheel
(defun mwheel-up () (interactive) (scroll-up 5))
(defun mwheel-down () (interactive) (scroll-down 5))
(global-set-key [mouse-5] 'mwheel-up)
(global-set-key [mouse-4] 'mwheel-down)

;; Disable the world's most annoying indentation standard - DIE DIE DIE
(add-hook 'c-mode-hook '(lambda () (c-set-offset 'substatement-open '0)))
(add-hook 'c++-mode-hook '(lambda () (c-set-offset 'substatement-open '0)))

;; Put backups in ~/.backups
(defconst use-backup-dir t)   
(setq backup-directory-alist (quote ((".*" . "~/backup/temp/")))
      version-control t                ; Use version numbers for backups
      kept-new-versions 16             ; Number of newest versions to keep
      kept-old-versions 2              ; Number of oldest versions to keep
      delete-old-versions t            ; Ask to delete excess backup versions?
      backup-by-copying-when-linked t) ; Copy linked files, don't rename.

;; Load our license file to save time
(load-library "~/.emacs-dir/license.el")
    (setq comment-style 'extra-line)
    (add-hook 'scheme-mode-hook
       (lambda ()
           (set (make-local-variable 'comment-add) 1)))