mirror of
https://github.com/doomemacs/doomemacs
synced 2025-08-03 12:27:26 -05:00
lang/haskell: minor refactor & reformatting
This commit is contained in:
@ -4,21 +4,23 @@
|
|||||||
((featurep! +dante) (load! "+dante"))
|
((featurep! +dante) (load! "+dante"))
|
||||||
((featurep! +lsp) (load! "+lsp")))
|
((featurep! +lsp) (load! "+lsp")))
|
||||||
|
|
||||||
|
|
||||||
;;
|
;;
|
||||||
;; Common packages
|
;; Common packages
|
||||||
|
|
||||||
(after! haskell-mode
|
(after! haskell-mode
|
||||||
(setq haskell-process-suggest-remove-import-lines t ; warnings for redundant imports etc
|
(setq haskell-process-suggest-remove-import-lines t ; warnings for redundant imports etc
|
||||||
haskell-process-auto-import-loaded-modules t)
|
haskell-process-auto-import-loaded-modules t
|
||||||
(when (featurep! :tools flycheck)
|
haskell-process-show-overlays (not (featurep! :tools flycheck))) ; redundant with flycheck
|
||||||
(setq haskell-process-show-overlays nil)) ; flycheck makes this unnecessary
|
|
||||||
(add-hook! 'haskell-mode-hook
|
|
||||||
#'(haskell-collapse-mode ; support folding haskell code blocks
|
|
||||||
interactive-haskell-mode))
|
|
||||||
(set-lookup-handlers! 'haskell-mode :definition #'haskell-mode-jump-to-def-or-tag)
|
(set-lookup-handlers! 'haskell-mode :definition #'haskell-mode-jump-to-def-or-tag)
|
||||||
(set-file-template! 'haskell-mode :trigger #'haskell-auto-insert-module-template :project t)
|
(set-file-template! 'haskell-mode :trigger #'haskell-auto-insert-module-template :project t)
|
||||||
(set-repl-handler! '(haskell-mode haskell-cabal-mode literate-haskell-mode) #'+haskell/open-repl)
|
(set-repl-handler! '(haskell-mode haskell-cabal-mode literate-haskell-mode) #'+haskell/open-repl)
|
||||||
|
|
||||||
|
(add-hook! 'haskell-mode-hook
|
||||||
|
#'(haskell-collapse-mode ; support folding haskell code blocks
|
||||||
|
interactive-haskell-mode))
|
||||||
|
|
||||||
(add-to-list 'completion-ignored-extensions ".hi")
|
(add-to-list 'completion-ignored-extensions ".hi")
|
||||||
|
|
||||||
(map! :localleader
|
(map! :localleader
|
||||||
|
Reference in New Issue
Block a user