;;; funcs.el --- Haskell Layer funcs File for Spacemacs
;;
;; Copyright (c) 2012-2018 Sylvain Benner & Contributors
;;
;; Author: Sylvain Benner <sylvain.benner@gmail.com>
;; URL: https://github.com/syl20bnr/spacemacs
;;
;; This file is not part of GNU Emacs.
;;
;;; License: GPLv3

(defun spacemacs-haskell//disable-electric-indent ()
  "Disable electric indent mode if available"
  ;; use only internal indentation system from haskell
  (if (fboundp 'electric-indent-local-mode)
      (electric-indent-local-mode -1)))

(defun spacemacs/haskell-format-imports ()
  "Sort and align import statements from anywhere in the source file."
  (interactive)
  (save-excursion
    (haskell-navigate-imports)
    (haskell-mode-format-imports)))


;; Completion setup functions

(defun spacemacs-haskell//setup-backend ()
  "Conditionally setup haskell backend."
  (pcase haskell-completion-backend
    (`ghci (spacemacs-haskell//setup-ghci))
    (`intero (spacemacs-haskell//setup-intero))
    (`dante (spacemacs-haskell//setup-dante))
    (`ghc-mod (spacemacs-haskell//setup-ghc-mod))))

(defun spacemacs-haskell//setup-company ()
  "Conditionally setup haskell backend."
  (pcase haskell-completion-backend
    (`ghci (spacemacs-haskell//setup-ghci-company))
    (`intero (spacemacs-haskell//setup-intero-company))
    (`dante (spacemacs-haskell//setup-dante-company))
    (`ghc-mod (spacemacs-haskell//setup-ghc-mod-company))))


;; ghci functions

(defun spacemacs-haskell//setup-ghci ()
  (interactive-haskell-mode))

(defun spacemacs-haskell//setup-ghci-company ()
  (spacemacs|add-company-backends
    :backends (company-ghci company-dabbrev-code company-yasnippet)
    :modes haskell-mode))


;; ghc-mod functions

(defun spacemacs-haskell//setup-ghc-mod ()
  (ghc-init))

(defun spacemacs-haskell//setup-ghc-mod-company ()
  (spacemacs|add-company-backends
    :backends (company-ghc company-dabbrev-code company-yasnippet)
    :modes haskell-mode))


;; Dante functions

(defun spacemacs-haskell//setup-dante ()
  (dante-mode)
  (add-to-list 'spacemacs-jump-handlers-haskell-mode 'xref-find-definitions))

(defun spacemacs-haskell//setup-dante-company ()
  (spacemacs|add-company-backends
    :backends (dante-company company-dabbrev-code company-yasnippet)
    :modes haskell-mode))

(defun spacemacs-haskell//dante-insert-type ()
  (interactive)
  (dante-type-at :insert))


;; Intero functions

(defun spacemacs-haskell//setup-intero ()
  (interactive-haskell-mode)
  (intero-mode)
  (add-to-list 'spacemacs-jump-handlers-haskell-mode 'intero-goto-definition))

(defun spacemacs-haskell//setup-intero-company ()
  (spacemacs|add-company-backends
    :backends (company-intero company-dabbrev-code company-yasnippet)
    :modes haskell-mode))

(defun haskell-intero/insert-type ()
  (interactive)
  (intero-type-at :insert))

(defun haskell-intero/display-repl (&optional prompt-options)
  (interactive "P")
  (let ((buffer (intero-repl-buffer prompt-options t)))
    (unless (get-buffer-window buffer 'visible)
      (display-buffer buffer))))

(defun haskell-intero/pop-to-repl (&optional prompt-options)
  (interactive "P")
  (pop-to-buffer (intero-repl-buffer prompt-options t)))

(defun haskell-intero//preserve-focus (f &rest args)
  (let ((buffer (current-buffer)))
    (apply f args)
    (pop-to-buffer buffer)))