135 lines
4.7 KiB
EmacsLisp
135 lines
4.7 KiB
EmacsLisp
;;; smartparens-elixir.el --- Configuration for Elixir.
|
|
|
|
;; Copyright (C) 2017 Matúš Goljer
|
|
|
|
;; Author: Matúš Goljer <matus.goljer@gmail.com>
|
|
;; Maintainer: Matúš Goljer <matus.goljer@gmail.com>
|
|
;; Version: 0.0.1
|
|
;; Created: 15th January 2017
|
|
;; Keywords: languages
|
|
|
|
;; This program is free software; you can redistribute it and/or
|
|
;; modify it under the terms of the GNU General Public License
|
|
;; as published by the Free Software Foundation; either version 3
|
|
;; of the License, or (at your option) any later version.
|
|
|
|
;; This program is distributed in the hope that it will be useful,
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
;; GNU General Public License for more details.
|
|
|
|
;; You should have received a copy of the GNU General Public License
|
|
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
;;; Commentary:
|
|
|
|
;;; Code:
|
|
|
|
(require 'smartparens)
|
|
|
|
(--each '(elixir-mode)
|
|
(add-to-list 'sp-sexp-suffix (list it 'regexp "")))
|
|
|
|
(defun sp-elixir-def-p (id)
|
|
"Return non-nil if the \"do\" keyword is part of definition.
|
|
|
|
ID is the opening delimiter.
|
|
|
|
Definitions are the constructions of the form defmodule-do-end,
|
|
def-do-end and similar pairs."
|
|
(save-excursion
|
|
(when (equal "do" id)
|
|
(back-to-indentation)
|
|
(looking-at (regexp-opt '(
|
|
"defmodule"
|
|
"defmacro"
|
|
"defmacrop"
|
|
"quote"
|
|
"def"
|
|
"defp"
|
|
"if"
|
|
"unless"
|
|
"case"
|
|
"cond"
|
|
"with"
|
|
"for"
|
|
"receive"
|
|
"try"
|
|
))))))
|
|
|
|
(defun sp-elixir-skip-def-p (ms mb me)
|
|
"Test if \"do\" is part of definition.
|
|
MS, MB, ME."
|
|
(sp-elixir-def-p ms))
|
|
|
|
(defun sp-elixir-do-block-post-handler (id action context)
|
|
"Insert \"do\" keyword and indent the new block.
|
|
ID, ACTION, CONTEXT."
|
|
(when (eq action 'insert)
|
|
(let ((m (make-marker)))
|
|
(save-excursion
|
|
(forward-word) ;; over the "end"
|
|
(move-marker m (point)))
|
|
(save-excursion (newline))
|
|
(save-excursion (insert " do"))
|
|
(indent-region (line-beginning-position) m)
|
|
(move-marker m nil nil))))
|
|
|
|
(defun sp-elixir-empty-do-block-post-handler (id action context)
|
|
"Insert empty \"do\" keyword and indent the new block.
|
|
|
|
This is used for receive-do-end expression.
|
|
ID, ACTION, CONTEXT."
|
|
(when (eq action 'insert)
|
|
(let ((m (make-marker)))
|
|
(save-excursion
|
|
(forward-word) ;; over the "end"
|
|
(move-marker m (point)))
|
|
(save-excursion
|
|
(forward-line -1)
|
|
(end-of-line)
|
|
(insert " do"))
|
|
(save-excursion (newline))
|
|
(indent-region (line-beginning-position) m)
|
|
(indent-according-to-mode)
|
|
(move-marker m nil nil))))
|
|
|
|
(sp-with-modes 'elixir-mode
|
|
(sp-local-pair "do" "end"
|
|
:when '(("SPC" "RET" "<evil-ret>"))
|
|
:skip-match 'sp-elixir-skip-def-p)
|
|
(sp-local-pair "def" "end"
|
|
:when '(("SPC" "RET" "<evil-ret>"))
|
|
:post-handlers '(sp-elixir-do-block-post-handler)
|
|
:unless '(sp-in-comment-p))
|
|
(sp-local-pair "defp" "end"
|
|
:when '(("SPC" "RET" "<evil-ret>"))
|
|
:post-handlers '(sp-elixir-do-block-post-handler)
|
|
:unless '(sp-in-comment-p))
|
|
(sp-local-pair "defmodule" "end"
|
|
:when '(("SPC" "RET" "<evil-ret>"))
|
|
:post-handlers '(sp-elixir-do-block-post-handler)
|
|
:unless '(sp-in-comment-p))
|
|
(sp-local-pair "fn" "end"
|
|
:when '(("SPC" "RET" "<evil-ret>"))
|
|
:post-handlers '("| "))
|
|
(sp-local-pair "if" "end"
|
|
:when '(("SPC" "RET" "<evil-ret>"))
|
|
:post-handlers '(sp-elixir-do-block-post-handler)
|
|
:unless '(sp-in-comment-p))
|
|
(sp-local-pair "unless" "end"
|
|
:when '(("SPC" "RET" "<evil-ret>"))
|
|
:post-handlers '(sp-elixir-do-block-post-handler)
|
|
:unless '(sp-in-comment-p))
|
|
(sp-local-pair "case" "end"
|
|
:when '(("SPC" "RET" "<evil-ret>"))
|
|
:post-handlers '(sp-elixir-do-block-post-handler)
|
|
:unless '(sp-in-comment-p))
|
|
(sp-local-pair "receive" "end"
|
|
:when '(("RET" "<evil-ret>"))
|
|
:post-handlers '(sp-elixir-empty-do-block-post-handler))
|
|
)
|
|
|
|
(provide 'smartparens-elixir)
|
|
;;; smartparens-elixir.el ends here
|