139 lines
4.4 KiB
EmacsLisp
139 lines
4.4 KiB
EmacsLisp
;;; 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
|
|
|
|
(setq erlang-elixir-packages
|
|
'(
|
|
alchemist
|
|
edts
|
|
elixir-mode
|
|
erlang
|
|
flycheck
|
|
ruby-end
|
|
))
|
|
|
|
(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))))
|