init.el
changeset 53 0b3217376059
parent 52 b54c3f2e12f6
child 54 e1b82f67f96e
equal deleted inserted replaced
52:b54c3f2e12f6 53:0b3217376059
    57       (scroll-bar-mode -1)    ; remove scroll bar
    57       (scroll-bar-mode -1)    ; remove scroll bar
    58       (menu-bar-mode -1)      ; remove menu bar
    58       (menu-bar-mode -1)      ; remove menu bar
    59       (visual-line-mode t)    ; word wrap break on whitespace
    59       (visual-line-mode t)    ; word wrap break on whitespace
    60       (set-frame-font (get-font))))
    60       (set-frame-font (get-font))))
    61 
    61 
       
    62 
    62 ;;; terminal
    63 ;;; terminal
    63 (global-set-key (kbd "C-c s") 'eshell) ; start shell
    64 (global-set-key (kbd "C-c s") 'eshell) ; start shell
    64 (add-hook
    65 (defun setup-env ()
    65  'eshell-mode-hook
    66   (setenv "TERM" "emacs") ; enable colors
    66  (lambda ()
    67   (setenv "ODBCSYSINI" "/home/lhoersten/myodbc")
    67    (setenv "TERM" "emacs") ; enable colors
    68   (setenv "ODBCINI" "/home/lhoersten/myodbc/odbc.ini")
    68    (setenv "PATH" (concat "~/.cabal/bin:" (getenv "PATH")))))
    69   (setenv "PATH" (concat "/usr/local/bin:" "~/.cabal/bin:" (getenv "PATH"))))
       
    70 (add-hook 'eshell-mode-hook 'setup-env)
    69 
    71 
       
    72 (setup-env)
       
    73 (eshell)
    70 
    74 
    71 ;;;; Mode-Specific ;;;;
    75 ;;;; Mode-Specific ;;;;
    72 
    76 
    73 ;;; text-mode
    77 ;;; text-mode
    74 (add-hook 'text-mode-hook 'flyspell-mode t)             ; spellcheck text
    78 (add-hook 'text-mode-hook 'flyspell-mode t)             ; spellcheck text
   111     ("Emacs Lisp" (mode . emacs-lisp-mode))
   115     ("Emacs Lisp" (mode . emacs-lisp-mode))
   112     ("Haskell" (mode . haskell-mode))
   116     ("Haskell" (mode . haskell-mode))
   113     ("Python" (mode . python-mode))
   117     ("Python" (mode . python-mode))
   114     ("Jython" (mode . jython-mode))
   118     ("Jython" (mode . jython-mode))
   115     ("Clojure" (mode . clojure-mode))
   119     ("Clojure" (mode . clojure-mode))
       
   120     ("Markup" (mode . sgml-mode))
       
   121     ("HTML" (mode . html-mode))
       
   122     ("CSS" (mode . css-mode))
   116     ("C++" (mode . c++-mode)))))
   123     ("C++" (mode . c++-mode)))))
   117 (add-hook
   124 (add-hook
   118  'ibuffer-mode-hook
   125  'ibuffer-mode-hook
   119  (lambda ()
   126  (lambda ()
   120    (ido-mode t)
   127    (ido-mode t)
   149 (add-hook 'java-mode-hook (lambda () (setq whitespace-line-column 140)))
   156 (add-hook 'java-mode-hook (lambda () (setq whitespace-line-column 140)))
   150 
   157 
   151 ;;; zencoding-mode - html
   158 ;;; zencoding-mode - html
   152 (require 'zencoding-mode)
   159 (require 'zencoding-mode)
   153 (add-hook 'sgml-mode-hook 'zencoding-mode) ; Auto-start on any markup modes
   160 (add-hook 'sgml-mode-hook 'zencoding-mode) ; Auto-start on any markup modes
       
   161 (add-to-list 'auto-mode-alist '("\\.tpl\\'" . html-mode))
   154 
   162 
   155 ;;; unique buffer names with dirs
   163 ;;; unique buffer names with dirs
   156 (require 'uniquify)
   164 (require 'uniquify)
   157 (setq
   165 (setq
   158  uniquify-buffer-name-style 'post-forward
   166  uniquify-buffer-name-style 'post-forward