73 lines
2.2 KiB
EmacsLisp
73 lines
2.2 KiB
EmacsLisp
;;; lang/elixir/config.el -*- lexical-binding: t; -*-
|
|
|
|
(after! projectile
|
|
(add-to-list 'projectile-project-root-files "mix.exs"))
|
|
|
|
|
|
;;
|
|
;;; Packages
|
|
|
|
(use-package! elixir-mode
|
|
:defer t
|
|
:init
|
|
;; Disable default smartparens config. There are too many pairs; we only want
|
|
;; a subset of them (defined below).
|
|
(provide 'smartparens-elixir)
|
|
:config
|
|
(set-pretty-symbols! 'elixir-mode
|
|
;; Functional
|
|
:def "def"
|
|
:lambda "fn"
|
|
;; :src_block "do"
|
|
;; :src_block_end "end"
|
|
;; Flow
|
|
:not "!"
|
|
:in "in" :not-in "not in"
|
|
:and "and" :or "or"
|
|
:for "for"
|
|
:return "return" :yield "use")
|
|
|
|
;; ...and only complete the basics
|
|
(sp-with-modes 'elixir-mode
|
|
(sp-local-pair "do" "end"
|
|
:when '(("RET" "<evil-ret>"))
|
|
:unless '(sp-in-comment-p sp-in-string-p)
|
|
:post-handlers '("||\n[i]"))
|
|
(sp-local-pair "do " " end" :unless '(sp-in-comment-p sp-in-string-p))
|
|
(sp-local-pair "fn " " end" :unless '(sp-in-comment-p sp-in-string-p)))
|
|
|
|
(when (featurep! +lsp)
|
|
(add-hook 'elixir-mode-local-vars-hook #'lsp!))
|
|
|
|
(after! highlight-numbers
|
|
(puthash 'elixir-mode
|
|
"\\_<-?[[:digit:]]+\\(?:_[[:digit:]]\\{3\\}\\)*\\_>"
|
|
highlight-numbers-modelist)))
|
|
|
|
|
|
(use-package! flycheck-credo
|
|
:when (featurep! :checkers syntax)
|
|
:after elixir-mode
|
|
:config (flycheck-credo-setup))
|
|
|
|
|
|
(use-package! alchemist
|
|
:hook (elixir-mode . alchemist-mode)
|
|
:config
|
|
(set-lookup-handlers! 'alchemist-mode
|
|
:definition #'alchemist-goto-definition-at-point
|
|
:documentation #'alchemist-help-search-at-point)
|
|
(set-eval-handler! 'alchemist-mode #'alchemist-eval-region)
|
|
(set-repl-handler! 'alchemist-mode #'alchemist-iex-project-run))
|
|
|
|
|
|
(use-package! alchemist-company
|
|
:when (featurep! :completion company)
|
|
:commands alchemist-company
|
|
:config
|
|
(set-company-backend! 'alchemist-mode '(alchemist-company company-yasnippet))
|
|
;; Alchemist doesn't use hook symbols to add these backends, so we have to use
|
|
;; the entire closure to get rid of it.
|
|
(let ((fn (byte-compile (lambda () (add-to-list (make-local-variable 'company-backends) 'alchemist-company)))))
|
|
(remove-hook 'alchemist-mode-hook fn)
|
|
(remove-hook 'alchemist-iex-mode-hook fn)))
|