mirror of https://github.com/Chizi123/.emacs.d.git
view | history | commit | commitdiff
Chizi123
2018-11-21 5ddac8bd2392ec5b64392e8750d725029bf5aa79
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\300\302!\207" [require smartparens smartparens-ruby] 2)
16 #@37 Wrapper for `crystal-forward-sexp'.
17 (defalias 'sp-crystal-forward-sexp #[0 "\300 \207" [crystal-forward-sexp] 1 (#$ . 490) nil])
18 #@38 Wrapper for `crystal-backward-sexp'.
19 (defalias 'sp-crystal-backward-sexp #[0 "\300 \207" [crystal-backward-sexp] 1 (#$ . 625) nil])
20 #@32 Test if ID is inline.
21
22 (fn ID)
23 (defalias 'sp-crystal-inline-p #[257 "\212\301\302\"\203 \303v\210\301\304\302\"\206\301\305\302\"?\205O\212\306\303!\210\306\307!\210\310P\311\312!)\262)\206O\212\3131L\314 \210\315 \210\316P\311\312!)\2620\202N\210\302))\207" [inhibit-changing-match-data looking-back nil -1 "^[[:blank:]]*" "= *" forward-symbol 1 " *" t looking-at (error) sp-crystal-backward-sexp sp-crystal-forward-sexp "[^[:blank:]]* *"] 4 (#$ . 763)])
24 #@59 If non-nil, skip inline match.
25 MS, MB, ME.
26
27 (fn MS MB ME)
28 (defalias 'sp-crystal-skip-inline-match-p #[771 "\300!\206    \301!\207" [sp-ruby-method-p sp-crystal-inline-p] 5 (#$ . 1241)])
29 #@94 Test if point is inside string, word or inline.
30 ID, ACTION, CONTEXT.
31
32 (fn ID ACTION CONTEXT)
33 (defalias 'sp-crystal-in-string-word-or-inline-p #[771 "\300#\206\301\302\"\205\303!\207" [sp-ruby-in-string-or-word-p looking-back nil sp-crystal-inline-p] 7 (#$ . 1433)])
34 (byte-code "\300\301\302\"\210\303\211\203\211@\300\304\305B\"\210A\266\202\202\210\306\307\310\311\312\313\314\315\316\317\320\321\322\323\324\325\326\327&\210\307\330\331\320\332\322\333\326\327&    \210\307\334\311\312\335\314\336\316\337\320\340\322\341\324\325\326\327&\210\307\342\311\312\343\314\344\316\345\320\346\322\347\324\325\326\327&\210\307\350\311\312\351\314\352\316\353\320\354\322\355\324\325\326\327&\210\307\356\311\312\357\314\360\316\361\320\362\322\363\324\325\326\327&\210\307\364\311\312\365\314\366\316\367\320\370\322\371\324\325\326\327&\210\307\372\311\312\373\314\374\316\375\320\376\322\377\324\325\326\327&\210\307\201@\311\312\201A\314\201B\316\201C\320\201D\322\201E\324\325\326\327&\210\307\201F\311\312\201G\314\201H\316\201I\320\201J\322\201K\324\325\326\327&\210\307\201L\311\312\201M\314\201N\316\201O\320\201P\322\201Q\324\325\326\327&\210\307\201R\311\312\201S\314\201T\316\201U\320\201V\322\201W\324\325\326\327&\210\307\201X\311\312\201Y\314\201Z\316\201[\320\201\\\322\201]\324\325\326\327&\210\307\201^\311\312\201_\314\201`\316\201a\320\201b\322\201c\324\201d\326\327&\210\307\201e\311\312\201f\314\201g\316\201h\320\201i\322\201j\324\201d\326\327&\210\307\201k\311\312\201l\314\201m\316\201n\320\201o\322\201p\324\201d\326\327&\210\307\201q\311\312\201r\314\201s\316\201t\320\201u\322\201v\324\201d\326\327&\210\307\201w\211\312\201x\320\201y\326\327&    \266\201z\201{!\207" [add-to-list sp-navigate-skip-match ((crystal-mode) . sp--ruby-skip-match) (crystal-mode) sp-sexp-suffix (syntax #1="") crystal-mode sp-local-pair "do" "end" :when (("SPC" "RET" "<evil-ret>")) :unless (sp-ruby-in-string-or-word-p sp-in-comment-p) :actions (insert navigate) :pre-handlers (sp-ruby-pre-handler) :post-handlers (sp-ruby-block-post-handler) :skip-match sp-ruby-skip-method-p :suffix #1# "{" "}" (sp-ruby-pre-handler) (sp-ruby-post-handler) "begin" (("SPC" "RET" "<evil-ret>")) (sp-ruby-in-string-or-word-p sp-in-comment-p) (insert navigate) (sp-ruby-pre-handler) (sp-ruby-block-post-handler) "def" (("SPC" "RET" "<evil-ret>")) (sp-ruby-in-string-or-word-p sp-in-comment-p) (insert navigate) (sp-ruby-pre-handler) (sp-ruby-def-post-handler) "class" (("SPC" "RET" "<evil-ret>")) (sp-ruby-in-string-or-word-p sp-in-comment-p) (insert navigate) (sp-ruby-pre-handler) (sp-ruby-def-post-handler) "struct" (("SPC" "RET" "<evil-ret>")) (sp-ruby-in-string-or-word-p sp-in-comment-p) (insert navigate) (sp-ruby-pre-handler) (sp-ruby-def-post-handler) "lib" (("SPC" "RET" "<evil-ret>")) (sp-ruby-in-string-or-word-p sp-in-comment-p) (insert navigate) (sp-ruby-pre-handler) (sp-ruby-def-post-handler) "fun" (("SPC" "RET" "<evil-ret>")) (sp-ruby-in-string-or-word-p sp-in-comment-p) (insert navigate) (sp-ruby-pre-handler) (sp-ruby-def-post-handler) "enum" (("SPC" "RET" "<evil-ret>")) (sp-ruby-in-string-or-word-p sp-in-comment-p) (insert navigate) (sp-ruby-pre-handler) (sp-ruby-def-post-handler) "union" (("SPC" "RET" "<evil-ret>")) (sp-ruby-in-string-or-word-p sp-in-comment-p) (insert navigate) (sp-ruby-pre-handler) (sp-ruby-def-post-handler) "module" (("SPC" "RET" "<evil-ret>")) (sp-ruby-in-string-or-word-p sp-in-comment-p) (insert navigate) (sp-ruby-pre-handler) (sp-ruby-def-post-handler) "macro" (("SPC" "RET" "<evil-ret>")) (sp-ruby-in-string-or-word-p sp-in-comment-p) (insert navigate) (sp-ruby-pre-handler) (sp-ruby-def-post-handler) "case" (("SPC" "RET" "<evil-ret>")) (sp-ruby-in-string-or-word-p sp-in-comment-p) (insert navigate) (sp-ruby-pre-handler) (sp-ruby-def-post-handler) "if" (("SPC" "RET" "<evil-ret>")) (sp-crystal-in-string-word-or-inline-p sp-in-comment-p) (insert navigate) (sp-ruby-pre-handler) (sp-ruby-def-post-handler) sp-crystal-skip-inline-match-p "unless" (("SPC" "RET" "<evil-ret>")) (sp-crystal-in-string-word-or-inline-p sp-in-comment-p) (insert navigate) (sp-ruby-pre-handler) (sp-ruby-def-post-handler) "while" (("SPC" "RET" "<evil-ret>")) (sp-crystal-in-string-word-or-inline-p sp-in-comment-p) (insert navigate) (sp-ruby-pre-handler) (sp-ruby-def-post-handler) "until" (("SPC" "RET" "<evil-ret>")) (sp-crystal-in-string-word-or-inline-p sp-in-comment-p) (insert navigate) (sp-ruby-pre-handler) (sp-ruby-def-post-handler) "|" (sp-ruby-should-insert-pipe-close) (sp-ruby-pre-pipe-handler) provide smartparens-crystal] 19)