|
1 ;; ~/.emacs.d/elisp/haskell-init.el |
|
2 ;; Luke Hoersten <[email protected]> |
|
3 |
|
4 ;; Require packages |
|
5 (require 'package-require) |
|
6 (package-require '(haskell-mode hi2 flycheck)) ;; flycheck-haskell hindent shm |
|
7 |
|
8 (require 'flycheck) |
|
9 |
|
10 ;; (eval-after-load 'flycheck |
|
11 ;; '(add-hook 'flycheck-mode-hook #'flycheck-haskell-setup)) |
|
12 ;; (require 'flycheck-haskell) |
|
13 |
|
14 (require 'haskell) |
|
15 (require 'haskell-mode) |
|
16 (require 'haskell-process) |
|
17 (require 'haskell-flycheck) |
|
18 (require 'haskell-interactive-mode) |
|
19 |
|
20 (defun haskell-who-calls (&optional prompt) |
|
21 "Grep the codebase to see who uses the symbol at point." |
|
22 (interactive "P") |
|
23 (let ((sym (if prompt |
|
24 (read-from-minibuffer "Look for: ") |
|
25 (haskell-ident-at-point)))) |
|
26 (let ((existing (get-buffer "*who-calls*"))) |
|
27 (when existing |
|
28 (kill-buffer existing))) |
|
29 (let ((buffer |
|
30 (grep-find (format "cd %s && find . -name '*.hs' -exec grep -inH -e %s {} +" |
|
31 (haskell-session-current-dir (haskell-session)) |
|
32 sym)))) |
|
33 (with-current-buffer buffer |
|
34 (rename-buffer "*who-calls*") |
|
35 (switch-to-buffer-other-window buffer))))) |
|
36 |
|
37 (defun haskell-process-all-types () |
|
38 "List all types in a grep-mode buffer." |
|
39 (interactive) |
|
40 (let ((session (haskell-session))) |
|
41 (switch-to-buffer (get-buffer-create (format "*%s:all-types*" |
|
42 (haskell-session-name (haskell-session))))) |
|
43 (setq haskell-session session) |
|
44 (cd (haskell-session-current-dir session)) |
|
45 (let ((inhibit-read-only t)) |
|
46 (erase-buffer) |
|
47 (let ((haskell-process-log nil)) |
|
48 (insert (haskell-process-queue-sync-request (haskell-process) ":all-types"))) |
|
49 (unless (eq major-mode 'compilation-mode) |
|
50 (compilation-mode) |
|
51 (setq compilation-error-regexp-alist |
|
52 haskell-compilation-error-regexp-alist))))) |
|
53 |
|
54 ;;; haskell-mode |
|
55 (add-hook |
|
56 'haskell-mode-hook |
|
57 (lambda () |
|
58 (imenu-add-menubar-index) |
|
59 (flycheck-mode) |
|
60 (flycheck-disable-checker `haskell-ghc) |
|
61 (turn-on-hi2) |
|
62 (interactive-haskell-mode))) |
|
63 |
|
64 (custom-set-variables |
|
65 '(capitalized-words-mode t) |
|
66 '(haskell-stylish-on-save t) |
|
67 |
|
68 '(hi2-layout-offset 4) |
|
69 '(hi2-left-offset 4) |
|
70 |
|
71 '(haskell-process-type 'cabal-repl) |
|
72 '(haskell-process-args-cabal-repl '("--ghc-option=-ferror-spans" "--with-ghc=ghci-ng")) |
|
73 '(haskell-process-path-ghci "ghci-ng") |
|
74 '(haskell-process-args-ghci "-ferror-spans") |
|
75 '(haskell-process-suggest-remove-import-lines t) |
|
76 '(haskell-process-auto-import-loaded-modules t) |
|
77 '(haskell-process-log t) |
|
78 '(haskell-process-reload-with-fbytecode nil) |
|
79 '(haskell-process-use-presentation-mode t) |
|
80 '(haskell-process-suggest-haskell-docs-imports t) |
|
81 '(haskell-process-suggest-hoogle-imports t) |
|
82 '(haskell-process-generate-tags nil) |
|
83 '(haskell-process-show-debug-tips nil) |
|
84 |
|
85 '(haskell-notify-p t) |
|
86 '(haskell-align-imports-pad-after-name t) |
|
87 '(haskell-ask-also-kill-buffers t) |
|
88 '(haskell-import-mapping t) |
|
89 |
|
90 '(haskell-interactive-mode-eval-pretty t) |
|
91 '(haskell-interactive-mode-scroll-to-bottom t) |
|
92 '(haskell-interactive-mode-eval-mode 'haskell-mode)) |
|
93 |
|
94 ;; haskell-interactive-mode keybindings |
|
95 (define-key interactive-haskell-mode-map (kbd "C-c C-l") 'haskell-process-load-or-reload) |
|
96 (define-key interactive-haskell-mode-map (kbd "M-,") 'haskell-who-calls) |
|
97 (define-key interactive-haskell-mode-map (kbd "M-.") 'haskell-mode-goto-loc) |
|
98 (define-key interactive-haskell-mode-map (kbd "C-?") 'haskell-mode-find-uses) |
|
99 (define-key interactive-haskell-mode-map (kbd "C-`") 'haskell-interactive-bring) |
|
100 (define-key interactive-haskell-mode-map (kbd "C-c C-k") 'haskell-interactive-mode-clear) |
|
101 (define-key interactive-haskell-mode-map (kbd "C-c C-c") 'haskell-process-cabal-build) |
|
102 (define-key interactive-haskell-mode-map (kbd "C-c c") 'haskell-process-cabal) |
|
103 (define-key interactive-haskell-mode-map (kbd "C-c C-t") 'haskell-mode-show-type-at) |
|
104 |
|
105 (define-key haskell-interactive-mode-map (kbd "C-c C-i") 'haskell-process-do-info) |
|
106 (define-key haskell-interactive-mode-map (kbd "C-<left>") 'haskell-interactive-mode-error-backward) |
|
107 (define-key haskell-interactive-mode-map (kbd "C-<right>") 'haskell-interactive-mode-error-forward) |
|
108 (define-key haskell-interactive-mode-map (kbd "C-c c") 'haskell-process-cabal) |
|
109 |
|
110 (define-key haskell-mode-map (kbd "C-c C-l") 'haskell-process-load-or-reload) |
|
111 (define-key haskell-mode-map (kbd "C-`") 'haskell-interactive-bring) |
|
112 (define-key haskell-mode-map (kbd "C-c C-t") 'haskell-process-do-type) |
|
113 (define-key haskell-mode-map (kbd "C-c C-i") 'haskell-process-do-info) |
|
114 (define-key haskell-mode-map (kbd "C-c C-c") 'haskell-process-cabal-build) |
|
115 (define-key haskell-mode-map (kbd "C-c C-d") 'haskell-describe) |
|
116 (define-key haskell-mode-map (kbd "C-c C-k") 'haskell-interactive-mode-clear) |
|
117 (define-key haskell-mode-map (kbd "C-c c") 'haskell-process-cabal) |
|
118 (define-key haskell-mode-map (kbd "SPC") 'haskell-mode-contextual-space) |
|
119 |
|
120 (define-key haskell-cabal-mode-map (kbd "C-`") 'haskell-interactive-bring) |
|
121 (define-key haskell-cabal-mode-map (kbd "C-c C-k") 'haskell-interactive-mode-clear) |
|
122 (define-key haskell-cabal-mode-map (kbd "C-c C-c") 'haskell-process-cabal-build) |
|
123 (define-key haskell-cabal-mode-map (kbd "C-c c") 'haskell-process-cabal) |
|
124 |
|
125 (message "Loading haskell-init...done") |
|
126 (provide 'haskell-init) |
|
127 |
|
128 |
|
129 ;;;; Old haskell stuff |
|
130 ;; ;;; haskell-mode |
|
131 ;; (autoload 'ghc-init "ghc" nil t) |
|
132 ;; (add-hook |
|
133 ;; 'haskell-mode-hook |
|
134 ;; (lambda () |
|
135 ;; (ghc-init) |
|
136 ;; (capitalized-words-mode t) |
|
137 ;; (turn-on-hi2) |
|
138 ;; (imenu-add-menubar-index) |
|
139 ;; (interactive-haskell-mode) |
|
140 ;; (local-set-key (kbd "C-c i") 'haskell-navigate-imports) ; go to imports. prefix to return |
|
141 ;; (local-set-key (kbd "M-p") 'move-line-up) ; need to override default M-p function |
|
142 ;; (local-set-key (kbd "M-n") 'move-line-down) |
|
143 ;; (local-set-key (kbd "C-1") 'ghc-display-errors) |
|
144 ;; (local-set-key (kbd "C-.") 'ghc-goto-next-error) |
|
145 ;; (local-set-key (kbd "C-,") 'ghc-goto-prev-error) |
|
146 |
|
147 ;; (define-key haskell-mode-map (kbd "C-c C-l") 'haskell-process-load-or-reload) |
|
148 ;; (define-key haskell-mode-map (kbd "C-`") 'haskell-interactive-bring) |
|
149 ;; (define-key haskell-mode-map (kbd "C-c C-t") 'haskell-process-do-type) |
|
150 ;; (define-key haskell-mode-map (kbd "C-c C-i") 'haskell-process-do-info) |
|
151 ;; (define-key haskell-mode-map (kbd "C-c C-c") 'haskell-process-cabal-build) |
|
152 ;; (define-key haskell-mode-map (kbd "C-c C-k") 'haskell-interactive-mode-clear) |
|
153 ;; (define-key haskell-mode-map (kbd "C-c c") 'haskell-process-cabal) |
|
154 ;; (define-key haskell-mode-map (kbd "SPC") 'haskell-mode-contextual-space) |
|
155 |
|
156 ;; (setq |
|
157 ;; ghc-ghc-options '("-isrc") |
|
158 ;; haskell-program-name "cabal repl" |
|
159 ;; haskell-stylish-on-save t |
|
160 ;; hi2-layout-offset 4 |
|
161 ;; hi2-left-offset 4 |
|
162 ;; whitespace-line-column 78 |
|
163 ;; ;; haskell-process-type 'cabal-repl |
|
164 ;; haskell-process-suggest-remove-import-lines t |
|
165 ;; haskell-process-auto-import-loaded-modules t |
|
166 ;; haskell-process-log t |
|
167 ;; ))) |
|
168 |
|
169 ;; ;;; ghci-mode |
|
170 ;; (add-hook 'inferior-haskell-mode-hook 'turn-on-ghci-completion) |