| commit | author | age | ||
| 5cb5f7 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file uses dynamic docstrings, first added in Emacs 19.29. | |
| 7 | ||
| 8 | ;;; This file does not contain utf-8 non-ASCII characters, | |
| 9 | ;;; and so can be loaded in Emacs versions earlier than 23. | |
| 10 | ||
| 11 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 12 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 13 | ||
| 14 | ||
| 15 | (byte-code "\300\301!\210\302\303\203 @\304\305\306\307E\"\266\211T\262A\262\202 \210\207" [require smartparens (elixir-mode) 0 add-to-list sp-sexp-suffix regexp ""] 8) | |
| 16 | #@193 Return non-nil if the "do" keyword is part of definition. | |
| 17 | ||
| 18 | ID is the opening delimiter. | |
| 19 | ||
| 20 | Definitions are the constructions of the form defmodule-do-end, | |
| 21 | def-do-end and similar pairs. | |
| 22 | ||
| 23 | (fn ID) | |
| 24 | (defalias 'sp-elixir-def-p #[257 "\212\211\300\232\205 \301 \210\302\303!)\207" ["do" back-to-indentation looking-at "\\(?:c\\(?:ase\\|ond\\)\\|def\\(?:m\\(?:acrop?\\|odule\\)\\|p\\)?\\|for\\|if\\|quote\\|receive\\|try\\|unless\\|with\\)"] 3 (#$ . 587)]) | |
| 25 | #@64 Test if "do" is part of definition. | |
| 26 | MS, MB, ME. | |
| 27 | ||
| 28 | (fn MS MB ME) | |
| 29 | (defalias 'sp-elixir-skip-def-p #[771 "\300!\207" [sp-elixir-def-p] 5 (#$ . 1041)]) | |
| 30 | #@92 Insert "do" keyword and indent the new block. | |
| 31 | ID, ACTION, CONTEXT. | |
| 32 | ||
| 33 | (fn ID ACTION CONTEXT) | |
| 34 | (defalias 'sp-elixir-do-block-post-handler #[771 "\300=\205( \301 \212\302v\210\211`\302\223\210)\212\303 \210)\212\304c\210)\305\306 \"\210\211\302\211\223\262\207" [insert make-marker nil newline " do" indent-region line-beginning-position] 7 (#$ . 1195)]) | |
| 35 | #@143 Insert empty "do" keyword and indent the new block. | |
| 36 | ||
| 37 | This is used for receive-do-end expression. | |
| 38 | ID, ACTION, CONTEXT. | |
| 39 | ||
| 40 | (fn ID ACTION CONTEXT) | |
| 41 | (defalias 'sp-elixir-empty-do-block-post-handler #[771 "\300=\2051 \301 \212\302v\210\211`\302\223\210)\212\303y\210\302\210\304c\210)\212\305 \210)\306\307 \"\210\310 \210\211\302\211\223\262\207" [insert make-marker nil -1 " do" newline indent-region line-beginning-position indent-according-to-mode] 7 (#$ . 1555)]) | |
| 42 | (byte-code "\300\301\302\303\304\305\306\307\310\311& \210\301\312\303\304\313\314\315\310\316& \210\301\317\303\304\320\314\321\310\322& \210\301\323\303\304\324\314\325\310\326& \210\301\327\303\304\330\314\331&\210\301\332\303\304\333\314\334\310\335& \210\301\336\303\304\337\314\340\310\341& \210\301\342\303\304\343\314\344\310\345& \210\301\346\303\304\347\314\350&\266\351\352!\207" [elixir-mode sp-local-pair "do" "end" :when (("SPC" "RET" "<evil-ret>")) :skip-match sp-elixir-skip-def-p :unless (sp-in-comment-p sp-in-string-p) "def" (("SPC" "RET" "<evil-ret>")) :post-handlers (sp-elixir-do-block-post-handler) (sp-in-comment-p sp-in-string-p) "defp" (("SPC" "RET" "<evil-ret>")) (sp-elixir-do-block-post-handler) (sp-in-comment-p sp-in-string-p) "defmodule" (("SPC" "RET" "<evil-ret>")) (sp-elixir-do-block-post-handler) (sp-in-comment-p sp-in-string-p) "fn" (("SPC" "RET" "<evil-ret>")) ("| ") "if" (("SPC" "RET" "<evil-ret>")) (sp-elixir-do-block-post-handler) (sp-in-comment-p sp-in-string-p) "unless" (("SPC" "RET" "<evil-ret>")) (sp-elixir-do-block-post-handler) (sp-in-comment-p sp-in-string-p) "case" (("SPC" "RET" "<evil-ret>")) (sp-elixir-do-block-post-handler) (sp-in-comment-p sp-in-string-p) "receive" (("RET" "<evil-ret>")) (sp-elixir-empty-do-block-post-handler) provide smartparens-elixir] 11) | |
