;;; packages.el --- Erlang and Elixir Layer packages File for Spacemacs
;;
;; Copyright (c) 2012-2014 Sylvain Benner
;; Copyright (c) 2014-2015 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

(defvar erlang-elixir-packages
  '(
    alchemist
    edts
    elixir-mode
    erlang
    flycheck
    ruby-end
    )
  "List of all packages to install and/or initialize. Built-in packages
which require an initialization must be listed explicitly in the list.")

(defun erlang-elixir/init-alchemist ()
  (add-hook 'elixir-mode-hook 'alchemist-mode)
  (setq alchemist-project-compile-when-needed t)
  (evil-leader/set-key-for-mode 'elixir-mode
    "mcb" 'alchemist-compile-this-buffer

    "mel" 'alchemist-eval-current-line
    "meL" 'alchemist-eval-print-current-line
    "mer" 'alchemist-eval-region
    "meR" 'alchemist-eval-print-region
    "meb" 'alchemist-eval-buffer
    "meB" 'alchemist-eval-print-buffer

    "mgt" 'alchemist-project-open-tests-for-current-file

    "mh:" 'alchemist-help
    "mhH" 'alchemist-help-history
    "mhh" 'alchemist-help-search-at-point
    "mhr" 'alchemist-help-search-marked-region

    "mm:" 'alchemist-mix
    "mmc" 'alchemist-mix-compile
    "mmx" 'alchemist-mix-run
    "mmh" 'alchemist-mix-help
    "mmi" 'alchemist-iex-project-run

    "msi" 'alchemist-iex-run
    "msl" 'alchemist-iex-send-current-line
    "msL" 'alchemist-iex-send-current-line-and-go
    "msr" 'alchemist-iex-send-region
    "msR" 'alchemist-iex-send-region-and-go

    "mta" 'alchemist-mix-test
    "mtb" 'alchemist-mix-test-this-buffer
    "mtt" 'alchemist-mix-test-at-point

    "mxb" 'alchemist-execute-this-buffer
    "mxf" 'alchemist-execute-file
    "mx:" 'alchemist-execute
    ))

(defun erlang-elixir/init-edts ()

  (defun erlang-elixir//load-edts ()
    "Return non-nil if EDTS can be loaded."
    (and spacemacs-erlang-elixir-use-edts
         (not (eq window-system 'w32))))

  (defun erlang-elixir//edts-start ()
    "Starts EDTS."
    (if (erlang-elixir//load-edts)
        (require 'edts-start))))

(defun erlang-elixir/init-elixir-mode ()
  (use-package elixir-mode
    :defer t
    :config
    (progn
      (defun auto-activate-ruby-end-mode-for-elixir-mode ()
        (set (make-variable-buffer-local 'ruby-end-expand-keywords-before-re)
             "\\(?:^\\|\\s-+\\)\\(?:do\\)")
        (set (make-variable-buffer-local 'ruby-end-check-statement-modifiers)
             nil)
        (ruby-end-mode +1))
      (add-to-list 'elixir-mode-hook
                   'auto-activate-ruby-end-mode-for-elixir-mode))))

(defun erlang-elixir/init-erlang ()
  (use-package erlang
    :mode (("\\.erl?$" . erlang-mode)
           ("\\.hrl?$" . erlang-mode)
           ("\\.spec?$" . erlang-mode))
    :defer t
    :init
    (add-hook 'erlang-mode-hook (lambda () (run-hooks 'prog-mode-hook)))
    :config
    (progn
      (setq erlang-root-dir "/usr/lib/erlang/erts-5.10.3")
      (add-to-list 'exec-path "/usr/lib/erlang/erts-5.10.3/bin")
      (setq erlang-man-root-dir "/usr/lib/erlang/erts-5.10.3/man")
      (setq erlang-compile-extra-opts '(debug_info))
      (require 'erlang-start)
      (add-hook 'erlang-mode-hook
                (lambda ()
                  (setq mode-name "Erlang")
                  ;; when starting an Erlang shell in Emacs, with a custom node name
                  (setq inferior-erlang-machine-options '("-sname" "syl20bnr"))
                  ))
      (if (and (fboundp 'erlang-elixir//load-edts)
               (erlang-elixir//load-edts))
          (erlang-elixir//edts-start))
      ;; (setq edts-log-level 'debug)
      ;; (setq edts-face-inhibit-mode-line-updates t)
      (evil-leader/set-key-for-mode 'erlang-mode
        "me"  'edts-code-next-issue
        "mGg" 'edts-find-global-function
        "mGh" 'edts-find-header-source
        "mGl"  'edts-find-local-function
        "mGr" 'edts-find-record-source
        "mgg"  'edts-find-source-under-point
        "mhd" 'edts-find-doc
        "mm"  'edts-find-macro-source))))

(defun erlang-elixir/post-init-flycheck ()
  (add-hook 'elixir-mode-hook 'flycheck-mode)
  (unless spacemacs-erlang-elixir-use-edts
    (add-hook 'erlang-mode-hook 'flycheck-mode)))

(defun erlang-elixir/init-ruby-end ()
  (use-package ruby-end
    :defer t
    :config
    (progn
      (spacemacs|hide-lighter ruby-end-mode)
      ;; hack to remove the autoloaded `add-hook' in `ruby-end'
      (remove-hook 'ruby-mode-hook 'ruby-end-mode)
      (remove-hook 'enh-ruby-mode-hook 'ruby-end-mode))))