38 ;;; haskell-mode |
38 ;;; haskell-mode |
39 (add-hook |
39 (add-hook |
40 'haskell-mode-hook |
40 'haskell-mode-hook |
41 (lambda () |
41 (lambda () |
42 ;; (imenu-add-menubar-index) |
42 ;; (imenu-add-menubar-index) |
43 (flycheck-mode) |
|
44 ;; (haskell-indentation-mode t) |
43 ;; (haskell-indentation-mode t) |
45 (stack-mode) |
44 (stack-mode) |
|
45 ;; (flycheck-mode) |
46 (subword-mode) |
46 (subword-mode) |
47 (electric-indent-mode 0) |
47 (electric-indent-mode nil) |
48 (structured-haskell-mode t) |
48 (structured-haskell-mode t) |
49 (set-face-background 'shm-quarantine-face "lemonchiffon") |
49 (set-face-background 'shm-quarantine-face "lemonchiffon") |
50 (interactive-haskell-mode t))) |
50 (interactive-haskell-mode t) |
51 |
51 |
52 (custom-set-variables |
52 (setq |
53 '(capitalized-words-mode t) |
53 capitalized-words-mode t |
54 '(haskell-stylish-on-save t) |
54 haskell-stylish-on-save t |
55 '(haskell-indentation-layout-offset 4) |
55 haskell-indentation-layout-offset 4 |
56 '(haskell-indentation-left-offset 4) |
56 haskell-indentation-left-offset 4 |
57 |
57 |
58 '(haskell-notify-p t) |
58 haskell-notify-p t |
59 '(haskell-align-imports-pad-after-name t) |
59 haskell-align-imports-pad-after-name t |
60 '(haskell-ask-also-kill-buffers nil) |
60 haskell-ask-also-kill-buffers nil |
61 '(haskell-import-mapping t) |
61 haskell-import-mapping t |
62 |
62 |
63 '(shm-use-presentation-mode t) |
63 shm-use-presentation-mode t |
64 '(shm-auto-insert-skeletons t) |
64 shm-auto-insert-skeletons t |
65 '(shm-auto-insert-bangs t) |
65 shm-auto-insert-bangs t |
66 |
66 |
67 '(haskell-interactive-mode-eval-pretty t) |
67 haskell-interactive-mode-eval-pretty t |
68 '(haskell-interactive-mode-scroll-to-bottom t) |
68 haskell-interactive-mode-scroll-to-bottom t |
69 '(haskell-interactive-mode-eval-mode 'haskell-mode) |
69 haskell-interactive-mode-eval-mode 'haskell-mode |
70 '(haskell-interactive-popup-errors nil) |
70 haskell-interactive-popup-errors nil |
71 '(haskell-process-type 'stack-ghci) |
71 haskell-process-type 'stack-ghci |
72 '(haskell-process-auto-import-loaded-modules t) |
72 haskell-process-auto-import-loaded-modules t |
73 '(haskell-process-log t)) |
73 haskell-process-log t))) |
74 |
74 |
75 ;; keys |
75 ;; keys |
76 (define-key haskell-mode-map (kbd "M-,") 'haskell-who-calls) |
76 (define-key haskell-mode-map (kbd "M-,") 'haskell-who-calls) |
77 (define-key haskell-mode-map (kbd "C-c i") 'haskell-navigate-imports) |
77 (define-key haskell-mode-map (kbd "C-c i") 'haskell-navigate-imports) |
78 (define-key haskell-mode-map (kbd "C-c C-d") 'haskell-describe) |
78 (define-key haskell-mode-map (kbd "C-c C-d") 'haskell-describe) |