;;; haskell.el --- summary

;; Author: Maciej Szlosarczyk
;; Maintainer: Maciej Szlosarczyk
;; Version: 0.1-snapshot

;;; Commentary:

;;; Provides configuration for haskell files

;;; Code:

(require '+custom-pkg-prog-mode "$HOME/.emacs.d/pkg/prog-mode.el")
(require '+custom-pkg-flycheck "$HOME/.emacs.d/pkg/flycheck.el")
(require '+custom-pkg-hydra "$HOME/.emacs.d/pkg/hydra.el")

(use-package haskell-mode
  :straight t
  :defer t)

(use-package lsp-haskell
  :straight t
  :defer t
  :requires (lsp-mode lsp-ui haskell-mode)
  :config
  (setq lsp-haskell-process-path-hie "haskell-language-server-wrapper"))

(defhydra my-haskell/context-hydra (:color teal :hint nil)
  "
^
^ LSP       ^^Buffer
^────────────────────────────────────────────────────────────────────────────────
^ _m_: iMenu _r_: Reload
^ ^ ^        _f_: Format
^ ^ ^        _i_: Indent
^ ^ ^        _e_: Show Errors
^
"
  ("q" nil "cancel" :color blue)

  ("r" revert-buffer-no-confirm)
  ("i" indent-region)
  ("f" lsp-format-buffer)
  ("e" flycheck-list-errors)
  ("m" lsp-ui-imenu))

(defun activate-haskell-mode ()
  "Run this in haskell-mode."
  (set-indent 2)
  (column-enforce-n 80)
  (lsp)
  (define-key haskell-mode-map (kbd "C-c l") 'my-haskell/context-hydra/body)

  ;; Company list override
  (add-to-list (make-local-variable 'company-backends)
               '(company-capf company-yasnippet)))

(add-hook 'haskell-mode-hook 'activate-haskell-mode)

(provide '+custom-lang-haskell)
;;; haskell.el ends here