2017-06-08 11:47:56 +02:00
|
|
|
;;; lang/haskell/config.el -*- lexical-binding: t; -*-
|
2016-03-29 01:06:37 -04:00
|
|
|
|
2017-10-03 00:52:16 +02:00
|
|
|
(cond ((featurep! +intero) (load! +intero))
|
|
|
|
|
((featurep! +dante) (load! +dante)))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;;
|
|
|
|
|
;; Common plugins
|
|
|
|
|
;;
|
|
|
|
|
|
2017-03-16 17:22:13 -04:00
|
|
|
(def-package! haskell-mode
|
2017-05-25 20:09:36 +02:00
|
|
|
:mode "\\.hs$"
|
|
|
|
|
:mode ("\\.ghci$" . ghci-script-mode)
|
|
|
|
|
:mode ("\\.cabal$" . haskell-cabal-mode)
|
2016-04-10 18:50:45 -04:00
|
|
|
:interpreter (("runghc" . haskell-mode)
|
|
|
|
|
("runhaskell" . haskell-mode))
|
2016-03-31 13:17:42 -04:00
|
|
|
:config
|
2017-03-16 17:22:13 -04:00
|
|
|
(load "haskell-mode-autoloads" nil t)
|
|
|
|
|
|
2017-04-17 02:17:10 -04:00
|
|
|
(set! :repl 'haskell-mode #'switch-to-haskell)
|
2017-03-16 17:22:13 -04:00
|
|
|
(push ".hi" completion-ignored-extensions)
|
2016-03-29 18:11:56 -04:00
|
|
|
|
2017-03-16 17:22:13 -04:00
|
|
|
(autoload 'switch-to-haskell "inf-haskell" nil t)
|
|
|
|
|
(after! inf-haskell
|
2017-09-09 11:31:49 -07:00
|
|
|
(map! :map inferior-haskell-mode-map "ESC ESC" #'doom/popup-close)))
|
2017-02-19 18:57:16 -05:00
|
|
|
|
2017-03-16 17:22:13 -04:00
|
|
|
|
2017-05-25 20:09:36 +02:00
|
|
|
(def-package! company-ghc
|
|
|
|
|
:when (featurep! :completion company)
|
|
|
|
|
:after haskell-mode
|
2017-08-08 19:14:58 +02:00
|
|
|
:init
|
|
|
|
|
(add-hook 'haskell-mode-hook #'ghc-comp-init)
|
2017-05-25 20:09:36 +02:00
|
|
|
:config
|
|
|
|
|
(if (executable-find "ghc-mod")
|
2017-08-08 19:14:58 +02:00
|
|
|
(set! :company-backend 'haskell-mode #'company-ghc)
|
|
|
|
|
(warn "haskell-mode: couldn't find ghc-mode")
|
|
|
|
|
(remove-hook 'haskell-mode-hook #'ghc-comp-init))
|
|
|
|
|
|
|
|
|
|
(setq company-ghc-show-info 'oneline))
|
|
|
|
|
|
