;; ~/.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

(put 'set-goal-column 'disabled nil)      ; enable goal column setting
(put 'narrow-to-region 'disabled nil)     ; enable hiding
(put 'narrow-to-page 'disabled nil)

(menu-bar-mode -1)                        ; remove menu bar
(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
(fset 'yes-or-no-p 'y-or-n-p)             ; replace yes/no prompts

;;; 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
(setq-default compile-command "scons ")   ; compile command
(global-set-key (kbd "C-c c") 'compile)   ; compile
(global-set-key (kbd "C-c r") 'recompile) ; recompile
(global-set-key
 (kbd "C-c C-c")
 'comment-or-uncomment-region)            ; toggle region comment

;;; Darwin
(if (string-match "darwin" (emacs-version))
    (progn
      (setq-default ns-command-modifier 'control)
      (tabbar-mode nil)
      (menu-bar-mode t)))

;;; Xorg
(if window-system
    (progn
      (defun get-font ()
        "Get appropriate font based on system and hostname."
        (cond
         ((string-match "darwin" (emacs-version)) "Menlo-12")
         ((string-match "HoldenCaulfield" (system-name)) "monospace-7")
         ("monospace-10")))

      (tool-bar-mode -1)      ; remove tool bar
      (scroll-bar-mode -1)    ; remove scroll bar
      (visual-line-mode t)    ; word wrap break on whitespace
      (global-hl-line-mode t) ; highlight current line
      (set-frame-font (get-font))

      ;; twilight theme
      (require 'color-theme)
      (load "color-theme-twilight")
      (color-theme-twilight)
      ))

;;; terminal
(global-set-key (kbd "C-c s") 'eshell) ; start shell
(add-hook 'eshell-mode-hook '(lambda () (setenv "TERM" "emacs"))) ; enable colors


;;;; Mode-Specific ;;;;

;;; linum-mode - line numbers
(mapc
 (lambda (x)
   (add-hook x 'linum-mode))
 '(text-mode-hook
   c-mode-common-hook
   python-mode-hook
   haskell-mode-hook
   emacs-lisp-mode-hook))

;;; text-mode
(add-hook 'text-mode-hook 'flyspell-mode t)             ; spellcheck text
(add-hook 'text-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 3
    python-indent 3
    indent-tabs-mode t)))

;;; haskell-mode
(add-hook
 'haskell-mode-hook
 (lambda ()
   (haskell-indentation-mode nil)
   (haskell-indent-mode t)
   (capitalized-words-mode t)
   (haskell-doc-mode t)
   (setq
    haskell-font-lock-symbols 'unicode
    haskell-indent-offset 4
    whitespace-line-column 87))
 t) ; append instead of prepend else haskell-mode overwrites these settings


;;; 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-saved-filter-groups
 '(("Hoersten"
    ("Emacs Configs" (saved . "Emacs Configs"))))

 ibuffer-saved-filters
 '(("Emacs Configs"
    ((filename . "\\.emacs\\.d/.*\\.el$")))
   ("gnus" ((or (mode . message-mode) (mode . mail-mode) (mode . gnus-group-mode) (mode . gnus-summary-mode) (mode . gnus-article-mode))))
   ("programming" ((or (mode . emacs-lisp-mode) (mode . cperl-mode) (mode . c-mode) (mode . java-mode) (mode . idl-mode) (mode . lisp-mode))))
   ))


;;;; Requires ;;;;

(require 'hoersten-align-with-spaces) ; use only spaces for alignment
(require 'hoersten-pastebin-region)   ; send selected text to pastebin
(require 'hoersten-c-style)           ; load c specific lisp
(require 'vala-mode)                  ; vala programming language

;;; auto-complete-mode
(add-to-list 'load-path "~/.emacs.d/auto-complete-mode/")
(require 'auto-complete-config)
(add-to-list 'ac-dictionary-directories "~/.emacs.d/auto-complete-mode/ac-dict")
(ac-config-default)
(setq ac-modes (append ac-modes '(haskell-mode)))

;;; pretty-mode - unicode character replacement
(require 'pretty-mode)
(global-pretty-mode t)

;;; yasnippets
(add-to-list 'load-path "~/.emacs.d/yasnippet")
(require 'yasnippet)
(yas/initialize)
(yas/load-directory "~/.emacs.d/yasnippet/snippets")
(setq-default yas/prompt-functions '(yas/ido-prompt yas/dropdown-prompt)) ; use ido for multiple snippets

;;; zencoding-mode - html
(require 'zencoding-mode)
(add-hook 'sgml-mode-hook 'zencoding-mode) ; Auto-start on any markup modes

;;; unique buffer names with dirs
(require 'uniquify)
(setq
 uniquify-buffer-name-style 'post-forward
 uniquify-separator ":")