;; ~/.emacs.d/elisp/haskell-init.el

;; Luke Hoersten <[email protected]>

;; Require packages

(require 'package-require)

(package-require '(haskell-mode yasnippet haskell-snippets flycheck))

(add-to-list 'load-path "~/.emacs.d/elisp/stack-mode")

;; Load haskell-mode from source

;; (add-to-list 'load-path "~/Code/elisp/haskell-mode/")

;; (require 'haskell-mode-autoloads)

;; company-mode stack-ide integration

(add-to-list 'load-path "~/Code/elisp/company-stack-ide/")

(require 'company-stack-ide)

(add-to-list 'company-backends 'company-stack-ide)

(add-hook 'stack-mode 'company-mode)

(require 'haskell)

(require 'haskell-mode)

(require 'stack-mode)

(require 'haskell-interactive-mode)

(require 'haskell-snippets)

(defun haskell-who-calls (&optional prompt)

  "Grep the codebase to see who uses the symbol at point."

  (interactive "P")

  (let ((sym (if prompt

                 (read-from-minibuffer "Look for: ")

               (haskell-ident-at-point))))

    (let ((existing (get-buffer "*who-calls*")))

      (when existing

        (kill-buffer existing)))

    (let ((buffer

           (grep-find (format "cd %s && find . -name '*.hs' -exec grep -inH -e %s {} +"

                              (haskell-session-current-dir (haskell-session))

                              sym))))

      (with-current-buffer buffer

        (rename-buffer "*who-calls*")

        (switch-to-buffer-other-window buffer)))))

;;; haskell-mode

(add-hook

 'haskell-mode-hook

 (lambda ()

   (flycheck-mode t)

   (flycheck-disable-checker 'haskell-ghc)

   (flycheck-disable-checker 'haskell-stack-ghc)

   (flycheck-clear t)

   (imenu-add-menubar-index)

   (haskell-indentation-mode t)

   (projectile-mode t)

   (stack-mode t)

   (subword-mode t)

   (capitalized-words-mode t)

   ;; (interactive-haskell-mode t)

   (setq

    haskell-stylish-on-save t

    haskell-indentation-layout-offset 4

    haskell-indentation-left-offset 4

    haskell-notify-p t

    haskell-align-imports-pad-after-name t

    haskell-ask-also-kill-buffers nil

    haskell-import-mapping t

    haskell-interactive-mode-eval-pretty t

    haskell-interactive-mode-scroll-to-bottom t

    haskell-interactive-mode-eval-mode 'haskell-mode

    haskell-interactive-popup-errors nil

    haskell-process-type 'stack-ghci

    haskell-process-auto-import-loaded-modules t

    haskell-process-log t)))

;; keys

(define-key haskell-mode-map (kbd "M-,") 'haskell-who-calls)

(define-key haskell-mode-map (kbd "C-c i") 'haskell-navigate-imports)

(define-key haskell-mode-map (kbd "C-c C-d") 'haskell-describe)

(define-key haskell-mode-map (kbd "C-c C-r") 'haskell-process-load-or-reload)

(define-key haskell-mode-map (kbd "C-`") 'haskell-interactive-bring)

(define-key haskell-cabal-mode-map (kbd "C-`") 'haskell-interactive-bring)

(define-key haskell-interactive-mode-map (kbd "C-c C-i") 'haskell-process-do-info)

(define-key haskell-interactive-mode-map (kbd "C-c C-t") 'haskell-process-do-type)

(message "Loading haskell-init...done")

(provide 'haskell-init)