;; ~/.emacs.d/init.el (~/.emacs)
;; Luke Hoersten <[email protected]>
;;;; General ;;;;
(add-to-list 'load-path "~/.emacs.d") ; set default emacs load path
(setq-default
ediff-split-window-function
'split-window-horizontally ; diff horizontally
x-select-enable-clipboard t ; paste from X buffer
inhibit-splash-screen t ; disable splash screen
truncate-lines t ; truncate, not wrap, lines
indent-tabs-mode nil ; only uses spaces for indentation
split-width-threshold 181 ; min width to split window horizontially
split-height-threshold 120 ; min width to split window vertically
reb-re-syntax 'string ; use string syntax for regexp builder
require-final-newline 'visit-save) ; add a newline automatically
(put 'set-goal-column 'disabled nil) ; enable goal column setting
(put 'narrow-to-region 'disabled nil) ; enable hiding
(put 'narrow-to-page 'disabled nil)
(column-number-mode t) ; show column numbers
(delete-selection-mode t) ; replace highlighted text
(windmove-default-keybindings) ; move between windows with shift-arrow
(fset 'yes-or-no-p 'y-or-n-p) ; replace yes/no prompts
(global-hl-line-mode t) ; highlight current line
;;; Coding
(which-func-mode t) ; show current function
(show-paren-mode t) ; show matching paren
(transient-mark-mode t) ; show highlighting
(global-font-lock-mode t) ; syntax highlighting
(global-set-key (kbd "C-c c") 'compile) ; compile
(global-set-key (kbd "C-c r") 'recompile) ; recompile
(subword-mode t) ; move by camelCase words
;;; Darwin
(if (string-match "darwin" (emacs-version))
(progn
(setq-default
mac-command-modifier 'meta
ns-pop-up-frames nil
ispell-program-name "/usr/local/bin/aspell")))
;;; Xorg
(if window-system
(progn
(defun get-font ()
"Get appropriate font based on system and hostname."
(cond
((string-match "darwin" (emacs-version)) "Ubuntu Mono-14")
((string-match "RichardParker" (system-name)) "Ubuntu Mono-8.5")
((string-match "HoldenCaulfield" (system-name)) "Ubuntu Mono-10.5")
((string-match "lhoersten-66113" (system-name)) "Ubuntu Mono-10.5")
("Ubuntu Mono-10.5")))
(tool-bar-mode -1) ; remove tool bar
(scroll-bar-mode -1) ; remove scroll bar
(menu-bar-mode -1) ; remove menu bar
(visual-line-mode t) ; word wrap break on whitespace
(set-frame-font (get-font))))
;;; terminal
(global-set-key (kbd "C-c s") 'eshell) ; start shell
(defun setup-env ()
(setenv "TERM" "emacs") ; enable colors
(setenv "ODBCSYSINI" "/home/lhoersten/myodbc")
(setenv "ODBCINI" "/home/lhoersten/myodbc/odbc.ini")
(setenv "PATH" (concat "/usr/local/bin:" (getenv "HOME") "/.cabal/bin:" (getenv "PATH"))))
(add-hook 'eshell-mode-hook 'setup-env)
(setup-env)
(eshell)
;;;; Mode-Specific ;;;;
;;; text-mode
(add-hook 'fundamental-mode-hook 'flyspell-mode t) ; spellcheck text
(add-hook 'fundamental-mode-hook 'turn-on-auto-fill) ; autofill text
;;; ido-mode
(ido-mode t) ; file/buffer selector
(setq-default
ido-enable-flex-matching t ; fuzzy matching for ido mode
ido-create-new-buffer 'always ; create new buffer without prompt
ido-everywhere t) ; use ido where possible
;;; whitespace-mode
(global-whitespace-mode t) ; show whitespace
(add-hook 'before-save-hook 'whitespace-cleanup) ; cleanup whitespace on exit
(setq-default
whitespace-line-column 120 ; column width
whitespace-style ; whitespace to highlight
'(trailing lines-tail empty indentation
space-before-tab space-after-tab))
;;; python-mode
(add-hook 'python-mode-hook (lambda () (setq tab-width 4)))
;;; org-mode
(add-hook
'org-mode-hook
(lambda ()
(local-set-key (kbd "M-p") 'org-move-item-up)
(local-set-key (kbd "M-S-p") 'org-move-subtree-up)
(local-set-key (kbd "M-n") 'org-move-item-down)
(local-set-key (kbd "M-S-n") 'org-move-subtree-down)))
;;; ibuffer
(global-set-key (kbd "C-x C-b") 'ibuffer) ; better buffer browser
(setq-default
ibuffer-show-empty-filter-groups nil
ibuffer-saved-filter-groups
'(("default"
("Emacs Lisp" (mode . emacs-lisp-mode))
("Haskell" (mode . haskell-mode))
("Python" (mode . python-mode))
("Jython" (mode . jython-mode))
("Clojure" (mode . clojure-mode))
("Markup" (mode . sgml-mode))
("HTML" (mode . html-mode))
("CSS" (mode . css-mode))
("C++" (mode . c++-mode)))))
(add-hook
'ibuffer-mode-hook
(lambda ()
(ido-mode t)
(ibuffer-switch-to-saved-filter-groups "default")))
;;;; Requires and Packages ;;;;
;;; custom inits
(require 'c-init) ; c specific elisp
(require 'align-with-spaces) ; use only spaces for alignment
(require 'pastebin-region) ; send selected text to pastebin
(require 'move-line) ; move line up or down
(require 'uniquify) ; unique buffer names with dirs
;;; uniquify
(setq
uniquify-buffer-name-style 'post-forward
uniquify-separator ":")
;;; packages
(package-initialize)
(add-to-list 'package-archives '("melpa" . "http://melpa.milkbox.net/packages/") t)
(add-to-list 'package-archives '("marmalade" . "http://marmalade-repo.org/packages/") t)
;; install
(let ((ensure-installed
(lambda (name)
(unless (package-installed-p name) (package-install name))))
(packages
'(flymake-haskell-multi ghc ghci-completion haskell-mode js2-mode
rainbow-delimiters rainbow-mode scion solarized-theme
yasnippet zencoding-mode)))
(mapc ensure-installed packages))
;;; color-theme
(setq-default
custom-safe-themes
'("8aebf25556399b58091e533e455dd50a6a9cba958cc4ebb0aab175863c25b9a4"
"d677ef584c6dfc0697901a44b885cc18e206f05114c8a3b7fde674fce6180879" default))
(load-theme 'solarized-light)
;;; yasnippets
(setq-default yas-prompt-functions '(yas-ido-prompt yas-dropdown-prompt)) ; use ido for multiple snippets
(setq-default yas-snippet-dirs
'("~/.emacs.d/thirdparty/yasnippet/snippets"
"~/.emacs.d/thirdparty/snippets"))
(yas-global-mode t)
;;; java-mode
(add-hook 'java-mode-hook (lambda () (setq whitespace-line-column 140)))
;;; js2-mode
(add-to-list 'auto-mode-alist '("\\.js$" . js2-mode))
(add-hook 'js-mode-hook 'js2-minor-mode)
;;; zencoding-mode - html
(add-hook 'sgml-mode-hook 'zencoding-mode) ; Auto-start on any markup modes
(add-to-list 'auto-mode-alist '("\\.tpl\\'" . html-mode))
;;; coding-modes map
(mapc
(lambda (x)
(add-hook x 'linum-mode)
(add-hook x 'rainbow-delimiters-mode))
'(text-mode-hook
c-mode-common-hook
python-mode-hook
haskell-mode-hook
clojure-mode-hook
emacs-lisp-mode-hook))
;;; haskell-mode
(add-hook
'haskell-mode-hook
(lambda ()
;; (ghc-init)
(turn-on-haskell-indent)
(capitalized-words-mode)
(turn-on-haskell-doc-mode)
(turn-on-haskell-decl-scan)
(imenu-add-menubar-index)
(setq
haskell-font-lock-haddock t
haskell-stylish-on-save t
;; haskell-tags-on-save t
haskell-program-name "ghci"
haskell-indent-offset 4
whitespace-line-column 78)
))