2014-11-29 04:59:23 +00:00
|
|
|
(defvar erlang-elixir-packages
|
|
|
|
'(
|
|
|
|
auto-complete
|
|
|
|
auto-highlight-symbol
|
|
|
|
edts
|
|
|
|
elixir-mode
|
|
|
|
erlang
|
|
|
|
flycheck
|
|
|
|
git-gutter-fringe
|
|
|
|
rainbow-delimiters
|
|
|
|
ruby-end
|
|
|
|
smartparens
|
|
|
|
yasnippet
|
|
|
|
)
|
|
|
|
"List of all packages to install and/or initialize. Built-in packages
|
|
|
|
which require an initialization must be listed explicitly in the list.")
|
|
|
|
|
|
|
|
(defvar erlang-elixir-excluded-packages '()
|
|
|
|
"List of packages to exclude.")
|
|
|
|
|
2014-11-29 06:53:14 +00:00
|
|
|
(defun erlang-elixir/init-auto-complete ()
|
2014-11-29 04:59:23 +00:00
|
|
|
(add-hook 'erlang-mode-hook 'auto-complete-mode))
|
|
|
|
|
2014-11-29 06:53:14 +00:00
|
|
|
(defun erlang-elixir/init-auto-highlight-symbol ()
|
2014-11-29 04:59:23 +00:00
|
|
|
(add-hook 'erlang-mode-hook 'auto-highlight-symbol-mode))
|
|
|
|
|
2014-11-29 06:53:14 +00:00
|
|
|
(defun erlang-elixir/init-elixir-mode ()
|
2014-11-29 04:59:23 +00:00
|
|
|
(use-package elixir-mode
|
|
|
|
:defer t
|
|
|
|
:config
|
|
|
|
(progn
|
|
|
|
(require 'ruby-end)
|
|
|
|
(add-to-list 'elixir-mode-hook
|
|
|
|
(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))))))
|
|
|
|
|
2014-11-29 06:53:14 +00:00
|
|
|
(defun erlang-elixir/init-erlang ()
|
2014-11-29 04:59:23 +00:00
|
|
|
(use-package erlang
|
|
|
|
:mode (("\\.erl?$" . erlang-mode)
|
|
|
|
("\\.hrl?$" . erlang-mode)
|
|
|
|
("\\.spec?$" . erlang-mode))
|
|
|
|
:defer t
|
|
|
|
: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"))
|
|
|
|
))
|
|
|
|
(unless (eq window-system 'w32)
|
|
|
|
(require 'edts-start))
|
|
|
|
;; (setq edts-log-level 'debug)
|
|
|
|
;; (setq edts-face-inhibit-mode-line-updates t)
|
|
|
|
(evil-leader/set-key-for-mode 'erlang-mode
|
|
|
|
"md" 'edts-find-doc
|
|
|
|
"me" 'edts-code-next-issue
|
|
|
|
"mG" 'edts-find-global-function
|
|
|
|
"mg" 'edts-find-source-under-point
|
|
|
|
"mh" 'edts-find-header-source
|
|
|
|
"ml" 'edts-find-local-function
|
|
|
|
"mm" 'edts-find-macro-source
|
|
|
|
"mr" 'edts-find-record-source))))
|
|
|
|
|
2014-11-29 06:53:14 +00:00
|
|
|
(defun erlang-elixir/init-flycheck ()
|
2014-11-29 04:59:23 +00:00
|
|
|
(add-hook 'elixir-mode-hook 'flycheck-mode))
|
|
|
|
|
2014-11-29 06:53:14 +00:00
|
|
|
(defun erlang-elixir/init-git-gutter-fringe ()
|
2014-11-29 04:59:23 +00:00
|
|
|
(add-hook 'erlang-mode-hook 'git-gutter-mode))
|
|
|
|
|
2014-11-29 06:53:14 +00:00
|
|
|
(defun erlang-elixir/init-rainbow-delimiters ()
|
2014-11-29 04:59:23 +00:00
|
|
|
(add-hook 'erlang-mode-hook 'turn-on-rainbow-delimiters-mode))
|
|
|
|
|
2014-11-29 06:53:14 +00:00
|
|
|
(defun erlang-elixir/init-ruby-end ()
|
2014-11-29 04:59:23 +00:00
|
|
|
(use-package ruby-end
|
|
|
|
:defer t
|
|
|
|
:config (spacemacs//hide-lighter ruby-end-mode)))
|
|
|
|
|
2014-11-29 06:53:14 +00:00
|
|
|
(defun erlang-elixir/init-smartparens ()
|
2014-11-29 04:59:23 +00:00
|
|
|
(add-hook 'erlang-mode-hook 'smartparens-mode))
|
|
|
|
|
2014-11-29 06:53:14 +00:00
|
|
|
(defun erlang-elixir/init-yasnippet ()
|
2014-11-29 04:59:23 +00:00
|
|
|
(add-hook 'erlang-mode-hook 'spacemacs/load-yasnippet))
|