init.el
changeset 69 b3baf25406f8
parent 68 ccf07713aeee
child 70 88c4f68cb191
equal deleted inserted replaced
68:ccf07713aeee 69:b3baf25406f8
   159 (setq-default yas-prompt-functions '(yas-ido-prompt yas-dropdown-prompt)) ; use ido for multiple snippets
   159 (setq-default yas-prompt-functions '(yas-ido-prompt yas-dropdown-prompt)) ; use ido for multiple snippets
   160 (setq-default yas-snippet-dirs '("~/.emacs.d/snippets"))
   160 (setq-default yas-snippet-dirs '("~/.emacs.d/snippets"))
   161 (yas-global-mode t)
   161 (yas-global-mode t)
   162 
   162 
   163 ;;; gradle-mode
   163 ;;; gradle-mode
   164 (add-to-list 'auto-mode-alist '("\\.gradle$'" . groovy-mode))
   164 (add-to-list 'auto-mode-alist '("\\.gradle$" . groovy-mode))
   165 
   165 
   166 ;;; js2-mode
   166 ;;; js2-mode
   167 (add-to-list 'auto-mode-alist '("\\.js$" . js2-mode))
   167 (add-to-list 'auto-mode-alist '("\\.js$" . js2-mode))
   168 (add-hook 'js2-mode-hook 'ac-js2-mode)
   168 (add-hook 'js2-mode-hook 'ac-js2-mode)
   169 (setq-default ac-js2-evaluate-calls t)
   169 (setq-default ac-js2-evaluate-calls t)
   205  (lambda ()
   205  (lambda ()
   206    (ghc-init)
   206    (ghc-init)
   207    (capitalized-words-mode t)
   207    (capitalized-words-mode t)
   208    (turn-on-hi2)
   208    (turn-on-hi2)
   209    (imenu-add-menubar-index)
   209    (imenu-add-menubar-index)
       
   210    (interactive-haskell-mode)
   210    (local-set-key (kbd "C-c i") 'haskell-navigate-imports) ; go to imports. prefix to return
   211    (local-set-key (kbd "C-c i") 'haskell-navigate-imports) ; go to imports. prefix to return
   211    (local-set-key (kbd "M-p") 'move-line-up) ; need to override default M-p function
   212    (local-set-key (kbd "M-p") 'move-line-up) ; need to override default M-p function
   212    (local-set-key (kbd "M-n") 'move-line-down)
   213    (local-set-key (kbd "M-n") 'move-line-down)
   213    (local-set-key (kbd "C-1") 'ghc-display-errors)
   214    (local-set-key (kbd "C-1") 'ghc-display-errors)
   214    (local-set-key (kbd "C-.") 'ghc-goto-next-error)
   215    (local-set-key (kbd "C-.") 'ghc-goto-next-error)
   215    (local-set-key (kbd "C-,") 'ghc-goto-prev-error)
   216    (local-set-key (kbd "C-,") 'ghc-goto-prev-error)
       
   217 
       
   218    (define-key haskell-mode-map (kbd "C-c C-l") 'haskell-process-load-or-reload)
       
   219    (define-key haskell-mode-map (kbd "C-`") 'haskell-interactive-bring)
       
   220    (define-key haskell-mode-map (kbd "C-c C-t") 'haskell-process-do-type)
       
   221    (define-key haskell-mode-map (kbd "C-c C-i") 'haskell-process-do-info)
       
   222    (define-key haskell-mode-map (kbd "C-c C-c") 'haskell-process-cabal-build)
       
   223    (define-key haskell-mode-map (kbd "C-c C-k") 'haskell-interactive-mode-clear)
       
   224    (define-key haskell-mode-map (kbd "C-c c") 'haskell-process-cabal)
       
   225    (define-key haskell-mode-map (kbd "SPC") 'haskell-mode-contextual-space)
       
   226 
   216    (setq
   227    (setq
   217     ghc-ghc-options '("-isrc")
   228     ghc-ghc-options '("-isrc")
   218     haskell-program-name "cabal repl"
   229     haskell-program-name "cabal repl"
   219     haskell-stylish-on-save t
   230     haskell-stylish-on-save t
   220     hi2-layout-offset 4
   231     hi2-layout-offset 4
   221     hi2-left-offset 4
   232     hi2-left-offset 4
   222     whitespace-line-column 78)))
   233     whitespace-line-column 78
       
   234     ;; haskell-process-type 'cabal-repl
       
   235     haskell-process-suggest-remove-import-lines t
       
   236     haskell-process-auto-import-loaded-modules t
       
   237     haskell-process-log t
       
   238     )))
   223 
   239 
   224 ;;; ghci-mode
   240 ;;; ghci-mode
   225 (add-hook 'inferior-haskell-mode-hook 'turn-on-ghci-completion)
   241 (add-hook 'inferior-haskell-mode-hook 'turn-on-ghci-completion)
   226 
   242 
   227 ;;; expand-region
   243 ;;; expand-region