;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\207" [require map seq subr-x cider-client cider-util] 2) #@79 Reindent FORMATTED to align with buffer position START. (fn FORMATTED START) (defalias 'cider--format-reindent #[514 "\212\211b\210i)\300\301\302\"P\303\300#\207" ["\n" make-string 32 replace-regexp-in-string] 8 (#$ . 218)]) #@623 Format the contents of the given region. START and END represent the region's boundaries. FORMATTER is a function of one argument which is used to convert the string contents of the region into a formatted string. Uses the following heuristic to try to maintain point position: - Take a snippet of text starting at current position, up to 64 chars. - Search for the snippet, with lax whitespace, in the formatted text. - If snippet is less than 64 chars (point was near end of buffer), search from end instead of beginning. - Place point at match beginning, or `point-min' if no match. (fn START END FORMATTER) (defalias 'cider--format-region #[771 "\301\"!\302\"\232?\205g`\303 T\304\\V\305\306\307\310\301\211\304\\^\"!#  |\210c\210\203=d\202>eb\210\203H\311\202I\312\313\314#\210\315\224\206U b\210\316\314\317!)\262\205e\313u\266\204\207" [inhibit-changing-match-data buffer-substring-no-properties cider--format-reindent buffer-size 64 replace-regexp-in-string "[[:space:] \n ]+" "[[:space:] \n ]*" regexp-quote re-search-backward re-search-forward nil t 0 "\n" looking-at] 17 (#$ . 455)]) #@113 Format the Clojure code in the current region. START and END represent the region's boundaries. (fn START END) (defalias 'cider-format-region #[514 "\300 \210\301\302#\207" [cider-ensure-connected cider--format-region #[257 "\301\"\207" [cider-format-code-options cider-sync-request:format-code] 4 "\n\n(fn BUF)"]] 6 (#$ . 1600) "r"]) #@39 Format the code in the current defun. (defalias 'cider-format-defun #[0 "\300 \210\301\302!\303@A@\"\207" [cider-ensure-connected cider-defun-at-point t cider-format-region] 4 (#$ . 1946) nil]) #@175 Format the contents of the current buffer. Uses FORMATTER, a function of one argument, to convert the string contents of the buffer into a formatted string. (fn FORMATTER) (defalias 'cider--format-buffer #[257 "\300\301\302 T#\207" [cider--format-region 1 buffer-size] 5 (#$ . 2149)]) #@48 Format the Clojure code in the current buffer. (defalias 'cider-format-buffer #[0 "\300 \210\301 \210\302\303!\207" [check-parens cider-ensure-connected cider--format-buffer #[257 "\301\"\207" [cider-format-code-options cider-sync-request:format-code] 4 "\n\n(fn BUF)"]] 2 (#$ . 2443) nil]) #@44 Format the EDN data in the current buffer. (defalias 'cider-format-edn-buffer #[0 "\300 \210\301 \210\302\303!\207" [check-parens cider-ensure-connected cider--format-buffer #[257 "\301\"\207" [fill-column cider-sync-request:format-edn] 4 "\n\n(fn EDN)"]] 2 (#$ . 2742) nil]) #@109 Format the EDN data in the current region. START and END represent the region's boundaries. (fn START END) (defalias 'cider-format-edn-region #[514 "\301 \210\212b\210i)Z\302\303\304\"#\207" [fill-column cider-ensure-connected cider--format-region make-closure #[257 "\301\300\"\207" [V0 cider-sync-request:format-edn] 4 "\n\n(fn EDN)"]] 10 (#$ . 3027) "r"]) #@39 Format the EDN data of the last sexp. (defalias 'cider-format-edn-last-sexp #[0 "\300\301\302\303!\"\207" [apply cider-format-edn-region cider-sexp-at-point bounds] 4 (#$ . 3400) nil]) (provide 'cider-format)