--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/emacs.el Thu Jan 01 10:51:38 2009 -0600
@@ -0,0 +1,84 @@
+;; ~/.emacs - Luke Hoersten - v4.0
+
+;; general
+(setq-default load-path (cons "~/.emacs.d" load-path)) ; set default emacs load path
+
+(setq-default ediff-split-window-function 'split-window-horizontally) ; diff horizontally
+(setq-default x-select-enable-clipboard t) ; paste from X buffer
+(setq-default inhibit-splash-screen t) ; disable splash screen
+(setq-default indicate-empty-lines t) ; show empty lines
+(setq-default show-trailing-whitespace t) ; show trailing whitespace
+(put 'set-goal-column 'disabled nil) ; enable goal column setting
+(put 'narrow-to-region 'disabled nil) ; enable hiding
+
+(display-time-mode t) ; show clock
+(column-number-mode t) ; show column numbers
+(delete-selection-mode t) ; replace highlighted text
+(windmove-default-keybindings) ; move between windows with shift-arrow
+
+(ido-mode t) ; file/buffer selector
+(setq-default ido-enable-flex-matching t) ; fuzzy matching is a must have
+(add-hook 'text-mode-hook 'flyspell-mode t) ; spellcheck text
+
+;; coding
+(which-func-mode t) ; show current function
+(show-paren-mode t) ; show matching paren
+(global-font-lock-mode t) ; syntax highlighting
+(transient-mark-mode t) ; show highlighting
+(add-hook 'before-save-hook 'whitespace-cleanup) ; cleanup whitespace on exit
+(load "hoersten-pastebin-region") ; send selected text to pastebin
+(load "mercurial") ; load mercurial mode
+(load "ahg") ; load suplimental mercurial mode
+(load "hoersten-c-style") ; load c specific lisp
+(global-set-key (kbd "C-c c") 'compile)
+
+;; gdb settings
+(setq-default gdb-many-windows t) ; gdb many windows
+(setq-default gdb-use-separate-io-buffer t) ; gdb stdio output
+(setq-default gud-tooltip-mode t) ; mouse hover variables
+(global-set-key (kbd "C-c g") 'gdb) ; gdb
+
+;; haskell
+(setq haskell-font-lock-symbols 'unicode)
+
+;; indentation
+(setq-default tab-width 3)
+(setq-default c-basic-offset 3)
+(setq-default indent-tabs-mode t)
+
+;; use only spaces for alignment
+(global-set-key (kbd "C-c a") 'align-with-spaces) ; align
+(defun align-with-spaces (beg end)
+ "Align selected using only spaces for whitespace."
+ (interactive "r")
+ (let ((indent-tabs-mode nil))
+ (align beg end)))
+
+;; shell
+(global-set-key (kbd "C-c s") 'shell) ; start shell
+(ansi-color-for-comint-mode-on) ; color in shell buffer
+(setq-default comint-scroll-to-bottom-on-input t) ; only type on prompt
+(setq-default comint-scroll-show-maximum-output t) ; place text at bottom
+
+;; map file extensions to modes
+(setq-default auto-mode-alist
+ (append
+ '(("\\.ipp$" . c++-mode)
+ ("\\.inl$" . c++-mode)
+ ("SCons" . python-mode)
+ ("\\.jj$" . java-mode))
+ auto-mode-alist))
+
+;; x stuff
+(if (not window-system)
+ (menu-bar-mode nil) ; remove menu bar in no-x mode
+ (tool-bar-mode nil) ; remove tool bar
+ (scroll-bar-mode nil) ; remove scroll bar
+ (custom-set-faces '(default ((t (:background "#000000" :foreground "#ffffff" :height 100 :family "DejaVu Sans Mono")))))
+ (setq default-frame-alist '((width . 100) (height . 50) (menu-bar-lines . 1)))
+
+ ;; twilight theme
+ (require 'color-theme)
+ (load "color-theme-twilight")
+ (color-theme-twilight)
+ (global-hl-line-mode t))