a70e634ebd
Moved add-hook calls (for tree-sitter initialization) into their respective modes' config blocks, or nearby, to be consistent with how other, similar tools (like lsp!) are initialized, and does so at runtime, rather than at expansion/compile time, which eval-when! caused.
104 lines
3.2 KiB
EmacsLisp
104 lines
3.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-ligatures! '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! 'append)
|
|
(after! lsp-mode
|
|
(add-to-list 'lsp-file-watch-ignored-directories "[/\\\\]_build\\'")))
|
|
|
|
(when (featurep! +tree-sitter)
|
|
(add-hook 'elixir-mode-local-vars-hook #'tree-sitter! 'append))
|
|
|
|
(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! 'elixir-mode
|
|
:definition #'alchemist-goto-definition-at-point
|
|
:documentation #'alchemist-help-search-at-point)
|
|
(set-eval-handler! 'elixir-mode #'alchemist-eval-region)
|
|
(set-repl-handler! 'elixir-mode #'alchemist-iex-project-run)
|
|
(map! :after elixir-mode
|
|
:localleader
|
|
:map elixir-mode-map
|
|
"m" #'alchemist-mix
|
|
"c" #'alchemist-mix-compile
|
|
"i" #'alchemist-iex-project-run
|
|
"f" #'elixir-format
|
|
(:prefix ("e" . "eval")
|
|
"e" #'alchemist-iex-send-last-sexp
|
|
"r" #'alchemist-iex-send-region
|
|
"l" #'alchemist-iex-send-current-line
|
|
"R" #'alchemist-iex-reload-module)))
|
|
|
|
|
|
(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)))
|
|
|
|
(use-package! exunit
|
|
:hook (elixir-mode . exunit-mode)
|
|
:init
|
|
(map! :after elixir-mode
|
|
:localleader
|
|
:map elixir-mode-map
|
|
:prefix ("t" . "test")
|
|
"a" #'exunit-verify-all
|
|
"r" #'exunit-rerun
|
|
"v" #'exunit-verify
|
|
"T" #'exunit-toggle-file-and-test
|
|
"t" #'exunit-toggle-file-and-test-other-window
|
|
"s" #'exunit-verify-single))
|