blob: 07aaede6c5b542c488cbd3b511b8c7385db38b3a (
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
|
;; Time-stamp: <2019-02-02 18:55:41 (tslil@winslow)>
;; -----------------------------------------------------------------------------
;; Haskell
(use-package ghc :ensure t :defer t)
(use-package company-ghc :ensure t :defer t)
(use-package company-ghci :ensure t :defer t)
(use-package shm :ensure t
:functions structured-haskell-mode
:bind (:map shm-map
("C-c C-s" . shm/case-split)))
(use-package haskell-mode
:ensure t
:after (company-ghc company-ghci shm)
:bind (:map haskell-mode-map
("[f8]". haskell-navigate-imports)
("C-c C-c" . haskell-compile)
("C-c C-z" . haskell-interactive-switch)
("C-c C-l" . haskell-process-load-file)
("C-c C-b" . haskell-interactive-switch)
("C-c C-t" . haskell-process-do-type)
("C-c C-i" . haskell-process-do-info)
("C-x C-d" . nil)
("C-c M-." . nil)
("C-c C-d" . nil))
:hook ((haskell-interactive-mode . visual-line-mode)
(haskell-mode . (lambda ()
(subword-mode 1)
(aggressive-indent-mode -1)
(require 'shm)
(require 'shm-case-split)
(require 'ghc)
(ghc-init)
(structured-haskell-mode)
;; (haskell-indentation-mode)
(interactive-haskell-mode)
(turn-on-haskell-doc-mode)
(turn-on-haskell-decl-scan)
(add-to-list 'company-backends 'company-ghc)
(add-to-list 'company-backends 'company-ghci)
;; (turn-on-haskell-unicode-input-method)
;; (haskell-mode-stylish-buffer)
)))
:config
(setq haskell-doc-show-global-types t
haskell-doc-show-prelude t
haskell-doc-show-user-defined t
haskell-doc-show-reserved t
haskell-interactive-mode-eval-pretty t
haskell-process-type 'cabal-repl
company-ghc-show-info t
company-ghc-autoscan t
company-ghc-show-module t
haskell-stylish-on-save t
haskell-process-use-presentation-mode t
haskell-process-suggest-imports t
haskell-process-suggest-hoogle-imports t
haskell-process-show-debug-tips nil))
|
