# HG changeset patch
# User Luke Hoersten <Luke@Hoersten.org>
# Date 1350351099 18000
# Node ID 0b32173760599e3e25d8168136b04947eace4a45
# Parent  b54c3f2e12f6291eb0bc17a8690b77ac61de1d1d
Minor haskell updates.

diff -r b54c3f2e12f6 -r 0b3217376059 haskell-init.el
--- a/haskell-init.el	Sun Mar 25 20:03:38 2012 -0500
+++ b/haskell-init.el	Mon Oct 15 20:31:39 2012 -0500
@@ -1,10 +1,13 @@
 ;; ~/.emacs.d/haskell-init.el
 ;; Luke Hoersten <Luke@Hoersten.org>
 
-;; scion
-;; (if (file-exists-p "~/.cabal/share/scion-0.1.0.10/emacs")
+(add-to-list 'load-path "~/.emacs.d/thirdparty/haskell-mode") ; override haskell mode on system
+(load "haskell-site-file")
+
+;; ;; scion
+;; (if (file-exists-p "~/.cabal/share/scion-0.3/emacs/scion.el")
 ;;     (progn
-;;       (add-to-list 'load-path "~/.cabal/share/scion-0.1.0.10/emacs")
+;;       (add-to-list 'load-path "~/.cabal/share/scion-0.3/emacs")
 ;;       (require 'scion)
 ;;       (setq scion-program "~/.cabal/bin/scion-server")
 ;;       (add-hook
@@ -17,16 +20,20 @@
 (add-hook
  'haskell-mode-hook
  (lambda ()
-   (haskell-indentation-mode nil)
-   (haskell-indent-mode t)
-   (capitalized-words-mode t)
+   (turn-on-haskell-indent)
+   (capitalized-words-mode)
+   (turn-on-haskell-doc-mode)
+   (turn-on-haskell-decl-scan)
    (imenu-add-menubar-index)
-   (haskell-doc-mode t)
+   (local-set-key (kbd "C-x C-s") 'haskell-mode-save-buffer)
    (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))
- t) ; append instead of prepend else haskell-mode overwrites these settings
+    whitespace-line-column 78)
+   ))
 
 (message "Loading haskell-init...done")
 (provide 'haskell-init)
diff -r b54c3f2e12f6 -r 0b3217376059 init.el
--- a/init.el	Sun Mar 25 20:03:38 2012 -0500
+++ b/init.el	Mon Oct 15 20:31:39 2012 -0500
@@ -59,14 +59,18 @@
       (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
-(add-hook
- 'eshell-mode-hook
- (lambda ()
-   (setenv "TERM" "emacs") ; enable colors
-   (setenv "PATH" (concat "~/.cabal/bin:" (getenv "PATH")))))
+(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:" "~/.cabal/bin:" (getenv "PATH"))))
+(add-hook 'eshell-mode-hook 'setup-env)
 
+(setup-env)
+(eshell)
 
 ;;;; Mode-Specific ;;;;
 
@@ -113,6 +117,9 @@
     ("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
@@ -151,6 +158,7 @@
 ;;; zencoding-mode - html
 (require 'zencoding-mode)
 (add-hook 'sgml-mode-hook 'zencoding-mode) ; Auto-start on any markup modes
+(add-to-list 'auto-mode-alist '("\\.tpl\\'" . html-mode))
 
 ;;; unique buffer names with dirs
 (require 'uniquify)