;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\302\303!\210\302\304!\210\305\306\211\203\" @\307\310\311\312E\"\210 A\211\204*\307\313\314\311\315E\"\207" [mode --dolist-tail-- require smartparens rx (ess-mode inferior-ess-mode) nil add-to-list sp-sexp-suffix regexp "" sp-sexp-prefix ess-mode "\\(?:[[:word:]]\\|\\s_\\)*"] 6) #@121 Remove spaces before opening parenthesis in a function call. Remove redundant space around commas. ID, ACTION, CONTEXT. (defalias 'sp-ess-pre-handler #[(id action context) "\306=\203\233\307\310!\212 \311\n\312\"\311\n\313\"GZ)b\210\314\315!\203&\316\317\320\321#\210 \311 \313\")\322\235\203D \311\f\312\")b\210\316\323\320\321#\210\202\232 \311 \324\")\325\235\203{ -\311-\313\")\326\232\203{\314\327!\203{\212\330 \210\331\332\333\")\334\235\204{\316\317\320\321#\210\202\232\335\336!\204\207\314\336!\203\215\337 \210\202\232\314\340\341 \342#\203\232\343\344!\210*\345=\205\307 \212 .\311.\346\")b\210\335\347!\203\274\316\317\320\321#\210 /\311/\313\")\350\235\203\335 0\3110\312\")b\210\316\323\320\321#\202 1\3111\324\")\351\235\203\371\335\352!\204\371\316\323\320\321#\202\331\332\333\"\353\235\204\335\354!\203\316\317\320\321#\202\335\340!\205\343\344!*\207" [action sxp #1=#:struct #2=#:struct #3=#:struct #4=#:struct slurp-forward sp-get-thing back plist-get :beg :prefix looking-back "\\s([[:space:]]+" cycle-spacing 0 nil single-shot ("if" "for" "while") 1 :op ("[" "(") "" "[^%,]\\S)[[:space:]]+" sp-backward-sexp thing-at-point word noprop ("if" "for" "while") looking-at "%" just-one-space "[[:space:]]*,[[:space:]]*" line-beginning-position greedy replace-match ", " slurp-backward :end "[[:space:]]+\\s)" ("if" "for" "while") ("{" "%") "\\s)" ("if" "for" "while") "[[:space:]]*[^{]\\(?:\\s)\\|(\\|\\[\\)" #5=#:struct #6=#:struct #7=#:struct #8=#:struct #9=#:struct] 4 (#$ . 389)]) #@51 Open new brace or bracket with indentation. ARGS. (defalias 'sp-ess-open-sexp-indent #[(&rest args) "\301\302!\203\302 \203\212\303 \210)\304\305\"\205(\306\307\305\310#\207\311 \210\312 \210\313y\210\312 \207" [ess-roxy-str fboundp ess-roxy-entry-p ess-roxy-indent-on-newline looking-back nil cycle-spacing 3 t newline indent-according-to-mode -1] 4 (#$ . 1946)]) #@61 Test if looking back at `ess-roxy-re'. ID, ACTION, CONTEXT. (defalias 'sp-ess-roxy-str-p #[(id action context) "\302\301!\205\303=\205\304 !\207" [action ess-roxy-re boundp insert sp--looking-back-p] 2 (#$ . 2323)]) (byte-code "\302\303\304\305\306\307\310\311&\210\303\312\305\306\313\310\314&\210\303\315\305\306\316\310\317&\210\303\320\305\321\322%\210)\302\303 \323\324\325\326\327\330&\210\303 \331\324\325\332\327\333&\210\303 \334\324\325\335\327\336&\210\303 \337\324\325\340\327\341&\210\303 \342\324\325\343\327\344&\210\303 \345\324\325\346\327\347\350\351& \210\303 \352\324\325\353\327\354&\210\303 \355\324\325\356\327\357&\210\303 \360\324\325\361\310\362\327\360& \210\303 \363\324\325\364\310\365\327\366& \210\303 \367\324\325\370\310\371\327\372& \210\303 \373\324\325\374\310\375\327\376& \210\303 \377\324\325\201@\327\201A&\210\303 \201B\324\325\201C\327\201D&\210\303 \201E\324\325\201F\327\201G\310\201H\350\351& \210)\201I\201J!\207" [#:modes #:modes ess-mode sp-local-pair "{" nil :pre-handlers (sp-ess-pre-handler) :post-handlers ((sp-ess-open-sexp-indent "M-j")) "(" (sp-ess-pre-handler) ((sp-ess-open-sexp-indent "M-j")) "[" (sp-ess-pre-handler) ((sp-ess-open-sexp-indent "M-j")) "'" :unless (sp-ess-roxy-str-p sp-in-comment-p sp-in-string-quotes-p) "\\strong{" "}" :when (sp-in-comment-p) :trigger "\\strong" "\\emph{" (sp-in-comment-p) "\\emph" "\\code{" (sp-in-comment-p) "\\code" "\\url{" (sp-in-comment-p) "\\url" "\\link{" (sp-in-comment-p) "\\link" "\\href{" (sp-in-comment-p) "\\href" :suffix "{[^}]*}" "\\email{" (sp-in-comment-p) "\\email" "\\pkg{" (sp-in-comment-p) "\\pkg" "\\item{" (sp-in-comment-p) ((sp-ess-open-sexp-indent "M-j")) "\\enumerate{" (sp-in-comment-p) ((sp-ess-open-sexp-indent "M-j")) "\\enumerate" "\\itemize{" (sp-in-comment-p) ((sp-ess-open-sexp-indent "M-j")) "\\itemize" "\\describe{" (sp-in-comment-p) ((sp-ess-open-sexp-indent "M-j")) "\\describe" "\\eqn{" (sp-in-comment-p) "\\eqn" "\\deqn{" (sp-in-comment-p) "\\deqn" "\\tabular{" (sp-in-comment-p) "\\tabular" ((sp-ess-open-sexp-indent "M-j")) provide smartparens-ess] 12)