mirror of
https://github.com/doomemacs/doomemacs
synced 2025-08-03 12:27:26 -05:00
lang/haskell: fix ESC ESC keybind in REPL; move company-ghc to +dante
This commit is contained in:
@ -11,3 +11,15 @@
|
|||||||
(add-hook 'haskell-mode-hook #'interactive-haskell-mode)
|
(add-hook 'haskell-mode-hook #'interactive-haskell-mode)
|
||||||
(add-hook 'dante-mode-hook #'flycheck-mode))
|
(add-hook 'dante-mode-hook #'flycheck-mode))
|
||||||
|
|
||||||
|
|
||||||
|
(def-package! company-ghc
|
||||||
|
:when (featurep! :completion company)
|
||||||
|
:after haskell-mode
|
||||||
|
:init
|
||||||
|
(add-hook 'haskell-mode-hook #'ghc-comp-init)
|
||||||
|
:config
|
||||||
|
(unless (executable-find "ghc-mod")
|
||||||
|
(warn! "Couldn't find ghc-mod on PATH. Code completion is disabled."))
|
||||||
|
|
||||||
|
(setq company-ghc-show-info 'oneline)
|
||||||
|
(set! :company-backend 'haskell-mode #'company-ghc))
|
||||||
|
@ -20,18 +20,5 @@
|
|||||||
|
|
||||||
(autoload 'switch-to-haskell "inf-haskell" nil t)
|
(autoload 'switch-to-haskell "inf-haskell" nil t)
|
||||||
(after! inf-haskell
|
(after! inf-haskell
|
||||||
(map! :map inferior-haskell-mode-map "ESC ESC" #'doom/popup-close)))
|
(map! :map inferior-haskell-mode-map "ESC ESC" #'+popup/close)))
|
||||||
|
|
||||||
|
|
||||||
(def-package! company-ghc
|
|
||||||
:when (featurep! :completion company)
|
|
||||||
:after haskell-mode
|
|
||||||
:init
|
|
||||||
(add-hook 'haskell-mode-hook #'ghc-comp-init)
|
|
||||||
:config
|
|
||||||
(unless (executable-find "ghc-mod")
|
|
||||||
(warn! "Couldn't find ghc-mod on PATH. Code completion is disabled."))
|
|
||||||
|
|
||||||
(setq company-ghc-show-info 'oneline)
|
|
||||||
(set! :company-backend 'haskell-mode #'company-ghc))
|
|
||||||
|
|
||||||
|
@ -2,12 +2,12 @@
|
|||||||
;;; lang/haskell/packages.el
|
;;; lang/haskell/packages.el
|
||||||
|
|
||||||
(package! haskell-mode)
|
(package! haskell-mode)
|
||||||
(when (featurep! :completion company)
|
|
||||||
(package! company-ghc))
|
|
||||||
|
|
||||||
;;
|
;;
|
||||||
(cond ((featurep! +dante)
|
(cond ((featurep! +dante)
|
||||||
(package! dante))
|
(package! dante)
|
||||||
|
(when (featurep! :completion company)
|
||||||
|
(package! company-ghc)))
|
||||||
(t
|
(t
|
||||||
(package! intero)
|
(package! intero)
|
||||||
(package! hindent)))
|
(package! hindent)))
|
||||||
|
Reference in New Issue
Block a user