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

Chizi123
2018-11-18 9d27fc972e84736015ab3b1c331888a8fe3d1276
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.
 
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
 
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 
(require 'smartparens)
#@59 Wrapper for `ruby-forward-sexp' based on `enh-ruby-mode'.
(defalias 'sp-ruby-forward-sexp #[0 "\300\301!\203    \301 \207\302 \207" [boundp enh-ruby-forward-sexp ruby-forward-sexp] 2 (#$ . 431) nil])
#@60 Wrapper for `ruby-backward-sexp' based on `enh-ruby-mode'.
(defalias 'sp-ruby-backward-sexp #[0 "\300\301!\203    \301 \207\302 \207" [boundp enh-ruby-backward-sexp ruby-backward-sexp] 2 (#$ . 635) nil])
#@49 Turn whitespace around point to just one space.
(defalias 'sp-ruby-maybe-one-space #[0 "\301\302\303\"\203 \304u\210\202\302\305\306!)\262\204?\307\305\306!)\262\204?\301\310\303\"\204?\311\305\306!)\262\203D\301\312\303\"\203D\212\313 \210)\301\314\303\"?\205\204\212\315u\210\316\305\306!)\262\206}\317\305\306!)\262\206}\320\305\306!)\262\206}\321\305\306!)\262)\205\204\322\323!\207" [inhibit-changing-match-data looking-back " " nil -1 t looking-at "}" "{" "\\sw" ":" just-one-space "^.?" -2 ".[^:] [.([,;]" ".. ::" ".[.@$] " ":: " delete-char 1] 3 (#$ . 843)])
#@95 Better way of joining ruby lines.
 
ARG is how many indentation to delete.
 
(fn &optional ARG)
(defalias 'sp-ruby-delete-indentation #[256 "\300!\210\301 \207" [delete-indentation sp-ruby-maybe-one-space] 3 (#$ . 1450)])
#@86 Handler for ruby block-like insertions.
ID, ACTION, CONTEXT.
 
(fn ID ACTION CONTEXT)
(defalias 'sp-ruby-block-post-handler #[771 "\300\232\203\212\301 \210\302 \210)\302 \210\303#\207" [insert newline indent-according-to-mode sp-ruby-post-handler] 7 (#$ . 1677)])
#@84 Handler for ruby def-like insertions.
ID, ACTION, CONTEXT.
 
(fn ID ACTION CONTEXT)
(defalias 'sp-ruby-def-post-handler #[771 "\300\232\203\212\301c\210\302 \210\303 \210)\304\305!\210\306#\207" [insert "x" newline indent-according-to-mode delete-char 1 sp-ruby-post-handler] 7 (#$ . 1953)])
#@65 Ruby post handler.
ID, ACTION, CONTEXT.
 
(fn ID ACTION CONTEXT)
(defalias 'sp-ruby-post-handler #[771 "\301\302\"\301\303\"\304\232\203\"\305\306!\210\307 \210\212\310 \210\310!\210\311 \210)\312\232\205Y\211\313\301\314\"\301\315\"G\\!\313\301\316\"\301\317\"GZ!\320!\210\311 \210\313 U\204S\305\321!\210\307 \266\202\262\266\202\207" [sp-handler-context plist-get :arg :enc barf-backward sp-ruby-delete-indentation 1 indent-according-to-mode sp-backward-sexp sp-ruby-maybe-one-space barf-forward line-number-at-pos :beg :op :end :cl sp-forward-sexp -1] 13 (#$ . 2256)])
#@79 Handler for ruby slurp and barf.
ID, ACTION, CONTEXT.
 
(fn ID ACTION CONTEXT)
(defalias 'sp-ruby-pre-handler #[771 "\302\303\"\211\304\302\305\"\302\306\"G\\!\304\302\307\"\302\310\"GZ!\311\232\203\247\212\312 \210\313\314\315!)\262\2036\316u\210\317 \210\304 U\204D\320\321!\210)\322\314\315!)\262\203r\323\324\316\"\203r\325\314!\211\205m\211\302\305\"\302\326\"GZb\262\262\204Q\327\330!\203~\331 \210\202r\323\332\316\"\203\222\321u\210\323\333\316\"\203\222\321u\210\334 \210\212\304 U\203\243\335c\210\202\246\336 \210)\337\232\203\320\327\340!\203\271\312 \210\202\255\341\314\315!)\262\203\313\336 \210\202\320\212\336 \210)\342\232\2034\212\331 \210\323\343\316\"\203\344\321u\210\317 \210\304 U\204\327\330!\203\377\344\321!\210\320\321!\210\202\320 \210)\322\314\315!)\262\203\345 \210\202\346\314\315!)\262\203$\316u\210\304 U\2031\335c\210\2024\336 \210\347\232\205\215\323\350\316\"\203D\321u\210\322\314\315!)\262\203q\323\324\316\"\203q\325\314!\211\205l\211\302\305\"\302\326\"GZb\262\262\204P\304 U\203}\335c\202\215\323\351\316\"\203\213\212\336 )\202\215\336 \266\202\262\207" [sp-handler-context inhibit-changing-match-data plist-get :enc line-number-at-pos :beg :op :end :cl slurp-backward sp-forward-sexp ";" t looking-at nil sp-ruby-maybe-one-space sp-ruby-delete-indentation -1 "::" looking-back "\\sw" sp-get-symbol :prefix thing-at-point-looking-at "\\.[[:blank:]\n]*" sp-backward-sexp "[@$:&?!]" "[@&:]" just-one-space " " newline barf-backward "[(.:[][\n[:blank:]]*" " *$" slurp-forward "." forward-symbol sp-forward-symbol "[?!;]" barf-forward "\\." "^[[:blank:]]*"] 13 (#$ . 2850)])
#@32 Test if ID is inline.
 
(fn ID)
(defalias 'sp-ruby-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-ruby-backward-sexp sp-ruby-forward-sexp "[^[:blank:]]* *"] 4 (#$ . 4552)])
#@34 Test if ID is a method.
 
(fn ID)
(defalias 'sp-ruby-method-p #[257 "\212\301\302\"\203 \303v\210\211\304\305!)\262\205C\211\306P\304\305!)\262\206C\301\307\302\"\206C\301\310\302\"\206C\301\311\302\"\205C\212\312\313!\210\314 )?)\207" [inhibit-changing-match-data looking-back nil -1 t looking-at "[_?!:]" "[_:@$.]" "def \\|class \\|module " "\\.[[:blank:]\n]*" search-backward "." sp-point-in-comment] 4 (#$ . 5022)])
#@59 If non-nil, skip inline match.
MS, MB, ME.
 
(fn MS MB ME)
(defalias 'sp-ruby-skip-inline-match-p #[771 "\300!\206    \301!\207" [sp-ruby-method-p sp-ruby-inline-p] 5 (#$ . 5460)])
#@53 If non-nil, skip method.
MS, MB, ME.
 
(fn MS MB ME)
(defalias 'sp-ruby-skip-method-p #[771 "\300!\207" [sp-ruby-method-p] 5 (#$ . 5646)])
#@86 Test if point is inside string or word.
ID, ACTION, CONTEXT.
 
(fn ID ACTION CONTEXT)
(defalias 'sp-ruby-in-string-or-word-p #[771 "\300#\206\301\302\"\203\301\303!\302\"?\206\304!\207" [sp-in-string-p looking-back nil sp--strict-regexp-quote sp-ruby-method-p] 7 (#$ . 5791)])
#@94 Test if point is inside string, word or inline.
ID, ACTION, CONTEXT.
 
(fn ID ACTION CONTEXT)
(defalias 'sp-ruby-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-ruby-inline-p] 7 (#$ . 6085)])
#@65 Ruby pipe handler.
ID, ACTION, CONTEXT.
 
(fn ID ACTION CONTEXT)
(defalias 'sp-ruby-pre-pipe-handler #[771 "\300\232\205\212\301 \210)\212\302!\210\301 )\207" [insert just-one-space search-backward] 5 (#$ . 6360)])
#@117 Test whether to insert the closing pipe for a lambda-binding pipe pair.
ID, ACTION, CONTEXT
 
(fn ID ACTION CONTEXT)
(defalias 'sp-ruby-should-insert-pipe-close #[771 "\300=\203\301\302\303\304\305F!!\207\306\207" [insert thing-at-point-looking-at rx-to-string and (or "do" "{") (* space) t] 9 (#$ . 6585)])
#@45 Ruby skip match.
MS, ME, MB.
 
(fn MS ME MB)
(defalias 'sp--ruby-skip-match #[771 "\300\230\205\301#\206\302\300!\207" ["end" sp-in-string-p sp-ruby-method-p] 7 (#$ . 6903)])
(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\201@&\210\307\201A\311\312\201B\314\201C\316\201D\320\201E\322\201F\324\201@\326\327&\210\307\201G\311\312\201H\314\201I\316\201J\320\201K\322\201L\324\201@\326\327&\210\307\201M\311\312\201N\314\201O\316\201P\320\201Q\322\201R\324\201@\326\327&\210\307\201S\311\312\201T\314\201U\316\201V\320\201W\322\201X\324\201@\326\327&\210\307\201Y\211\312\201Z\320\201[\326\327&    \266\201\\\201]!\207" [add-to-list sp-navigate-skip-match ((ruby-mode enh-ruby-mode motion-mode) . sp--ruby-skip-match) (ruby-mode motion-mode) sp-sexp-suffix (syntax #1="") (ruby-mode enh-ruby-mode motion-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) "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) "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) "for" (("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) sp-ruby-skip-inline-match-p "if" (("SPC" "RET" "<evil-ret>")) (sp-ruby-in-string-word-or-inline-p sp-in-comment-p) (insert navigate) (sp-ruby-pre-handler) (sp-ruby-def-post-handler) "unless" (("SPC" "RET" "<evil-ret>")) (sp-ruby-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-ruby-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-ruby-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-ruby] 19)