mirror of https://github.com/Chizi123/.emacs.d.git

Chizi123
2018-11-18 8f6f2705a38e2515b6c57fda12c5be29fb9a798f
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)