blob: 0816f1fa687b430a74de0ce8cc0090a683ec0dfc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
|
;; ~/.emacs.d/elisp/haskell-init.el
;; Luke Hoersten <[email protected]>
;; Require packages
(require 'package-require)
(package-require '(haskell-mode yasnippet haskell-snippets flycheck shm))
(add-to-list 'load-path "~/.emacs.d/elisp/stack-mode")
;; Load haskell-mode from source
;; (add-to-list 'load-path "~/Code/elisp/haskell-mode/")
;; (require 'haskell-mode-autoloads)
(require 'haskell)
(require 'haskell-mode)
(require 'stack-mode)
(require 'haskell-interactive-mode)
(require 'haskell-snippets)
(require 'shm)
(defun haskell-who-calls (&optional prompt)
"Grep the codebase to see who uses the symbol at point."
(interactive "P")
(let ((sym (if prompt
(read-from-minibuffer "Look for: ")
(haskell-ident-at-point))))
(let ((existing (get-buffer "*who-calls*")))
(when existing
(kill-buffer existing)))
(let ((buffer
(grep-find (format "cd %s && find . -name '*.hs' -exec grep -inH -e %s {} +"
(haskell-session-current-dir (haskell-session))
sym))))
(with-current-buffer buffer
(rename-buffer "*who-calls*")
(switch-to-buffer-other-window buffer)))))
;;; haskell-mode
(add-hook
'haskell-mode-hook
(lambda ()
;; (imenu-add-menubar-index)
(flycheck-mode)
;; (haskell-indentation-mode t)
(stack-mode)
(subword-mode)
(electric-indent-mode 0)
(structured-haskell-mode t)
(set-face-background 'shm-quarantine-face "lemonchiffon")
(interactive-haskell-mode t)))
(custom-set-variables
'(capitalized-words-mode t)
'(haskell-stylish-on-save t)
'(haskell-indentation-layout-offset 4)
'(haskell-indentation-left-offset 4)
'(haskell-notify-p t)
'(haskell-align-imports-pad-after-name t)
'(haskell-ask-also-kill-buffers nil)
'(haskell-import-mapping t)
'(shm-use-presentation-mode t)
'(shm-auto-insert-skeletons t)
'(shm-auto-insert-bangs t)
'(haskell-interactive-mode-eval-pretty t)
'(haskell-interactive-mode-scroll-to-bottom t)
'(haskell-interactive-mode-eval-mode 'haskell-mode)
'(haskell-interactive-popup-errors nil)
'(haskell-process-type 'stack-ghci)
'(haskell-process-auto-import-loaded-modules t)
'(haskell-process-log t))
;; keys
(define-key haskell-mode-map (kbd "M-,") 'haskell-who-calls)
(define-key haskell-mode-map (kbd "C-c i") 'haskell-navigate-imports)
(define-key haskell-mode-map (kbd "C-c C-d") 'haskell-describe)
(define-key haskell-mode-map (kbd "C-c C-c") 'haskell-process-load-or-reload)
(define-key haskell-mode-map (kbd "C-`") 'haskell-interactive-bring)
(define-key haskell-cabal-mode-map (kbd "C-`") 'haskell-interactive-bring)
(define-key haskell-interactive-mode-map (kbd "C-c C-i") 'haskell-process-do-info)
(define-key haskell-interactive-mode-map (kbd "C-c C-t") 'haskell-process-do-type)
;; keys shm
(define-key shm-map (kbd "C-c C-p") 'shm/expand-pattern)
(define-key shm-map (kbd "C-c C-s") 'shm/case-split)
(define-key shm-map (kbd "C-\\") 'shm/goto-last-point)
(message "Loading haskell-init...done")
(provide 'haskell-init)
|
