| author | Luke Hoersten <luke@hoersten.org> |
| Wed, 16 Sep 2015 16:53:07 -0500 | |
| changeset 80 | e848f1863d6b |
| parent 78 | 7d7662fcc8d1 |
| child 81 | 4da7819d1a1c |
| permissions | -rw-r--r-- |
|
71
b5976ed7311a
Big updates to haskell-mode stuff.
Luke Hoersten <Luke@Hoersten.org>
parents:
diff
changeset
|
1 |
;; ~/.emacs.d/elisp/haskell-init.el |
|
b5976ed7311a
Big updates to haskell-mode stuff.
Luke Hoersten <Luke@Hoersten.org>
parents:
diff
changeset
|
2 |
;; Luke Hoersten <[email protected]> |
|
b5976ed7311a
Big updates to haskell-mode stuff.
Luke Hoersten <Luke@Hoersten.org>
parents:
diff
changeset
|
3 |
|
|
b5976ed7311a
Big updates to haskell-mode stuff.
Luke Hoersten <Luke@Hoersten.org>
parents:
diff
changeset
|
4 |
;; Require packages |
|
b5976ed7311a
Big updates to haskell-mode stuff.
Luke Hoersten <Luke@Hoersten.org>
parents:
diff
changeset
|
5 |
(require 'package-require) |
|
78
7d7662fcc8d1
Started using shm and paredit.
Luke Hoersten <Luke@Hoersten.org>
parents:
77
diff
changeset
|
6 |
(package-require '(haskell-mode yasnippet haskell-snippets flycheck flycheck-haskell shm)) |
|
73
8167de2d2daa
Lots of random changes. Stopped using Chris Done's haskell-flycheck.
Luke Hoersten <Luke@Hoersten.org>
parents:
72
diff
changeset
|
7 |
|
| 80 | 8 |
(add-to-list 'load-path "~/.emacs.d/elisp/stack-mode") |
9 |
||
|
73
8167de2d2daa
Lots of random changes. Stopped using Chris Done's haskell-flycheck.
Luke Hoersten <Luke@Hoersten.org>
parents:
72
diff
changeset
|
10 |
;; Load haskell-mode from source |
|
8167de2d2daa
Lots of random changes. Stopped using Chris Done's haskell-flycheck.
Luke Hoersten <Luke@Hoersten.org>
parents:
72
diff
changeset
|
11 |
;; (add-to-list 'load-path "~/Code/elisp/haskell-mode/") |
|
8167de2d2daa
Lots of random changes. Stopped using Chris Done's haskell-flycheck.
Luke Hoersten <Luke@Hoersten.org>
parents:
72
diff
changeset
|
12 |
;; (require 'haskell-mode-autoloads) |
|
71
b5976ed7311a
Big updates to haskell-mode stuff.
Luke Hoersten <Luke@Hoersten.org>
parents:
diff
changeset
|
13 |
|
|
b5976ed7311a
Big updates to haskell-mode stuff.
Luke Hoersten <Luke@Hoersten.org>
parents:
diff
changeset
|
14 |
(require 'haskell) |
|
b5976ed7311a
Big updates to haskell-mode stuff.
Luke Hoersten <Luke@Hoersten.org>
parents:
diff
changeset
|
15 |
(require 'haskell-mode) |
| 80 | 16 |
(require 'stack-mode) |
|
71
b5976ed7311a
Big updates to haskell-mode stuff.
Luke Hoersten <Luke@Hoersten.org>
parents:
diff
changeset
|
17 |
(require 'haskell-interactive-mode) |
|
73
8167de2d2daa
Lots of random changes. Stopped using Chris Done's haskell-flycheck.
Luke Hoersten <Luke@Hoersten.org>
parents:
72
diff
changeset
|
18 |
(require 'haskell-snippets) |
|
78
7d7662fcc8d1
Started using shm and paredit.
Luke Hoersten <Luke@Hoersten.org>
parents:
77
diff
changeset
|
19 |
(require 'shm) |
|
71
b5976ed7311a
Big updates to haskell-mode stuff.
Luke Hoersten <Luke@Hoersten.org>
parents:
diff
changeset
|
20 |
|
|
b5976ed7311a
Big updates to haskell-mode stuff.
Luke Hoersten <Luke@Hoersten.org>
parents:
diff
changeset
|
21 |
(defun haskell-who-calls (&optional prompt) |
|
b5976ed7311a
Big updates to haskell-mode stuff.
Luke Hoersten <Luke@Hoersten.org>
parents:
diff
changeset
|
22 |
"Grep the codebase to see who uses the symbol at point." |
|
b5976ed7311a
Big updates to haskell-mode stuff.
Luke Hoersten <Luke@Hoersten.org>
parents:
diff
changeset
|
23 |
(interactive "P") |
|
b5976ed7311a
Big updates to haskell-mode stuff.
Luke Hoersten <Luke@Hoersten.org>
parents:
diff
changeset
|
24 |
(let ((sym (if prompt |
|
b5976ed7311a
Big updates to haskell-mode stuff.
Luke Hoersten <Luke@Hoersten.org>
parents:
diff
changeset
|
25 |
(read-from-minibuffer "Look for: ") |
|
b5976ed7311a
Big updates to haskell-mode stuff.
Luke Hoersten <Luke@Hoersten.org>
parents:
diff
changeset
|
26 |
(haskell-ident-at-point)))) |
|
b5976ed7311a
Big updates to haskell-mode stuff.
Luke Hoersten <Luke@Hoersten.org>
parents:
diff
changeset
|
27 |
(let ((existing (get-buffer "*who-calls*"))) |
|
b5976ed7311a
Big updates to haskell-mode stuff.
Luke Hoersten <Luke@Hoersten.org>
parents:
diff
changeset
|
28 |
(when existing |
|
b5976ed7311a
Big updates to haskell-mode stuff.
Luke Hoersten <Luke@Hoersten.org>
parents:
diff
changeset
|
29 |
(kill-buffer existing))) |
|
b5976ed7311a
Big updates to haskell-mode stuff.
Luke Hoersten <Luke@Hoersten.org>
parents:
diff
changeset
|
30 |
(let ((buffer |
|
b5976ed7311a
Big updates to haskell-mode stuff.
Luke Hoersten <Luke@Hoersten.org>
parents:
diff
changeset
|
31 |
(grep-find (format "cd %s && find . -name '*.hs' -exec grep -inH -e %s {} +" |
|
b5976ed7311a
Big updates to haskell-mode stuff.
Luke Hoersten <Luke@Hoersten.org>
parents:
diff
changeset
|
32 |
(haskell-session-current-dir (haskell-session)) |
|
b5976ed7311a
Big updates to haskell-mode stuff.
Luke Hoersten <Luke@Hoersten.org>
parents:
diff
changeset
|
33 |
sym)))) |
|
b5976ed7311a
Big updates to haskell-mode stuff.
Luke Hoersten <Luke@Hoersten.org>
parents:
diff
changeset
|
34 |
(with-current-buffer buffer |
|
b5976ed7311a
Big updates to haskell-mode stuff.
Luke Hoersten <Luke@Hoersten.org>
parents:
diff
changeset
|
35 |
(rename-buffer "*who-calls*") |
|
b5976ed7311a
Big updates to haskell-mode stuff.
Luke Hoersten <Luke@Hoersten.org>
parents:
diff
changeset
|
36 |
(switch-to-buffer-other-window buffer))))) |
|
b5976ed7311a
Big updates to haskell-mode stuff.
Luke Hoersten <Luke@Hoersten.org>
parents:
diff
changeset
|
37 |
|
|
b5976ed7311a
Big updates to haskell-mode stuff.
Luke Hoersten <Luke@Hoersten.org>
parents:
diff
changeset
|
38 |
;;; haskell-mode |
|
b5976ed7311a
Big updates to haskell-mode stuff.
Luke Hoersten <Luke@Hoersten.org>
parents:
diff
changeset
|
39 |
(add-hook |
|
b5976ed7311a
Big updates to haskell-mode stuff.
Luke Hoersten <Luke@Hoersten.org>
parents:
diff
changeset
|
40 |
'haskell-mode-hook |
|
b5976ed7311a
Big updates to haskell-mode stuff.
Luke Hoersten <Luke@Hoersten.org>
parents:
diff
changeset
|
41 |
(lambda () |
|
78
7d7662fcc8d1
Started using shm and paredit.
Luke Hoersten <Luke@Hoersten.org>
parents:
77
diff
changeset
|
42 |
;; (imenu-add-menubar-index) |
|
71
b5976ed7311a
Big updates to haskell-mode stuff.
Luke Hoersten <Luke@Hoersten.org>
parents:
diff
changeset
|
43 |
(flycheck-mode) |
|
73
8167de2d2daa
Lots of random changes. Stopped using Chris Done's haskell-flycheck.
Luke Hoersten <Luke@Hoersten.org>
parents:
72
diff
changeset
|
44 |
(flycheck-haskell-setup) |
| 80 | 45 |
(flycheck-disable-checker 'haskell-ghc) |
|
78
7d7662fcc8d1
Started using shm and paredit.
Luke Hoersten <Luke@Hoersten.org>
parents:
77
diff
changeset
|
46 |
;; (haskell-indentation-mode t) |
| 80 | 47 |
(stack-mode) |
| 72 | 48 |
(subword-mode) |
|
78
7d7662fcc8d1
Started using shm and paredit.
Luke Hoersten <Luke@Hoersten.org>
parents:
77
diff
changeset
|
49 |
(electric-indent-mode 0) |
|
7d7662fcc8d1
Started using shm and paredit.
Luke Hoersten <Luke@Hoersten.org>
parents:
77
diff
changeset
|
50 |
(structured-haskell-mode t) |
|
7d7662fcc8d1
Started using shm and paredit.
Luke Hoersten <Luke@Hoersten.org>
parents:
77
diff
changeset
|
51 |
(set-face-background 'shm-quarantine-face "lemonchiffon") |
| 72 | 52 |
(interactive-haskell-mode t))) |
|
71
b5976ed7311a
Big updates to haskell-mode stuff.
Luke Hoersten <Luke@Hoersten.org>
parents:
diff
changeset
|
53 |
|
|
b5976ed7311a
Big updates to haskell-mode stuff.
Luke Hoersten <Luke@Hoersten.org>
parents:
diff
changeset
|
54 |
(custom-set-variables |
|
b5976ed7311a
Big updates to haskell-mode stuff.
Luke Hoersten <Luke@Hoersten.org>
parents:
diff
changeset
|
55 |
'(capitalized-words-mode t) |
|
b5976ed7311a
Big updates to haskell-mode stuff.
Luke Hoersten <Luke@Hoersten.org>
parents:
diff
changeset
|
56 |
'(haskell-stylish-on-save t) |
|
b5976ed7311a
Big updates to haskell-mode stuff.
Luke Hoersten <Luke@Hoersten.org>
parents:
diff
changeset
|
57 |
|
| 72 | 58 |
'(haskell-indentation-layout-offset 4) |
59 |
'(haskell-indentation-left-offset 4) |
|
|
71
b5976ed7311a
Big updates to haskell-mode stuff.
Luke Hoersten <Luke@Hoersten.org>
parents:
diff
changeset
|
60 |
|
| 80 | 61 |
'(haskell-interactive-mode-eval-pretty t) |
62 |
'(haskell-interactive-mode-scroll-to-bottom t) |
|
63 |
'(haskell-interactive-mode-eval-mode 'haskell-mode) |
|
|
71
b5976ed7311a
Big updates to haskell-mode stuff.
Luke Hoersten <Luke@Hoersten.org>
parents:
diff
changeset
|
64 |
|
|
b5976ed7311a
Big updates to haskell-mode stuff.
Luke Hoersten <Luke@Hoersten.org>
parents:
diff
changeset
|
65 |
'(haskell-notify-p t) |
|
b5976ed7311a
Big updates to haskell-mode stuff.
Luke Hoersten <Luke@Hoersten.org>
parents:
diff
changeset
|
66 |
'(haskell-align-imports-pad-after-name t) |
| 72 | 67 |
'(haskell-ask-also-kill-buffers nil) |
|
71
b5976ed7311a
Big updates to haskell-mode stuff.
Luke Hoersten <Luke@Hoersten.org>
parents:
diff
changeset
|
68 |
'(haskell-import-mapping t) |
|
b5976ed7311a
Big updates to haskell-mode stuff.
Luke Hoersten <Luke@Hoersten.org>
parents:
diff
changeset
|
69 |
|
| 80 | 70 |
'(shm-use-presentation-mode t) |
71 |
'(shm-auto-insert-skeletons t) |
|
72 |
'(shm-auto-insert-bangs t)) |
|
73 |
||
|
71
b5976ed7311a
Big updates to haskell-mode stuff.
Luke Hoersten <Luke@Hoersten.org>
parents:
diff
changeset
|
74 |
|
| 80 | 75 |
;; ;; '(haskell-process-type 'cabal-repl) |
76 |
;; ;; ;; '(haskell-process-args-cabal-repl '("--ghc-option=-ferror-spans" "--with-ghc=ghci-ng")) ;; ghci-ng |
|
77 |
;; ;; ;; '(haskell-process-path-ghci "ghci-ng") ;; ghci-ng |
|
78 |
;; ;; '(haskell-process-args-ghci "-ferror-spans") |
|
79 |
;; ;; '(haskell-process-suggest-remove-import-lines t) |
|
80 |
;; ;; '(haskell-process-auto-import-loaded-modules t) |
|
81 |
;; ;; '(haskell-process-log t) |
|
82 |
;; ;; '(haskell-process-reload-with-fbytecode nil) |
|
83 |
;; ;; '(haskell-process-use-presentation-mode t) |
|
84 |
;; ;; '(haskell-process-suggest-haskell-docs-imports t) |
|
85 |
;; ;; '(haskell-process-suggest-hoogle-imports t) |
|
86 |
;; ;; '(haskell-process-generate-tags nil) |
|
87 |
;; ;; '(haskell-process-show-debug-tips nil) |
|
88 |
||
89 |
||
|
71
b5976ed7311a
Big updates to haskell-mode stuff.
Luke Hoersten <Luke@Hoersten.org>
parents:
diff
changeset
|
90 |
|
| 80 | 91 |
;; ;; haskell-interactive-mode keybindings |
92 |
;; (define-key interactive-haskell-mode-map (kbd "C-c C-l") 'haskell-process-load-or-reload) |
|
93 |
;; (define-key interactive-haskell-mode-map (kbd "M-,") 'haskell-who-calls) |
|
94 |
;; (define-key interactive-haskell-mode-map (kbd "M-.") 'haskell-mode-goto-loc) |
|
95 |
;; (define-key interactive-haskell-mode-map (kbd "C-?") 'haskell-mode-find-uses) |
|
96 |
;; (define-key interactive-haskell-mode-map (kbd "C-c C-c") 'haskell-process-cabal-build) |
|
97 |
;; (define-key interactive-haskell-mode-map (kbd "C-c C-t") 'haskell-mode-show-type-at) |
|
98 |
;; (define-key interactive-haskell-mode-map (kbd "C-`") 'haskell-interactive-bring) |
|
99 |
;; (define-key interactive-haskell-mode-map (kbd "C-c C-k") 'haskell-process-clear) |
|
100 |
;; (define-key interactive-haskell-mode-map (kbd "C-c c") 'haskell-process-cabal) |
|
101 |
||
102 |
;; (define-key haskell-interactive-mode-map (kbd "C-c C-i") 'haskell-process-do-info) |
|
103 |
;; (define-key haskell-interactive-mode-map (kbd "C-<left>") 'haskell-interactive-mode-error-backward) |
|
104 |
;; (define-key haskell-interactive-mode-map (kbd "C-<right>") 'haskell-interactive-mode-error-forward) |
|
105 |
;; (define-key haskell-interactive-mode-map (kbd "C-c c") 'haskell-process-cabal) |
|
|
71
b5976ed7311a
Big updates to haskell-mode stuff.
Luke Hoersten <Luke@Hoersten.org>
parents:
diff
changeset
|
106 |
|
| 80 | 107 |
;; ;; haskell-mode |
108 |
;; (define-key haskell-mode-map (kbd "C-c C-l") 'haskell-process-load-or-reload) |
|
109 |
;; (define-key haskell-mode-map (kbd "C-`") 'haskell-interactive-bring) |
|
110 |
;; (define-key haskell-mode-map (kbd "C-c C-t") 'haskell-process-do-type) |
|
111 |
;; (define-key haskell-mode-map (kbd "C-c i") 'haskell-navigate-imports) |
|
112 |
;; (define-key haskell-mode-map (kbd "C-c C-i") 'haskell-process-do-info) |
|
113 |
;; (define-key haskell-mode-map (kbd "C-c C-c") 'haskell-process-cabal-build) |
|
114 |
;; (define-key haskell-mode-map (kbd "C-c C-d") 'haskell-describe) |
|
115 |
;; (define-key haskell-mode-map (kbd "C-c C-k") 'haskell-process-clear) |
|
116 |
;; (define-key haskell-mode-map (kbd "C-c c") 'haskell-process-cabal) |
|
117 |
;; (define-key haskell-mode-map (kbd "SPC") 'haskell-mode-contextual-space) |
|
|
71
b5976ed7311a
Big updates to haskell-mode stuff.
Luke Hoersten <Luke@Hoersten.org>
parents:
diff
changeset
|
118 |
|
| 80 | 119 |
;; ;; cabal |
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-process-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) |
|
|
71
b5976ed7311a
Big updates to haskell-mode stuff.
Luke Hoersten <Luke@Hoersten.org>
parents:
diff
changeset
|
124 |
|
|
78
7d7662fcc8d1
Started using shm and paredit.
Luke Hoersten <Luke@Hoersten.org>
parents:
77
diff
changeset
|
125 |
;; shm |
|
7d7662fcc8d1
Started using shm and paredit.
Luke Hoersten <Luke@Hoersten.org>
parents:
77
diff
changeset
|
126 |
(define-key shm-map (kbd "C-c C-p") 'shm/expand-pattern) |
|
7d7662fcc8d1
Started using shm and paredit.
Luke Hoersten <Luke@Hoersten.org>
parents:
77
diff
changeset
|
127 |
(define-key shm-map (kbd "C-c C-s") 'shm/case-split) |
|
7d7662fcc8d1
Started using shm and paredit.
Luke Hoersten <Luke@Hoersten.org>
parents:
77
diff
changeset
|
128 |
(define-key shm-map (kbd "C-\\") 'shm/goto-last-point) |
|
7d7662fcc8d1
Started using shm and paredit.
Luke Hoersten <Luke@Hoersten.org>
parents:
77
diff
changeset
|
129 |
|
|
71
b5976ed7311a
Big updates to haskell-mode stuff.
Luke Hoersten <Luke@Hoersten.org>
parents:
diff
changeset
|
130 |
(message "Loading haskell-init...done") |
|
b5976ed7311a
Big updates to haskell-mode stuff.
Luke Hoersten <Luke@Hoersten.org>
parents:
diff
changeset
|
131 |
(provide 'haskell-init) |