;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!\210\300\306!\210\300\307!\210\300\310!\210\300\311!\210\300\312!\210\300\313!\210\300\314!\210\300\315!\210\300\316!\210\300\317!\210\300\320!\210\321\322\323\324\325\326\327\330&\210\331\332\333\334\327\322%\210\331\335\336\337\327\322%\210\331\340\341\342\327\322\343\344&\210\331\345\346\347\327\322%\210\331\350\351\352\327\322%\210\353\354\355\356\357DD\360\361\362\327\322&\210\353\363\355\356\364DD\365\361\366\327\322&\210\367\370\371\372#\210\353\373\355\356\374DD\375\361\366\327\322&\210\367\376\377\372#\210\353\201@\355\356\201ADD\201B\361\366\327\322\343\201C& \210\353\201D\355\356\201EDD\201F\361\366\327\322\201G\201H\343\201I& \210\353\201J\355\356\201KDD\201L\361\366\327\322\343\201M& \210\353\201N\355\356\201ODD\201P\361\366\327\322\343\201Q& \210\353\201R\355\356\201SDD\201T\361\201U\327\330\343\201V& \210\353\201W\355\356\201XDD\201Y\361\201Z\327\322&\210\367\201[\377\372#\210\367\201\\\377\372#\207" [require cl-lib easymenu image map seq subr-x clojure-mode sesman cider-client cider-doc cider-test cider-eldoc cider-common cider-compat cider-util cider-resolve custom-declare-group cider-repl nil "Interaction with the REPL." :prefix "cider-repl-" :group cider custom-declare-face cider-repl-prompt-face ((t (:inherit font-lock-keyword-face))) "Face for the prompt in the REPL buffer." cider-repl-stdout-face ((t (:inherit font-lock-string-face))) "Face for STDOUT output in the REPL buffer." cider-repl-stderr-face ((t (:inherit font-lock-warning-face))) "Face for STDERR output in the REPL buffer." :package-version (cider . "0.6.0") cider-repl-input-face ((t (:bold t))) "Face for previous input in the REPL buffer." cider-repl-result-face ((t nil)) "Face for the result of an evaluation in the REPL buffer." custom-declare-variable cider-repl-pop-to-buffer-on-connect funcall function #[0 "\300\207" [t] 1] "Controls whether to pop to the REPL buffer on connect.\n\nWhen set to nil the buffer will only be created, and not displayed. When\nset to `display-only' the buffer will be displayed, but it will not become\nfocused. Otherwise the buffer is displayed and focused." :type (choice (const :tag "Create the buffer, but don't display it" nil) (const :tag "Create and display the buffer, but don't focus it" display-only) (const :tag "Create, display, and focus the buffer" t)) cider-repl-display-in-current-window #[0 "\300\207" [nil] 1] "Controls whether the REPL buffer is displayed in the current window." boolean make-obsolete-variable cider-repl-scroll-on-output scroll-conservatively "0.21" cider-repl-use-pretty-printing #[0 "\300\207" [t] 1] "Control whether results in the REPL are pretty-printed or not.\nThe REPL will use the printer specified in `cider-print-fn'.\nThe `cider-toggle-pretty-printing' command can be used to interactively\nchange the setting's value." cider-repl-pretty-print-width cider-print-options cider-repl-use-content-types #[0 "\300\207" [nil] 1] "Control whether REPL results are presented using content-type information.\nThe `cider-repl-toggle-content-types' command can be used to interactively\nchange the setting's value." (cider . "0.17.0") cider-repl-auto-detect-type #[0 "\300\207" [t] 1] "Control whether to auto-detect the REPL type using track-state information.\nIf you disable this you'll have to manually change the REPL type between\nClojure and ClojureScript when invoking REPL type changing forms.\nUse `cider-set-repl-type' to manually change the REPL type." :safe booleanp (cider . "0.18.0") cider-repl-use-clojure-font-lock #[0 "\300\207" [t] 1] "Non-nil means to use Clojure mode font-locking for input and result.\nNil means that `cider-repl-input-face' and `cider-repl-result-face'\nwill be used." (cider . "0.10.0") cider-repl-require-ns-on-set #[0 "\300\207" [nil] 1] "Controls whether to require the ns before setting it in the REPL." (cider . "0.22.0") cider-repl-result-prefix #[0 "\300\207" [#1=""] 1 #1#] "The prefix displayed in the REPL before a result value.\nBy default there's no prefix, but you can specify something\nlike \"=>\" if want results to stand out more." string (cider . "0.5.0") cider-repl-tab-command #[0 "\300\207" [cider-repl-indent-and-complete-symbol] 1] "Select the command to be invoked by the TAB key.\nThe default option is `cider-repl-indent-and-complete-symbol'. If\nyou'd like to use the default Emacs behavior use\n`indent-for-tab-command'." symbol cider-repl-print-length cider-repl-print-level] 12) (defvar cider-repl-require-repl-utils-code '((clj . "(clojure.core/apply clojure.core/require clojure.main/repl-requires)") (cljs . "(require '[cljs.repl :refer [apropos dir doc find-doc print-doc pst source]])"))) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\300\314\302\303\315DD\316\306\317\310\311\312\320& \207" [custom-declare-variable cider-repl-init-code funcall function #[0 "\301\236AC\207" [cider-repl-require-repl-utils-code clj] 2] "Clojure code to evaluate when starting a REPL.\nWill be evaluated with bindings for set!-able vars in place." :type (list string) :group cider-repl :package-version (cider . "0.21.0") cider-repl-display-help-banner #[0 "\300\207" [t] 1] "When non-nil a bit of help text will be displayed on REPL start." boolean (cider . "0.11.0")] 10) (defvar cider-repl-input-start-mark nil nil) (make-variable-buffer-local 'cider-repl-input-start-mark) (defvar cider-repl-prompt-start-mark nil nil) (make-variable-buffer-local 'cider-repl-prompt-start-mark) #@150 Counter used to generate unique `cider-old-input' properties. This property value must be unique to avoid having adjacent inputs be joined together. (defvar cider-repl-old-input-counter 0 (#$ . 5650)) (make-variable-buffer-local 'cider-repl-old-input-counter) #@52 History list of strings read from the REPL buffer. (defvar cider-repl-input-history nil (#$ . 5916)) (make-variable-buffer-local 'cider-repl-input-history) #@59 Variable counting the items added in the current session. (defvar cider-repl-input-history-items-added 0 (#$ . 6078)) (make-variable-buffer-local 'cider-repl-input-history-items-added) #@104 Marker for the start of output. Currently its only purpose is to facilitate `cider-repl-clear-buffer'. (defvar cider-repl-output-start nil (#$ . 6270)) (make-variable-buffer-local 'cider-repl-output-start) #@102 Marker for the end of output. Currently its only purpose is to facilitate `cider-repl-clear-buffer'. (defvar cider-repl-output-end nil (#$ . 6483)) (make-variable-buffer-local 'cider-repl-output-end) #@57 Invoked on TAB keystrokes in `cider-repl-mode' buffers. (defalias 'cider-repl-tab #[0 " \207" [cider-repl-tab-command] 1 (#$ . 6689) nil]) #@25 Reset all REPL markers. (defalias 'cider-repl-reset-markers #[0 "\300\211\205\211@\211\301 L\210\211J`\302\223\210A\266\202\202\207" [(cider-repl-output-start cider-repl-output-end cider-repl-prompt-start-mark cider-repl-input-start-mark) make-marker nil] 5 (#$ . 6835)]) #@114 A dict holding information about all currently loaded namespaces. This cache is stored in the connection buffer. (defvar cider-repl-ns-cache nil (#$ . 7119)) (make-variable-buffer-local 'cider-repl-ns-cache) #@59 Handle server state contained in RESPONSE. (fn RESPONSE) (defalias 'cider-repl--state-handler #[257 "\3041y\305\306\307\"\235\205w\306\310\"\306\311\"\203!\203!\312!\210\313!?\205u\314 \"\315 \211\205s\211@r\211q\210\316 \204E\317\320!\203k\306\321 \"\206b\322\321 !\323\324\325\"\306\326\"\"\205`\211\262\211\203j\327!\210\210)A\266\202\202/\262\266\2020\207\330\331\"\210\316\207" [cider-repl-auto-detect-type cider-repl-ns-cache cider-eldoc-last-symbol cider-mode (debug error) "state" nrepl-dict-get "status" "repl-type" "changed-namespaces" cider-set-repl-type nrepl-dict-empty-p nrepl-dict-merge buffer-list nil derived-mode-p cider-repl-mode cider-current-ns cider-resolve--get-in seq-find make-closure #[257 "\301\300\"\207" [V0 nrepl-dict-get] 4 "\n\n(fn NS)"] "aliases" cider-refresh-dynamic-font-lock message "Error in `cider-repl--state-handler': %s"] 11 (#$ . 7333)]) #@61 Require standard REPL util functions into the current REPL. (defalias 'cider-repl-require-repl-utils #[0 "\301\302\303\"\304\305!\"A\306\307\310\311 \"\312\313#\"\207" [cider-repl-require-repl-utils-code cider-current-repl nil ensure assoc cider-repl-type nrepl-send-sync-request lax-plist-put nrepl--eval-request cider-current-ns "inhibit-cider-middleware" "true"] 7 (#$ . 8253) nil]) #@131 Make an nREPL evaluation handler for use during REPL init. Run CALLBACK once the evaluation is complete. (fn &optional CALLBACK) (defalias 'cider-repl-init-eval-handler #[256 "\300p\301\302\303\304\305\"%\207" [nrepl-make-response-handler #[514 "\300\207" [nil] 3 "\n\n(fn BUFFER VALUE)"] #[514 "\300\"\207" [cider-repl-emit-stdout] 5 "\n\n(fn BUFFER OUT)"] #[514 "\300\"\207" [cider-repl-emit-stderr] 5 "\n\n(fn BUFFER ERR)"] make-closure #[257 "\301!\210\300\205\n\300 \207" [V0 cider-repl-emit-prompt] 3 "\n\n(fn BUFFER)"]] 9 (#$ . 8650)]) #@125 Evaluate `cider-repl-init-code' in the current REPL. Run CALLBACK once the evaluation is complete. (fn &optional CALLBACK) (defalias 'cider-repl-eval-init-code #[256 "\302\303\304!\305#\306 \206 \307\310\311\312#\266\202\313!\314\315`!\316`!\317\312\320 !\"&\207" [fill-column cider-repl-init-code map-merge hash-table cider--repl-request-map (("inhibit-cider-middleware" "true")) cider-nrepl-request:eval ("nil") "\n" mapconcat identity cider-repl-init-eval-handler nil line-number-at-pos cider-column-number-at-pos seq-mapcat map-pairs] 12 (#$ . 9209) nil]) #@215 Initialize the REPL in BUFFER. BUFFER must be a REPL buffer with `cider-repl-mode' and a running client process connection. CALLBACK will be run once the REPL is fully initialized. (fn BUFFER &optional CALLBACK) (defalias 'cider-repl-init #[513 "\203 \303\304\305!\"\210 \306=\203p\307!\210\211q\266\202% \203%\310!\210rq\210\311 \210\312 \210\313\314\"\211\203N\315!r\316\317\"\216\320@\321\"\210\322\323\nZ!\210*\210\210\324!\210)\207" [cider-repl-display-in-current-window cider-repl-pop-to-buffer-on-connect scroll-margin add-to-list same-window-buffer-names buffer-name display-only display-buffer pop-to-buffer cider-repl--insert-banner cider-repl--insert-startup-commands get-buffer-window t internal--before-with-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord recenter -1 cider-repl-eval-init-code] 7 (#$ . 9784)]) #@47 Insert the banner in the current REPL buffer. (defalias 'cider-repl--insert-banner #[0 "\301\302\303 \304\305#!\210\205\301\302\306 \304\305#!\207" [cider-repl-display-help-banner insert-before-markers propertize cider-repl--banner font-lock-face font-lock-comment-face cider-repl--help-banner] 5 (#$ . 10703)]) #@205 Insert the values from params specified in PARAM-TUPLES. PARAM-TUPLES are tuples of (param-key description) or (param-key description transform) where transform is called with the param-value if present. (defalias 'cider-repl--insert-startup-commands #[0 "\301\302\303\"\302\304\"\302\305\"\203\306P!\210\204\211\205<\307!\210\203/\310\311!P!\210\211\2039\312P!\210\307!\207" [cider-launch-params #[257 "\301\302\303\304\305\306#)\266\204\203\307\202\310\311Q\312\313#!\207" [inhibit-changing-match-data insert-before-markers propertize "\\`[ \n ]*\\'" nil t string-match ";;\n" ";; " "\n" font-lock-face font-lock-comment-face] 11 "\n\n(fn CONTENTS)"] plist-get :jack-in-cmd :cljs-repl-type :repl-init-form " Startup: " "" "ClojureScript REPL type: " symbol-name "ClojureScript REPL init form: "] 8 (#$ . 11025)]) #@42 Generate the welcome REPL buffer banner. (defalias 'cider-repl--banner #[0 "\300 \203\301 \207\302 \203\303 \207\304 \207" [cider--clojure-version cider-repl--clojure-banner cider--babashka-version cider-repl--babashka-banner cider-repl--basic-banner] 1 (#$ . 11879)]) #@62 Generate the welcome REPL buffer banner for Clojure(Script). (defalias 'cider-repl--clojure-banner #[0 "\301\302\303\304\"\303\305\"\306 \307 \310 \311 &\207" [nrepl-endpoint format ";; Connected to nREPL server - nrepl://%s:%s\n;; CIDER %s, nREPL %s\n;; Clojure %s, Java %s\n;; Docs: (doc function-name)\n;; (find-doc part-of-name)\n;; Source: (source function-name)\n;; Javadoc: (javadoc java-object-or-class)\n;; Exit: \n;; Results: Stored in vars *1, *2, *3, an exception in *e;\n" plist-get :host :port cider--version cider--nrepl-version cider--clojure-version cider--java-version] 8 (#$ . 12158)]) #@55 Generate the welcome REPL buffer banner for Babashka. (defalias 'cider-repl--babashka-banner #[0 "\301\302\303\304\"\303\305\"\306 \307 \310 &\207" [nrepl-endpoint format ";; Connected to nREPL server - nrepl://%s:%s\n;; CIDER %s, babashka.nrepl %s\n;; Babashka %s\n;; Docs: (doc function-name)\n;; (find-doc part-of-name)\n;; Source: (source function-name)\n;; Javadoc: (javadoc java-object-or-class)\n;; Exit: \n;; Results: Stored in vars *1, *2, *3, an exception in *e;\n" plist-get :host :port cider--version cider--babashka-nrepl-version cider--babashka-version] 7 (#$ . 12803)]) #@44 Generate a basic banner with minimal info. (defalias 'cider-repl--basic-banner #[0 "\301\302\303\304\"\303\305\"\306 $\207" [nrepl-endpoint format ";; Connected to nREPL server - nrepl://%s:%s\n;; CIDER %s\n" plist-get :host :port cider--version] 6 (#$ . 13428)]) #@27 Generate the help banner. (defalias 'cider-repl--help-banner #[0 "\300\301!\207" [substitute-command-keys ";; ======================================================================\n;; If you're new to CIDER it is highly recommended to go through its\n;; user manual first. Type to view it.\n;; In case you're seeing any warnings you should consult the manual's\n;; \"Troubleshooting\" section.\n;;\n;; Here are few tips to get you started:\n;;\n;; * Press <\\[describe-mode]> to see a list of the keybindings available (this\n;; will work in every Emacs buffer)\n;; * Press <\\[cider-repl-handle-shortcut]> to quickly invoke some REPL command\n;; * Press <\\[cider-switch-to-last-clojure-buffer]> to switch between the REPL and a Clojure file\n;; * Press <\\[cider-find-var]> to jump to the source of something (e.g. a var, a\n;; Java method)\n;; * Press <\\[cider-doc]> to view the documentation for something (e.g.\n;; a var, a Java method)\n;; * Print CIDER's refcard and keep it close to your keyboard.\n;;\n;; CIDER is super customizable - try to\n;; get a feel for this. If you're thirsty for knowledge you should try\n;; .\n;;\n;; If you think you've encountered a bug (or have some suggestions for\n;; improvements) use to report it.\n;;\n;; Above all else - don't panic! In case of an emergency - procure\n;; some (hard) cider and enjoy it responsibly!\n;;\n;; You can remove this message with the command.\n;; You can disable it from appearing on start by setting\n;; `cider-repl-display-help-banner' to nil.\n;; ======================================================================\n"] 2 (#$ . 13700)]) #@28 Return t if in input area. (defalias 'cider-repl--in-input-area-p #[0 "`X\207" [cider-repl-input-start-mark] 2 (#$ . 15461)]) #@208 Return the current input as string. The input is the region from after the last prompt to the end of buffer. If UNTIL-POINT-P is non-nil, the input is until the current point. (fn &optional UNTIL-POINT-P) (defalias 'cider-repl--current-input #[256 "\301\203\n`\202 d\"\207" [cider-repl-input-start-mark buffer-substring-no-properties] 4 (#$ . 15595)]) #@39 Move backward to the previous prompt. (defalias 'cider-repl-previous-prompt #[0 "\300\301!\207" [cider-repl--find-prompt t] 2 (#$ . 15959) nil]) #@34 Move forward to the next prompt. (defalias 'cider-repl-next-prompt #[0 "\300 \207" [cider-repl--find-prompt] 1 (#$ . 16110) nil]) #@86 Find the next prompt. If BACKWARD is non-nil look backward. (fn &optional BACKWARD) (defalias 'cider-repl--find-prompt #[256 "`\300\301\"\210\302!\204o\204m\203\302\300!?\205b\207" [field cider-search-property-change cider-end-of-proprange-p] 6 (#$ . 16246)]) #@117 Search forward for a property change to PROP. If BACKWARD is non-nil search backward. (fn PROP &optional BACKWARD) (defalias 'cider-search-property-change #[513 "\211\203\n\300`\"b\207\301`\"b\207" [previous-single-char-property-change next-single-char-property-change] 5 (#$ . 16526)]) #@77 Return t if at the the end of a property range for PROPERTY. (fn PROPERTY) (defalias 'cider-end-of-proprange-p #[257 "\300e`S]\"\205\300`\"?\207" [get-char-property] 4 (#$ . 16823)]) #@23 Mark the input start. (defalias 'cider-repl--mark-input-start #[0 "`p\223\207" [cider-repl-input-start-mark] 3 (#$ . 17017)]) #@24 Mark the output start. (defalias 'cider-repl--mark-output-start #[0 "`\302\223\210 `\302\223\207" [cider-repl-output-start cider-repl-output-end nil] 3 (#$ . 17150)]) #@113 Move to the beginning of defun. If given a negative value of ARG, move to the end of defun. (fn &optional ARG) (defalias 'cider-repl-mode-beginning-of-defun #[256 "\211\203\211\300W\203\301[!\207\211\206\302\300\211W\205'\303\304 \266\211T\262\202\207" [0 cider-repl-mode-end-of-defun 1 nil cider-repl-previous-prompt] 5 (#$ . 17325)]) #@113 Move to the end of defun. If given a negative value of ARG, move to the beginning of defun. (fn &optional ARG) (defalias 'cider-repl-mode-end-of-defun #[256 "\211\203\211\300W\203\301[!\207\211\206\302\300\211W\205'\303\304 \266\211T\262\202\207" [0 cider-repl-mode-beginning-of-defun 1 nil cider-repl-next-prompt] 5 (#$ . 17682)]) #@29 Move to beginning of defun. (defalias 'cider-repl-beginning-of-defun #[0 "\301 \204 \302 \203 b\207\303 \207" [cider-repl-input-start-mark cider-repl--at-prompt-start-p cider-repl--in-input-area-p beginning-of-defun] 1 (#$ . 18034) nil]) #@23 Move to end of defun. (defalias 'cider-repl-end-of-defun #[0 "`dU\204\300 \203db\207\301 \207" [cider-repl--in-input-area-p end-of-defun] 2 (#$ . 18281) nil]) #@61 Set the mark and go to the beginning of line or the prompt. (defalias 'cider-repl-bol-mark #[0 "\204\301`!\210\302\303!\207" [mark-active set-mark move-beginning-of-line 1] 2 (#$ . 18450) nil]) #@89 Return t if point is at the start of prompt. This will not work on non-current prompts. (defalias 'cider-repl--at-prompt-start-p #[0 "`U\207" [cider-repl-input-start-mark] 2 (#$ . 18653)]) #@55 Save MARKER and execute BODY. (fn MARKER &rest BODY) (defalias 'cider-save-marker '(macro . #[385 "\300\301!\302\303DDC\304\305B\306EEE\207" [make-symbol "pos" let marker-position prog1 progn set-marker] 10 (#$ . 18849)])) (byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put cider-save-marker edebug-form-spec t lisp-indent-function 1] 4) #@65 Return a prompt string that mentions NAMESPACE. (fn NAMESPACE) (defalias 'cider-repl-prompt-default #[257 "\300\301\"\207" [format "%s> "] 4 (#$ . 19211)]) #@68 Return a prompt string that abbreviates NAMESPACE. (fn NAMESPACE) (defalias 'cider-repl-prompt-abbreviated #[257 "\300\301\302!\"\207" [format "%s> " cider-abbreviate-ns] 5 (#$ . 19375)]) #@73 Return a prompt string with the last name in NAMESPACE. (fn NAMESPACE) (defalias 'cider-repl-prompt-lastname #[257 "\300\301\302!\"\207" [format "%s> " cider-last-ns-segment] 5 (#$ . 19571)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable cider-repl-prompt-function funcall function #[0 "\300\207" [cider-repl-prompt-default] 1] "A function that returns a prompt string.\nTakes one argument, a namespace name.\nFor convenience, three functions are already provided for this purpose:\n`cider-repl-prompt-lastname', `cider-repl-prompt-abbreviated', and\n`cider-repl-prompt-default'." :type (choice (const :tag "Full namespace" cider-repl-prompt-default) (const :tag "Abbreviated namespace" cider-repl-prompt-abbreviated) (const :tag "Last name in namespace" cider-repl-prompt-lastname) (function :tag "Custom function")) :group cider-repl :package-version (cider . "0.9.0")] 10) #@158 Insert the prompt (before markers!), taking into account NAMESPACE. Set point after the prompt. Return the position of the prompt beginning. (fn NAMESPACE) (defalias 'cider-repl--insert-prompt #[257 "b\210\305 !\305\n!n\204\306\307!\210` !`\306!\210\310`\311#\266\f\312\223\210\266\202\n\312\223\210\262 \312\223\210\207" [cider-repl-input-start-mark cider-repl-output-start cider-repl-output-end cider-repl-prompt-function cider-repl-prompt-start-mark marker-position insert-before-markers "\n" add-text-properties (font-lock-face cider-repl-prompt-face read-only t intangible t field cider-repl-prompt rear-nonsticky (field read-only font-lock-face intangible)) nil] 10 (#$ . 20505)]) #@144 Flush ansi color context after printing. When there is a possible unfinished ansi control sequence, `ansi-color-context` maintains this list. (defalias 'cider-repl--flush-ansi-color-context #[0 "\205A@;\205\301A@!\210\302\211\207" [ansi-color-context insert-before-markers nil] 2 (#$ . 21212)]) #@60 Plist holding ns->ns-form mappings within each connection. (defvar cider-repl--ns-forms-plist nil (#$ . 21522)) (make-variable-buffer-local 'cider-repl--ns-forms-plist) #@92 Return non-nil if NS-FORM for CONNECTION changed since last eval. (fn NS-FORM CONNECTION) (defalias 'cider-repl--ns-form-changed-p #[514 "\300!\211\205\301\302\303\"\"\230?\207" [cider-ns-from-form lax-plist-get buffer-local-value cider-repl--ns-forms-plist] 8 (#$ . 21697)]) #@51 Regexp used to highlight root ns in REPL buffers. (defvar cider-repl--root-ns-highlight-template "\\_<\\(%s\\)[^$/: \n()]+" (#$ . 21986)) #@35 Cache of root ns regexp in REPLs. (defvar cider-repl--root-ns-regexp nil (#$ . 22131)) (make-variable-buffer-local 'cider-repl--root-ns-regexp) #@69 List holding all past root namespaces seen during interactive eval. (defvar cider-repl--ns-roots nil (#$ . 22281)) (make-variable-buffer-local 'cider-repl--ns-roots) #@69 Given NS-FORM cache root ns in CONNECTION. (fn NS-FORM CONNECTION) (defalias 'cider-repl--cache-ns-form #[514 "r\211q\210\304!\211\2056\305#\306\307\"\2056\310\311\"\211 \235?\2054\211 B\312\313 \314#\315\n\"\211\262\262\262)\207" [cider-repl--ns-forms-plist cider-repl--ns-roots cider-repl--root-ns-highlight-template cider-repl--root-ns-regexp cider-ns-from-form lax-plist-put string-match "\\([^.]+\\)" match-string-no-properties 1 mapconcat #[257 "\300\301\211#\207" [replace-regexp-in-string "[_-]+"] 5 "\n\n(fn R)"] "\\|" format] 8 (#$ . 22453)]) #@50 Regexp matching clojure.spec `explain` keywords. (defvar cider-repl-spec-keywords-regexp "\\(?:\\(?: \\(?:at\\|predicate\\|spec\\|val\\)\\|In\\|fails \\(?:at\\|predicate\\|spec\\)\\):\\)\\|^\\(:clojure\\.spec\\.alpha/\\(?:spec\\|value\\)\\)" (#$ . 23030)) #@127 Highlight clojure.spec `explain` keywords in STRING. Foreground of `clojure-keyword-face' is used for highlight. (fn STRING) (defalias 'cider-repl-highlight-spec-keywords #[257 "\301\302\303\304%\210\207" [cider-repl-spec-keywords-regexp cider-add-face clojure-keyword-face t nil] 7 (#$ . 23293)]) #@191 Fontify project's root namespace to make stacktraces more readable. Foreground of `cider-stacktrace-ns-face' is used to propertize matched namespaces. STRING is REPL's output. (fn STRING) (defalias 'cider-repl-highlight-current-project #[257 "\301\302\303\304%\210\207" [cider-repl--root-ns-regexp cider-add-face cider-stacktrace-ns-face t nil] 7 (#$ . 23601)]) #@76 Set help-echo property of STRING to `cider-locref-help-echo'. (fn STRING) (defalias 'cider-repl-add-locref-help-echo #[257 "\300\301G\302\303%\210\207" [put-text-property 0 help-echo cider-locref-help-echo] 7 (#$ . 23973)]) #@172 Hook run on output string before it is inserted into the REPL buffer. Each functions takes a string and must return a modified string. Also see `cider-run-chained-hook'. (defvar cider-repl-preoutput-hook '(ansi-color-apply cider-repl-highlight-current-project cider-repl-highlight-spec-keywords cider-repl-add-locref-help-echo) (#$ . 24207)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable cider-repl-buffer-size-limit funcall function #[0 "\300\207" [nil] 1] "The max size of the REPL buffer.\nSetting this to nil removes the limit." :group cider :type integer :package-version (cider . "0.26.0")] 10) #@82 Return the position of the first char of the next prompt from POINT. (fn POINT) (defalias 'cider-start-of-next-prompt #[257 "\300\301\"\302\301\"\303=\203\207\300\301\"\207" [next-single-char-property-change field get-char-property cider-repl-prompt] 5 (#$ . 24864)]) #@160 Trims REPL output from beginning of BUFFER. Trims by one fifth of `cider-repl-buffer-size-limit'. Also clears remaining partial input or results. (fn BUFFER) (defalias 'cider-repl-trim-top-of-buffer #[257 "r\211q\210\302\303_!\304!\305\306e\")\266\202)\207" [cider-repl-buffer-size-limit inhibit-read-only ceiling 0.2 cider-start-of-next-prompt t cider-repl--clear-region] 6 (#$ . 25145)]) #@100 Trim the currently visited REPL buffer partially from the top. See also `cider-repl-clear-buffer'. (defalias 'cider-repl-trim-buffer #[0 "\203\301p!\207\302\303!\207" [cider-repl-buffer-size-limit cider-repl-trim-top-of-buffer user-error "The variable `cider-repl-buffer-size-limit' is not set"] 2 (#$ . 25547) nil]) #@106 Clears portion of printed output in BUFFER when `cider-repl-buffer-size-limit' is exceeded. (fn BUFFER) (defalias 'cider-repl-maybe-trim-buffer #[257 "\301 V\205\n\302!\207" [cider-repl-buffer-size-limit buffer-size cider-repl-trim-top-of-buffer] 3 (#$ . 25874)]) #@147 Using BUFFER, emit STRING as output font-locked using FACE. Before inserting, run `cider-repl-preoutput-hook' on STRING. (fn BUFFER STRING FACE) (defalias 'cider-repl--emit-output #[771 "rq\210\212\303! b\210\304\305\306\307%\262\310\311\"\262\312!\210\313 \210\314\223\266`\nU\203;n\204;\312\315!\210 `S\314\223\210*\316\317\"\211\205o\320\n\"\205o\321\nW\205o\320\nS\"?\205o\322!r\323\324\"\216\325@\326\"\210\327\321!*\262\207" [cider-repl-output-start cider-repl-output-end cider-repl-prompt-start-mark marker-position propertize font-lock-face rear-nonsticky (font-lock-face) cider-run-chained-hook cider-repl-preoutput-hook insert-before-markers cider-repl--flush-ansi-color-context nil "\n" get-buffer-window t pos-visible-in-window-p 1 internal--before-with-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord scroll-down] 10 (#$ . 26149)]) #@65 Emit STRING as interactive output using FACE. (fn STRING FACE) (defalias 'cider-repl--emit-interactive-output #[514 "\300\301 #\207" [cider-repl--emit-output cider-current-repl] 6 (#$ . 27094)]) #@49 Emit STRING as interactive output. (fn STRING) (defalias 'cider-repl-emit-interactive-stdout #[257 "\300\301\"\207" [cider-repl--emit-interactive-output cider-repl-stdout-face] 4 (#$ . 27298)]) #@53 Emit STRING as interactive err output. (fn STRING) (defalias 'cider-repl-emit-interactive-stderr #[257 "\300\301\"\207" [cider-repl--emit-interactive-output cider-repl-stderr-face] 4 (#$ . 27500)]) #@67 Using BUFFER, emit STRING as standard output. (fn BUFFER STRING) (defalias 'cider-repl-emit-stdout #[514 "\300\301#\207" [cider-repl--emit-output cider-repl-stdout-face] 6 (#$ . 27706)]) #@64 Using BUFFER, emit STRING as error output. (fn BUFFER STRING) (defalias 'cider-repl-emit-stderr #[514 "\300\301#\207" [cider-repl--emit-output cider-repl-stderr-face] 6 (#$ . 27902)]) #@48 Emit the REPL prompt into BUFFER. (fn BUFFER) (defalias 'cider-repl-emit-prompt #[257 "r\211q\210\212\301!*\207" [cider-buffer-ns cider-repl--insert-prompt] 3 (#$ . 28095)]) #@265 Emit into BUFFER the result STRING and mark it as an evaluation result. If SHOW-PREFIX is non-nil insert `cider-repl-result-prefix' at the beginning of the line. If BOL is non-nil insert at the beginning of the line. (fn BUFFER STRING SHOW-PREFIX &optional BOL) (defalias 'cider-repl-emit-result #[1027 "rq\210\212\304! b\210\203n\204\305\306!\210\203#\305\307\n\310\311#!\210 \203/\305\312!!\202;`\305!\313`\314#\210\262\315\223\210\262*\207" [cider-repl-output-start cider-repl-output-end cider-repl-result-prefix cider-repl-use-clojure-font-lock marker-position insert-before-markers "\n" propertize font-lock-face font-lock-comment-face cider-font-lock-as-clojure add-text-properties (font-lock-face cider-repl-result-face rear-nonsticky (font-lock-face)) nil] 11 (#$ . 28278)]) #@202 Insert a newline, then indent the next line. Restrict the buffer from the prompt for indentation, to avoid being confused by strange characters (like unmatched quotes) appearing earlier in the buffer. (defalias 'cider-repl-newline-and-indent #[0 "\214d}\210\301c\210\302 )\207" [cider-repl-prompt-start-mark "\n" lisp-indent-line] 2 (#$ . 29088) nil]) #@134 Indent the current line and perform symbol completion. First indent the line. If indenting doesn't move point, complete the symbol. (defalias 'cider-repl-indent-and-complete-symbol #[0 "`\300 \210\211`U\205\212\301\302\303\304#)\205\305 \207" [lisp-indent-line re-search-backward "[^() \n ]+\\=" nil t completion-at-point] 5 (#$ . 29448) nil]) #@41 Kill all text from the prompt to point. (defalias 'cider-repl-kill-input #[0 "\301!`W\203 \302`\"\207`\301!U\205\303 \207" [cider-repl-input-start-mark marker-position kill-region cider-repl-delete-current-input] 3 (#$ . 29804) nil]) #@78 Return t if the region from START to END is a complete sexp. (fn START END) (defalias 'cider-repl--input-complete-p #[514 "\212b\210\301\302\303!)\262\2032\3041-\214}\210\305\306w\210m\204'\307 \210\202)\3020\2023\210\306\2023\302)\207" [inhibit-changing-match-data "\\s *[@'`#]?[(\"]" t looking-at (error) " \n)" nil forward-sexp] 5 (#$ . 30050)]) #@183 Insert IMAGE into BUFFER at the current point. For compatibility with the rest of CIDER's REPL machinery, supports SHOW-PREFIX and BOL. (fn BUFFER IMAGE &optional SHOW-PREFIX BOL) (defalias 'cider-repl--display-image #[1026 "rq\210\212\304! b\210\203n\204\305\306!\210\203#\305\307\n\310\311#!\210`\312\313BB\314\303!\2052\315 D\244\305\316!\210\317`#\266\320\223\266*\321\207" [cider-repl-output-start cider-repl-output-end cider-repl-result-prefix image-map marker-position insert-before-markers "\n" propertize font-lock-face font-lock-comment-face display (rear-nonsticky (display)) boundp keymap " " add-text-properties nil t] 11 (#$ . 30422)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable cider-repl-image-margin funcall function #[0 "\300\207" [10] 1] "Specifies the margin to be applied to images displayed in the REPL.\nEither a single number of pixels - interpreted as a symmetric margin, or\npair of numbers `(x . y)' encoding an arbitrary margin." :type (choice integer (vector integer integer)) :group cider-repl :package-version (cider . "0.17.0")] 10) #@331 A helper for creating images with CIDER's image options. DATA is either the path to an image or its base64 coded data. TYPE is a symbol indicating the image type. DATAP indicates whether the image is the raw image data or a filename. Returns an image instance with a margin per `cider-repl-image-margin'. (fn DATA TYPE DATAP) (defalias 'cider-repl--image #[771 "\301\302%\207" [cider-repl-image-margin create-image :margin] 9 (#$ . 31565)]) #@169 A handler for inserting a jpeg IMAGE into a repl BUFFER. Part of the default `cider-repl-content-type-handler-alist'. (fn TYPE BUFFER IMAGE &optional SHOW-PREFIX BOL) (defalias 'cider-repl-handle-jpeg #[1283 "\300\301\302\303#$\207" [cider-repl--display-image cider-repl--image jpeg t] 11 (#$ . 32021)]) #@168 A handler for inserting a png IMAGE into a repl BUFFER. Part of the default `cider-repl-content-type-handler-alist'. (fn TYPE BUFFER IMAGE &optional SHOW-PREFIX BOL) (defalias 'cider-repl-handle-png #[1283 "\300\301\302\303#$\207" [cider-repl--display-image cider-repl--image png t] 11 (#$ . 32337)]) #@169 A handler for inserting an svg IMAGE into a repl BUFFER. Part of the default `cider-repl-content-type-handler-alist'. (fn TYPE BUFFER IMAGE &optional SHOW-PREFIX BOL) (defalias 'cider-repl-handle-svg #[1283 "\300\301\302\303#$\207" [cider-repl--display-image cider-repl--image svg t] 11 (#$ . 32650)]) #@177 Handler for slurping external content into BUFFER. Handles an external-body TYPE by issuing a slurp request to fetch the content. (fn TYPE BUFFER _ &optional SHOW-PREFIX BOL) (defalias 'cider-repl-handle-external-body #[1283 "A@\211\205 \300\301\"\211\203\"\302\303\304\305\300\"F\306!\307 #\210\266\310\207" [nrepl-dict-get "access-type" nrepl-send-request "op" "slurp" "url" cider-repl-handler cider-current-repl nil] 14 (#$ . 32964)]) #@622 Association list from content-types to handlers. Handlers must be functions of two required and two optional arguments - the REPL buffer to insert into, the value of the given content type as a raw string, the REPL's show prefix as any and an `end-of-line' flag. The return value of the handler should be a flag, indicating whether or not the REPL is ready for a prompt to be displayed. Most handlers should return t, as the content-type response is (currently) an alternative to the value response. However for handlers which themselves issue subsequent nREPL ops, it may be convenient to prevent inserting a prompt. (defvar cider-repl-content-type-handler-alist (byte-code "\300\301B\302\303B\304\305B\306\307BF\207" ["message/external-body" cider-repl-handle-external-body "image/jpeg" cider-repl-handle-jpeg "image/png" cider-repl-handle-png "image/svg+xml" cider-repl-handle-svg] 5) (#$ . 33421)) #@68 Make an nREPL evaluation handler for the REPL BUFFER. (fn BUFFER) (defalias 'cider-repl-handler #[257 "\301C\302\303\304\305\306\307\"\306\310 \"\311&\207" [nrepl-err-handler t nrepl-make-response-handler #[514 "\300\301#\207" [cider-repl-emit-result t] 6 "\n\n(fn BUFFER VALUE)"] #[514 "\300\"\207" [cider-repl-emit-stdout] 5 "\n\n(fn BUFFER OUT)"] #[514 "\300\"\207" [cider-repl-emit-stderr] 5 "\n\n(fn BUFFER ERR)"] make-closure #[257 "\300\242\203 \302!\210 \205\303!\207" [V0 cider-repl-buffer-size-limit cider-repl-emit-prompt cider-repl-maybe-trim-buffer] 3 "\n\n(fn BUFFER)"] #[771 "\211A@\211\205 @\211\205\302 \"A\211\203\"\300\303\304%\240\207\305\304\211$\207" [V0 cider-repl-content-type-handler-alist assoc nil t cider-repl-emit-result] 13 "\n\n(fn BUFFER VALUE CONTENT-TYPE)"] #[514 "\300\"\207" [cider-repl-emit-stderr] 5 "\n\n(fn BUFFER WARNING)"]] 12 (#$ . 34332)]) #@118 Map to be merged into REPL eval requests. RIGHT-MARGIN is as in `cider--nrepl-print-request-map'. (fn RIGHT-MARGIN) (defalias 'cider--repl-request-map #[257 "\302\303\304!?\205 \305 \205\306 $\207" [cider-repl-use-pretty-printing cider-repl-use-content-types map-merge hash-table cider--nrepl-print-request-map (("nrepl.middleware.print/print" "cider.nrepl.pprint/pr")) cider--nrepl-content-type-map] 6 (#$ . 35259)]) #@143 Go to the end of the input and send the current input. If NEWLINE is true then add a newline at the end of the input. (fn &optional NEWLINE) (defalias 'cider-repl--send-input #[256 "\306 \204 \307\310!\210\311 \211\312\313\314\315#)\266\204\203$\316\317!\210\320p!\207db\210`\321!\210\2033\322c\210\314\323\n`\324 T\211D#\210)\f\204V\325\n\"\326\327\314#\210\326\330\331#\266\210\212\332 \210`)db\210\333 \210\334 \210\335\336p!\337 \340!\341!\342\343\344\345 !!\"&\207" [inhibit-changing-match-data inhibit-modification-hooks cider-repl-input-start-mark cider-repl-old-input-counter cider-repl-use-clojure-font-lock fill-column cider-repl--in-input-area-p error "No input at point" cider-repl--current-input "\\`[ \n ]*\\'" nil t string-match cider-repl--replace-input "" cider-repl-emit-prompt cider-repl--add-to-input-history "\n" add-text-properties cider-old-input make-overlay overlay-put read-only font-lock-face cider-repl-input-face cider-repl-beginning-of-defun cider-repl--mark-input-start cider-repl--mark-output-start cider-nrepl-request:eval cider-repl-handler cider-current-ns line-number-at-pos cider-column-number-at-pos seq-mapcat identity map-pairs cider--repl-request-map] 14 (#$ . 35690)]) #@274 Evaluate the current input string, or insert a newline. Send the current input ony if a whole expression has been entered, i.e. the parenthesis are matched. When END-OF-INPUT is non-nil, send the input even if the parentheses are not balanced. (fn &optional END-OF-INPUT) (defalias 'cider-repl-return #[256 "\211\203\301 \207\302`\303\"\203`W\203\304!\207\305d\"\203#\301\306!\207\307 \210\310\311!\207" [cider-repl-input-start-mark cider-repl--send-input get-text-property cider-old-input cider-repl--grab-old-input cider-repl--input-complete-p t cider-repl-newline-and-indent message "[input not complete]"] 4 (#$ . 36932) "P"]) #@216 Resend the old REPL input at point. If REPLACE is non-nil the current input is replaced with the old input; otherwise the new input is appended. The old input has the text property `cider-old-input'. (fn REPLACE) (defalias 'cider-repl--grab-old-input #[257 "\301\302!\211@A@{`Z\203b\210\202&db\210`Sf\303=\204&\304c\210`d|\210\212c\210`Sf\305=\203:\306\307!\210)\211u\207" [cider-repl-input-start-mark cider-property-bounds cider-old-input 32 " " 10 delete-char -1] 8 (#$ . 37581)]) #@98 Evaluate the current input string after closing all open parenthesized or bracketed expressions. (defalias 'cider-repl-closing-return #[0 "db\210\214`}\210\301\3021\212\303\304!\210\305`!A\262)\3060\202#\266\202.\203-\307!\210\202 \210)\310 \207" [cider-repl-input-start-mark nil (error) backward-up-list 1 syntax-after t insert-char cider-repl-return] 3 (#$ . 38084) nil]) #@37 Toggle pretty-printing in the REPL. (defalias 'cider-repl-toggle-pretty-printing #[0 "?\301\302\203 \303\202\304\"\207" [cider-repl-use-pretty-printing message "Pretty printing in REPL %s." "enabled" "disabled"] 3 (#$ . 38474) nil]) #@44 Toggle content-type rendering in the REPL. (defalias 'cider-repl-toggle-content-types #[0 "?\301\302\203 \303\202\304\"\207" [cider-repl-use-content-types message "Content-type support in REPL %s." "enabled" "disabled"] 3 (#$ . 38719) nil]) #@37 Toggle pretty-printing in the REPL. (defalias 'cider-repl-toggle-clojure-font-lock #[0 "?\301\302\203 \303\202\304\"\207" [cider-repl-use-clojure-font-lock message "Clojure font-locking in REPL %s." "enabled" "disabled"] 3 (#$ . 38972) nil]) #@77 Switch between the Clojure and ClojureScript REPLs for the current project. (defalias 'cider-repl-switch-to-other #[0 "\300\301\302\"\303\304\305\"\306\301\307\"\"@\211\203\310!\207\311\312\313\314!@\"\207" [cider-current-repl nil ensure seq-remove make-closure #[257 "\211\300=\207" [V0] 3 "\n\n(fn R)"] cider-repls t switch-to-buffer user-error "No other REPL in current session (%s)" sesman-current-session CIDER] 6 (#$ . 39226) nil]) #@75 Delete the output and its overlays between START and END. (fn START END) (defalias 'cider-repl--clear-region #[514 "\300\301\302\"\"\210|\207" [mapc delete-overlay overlays-in] 7 (#$ . 39674)]) #@149 Clear the currently visited REPL buffer completely. See also the related commands `cider-repl-clear-output' and `cider-find-and-clear-repl-output'. (defalias 'cider-repl-clear-buffer #[0 "\305\306e \"\210\306\n \"\210`\fW\203\fb\210\307\305!\210)\310\311!\207" [inhibit-read-only cider-repl-prompt-start-mark cider-repl-output-start cider-repl-output-end cider-repl-input-start-mark t cider-repl--clear-region recenter run-hooks cider-repl-clear-buffer-hook] 3 (#$ . 39880) nil]) #@157 Delete the output inserted since the last input. With a prefix argument CLEAR-REPL it will clear the entire REPL buffer instead. (fn &optional CLEAR-REPL) (defalias 'cider-repl-clear-output #[256 "\211\203\303 \207\304\305 \n\"\210\212\nb\210\306\307\310\311\312#!*\207" [inhibit-read-only cider-repl-output-start cider-repl-output-end cider-repl-clear-buffer t cider-repl--clear-region insert-before-markers propertize ";; output cleared\n" font-lock-face font-lock-comment-face] 6 (#$ . 40370) "P"]) #@26 Delete the REPL banners. (defalias 'cider-repl-clear-banners #[0 "e\212eb\210\301 \210\302y\210\303\210`)W\205\304\305T\")\207" [inhibit-read-only cider-repl-next-prompt -1 nil t cider-repl--clear-region] 5 (#$ . 40882) nil]) #@30 Delete the help REPL banner. (defalias 'cider-repl-clear-help-banner #[0 "\212eb\210\301\302!\210\303 \210`)\212eb\210\304 \210\305\302!\210\306\210`)W\205+\307\310T\")\207" [inhibit-read-only search-forward ";; =" beginning-of-line cider-repl-next-prompt search-backward nil t cider-repl--clear-region] 5 (#$ . 41122) nil]) #@83 Make an nREPL evaluation handler for the REPL BUFFER's ns switching. (fn BUFFER) (defalias 'cider-repl-switch-ns-handler #[257 "\300\301\302\303\304%\207" [nrepl-make-response-handler #[514 "\300\207" [nil] 3 "\n\n(fn BUFFER VALUE)"] #[514 "\300\"\207" [cider-repl-emit-stdout] 5 "\n\n(fn BUFFER OUT)"] #[514 "\300\"\207" [cider-repl-emit-stderr] 5 "\n\n(fn BUFFER ERR)"] #[257 "\300!\207" [cider-repl-emit-prompt] 3 "\n\n(fn BUFFER)"]] 7 (#$ . 41460)]) #@271 Switch the namespace of the REPL buffer to NS. If called from a cljc buffer act on both the Clojure and ClojureScript REPL if there are more than one REPL present. If invoked in a REPL buffer the command will prompt for the name of the namespace to switch to. (fn NS) (defalias 'cider-repl-set-ns #[257 "\211\203\n\211\300\232\203\301\302!\210\303\304\305\306\"\"\207" ["" user-error "No namespace selected" cider-map-repls :auto make-closure #[257 " \203\f\302\303\304\300\"\"\210\305\303\306\300\"\307!\"\207" [V0 cider-repl-require-ns-on-set cider-nrepl-sync-request:eval format "(require '%s)" cider-nrepl-request:eval "(in-ns '%s)" cider-repl-switch-ns-handler] 5 "\n\n(fn CONNECTION)"]] 6 (#$ . 41928) (byte-code "\300\301!\204 \302 \204\303\304\305 \"\202\306 C\207" [derived-mode-p cider-repl-mode cider-ns-form completing-read "Switch to namespace: " cider-sync-request:ns-list cider-current-ns] 3)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable cider-locref-regexp-alist funcall function #[0 "\300\207" [((stdout-stacktrace "[ ]\\(at \\([^$(]+\\).*(\\([^:()]+\\):\\([0-9]+\\))\\)" 1 2 3 4) (aviso-stacktrace "^[ ]*\\(\\([^$/ ]+\\).*? +\\([^:]+\\): +\\([0-9]+\\)\\)" 1 2 3 4) (print-stacktrace "\\[\\([^][$ ]+\\).* +\\([^ ]+\\) +\\([0-9]+\\)\\]" 0 1 2 3) (timbre-log "\\(TRACE\\|INFO\\|DEBUG\\|WARN\\|ERROR\\) +\\(\\[\\([^:]+\\):\\([0-9]+\\)\\]\\)" 2 3 nil 4) (cljs-message "at line \\([0-9]+\\) +\\(.*\\)$" 0 nil 2 1) (warning "warning,? +\\(\\([^\n:]+\\):\\([0-9]+\\):[0-9]+\\)" 1 nil 2 3) (compilation ".*compiling:(\\([^\n:)]+\\):\\([0-9]+\\):[0-9]+)" 0 nil 1 2))] 1] "Alist holding regular expressions for inline location references.\nEach element in the alist has the form (NAME REGEXP HIGHLIGHT VAR FILE\nLINE), where NAME is the identifier of the regexp, REGEXP - regexp matching\na location, HIGHLIGHT - sub-expression matching region to highlight on\nmouse-over, VAR - sub-expression giving Clojure VAR to look up. FILE is\ncurrently only used when VAR is nil and must be full resource path in that\ncase." :type (alist :key-type sexp) :group cider-repl :package-version (cider\. "0.16.0")] 10) #@108 Workhorse for getting locref at point. REG-LIST is an entry in `cider-locref-regexp-alist'. (fn REG-LIST) (defalias 'cider--locref-at-point-1 #[257 "\300 \210\301A@\302 \303#\205S\3048\206\305\3068\3078\3108\311@\312\224\225B\313\2059\314\315\316\317 !\320\303%\321\205C\317 !\322 \205O\323\317 !!\257\n\266\204\207" [beginning-of-line re-search-forward point-at-eol t 2 0 3 4 5 :type :highlight :var replace-regexp-in-string "_" "-" match-string-no-properties nil :file :line string-to-number] 17 (#$ . 44119)]) #@397 Return a plist of components of the location reference at POS. Limit search to current line only and return nil if no location has been found. Returned keys are :type, :highlight, :var, :file, :line, where :highlight is a cons of positions, :var and :file are strings or nil, :line is a number. See `cider-locref-regexp-alist' for how to specify regexes for locref look up. (fn &optional POS) (defalias 'cider-locref-at-point #[256 "\212\211\206`b\210\301 \302 Z\303W\205\304\305\")\207" [cider-locref-regexp-alist point-at-eol point-at-bol 300 seq-some #[257 "\300!\207" [cider--locref-at-point-1] 3 "\n\n(fn RL)"]] 4 (#$ . 44664)]) #@221 Identify location reference at POS and navigate to it. This function is used from help-echo property inside REPL buffers and uses regexes from `cider-locref-regexp-alist' to infer locations at point. (fn &optional POS) (defalias 'cider-jump-to-locref-at-point #[256 "\300!\211\203j\301\302\"\301\303\"\203\"\304!\206V\305\306!\307\"\206V\301\310\"\211\205T\311!\2034\211\202I\312 \211\205G\313\"\314!\205E\211\262\262\206T\315!\304!\262\262\211\203e\316\317\307\320$\321\"\207\322\323\"\207\324\325!\207" [cider-locref-at-point plist-get :var :line cider-sync-request:ns-path nrepl-dict-get cider-sync-request:info "file" :file file-name-absolute-p clojure-project-dir expand-file-name file-exists-p cider-path-to-ns cider--jump-to-loc-from-info nrepl-dict "line" t error "No source location for %s" user-error "No location reference at point"] 11 (#$ . 45314) nil]) #@90 Overlay used during hoovering on location references in REPL buffers. One for all REPLs. (defvar cider-locref-hoover-overlay (byte-code "\300\301\211\"\302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314 \315\316\317#\210\315\320\317#\210\211\262#\210\207" [make-overlay 1 overlay-put category cider-error-hoover pointer hand mouse-face highlight follow-link mouse keymap make-sparse-keymap define-key [return] cider-jump-to-locref-at-point [mouse-2]] 9) (#$ . 46220)) #@146 Function for help-echo property in REPL buffers. WIN, BUFFER and POS are the window, buffer and point under mouse position. (fn WIN BUFFER POS) (defalias 'cider-locref-help-echo #[771 "rq\210\301\302!\303\"\211\203\304@A$\266\202!\305!\266)\306\207" [cider-locref-hoover-overlay plist-get cider-locref-at-point :highlight move-overlay delete-overlay nil] 9 (#$ . 46732)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable cider-repl-wrap-history funcall function #[0 "\300\207" [nil] 1] "T to wrap history around when the end is reached." :type boolean :group cider-repl] 8) #@35 Newer items have smaller indices. (defvar cider-repl-input-history-position -1 (#$ . 47364)) #@58 The regexp most recently used for finding input history. (defvar cider-repl-history-pattern nil (#$ . 47463)) #@89 Add STRING to the input history. Empty strings and duplicates are ignored. (fn STRING) (defalias 'cider-repl--add-to-input-history #[257 "\211\302\232\206\n\211@\232?\205\211B T\211\207" [cider-repl-input-history cider-repl-input-history-items-added ""] 3 (#$ . 47579)]) #@35 Delete all text after the prompt. (defalias 'cider-repl-delete-current-input #[0 "db\210d|\207" [cider-repl-input-start-mark] 2 (#$ . 47864)]) #@58 Replace the current REPL input with STRING. (fn STRING) (defalias 'cider-repl--replace-input #[257 "\300 \210\301!\207" [cider-repl-delete-current-input insert-and-inherit] 3 (#$ . 48014)]) #@190 Return the position of the history item starting at START-POS. Search in DIRECTION for REGEXP. Return -1 resp the length of the history if no item matches. (fn START-POS DIRECTION REGEXP) (defalias 'cider-repl--position-in-history #[771 "\302\267\202\303\202\304\202\305\306\307#\205\310\211G\310\211\311\310\203* \\\202.\\\262\312W\203@\303\262\310\211\262\202A\311\203\200X\203T\262\310\211\262\202U\311\203\2008\310\311\313#)\266\203\203v\262\310\211\262\202w\311\203\200\310\262\202\207" [cider-repl-input-history inhibit-changing-match-data #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (forward 6 backward 10)) -1 1 error "cl-ecase failed: %s, %s" (forward backward) nil t 0 string-match] 17 (#$ . 48213)]) #@218 Replace the current input with the next line in DIRECTION. DIRECTION is 'forward' or 'backward' (in the history list). If REGEXP is non-nil, only lines matching REGEXP are considered. (fn DIRECTION &optional REGEXP) (defalias 'cider-repl--history-replace #[513 "\211 G\305 \203 \n\202\306\307\206\310#\311\306W\2033W\2033\312 8!\210\313\314\"\262\202a \204M\306U\203A\315\202HU\205H\316\262\202a \203a\306U\203[\202\\\306\262\317\262\306X\204mX\203v\203v\211\320P\262\321\322\204\202\310\202\207\313\323 \"#\210\324\211\207" [cider-repl-history-pattern cider-repl-input-history cider-repl-input-history-position cider-repl-wrap-history this-command cider-history-search-in-progress-p -1 cider-repl--position-in-history "" nil cider-repl--replace-input format "History item: %d" "End of history" "Beginning of history" "Wrapped history" "; no matching item" message "%s%s" "; current regexp: %s" cider-repl--history-replace] 12 (#$ . 49026)]) #@54 Return t if a current history search is in progress. (defalias 'cider-history-search-in-progress-p #[0 "\301=\207" [last-command cider-repl--history-replace] 2 (#$ . 50026)]) #@39 Terminate the current history search. (defalias 'cider-terminate-history-search #[0 "\211\207" [this-command last-command] 2 (#$ . 50208)]) #@192 Cycle backwards through input history. If the `last-command' was a history navigation command use the same search pattern for this command. Otherwise use the current input as search pattern. (defalias 'cider-repl-previous-input #[0 "\300\301\302\303!\"\207" [cider-repl--history-replace backward cider-repl-history-pattern t] 4 (#$ . 50357) nil]) #@67 Cycle forwards through input history. See `cider-previous-input'. (defalias 'cider-repl-next-input #[0 "\300\301\302\303!\"\207" [cider-repl--history-replace forward cider-repl-history-pattern t] 4 (#$ . 50710) nil]) #@39 Cycle forwards through input history. (defalias 'cider-repl-forward-input #[0 "\300\301\302 \"\207" [cider-repl--history-replace forward cider-repl-history-pattern] 3 (#$ . 50933) nil]) #@40 Cycle backwards through input history. (defalias 'cider-repl-backward-input #[0 "\300\301\302 \"\207" [cider-repl--history-replace backward cider-repl-history-pattern] 3 (#$ . 51125) nil]) #@55 Find the previous input matching REGEXP. (fn REGEXP) (defalias 'cider-repl-previous-matching-input #[257 "\300 \210\301\302\"\207" [cider-terminate-history-search cider-repl--history-replace backward] 4 (#$ . 51320) "sPrevious element matching (regexp): "]) #@52 Find then next input matching REGEXP. (fn REGEXP) (defalias 'cider-repl-next-matching-input #[257 "\300 \210\301\302\"\207" [cider-terminate-history-search cider-repl--history-replace forward] 4 (#$ . 51586) "sNext element matching (regexp): "]) #@138 Return the regexp for the navigation commands. If USE-CURRENT-INPUT is non-nil, use the current input. (fn &optional USE-CURRENT-INPUT) (defalias 'cider-repl-history-pattern #[256 "\303 \203\207\211\2030 `X\204\304\305!\210\306\307!\310\311\307\312#)\266\203\203*\311\207\313\314!P\207\311\207" [cider-repl-history-pattern cider-repl-input-start-mark inhibit-changing-match-data cider-history-search-in-progress-p cl--assertion-failed (<= cider-repl-input-start-mark (point)) cider-repl--current-input t "^[ \n]*$" nil string-match "^" regexp-quote] 9 (#$ . 51841)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\300\314\302\303\315DD\316\306\317\310\320\312\313& \207" [custom-declare-variable cider-repl-history-size funcall function #[0 "\300\207" [500] 1] "The maximum number of items to keep in the REPL history." :type integer :safe integerp :group cider-repl cider-repl-history-file #[0 "\300\207" [nil] 1] "File to save the persistent REPL history to." string stringp] 10) #@71 Ask the user which file to use, defaulting `cider-repl-history-file'. (defalias 'cider-repl--history-read-filename #[0 "\301\302\"\207" [cider-repl-history-file read-file-name "Use CIDER REPL history file: "] 3 (#$ . 52865)]) #@97 Read history from FILENAME and return it. It does not yet set the input history. (fn FILENAME) (defalias 'cider-repl--history-read #[257 "\300!\205%\301\302\303\"r\211q\210\304\305\"\216\306!\210\307p!\310V\205\"\311p!*\262\207" [file-readable-p generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents buffer-size 0 read] 5 (#$ . 53098)]) #@271 Load history from FILENAME into current session. FILENAME defaults to the value of `cider-repl-history-file' but user defined filenames can be used to read special history files. The value of `cider-repl-input-history' is set by this function. (fn &optional FILENAME) (defalias 'cider-repl-history-load #[256 "\211\206\302!\211\207" [cider-repl-history-file cider-repl-input-history cider-repl--history-read] 4 (#$ . 53528) (byte-code "\300 C\207" [cider-repl--history-read-filename] 1)]) #@120 Write history to FILENAME. Currently coding system for writing the contents is hardwired to utf-8-unix. (fn FILENAME) (defalias 'cider-repl--history-write #[257 "\305 \306!#\307\310G\n^#\311!\204\312\313\314\"!\210\315\211\316\317\320\"\321\322\"\216r\211q\210\323c\210\324c\210\325c\210\326\327\330\"p\")rq\210\331\315\211\315\310%\210*\266\202*\207" [cider-repl-input-history cider-repl-input-history-items-added cider-repl-history-size print-level print-length cider-repl--histories-merge cider-repl--history-read cl-subseq 0 file-writable-p error format "History file not writable: %s" nil generate-new-buffer " *temp file*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] ";; -*- coding: utf-8-unix -*-\n" ";; Automatically written history of CIDER REPL session\n" ";; Edit at your own risk\n\n" prin1 mapcar substring-no-properties write-region] 12 (#$ . 54031)]) #@136 Save the current REPL input history to FILENAME. FILENAME defaults to the value of `cider-repl-history-file'. (fn &optional FILENAME) (defalias 'cider-repl-history-save #[256 "\211\206\301!\207" [cider-repl-history-file cider-repl--history-write] 4 (#$ . 54958) (byte-code "\300 C\207" [cider-repl--history-read-filename] 1)]) #@124 Just save the history to `cider-repl-history-file'. This function is meant to be used in hooks to avoid lambda constructs. (defalias 'cider-repl-history-just-save #[0 "\301!\207" [cider-repl-history-file cider-repl-history-save] 2 (#$ . 55297)]) #@115 Merge histories from SESSION-HIST adding N-ADDED-ITEMS into FILE-HIST. (fn SESSION-HIST N-ADDED-ITEMS FILE-HIST) (defalias 'cider-repl--histories-merge #[771 "\300\301\302#\"\207" [append cl-subseq 0] 8 (#$ . 55551)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable cider-repl-shortcut-dispatch-char funcall function #[0 "\300\207" [44] 1] "Character used to distinguish REPL commands from Lisp forms." :type (character) :group cider-repl] 8) (defvar cider-repl-shortcuts (make-hash-table :test 'equal)) #@78 Add a REPL shortcut command, defined by NAME and HANDLER. (fn NAME HANDLER) (defalias 'cider-repl-add-shortcut #[514 "\301#\207" [cider-repl-shortcuts puthash] 6 (#$ . 56104)]) (byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\306\"\210\300\307\310\"\210\300\311\312\"\210\300\313\314\"\210\300\315\316\"\210\300\317\320\"\210\300\321\322\"\210\300\323\324\"\210\300\325\326\"\210\300\327\330\"\210\300\331\332\"\210\300\333\334\"\210\300\335\336\"\210\300\337\340\"\210\300\341\342\"\210\300\343\344\"\210\300\345\346\"\210\300\347\350\"\210\300\351\352\"\210\300\353\354\"\210\300\355\356\"\210\300\357\360\"\210\300\361\362\"\210\300\363\364\"\210\300\365\366\"\210\300\367\370\"\210\300\371\372\"\210\300\373\374\"\210\300\375\376\"\210\300\377\201@\"\210\300\201A\201@\"\210\300\201B\201@\"\210\300\201C\201D\"\207" [cider-repl-add-shortcut "clear-output" cider-repl-clear-output "clear" cider-repl-clear-buffer "clear-banners" cider-repl-clear-banners "clear-help-banner" cider-repl-clear-help-banner "trim" cider-repl-trim-buffer "ns" cider-repl-set-ns "toggle-pprint" cider-repl-toggle-pretty-printing "toggle-font-lock" cider-repl-toggle-clojure-font-lock "toggle-content-types" cider-repl-toggle-content-types "browse-ns" #[0 "\300\301 !\207" [cider-browse-ns cider-current-ns] 2 nil nil] "classpath" cider-classpath "history" cider-repl-history "trace-ns" cider-toggle-trace-ns "sideloader-start" cider-sideloader-start "undef" cider-undef "refresh" cider-ns-refresh "reload" cider-ns-reload "find-var" cider-find-var "doc" cider-doc "help" cider-repl-shortcuts-help "test-ns" cider-test-run-ns-tests "test-all" cider-test-run-loaded-tests "test-project" cider-test-run-project-tests "test-ns-with-filters" cider-test-run-ns-tests-with-filters "test-all-with-filters" #[0 "\300\301!\207" [cider-test-run-loaded-tests prompt-for-filters] 2 nil nil] "test-project-with-filters" #[0 "\300\301!\207" [cider-test-run-project-tests prompt-for-filters] 2 nil nil] "test-report" cider-test-show-report "run" cider-run "conn-info" cider-describe-connection "version" cider-version "require-repl-utils" cider-repl-require-repl-utils "adios" cider-quit "sayonara" "quit" "restart" cider-restart] 3) (defconst cider-repl-shortcuts-help-buffer "*CIDER REPL Shortcuts Help*") #@24 Display a help buffer. (defalias 'cider-repl-shortcuts-help #[0 "\3021\f\303!0\210\202 \210r\304!q\210\305c\210\306\307 \"\210eb\210\310 \210\311p\312\"\210)\313 \210p\207" [cider-repl-shortcuts-help-buffer cider-repl-shortcuts (error) kill-buffer get-buffer-create "CIDER REPL shortcuts:\n\n" maphash #[514 "\300\301#c\207" [format "%s:\n %s\n"] 6 "\n\n(fn K V)"] help-mode display-buffer t cider-repl-handle-shortcut] 3 (#$ . 58401) nil]) #@38 Return the available REPL shortcuts. (defalias 'cider-repl--available-shortcuts #[0 "\301!\207" [cider-repl-shortcuts cider-util--hash-keys] 2 (#$ . 58854)]) #@26 Execute a REPL shortcut. (defalias 'cider-repl-handle-shortcut #[0 "`V\203 \303 !c\207\304\305\306 \"\211\307\232\204-\310\n\"\211\203\"\311!\207\312\313\314\315\306 \316##\207\312\317!\207" [cider-repl-input-start-mark cider-repl-shortcut-dispatch-char cider-repl-shortcuts string completing-read "Command: " cider-repl--available-shortcuts "" gethash call-interactively error "Unknown command %S. Available commands: %s" mapconcat identity ", " "No command selected"] 9 (#$ . 59019) nil]) #@48 Hook executed when entering `cider-repl-mode'. (defvar cider-repl-mode-hook nil (#$ . 59524)) (defvar cider-repl-mode-syntax-table (copy-syntax-table clojure-mode-syntax-table)) (defvar cider-repl-mode-map (byte-code "\303 \304\305\306#\210\304\307\310#\210\304\311\310#\210\304\312\313#\210\304\314\315#\210\304\316\317#\210\304\320\321#\210\304\322\323#\210\304\324\325#\210\304\326\327#\210\304\330\331#\210\304\332\333#\210\304\334\335#\210\304\336\337#\210\304\340\341#\210\304\342\343#\210\304\344\343#\210\304\345\346#\210\304\347\350#\210\304\351\352#\210\304\353\354#\210\304\355\356#\210\304\357\360#\210\304\361\362#\210\304\363\364#\210\304\365\366#\210\304\367\366#\210\304\370\371#\210\304\372\373#\210\304\374\375#\210\304\376\377#\210\304\201@\201A#\210\304\201B\201C#\210\304\201D\201E#\210\304\201F\201G#\210\304\201H\201I#\210\304\201J\201K#\210\304\201L\201M#\210\304\201N\201O#\210\304\201P\201Q#\210\304\201R\201S#\210\304\201T\201U#\210\304\201V\201W#\210\304\201X\201Y#\210\304\201Z\201[#\210\304\201\\\201]#\210\304\201^\201_#\210\304\201`\201a#\210\304\201b!\201c#\210\201d\201e!\210\201f\201g\201h\201i\201j\201k \201k\201l\201k\201m\201n\201k\201o\201k\n\201pBBBBBBBBBBBBB$\210\207" [cider-repl-shortcut-dispatch-char cider-doc-menu cider-test-menu make-sparse-keymap define-key "" cider-doc-map "," cider-test-commands-map "" [134217774] cider-find-var [3 67108910] cider-find-ns [3 67108922] cider-find-keyword [134217772] cider-pop-back [3 134217774] cider-find-resource " " cider-repl-return " " cider-repl-tab [C-return] cider-repl-closing-return "\n" cider-repl-newline-and-indent "" cider-repl-clear-output [3 134217838] cider-repl-set-ns "" cider-repl-kill-input [33554433] cider-repl-bol-mark [S-home] [C-up] cider-repl-backward-input [C-down] cider-repl-forward-input [134217840] cider-repl-previous-input [134217838] cider-repl-next-input [134217842] cider-repl-previous-matching-input [134217843] cider-repl-next-matching-input "" cider-repl-next-prompt "" cider-repl-previous-prompt "" cider-interrupt "" " " cider-macroexpand-1 [3 134217837] cider-macroexpand-all "" sesman-map "" cider-switch-to-last-clojure-buffer [3 134217839] cider-repl-switch-to-other [3 134217843] cider-selector [3 134217828] cider-describe-connection "" cider-quit [3 134217842] cider-restart [3 134217833] cider-inspect [3 134217840] cider-repl-history [3 134217844 118] cider-toggle-trace-var [3 134217844 110] cider-toggle-trace-ns "" cider-start-map "" cider-eval-last-sexp "" clojure-refactor-map "" cider-eval-commands-map [3 134217834] cider-jack-in-clj [3 134217802] cider-jack-in-cljs [3 134217827] cider-connect-clj [3 134217795] cider-connect-cljs string cider-repl-handle-shortcut (lambda (def-tmp-var) (defvar cider-repl-mode-menu def-tmp-var #1="Menu for CIDER's REPL mode")) nil easy-menu-do-define cider-repl-mode-menu #1# "REPL" ["Complete symbol" complete-symbol] "--" ("Find" ["Find definition" cider-find-var] ["Find namespace" cider-find-ns] ["Find resource" cider-find-resource] ["Find keyword" cider-find-keyword] ["Go back" cider-pop-back]) ["Switch to Clojure buffer" cider-switch-to-last-clojure-buffer] ["Switch to other REPL" cider-repl-switch-to-other] ("Macroexpand" ["Macroexpand-1" cider-macroexpand-1] ["Macroexpand-all" cider-macroexpand-all]) ("--" ["Run project (-main function)" cider-run] ["Inspect" cider-inspect] ["Toggle var tracing" cider-toggle-trace-var] ["Toggle ns tracing" cider-toggle-trace-ns] ["Refresh loaded code" cider-ns-refresh] "--" ["Set REPL ns" cider-repl-set-ns] ["Toggle pretty printing" cider-repl-toggle-pretty-printing] ["Toggle Clojure font-lock" cider-repl-toggle-clojure-font-lock] ["Toggle rich content types" cider-repl-toggle-content-types] ["Require REPL utils" cider-repl-require-repl-utils] "--" ["Browse classpath" cider-classpath] ["Browse classpath entry" cider-open-classpath-entry] ["Browse namespace" cider-browse-ns] ["Browse all namespaces" cider-browse-ns-all] ["Browse spec" cider-browse-spec] ["Browse all specs" cider-browse-spec-all] "--" ["Next prompt" cider-repl-next-prompt] ["Previous prompt" cider-repl-previous-prompt] ["Clear output" cider-repl-clear-output] ["Clear buffer" cider-repl-clear-buffer] ["Trim buffer" cider-repl-trim-buffer] ["Clear banners" cider-repl-clear-banners] ["Clear help banner" cider-repl-clear-help-banner] ["Kill input" cider-repl-kill-input] "--" ["Interrupt evaluation" cider-interrupt] "--" ["Connection info" cider-describe-connection] "--" ["Close ancillary buffers" cider-close-ancillary-buffers] ["Quit" cider-quit] ["Restart" cider-restart] "--" ["Clojure Cheatsheet" cider-cheatsheet] "--" ["A sip of CIDER" cider-drink-a-sip] ["View manual online" cider-view-manual] ["View refcard online" cider-view-refcard] ["Report a bug" cider-report-bug] ["Version info" cider-version])] 19)) (sesman-install-menu cider-repl-mode-map) #@76 Return a function that will call FUNC narrowed to input region. (fn FUNC) (defalias 'cider-repl-wrap-fontify-function #[257 "\300\301\"\207" [make-closure #[642 " \205 V\205\214 d}\210\303\304\300 ]$*\207" [V0 cider-repl-input-start-mark font-lock-dont-widen t apply] 8 "\n\n(fn BEG END &rest REST)"]] 4 (#$ . 64538)]) (defvar cider-repl-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [cider-repl-mode-hook variable-documentation put "Hook run after entering REPL mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp cider-repl-mode-map definition-name cider-repl-mode] 4) (defvar cider-repl-mode-map (make-sparse-keymap)) (byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\317#\207" [cider-repl-mode-abbrev-table cider-repl-mode-map variable-documentation put purecopy "Keymap for `cider-repl-mode'." boundp cider-repl-mode-syntax-table definition-name cider-repl-mode (lambda (def-tmp-var) (defvar cider-repl-mode-syntax-table def-tmp-var)) make-syntax-table "Syntax table for `cider-repl-mode'." (lambda (def-tmp-var) (defvar cider-repl-mode-abbrev-table def-tmp-var)) define-abbrev-table nil "Abbrev table for `cider-repl-mode'." derived-mode-parent] 5) #@172 Major mode for Clojure REPL interactions. \{cider-repl-mode-map} This mode runs the hook `cider-repl-mode-hook', as the final or penultimate step during initialization. (defalias 'cider-repl-mode #[0 "\306\300!\210\307\310 \210\311\312\313 !\210\314\f!\210 (\315 \210\316 \210\317\320)\"\210\306\321!\210\322\306\323!\210\324!\306\325!\210\324!\314\f!\210\326 \210\306\327!\210\330\306\331!\210\332\306\333!\210*\334 \210+\203u\335+!\210\336\337\340\307\211$\210\336\341\340\"\210\336\342\343\320\307$\210\336\344\345\"\210)\346\347!\207" [delay-mode-hooks major-mode mode-name cider-repl-mode-map cider-repl-mode-syntax-table cider-repl-mode-abbrev-table make-local-variable t kill-all-local-variables cider-repl-mode "REPL" use-local-map set-syntax-table clojure-mode-variables clojure-font-lock-setup font-lock-add-keywords nil sesman-system CIDER font-lock-fontify-region-function cider-repl-wrap-fontify-function font-lock-unfontify-region-function cider-eldoc-setup beginning-of-defun-function cider-repl-mode-beginning-of-defun end-of-defun-function cider-repl-mode-end-of-defun prettify-symbols-alist hack-dir-local-variables-non-file-buffer cider-repl-history-load add-hook kill-buffer-hook cider-repl-history-just-save kill-emacs-hook completion-at-point-functions cider-complete-at-point paredit-mode-hook #[0 "\301!\207" [cider-repl-mode-map clojure-paredit-setup] 2] run-mode-hooks cider-repl-mode-hook local-abbrev-table cider--static-font-lock-keywords clojure--prettify-symbols-alist cider-repl-history-file] 5 (#$ . 66076) nil]) (provide 'cider-repl)