init.el
changeset 63 814f5588d0d4
parent 62 e1b944f16acb
child 64 5183b4466011
equal deleted inserted replaced
62:e1b944f16acb 63:814f5588d0d4
    55   (set-frame-font (if is-mac "Ubuntu Mono-14" "Ubuntu Mono-10.5")))
    55   (set-frame-font (if is-mac "Ubuntu Mono-14" "Ubuntu Mono-10.5")))
    56 
    56 
    57 ;;;; Mode-Specific ;;;;
    57 ;;;; Mode-Specific ;;;;
    58 
    58 
    59 ;;; text-mode
    59 ;;; text-mode
    60 (add-hook 'fundamental-mode-hook '(flyspell-mode t))      ; spellcheck text
    60 (add-hook 'fundamental-mode-hook 'flyspell-mode)      ; spellcheck text
    61 (add-hook 'fundamental-mode-hook 'turn-on-auto-fill)    ; autofill text
    61 (add-hook 'fundamental-mode-hook 'turn-on-auto-fill)    ; autofill text
    62 
    62 
    63 ;;; ido-mode
    63 ;;; ido-mode
    64 (ido-mode t)                                            ; file/buffer selector
    64 (ido-mode t)                                            ; file/buffer selector
    65 (setq-default
    65 (setq-default
   137 
   137 
   138 ;;; terminal
   138 ;;; terminal
   139 (global-set-key (kbd "C-c s") 'eshell) ; start shell
   139 (global-set-key (kbd "C-c s") 'eshell) ; start shell
   140 (exec-path-from-shell-initialize)
   140 (exec-path-from-shell-initialize)
   141 (eshell)
   141 (eshell)
   142 (add-hook 'eshell-mode-hook '(setenv "TERM" "emacs"))
   142 (add-hook 'eshell-mode-hook (lambda () (setenv "TERM" "emacs")))
   143 
   143 
   144 ;;; uniquify
   144 ;;; uniquify
   145 (setq
   145 (setq
   146  uniquify-buffer-name-style 'post-forward
   146  uniquify-buffer-name-style 'post-forward
   147  uniquify-separator ":")
   147  uniquify-separator ":")
   171    (local-set-key (kbd "C-c t") 'mc/mark-sgml-tag-pair)
   171    (local-set-key (kbd "C-c t") 'mc/mark-sgml-tag-pair)
   172    (zencoding-mode)
   172    (zencoding-mode)
   173    (rainbow-mode)))
   173    (rainbow-mode)))
   174 
   174 
   175 ;;; css-mode
   175 ;;; css-mode
   176 (add-hook 'css-mode-hook '(rainbow-mode t))
   176 (add-hook 'css-mode-hook 'rainbow-mode)
   177 
   177 
   178 ;;; coding-modes map
   178 ;;; coding-modes map
   179 (mapc
   179 (mapc
   180  (lambda (x)
   180  (lambda (x)
   181    (add-hook x
   181    (add-hook x
   205    (turn-on-haskell-doc-mode)
   205    (turn-on-haskell-doc-mode)
   206    (turn-on-haskell-decl-scan)
   206    (turn-on-haskell-decl-scan)
   207    (imenu-add-menubar-index)
   207    (imenu-add-menubar-index)
   208    (local-set-key (kbd "C-c i") 'haskell-navigate-imports) ; go to imports. prefix to return
   208    (local-set-key (kbd "C-c i") 'haskell-navigate-imports) ; go to imports. prefix to return
   209    (setq
   209    (setq
       
   210     ghc-ghc-options '("-isrc")
   210     haskell-font-lock-haddock t
   211     haskell-font-lock-haddock t
   211     haskell-stylish-on-save t
   212     haskell-stylish-on-save t
   212     haskell-indent-offset 4
   213     haskell-indent-offset 4
   213     whitespace-line-column 78)))
   214     whitespace-line-column 78)))
   214 
   215