;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301\302\303\304\305\306\307\310\311\310\312\310\313\310\314&\210\315\316!\210\315\317!\210\315\320!\210\315\321!\210\315\322!\210\315\323!\210\315\324!\210\315\325!\210\315\326!\210\315\327!\210\315\330!\210\315\331!\210\315\332!\210\315\333!\207" [custom-declare-group cider nil "Clojure Interactive Development Environment that Rocks." :prefix "cider-" :group applications :link (url-link :tag "GitHub" "https://github.com/clojure-emacs/cider") (url-link :tag "Homepage" "https://cider.mx") (url-link :tag "Documentation" "https://docs.cider.mx") (emacs-commentary-link :tag "Commentary" "cider") require cider-client cider-eldoc cider-repl cider-repl-history cider-connection cider-mode cider-common cider-compat cider-debug cider-util tramp-sh subr-x seq sesman] 16) #@175 Fallback version used when it cannot be extracted automatically. Normally it won't be used, unless `pkg-info' fails to extract the version from the CIDER package or library. (defconst cider-version "1.1.1" (#$ . 877)) #@42 Codename used to denote stable releases. (defconst cider-codename "Plovdiv" (#$ . 1101)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\311\315\316& \210\300\317\302\303\320DD\321\306\307\310\311\315\316& \210\300\322\302\303\323DD\324\306\307\310\311\325\326& \210\300\327\302\303\330DD\331\306\307\310\311\315\316\325\332& \210\300\333\302\303\334DD\335\306\307\310\311\315\316\325\336& \210\300\337\302\303\340DD\341\306\307\310\311\315\316\325\342& \210\300\343\302\303\344DD\345\306\307\310\311\315\316\325\346& \210\300\347\302\303\350DD\351\306\307\310\311\315\316\325\352& \210\300\353\302\303\354DD\355\306\307\310\311\315\316\325\356& \210\300\357\302\303\360DD\361\306\307\310\311\315\316\325\362& \210\300\363\302\303\364DD\365\306\307\310\311\315\316\325\366& \210\300\367\302\303\370DD\371\306\307\310\311\315\316\325\372& \210\300\373\302\303\374DD\375\306\307\310\311\315\316\325\376& \210\300\377\302\303\201@DD\201A\306\307\310\311\315\316\325\201B& \210\300\201C\302\303\201DDD\201E\306\201F\310\311\315\201G\325\201H& \210\300\201I\302\303\201JDD\201K\306\201L\310\311\315\201G\325\201M& \210\300\201N\302\303\201ODD\201P\306\201Q\310\311\315\201G\325\201R& \210\300\201S\302\303\201TDD\201U\306\201V\310\311&\210\300\201W\302\303\201XDD\201Y\306\201Z\310\311\325\201[& \210\300\201\\\302\303\201]DD\201^\306\201Z\310\311\325\201_& \210\300\201`\302\303\201aDD\201b\306\201c\315\201d\201e\201f& \210\300\201g\302\303\201hDD\201i\306\201c\315\201d\201e\201j& \207" [custom-declare-variable cider-lein-command funcall function #[0 "\300\207" [#1="lein"] 1 #1#] "The command used to execute Leiningen." :type string :group cider cider-lein-global-options #[0 "\300\207" [nil] 1] "Command global options used to execute Leiningen (e.g.: -o for offline)." :safe stringp cider-lein-parameters #[0 "\300\207" [#2="repl :headless :host localhost"] 1 #2#] "Params passed to Leiningen to start an nREPL server via `cider-jack-in'." cider-boot-command #[0 "\300\207" [#3="boot"] 1 #3#] "The command used to execute Boot." :package-version (cider . "0.9.0") cider-boot-global-options #[0 "\300\207" [nil] 1] "Command global options used to execute Boot (e.g.: -c for checkouts)." (cider . "0.14.0") cider-boot-parameters #[0 "\300\207" [#4="repl -s -b localhost wait"] 1 #4#] "Params passed to boot to start an nREPL server via `cider-jack-in'." (cider . "0.9.0") cider-clojure-cli-command #[0 "\301=\203\302\303!\204\304\207\303\207" [system-type windows-nt executable-find "clojure" "powershell"] 2] "The command used to execute clojure with tools.deps (requires Clojure 1.9+).\nDon't use clj here, as it doesn't work when spawned from Emacs due to it\nusing rlwrap. If on Windows and no \"clojure\" executable is found we\ndefault to \"powershell\"." (cider . "0.17.0") cider-clojure-cli-global-options #[0 "\300\207" [nil] 1] "Command line options used to execute clojure with tools.deps." (cider . "0.17.0") cider-clojure-cli-aliases #[0 "\300\207" [nil] 1] "A list of aliases to include when using the clojure cli.\nShould be of the form `foo:bar`. Any leading \"-A\" or \"-M\" will be\nstripped as these are concatenated into the \"-M[your-deps]:cider/nrepl\"\nform." (cider . "1.1") cider-shadow-cljs-command #[0 "\300\207" [#5="npx shadow-cljs"] 1 #5#] "The command used to execute shadow-cljs.\n\nBy default we favor the project-specific shadow-cljs over the system-wide." (cider . "0.17.0") cider-shadow-cljs-global-options #[0 "\300\207" [#6=""] 1 #6#] "Command line options used to execute shadow-cljs (e.g.: -v for verbose mode)." (cider . "0.17.0") cider-shadow-cljs-parameters #[0 "\300\207" [#7="server"] 1 #7#] "Params passed to shadow-cljs to start an nREPL server via `cider-jack-in'." (cider . "0.17.0") cider-gradle-command #[0 "\300\207" [#8="gradle"] 1 #8#] "The command used to execute Gradle." (cider . "0.10.0") cider-gradle-global-options #[0 "\300\207" [#9="--no-daemon"] 1 #9#] "Command line options used to execute Gradle (e.g.: -m for dry run)." (cider . "0.14.0") cider-gradle-parameters #[0 "\300\207" [#10="clojureRepl"] 1 #10#] "Params passed to gradle to start an nREPL server via `cider-jack-in'." (cider . "0.10.0") cider-jack-in-default #[0 "\300\301!\203\302\207\303\207" [executable-find "clojure" clojure-cli lein] 2] "The default tool to use when doing `cider-jack-in' outside a project.\nThis value will only be consulted when no identifying file types, i.e.\nproject.clj for leiningen or build.boot for boot, could be found.\n\nAs the Clojure CLI is bundled with Clojure itself, it's the default.\nIn the absence of the Clojure CLI (e.g. on Windows), we fallback\nto Leiningen." (choice (const lein) (const boot) (const clojure-cli) (const shadow-cljs) (const gradle)) symbolp (cider . "0.9.0") cider-preferred-build-tool #[0 "\300\207" [nil] 1] "Allow choosing a build system when there are many.\nWhen there are project markers from multiple build systems (e.g. lein and\nboot) the user is prompted to select one of them. When non-nil, this\nvariable will suppress this behavior and will select whatever build system\nis indicated by the variable if present. Note, this is only when CIDER\ncannot decide which of many build systems to use and will never override a\ncommand when there is no ambiguity." (choice (const lein) (const boot) (const clojure-cli) (const shadow-cljs) (const gradle) (const :tag "Always ask" nil)) (cider . "0.13.0") cider-allow-jack-in-without-project #[0 "\300\207" [warn] 1] "Controls what happens when doing `cider-jack-in' outside a project.\nWhen set to 'warn you'd prompted to confirm the command.\nWhen set to t `cider-jack-in' will quietly continue.\nWhen set to nil `cider-jack-in' will fail." (choice (const :tag "always" t) (const warn) (const :tag "never" nil)) (cider . "0.15.0") cider-known-endpoints #[0 "\300\207" [nil] 1] "A list of connection endpoints where each endpoint is a list.\nFor example: \\='((\"label\" \"host\" \"port\")).\nThe label is optional so that \\='(\"host\" \"port\") will suffice.\nThis variable is used by `cider-connect'." (repeat (list (string :tag "label") (string :tag "host") (string :tag "port"))) cider-connected-hook #[0 "\300\207" [nil] 1] "List of functions to call when connected to Clojure nREPL server." hook (cider . "0.9.0") cider-disconnected-hook #[0 "\300\207" [nil] 1] "List of functions to call when disconnected from the Clojure nREPL server." (cider . "0.9.0") cider-inject-dependencies-at-jack-in #[0 "\300\207" [t] 1] "When nil, do not inject repl dependencies (most likely nREPL middlewares) at `cider-jack-in' time." boolean booleanp :version (cider . "0.11.0") cider-offer-to-open-cljs-app-in-browser #[0 "\300\207" [t] 1] "When nil, do not offer to open ClojureScript apps in a browser on connect." (cider . "0.15.0")] 12) #@70 Process snapshot command used in `cider-locate-running-nrepl-ports'. (defvar cider-ps-running-nrepls-command "ps u | grep leiningen" (#$ . 7995)) #@145 Regexp list to get project paths. Extract project paths from output of `cider-ps-running-nrepls-command'. Sub-match 1 must be the project path. (defvar cider-ps-running-nrepl-path-regexp-list '("\\(?:leiningen.original.pwd=\\)\\(.+?\\) -D" "\\(?:-classpath +:?\\(.+?\\)/self-installs\\)") (#$ . 8148)) #@42 Completion history for connection hosts. (defvar cider-host-history nil (#$ . 8456)) #@26 Display CIDER's version. (defalias 'cider-version #[0 "\300\301\302 \"\207" [message "CIDER %s" cider--version] 3 (#$ . 8547) nil]) #@96 Determine the command `cider-jack-in' needs to invoke for the PROJECT-TYPE. (fn PROJECT-TYPE) (defalias 'cider-jack-in-command #[257 "\211\305\267\202\207 \207\n\207 \207\f\207\306\307\"\207" [cider-lein-command cider-boot-command cider-clojure-cli-command cider-shadow-cljs-command cider-gradle-command #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (lein 6 boot 8 clojure-cli 10 shadow-cljs 12 gradle 14)) user-error "Unsupported project type `%S'"] 4 (#$ . 8685)]) #@125 Determine the resolved file path to `cider-jack-in-command'. Throws an error if PROJECT-TYPE is unknown. (fn PROJECT-TYPE) (defalias 'cider-jack-in-resolve-command #[257 "\211\305\267\202*\306!\207\306 !\207\306\n!\207\307 !\306@!\211\205%\310\311AB\312#\207\306\f!\207\313\314\"\207" [cider-lein-command cider-boot-command cider-clojure-cli-command cider-shadow-cljs-command cider-gradle-command #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (lein 6 boot 10 clojure-cli 14 shadow-cljs 18 gradle 38)) cider--resolve-command split-string mapconcat identity " " user-error "Unsupported project type `%S'"] 7 (#$ . 9203)]) #@97 Determine the command line options for `cider-jack-in' for the PROJECT-TYPE. (fn PROJECT-TYPE) (defalias 'cider-jack-in-global-options #[257 "\211\305\267\202\207 \207\n\207 \207\f\207\306\307\"\207" [cider-lein-global-options cider-boot-global-options cider-clojure-cli-global-options cider-shadow-cljs-global-options cider-gradle-global-options #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (lein 6 boot 8 clojure-cli 10 shadow-cljs 12 gradle 14)) user-error "Unsupported project type `%S'"] 4 (#$ . 9876)]) #@92 Determine the commands params for `cider-jack-in' for the PROJECT-TYPE. (fn PROJECT-TYPE) (defalias 'cider-jack-in-params #[257 "\211\304\267\202\207 \207\305\207\n\207 \207\306\307\"\207" [cider-lein-parameters cider-boot-parameters cider-shadow-cljs-parameters cider-gradle-parameters #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (lein 6 boot 8 clojure-cli 10 shadow-cljs 12 gradle 14)) nil user-error "Unsupported project type `%S'"] 4 (#$ . 10436)]) #@77 List of dependencies where elements are lists of artifact name and version. (defvar cider-jack-in-dependencies nil (#$ . 10941)) (byte-code "\300\301\302\303#\210\304\301\305\306#\207" [put cider-jack-in-dependencies risky-local-variable t cider-add-to-alist "nrepl/nrepl" "0.8.3"] 4) #@148 List of dependencies where elements are lists of artifact name and version. Added to `cider-jack-in-dependencies' when doing `cider-jack-in-cljs'. (defvar cider-jack-in-cljs-dependencies nil (#$ . 11233)) (byte-code "\300\301\302\303#\210\304\301\305\306#\207" [put cider-jack-in-cljs-dependencies risky-local-variable t cider-add-to-alist "cider/piggieback" "0.5.2"] 4) #@135 List of exclusions for jack in dependencies. Elements of the list are artifact name and list of exclusions to apply for the artifact. (defvar cider-jack-in-dependencies-exclusions nil (#$ . 11611)) (put 'cider-jack-in-dependencies-exclusions 'risky-local-variable t) #@34 Artifact identifier for Clojure. (defconst cider-clojure-artifact-id "org.clojure/clojure" (#$ . 11884)) #@39 Minimum supported version of Clojure. (defconst cider-minimum-clojure-version "1.8.0" (#$ . 11995)) #@38 Latest supported version of Clojure. (defconst cider-latest-clojure-version "1.10.1" (#$ . 12101)) #@67 The CIDER nREPL version that's known to work properly with CIDER. (defconst cider-required-middleware-version "0.26.0" (#$ . 12206)) (byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable cider-jack-in-auto-inject-clojure funcall function #[0 "\300\207" [nil] 1] "Version of clojure to auto-inject into REPL.\nIf nil, do not inject Clojure into the REPL. If `latest', inject\n`cider-latest-clojure-version', which should approximate to the most recent\nversion of Clojure. If `minimal', inject `cider-minimum-clojure-version',\nwhich will be the lowest version CIDER supports. If a string, use this as\nthe version number. If it is a list, the first element should be a string,\nspecifying the artifact ID, and the second element the version number." :type (choice (const :tag "None" nil) (const :tag "Latest" 'latest) (const :tag "Minimal" 'minimal) (string :tag "Specific Version") (list :tag "Artifact ID and Version" (string :tag "Artifact ID") (string :tag "Version")))] 6) #@565 List of Leiningen plugins to be injected at jack-in. Each element is a list of artifact name and version, followed optionally by keyword arguments. The only keyword argument currently accepted is `:predicate', which should be given a function that takes the list (name, version, and keyword arguments) and returns non-nil to indicate that the plugin should actually be injected. (This is useful primarily for packages that extend CIDER, not for users. For example, a refactoring package might want to inject some middleware only when within a project context.) (defvar cider-jack-in-lein-plugins nil (#$ . 13219)) (byte-code "\301\302\303\304#\210\305\302\306#\207" [cider-required-middleware-version put cider-jack-in-lein-plugins risky-local-variable t cider-add-to-alist "cider/cider-nrepl"] 4) #@137 List of Leiningen plugins to be injected at jack-in. Added to `cider-jack-in-lein-plugins' (which see) when doing `cider-jack-in-cljs'. (defvar cider-jack-in-cljs-lein-plugins nil (#$ . 14028)) (put 'cider-jack-in-cljs-lein-plugins 'risky-local-variable t) #@195 Return a normalized list of Leiningen plugins to be injected. See `cider-jack-in-lein-plugins' for the format, except that the list returned by this function does not include keyword arguments. (defalias 'cider-jack-in-normalized-lein-plugins #[0 "\301\302\303\304\"\"\207" [cider-jack-in-lein-plugins mapcar #[257 "\300\301\"\207" [seq-take 2] 4 "\n\n(fn SPEC)"] seq-filter #[257 "\300\301\302\"\303\"\211\203\211!\207\304\207" [plist-get seq-drop 2 :predicate t] 5 "\n\n(fn SPEC)"]] 5 (#$ . 14292)]) #@443 List of Clojure variable names. Each of these Clojure variables should hold a vector of nREPL middlewares. Instead of a string, an element can be a list containing a string followed by optional keyword arguments. The only keyword argument currently accepted is `:predicate', which should be given a function that takes the list (string and keyword arguments) and returns non-nil to indicate that the middlewares should actually be injected. (defvar cider-jack-in-nrepl-middlewares nil (#$ . 14807)) (byte-code "\301\300\302\303#\210\304\235\204\304B\301\207" [cider-jack-in-nrepl-middlewares put risky-local-variable t "cider.nrepl/cider-middleware"] 4) #@121 List of Clojure variable names. Added to `cider-jack-in-nrepl-middlewares' (which see) when doing `cider-jack-in-cljs'. (defvar cider-jack-in-cljs-nrepl-middlewares nil (#$ . 15474)) (byte-code "\301\300\302\303#\210\304\235\204\304B\301\207" [cider-jack-in-cljs-nrepl-middlewares put risky-local-variable t "cider.piggieback/wrap-cljs-repl"] 4) #@180 Return a normalized list of middleware variable names. See `cider-jack-in-nrepl-middlewares' for the format, except that the list returned by this function only contains strings. (defalias 'cider-jack-in-normalized-nrepl-middlewares #[0 "\301\302\303\304\"\"\207" [cider-jack-in-nrepl-middlewares mapcar #[257 "\211<\203\211@\207\207" [] 2 "\n\n(fn SPEC)"] seq-filter #[257 "\211\320%\207" [cider-jack-in-lein-plugins cider-clojure-cli-aliases seq-map #[257 "\300\301@A@#\207" [format "%s {:mvn/version \"%s\"}"] 5 "\n\n(fn DEP)"] append " " mapconcat identity apply-partially format "%s" cider-jack-in-normalized-nrepl-middlewares "," "\"-m\" \"nrepl.cmdline\" \"--middleware\" \"[%s]\"" "%s-Sdeps '{:deps {%s} :aliases {:cider/nrepl {:main-opts [%s]}}}' -M%s:cider/nrepl" "%s " "" ":%s" replace-regexp-in-string "^-\\(A\\|M\\):"] 17 (#$ . 19275)]) #@139 Create shadow-cljs jack-in deps. Does so by concatenating GLOBAL-OPTS, DEPENDENCIES finally PARAMS. (fn GLOBAL-OPTS PARAMS DEPENDENCIES) (defalias 'cider-shadow-cljs-jack-in-dependencies #[771 "\301\"\302!?\205 \303\304\305\306\307\"\303#\303\260\207" [cider-jack-in-lein-plugins append seq-empty-p " " mapconcat identity seq-map #[257 "\300\301@A@#\207" [format "-d %s:%s"] 5 "\n\n(fn DEP)"]] 11 (#$ . 20290)]) #@133 Return DEPENDENCIES with an added Clojure dependency if requested. See also `cider-jack-in-auto-inject-clojure'. (fn DEPENDENCIES) (defalias 'cider-add-clojure-dependencies-maybe #[257 "\203/:\203 B\207 ;\203\202+\304\267\202%\n\202+ \202+;\205+DB\207\207" [cider-jack-in-auto-inject-clojure cider-clojure-artifact-id cider-minimum-clojure-version cider-latest-clojure-version #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (minimal 29 latest 33))] 4 (#$ . 20722)]) #@408 Return GLOBAL-OPTS and PARAMS with injected REPL dependencies. These are set in `cider-jack-in-dependencies', `cider-jack-in-lein-plugins' and `cider-jack-in-nrepl-middlewares' are injected from the CLI according to the used PROJECT-TYPE. Eliminates the need for hacking profiles.clj or the boot script for supporting CIDER with its nREPL middleware and dependencies. (fn GLOBAL-OPTS PARAMS PROJECT-TYPE) (defalias 'cider-inject-jack-in-dependencies #[771 "\211\302\267\2029\303\304! \305 %\207\306\304!\305 \307 %\207\310\304!#\207\311\304!#\207\312!?\2056\313Q\207\314\315\"\207" [cider-jack-in-dependencies cider-jack-in-dependencies-exclusions #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (lein 6 boot 17 clojure-cli 29 shadow-cljs 37 gradle 45)) cider-lein-jack-in-dependencies cider-add-clojure-dependencies-maybe cider-jack-in-normalized-lein-plugins cider-boot-jack-in-dependencies cider-jack-in-normalized-nrepl-middlewares cider-clojure-cli-jack-in-dependencies cider-shadow-cljs-jack-in-dependencies seq-empty-p " " error "Unsupported project type `%S'"] 9 (#$ . 21253)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable cider-check-cljs-repl-requirements funcall function #[0 "\300\207" [t] 1] "When non-nil will run the requirement checks for the different cljs repls.\nGenerally you should not disable this unless you run into some faulty check." :type boolean :safe booleanp :package-version (cider . "0.17.0")] 10) #@41 Check whether ClojureScript is present. (defalias 'cider-verify-clojurescript-is-present #[0 "\300\301!?\205\n\302\303!\207" [cider-library-present-p "cljs.core" user-error "ClojureScript is not available. See https://docs.cider.mx/cider/basics/clojurescript for details"] 2 (#$ . 22796)]) #@53 Check whether the piggieback middleware is present. (defalias 'cider-verify-piggieback-is-present #[0 "\300\301!?\205\n\302\303!\207" [cider-library-present-p "cider.piggieback" user-error "Piggieback 0.4.x (aka cider/piggieback) is not available. See https://docs.cider.mx/cider/basics/clojurescript for details"] 2 (#$ . 23094)]) #@55 Check whether we can start a Node ClojureScript REPL. (defalias 'cider-check-node-requirements #[0 "\300 \210\301\302!?\205 \303\304!\207" [cider-verify-piggieback-is-present executable-find "node" user-error "Node.js is not present on the exec-path. Make sure you've installed it and your exec-path is properly set"] 2 (#$ . 23434)]) #@59 Check whether we can start a Figwheel ClojureScript REPL. (defalias 'cider-check-figwheel-requirements #[0 "\300 \210\301\302!?\205 \303\304!\207" [cider-verify-piggieback-is-present cider-library-present-p "figwheel-sidecar.repl" user-error "Figwheel-sidecar is not available. Please check https://docs.cider.mx/cider/basics/clojurescript for details"] 2 (#$ . 23777)]) #@59 Check whether we can start a Figwheel ClojureScript REPL. (defalias 'cider-check-figwheel-main-requirements #[0 "\300 \210\301\302!?\205 \303\304!\207" [cider-verify-piggieback-is-present cider-library-present-p "figwheel.main" user-error "Figwheel-main is not available. Please check https://docs.cider.mx/cider/basics/clojurescript for details"] 2 (#$ . 24156)]) #@57 Check whether we can start a Weasel ClojureScript REPL. (defalias 'cider-check-weasel-requirements #[0 "\300 \210\301\302!?\205 \303\304!\207" [cider-verify-piggieback-is-present cider-library-present-p "weasel.repl.server" user-error "Weasel in not available. Please check https://docs.cider.mx/cider/basics/clojurescript/#browser-connected-clojurescript-repl for details"] 2 (#$ . 24529)]) #@55 Check whether we can start a Boot ClojureScript REPL. (defalias 'cider-check-boot-requirements #[0 "\300 \210\301\302!?\205 \303\304!\207" [cider-verify-piggieback-is-present cider-library-present-p "adzerk.boot-cljs-repl" user-error "The Boot ClojureScript REPL is not available. Please check https://github.com/adzerk-oss/boot-cljs-repl/blob/master/README.md for details"] 2 (#$ . 24929)]) #@56 Check whether we can start a Krell ClojureScript REPL. (defalias 'cider-check-krell-requirements #[0 "\300 \210\301\302!?\205 \303\304!\207" [cider-verify-piggieback-is-present cider-library-present-p "krell.repl" user-error "The Krell ClojureScript REPL is not available. Please check https://github.com/vouch-opensource/krell for details"] 2 (#$ . 25329)]) #@48 Check whether we can start a shadow-cljs REPL. (defalias 'cider-check-shadow-cljs-requirements #[0 "\300\301!?\205\n\302\303!\207" [cider-library-present-p "shadow.cljs.devtools.api" user-error "The shadow-cljs ClojureScript REPL is not available. Please check https://docs.cider.mx/cider/basics/clojurescript for details"] 2 (#$ . 25696)]) #@88 Normalize the OPTIONS string used for initializing a ClojureScript REPL. (fn OPTIONS) (defalias 'cider-normalize-cljs-init-options #[257 "\300\301\"\204#\300\302\"\204#\300\303\"\204#\300\304\"\204#\300\305\"\203$\207\304P\207" [string-prefix-p "{" "(" "[" ":" "\""] 4 (#$ . 26045)]) (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\321& \207" [custom-declare-variable cider-shadow-watched-builds funcall function #[0 "\300\207" [nil] 1] "Defines the list of builds `shadow-cljs' should watch." :type (repeat string) :safe listp :package-version (cider . "1.0") cider-shadow-default-options #[0 "\300\207" [nil] 1] "Defines default `shadow-cljs' options." string #[257 "\211?\206\211;\207" [] 2 "\n\n(fn S)"] (cider . "0.18.0")] 10) #@139 Parses the build names of a shadow-cljs.edn HASH map. The default options of `browser-repl' and `node-repl' are also included. (fn HASH) (defalias 'cider--shadow-parse-builds #[257 "\300!\205\n\301\302\"\300!\205 \211\303C\304\305\306\"\"\210\211\242\237\266\202\307\310\"\207" [hash-table-p gethash :builds nil maphash make-closure #[514 "\300\300\242B\240\207" [V0] 5 "\n\n(fn K --CL-VAR--)"] append (browser-repl node-repl)] 8 (#$ . 26865)]) #@79 Extract build names from the shadow-cljs.edn config file in the project root. (defalias 'cider--shadow-get-builds #[0 "\300 \301P\302!\205'\303\304\305\"r\211q\210\306\307\"\216\310!\210\311\312!@\313!\262*\262\207" [clojure-project-dir "shadow-cljs.edn" file-exists-p generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents parseedn-read ((shadow/env . identity)) cider--shadow-parse-builds] 5 (#$ . 27326)]) #@155 Generate the init form for a shadow-cljs select-only REPL. We have to prompt the user to select a build, that's why this is a command, not just a string. (defalias 'cider-shadow-select-cljs-init-form #[0 "\206 \301\302\303 \"\304\305\306!\"\207" [cider-shadow-default-options completing-read "Select shadow-cljs build: " cider--shadow-get-builds format "(do (require '[shadow.cljs.devtools.api :as shadow]) (shadow/nrepl-select %s))" cider-normalize-cljs-init-options] 5 (#$ . 27827)]) #@143 Generate the init form for a shadow-cljs REPL. We have to prompt the user to select a build, that's why this is a command, not just a string. (defalias 'cider-shadow-cljs-init-form #[0 "\302\206 @\206\303\304\305 \"!\306\302 \"\206\211C\307\310\311#\312\235\203?\313\314\315\316\317\"\203;\211G\320O\266\202\202=\262#\207\313\321\315$\207" [cider-shadow-default-options cider-shadow-watched-builds cider-normalize-cljs-init-options completing-read "Select shadow-cljs build: " cider--shadow-get-builds mapcar mapconcat #[257 "\300\301\"\207" [format "(shadow/watch %s)"] 4 "\n\n(fn BUILD)"] " " (":browser-repl" ":node-repl") format "(do %s (shadow/%s))" "(require '[shadow.cljs.devtools.api :as shadow])" ":" string-prefix-p nil "(do %s %s (shadow/nrepl-select %s))"] 11 (#$ . 28323)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable cider-figwheel-main-default-options funcall function #[0 "\300\207" [nil] 1] "Defines the `figwheel.main/start' options.\n\nNote that figwheel-main/start can also accept a map of options, refer to\nFigwheel for details." :type string :safe #[257 "\211?\206\211;\207" [] 2 "\n\n(fn S)"] :package-version (cider . "0.18.0")] 10) #@84 Extract build names from the .cljs.edn config files in the project root. (defalias 'cider--figwheel-main-get-builds #[0 "\300 \211\205\301\302\303#\304\305\"\262\207" [clojure-project-dir directory-files nil ".*\\.cljs\\.edn" mapcar #[257 "\300\301\"\210\302\303\"\207" [string-match "^\\(.*\\)\\.cljs\\.edn" match-string 1] 4 "\n\n(fn F)"]] 5 (#$ . 29562)]) #@52 Produce the figwheel-main ClojureScript init form. (defalias 'cider-figwheel-main-init-form #[0 "\301 \203\302\303\304\305!!\"\207\211\203\302\303\304\306\307\"!\"\207\310\311!\207" [cider-figwheel-main-default-options cider--figwheel-main-get-builds format "(do (require 'figwheel.main) (figwheel.main/start %s))" cider-normalize-cljs-init-options string-trim completing-read "Select figwheel-main build: " user-error "No figwheel-main build files (.cljs.edn) were found"] 7 (#$ . 29944)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable cider-custom-cljs-repl-init-form funcall function #[0 "\300\207" [nil] 1] "The form used to start a custom ClojureScript REPL.\nWhen set it becomes the return value of the `cider-custom-cljs-repl-init-form'\nfunction, which normally prompts for the init form.\n\nThis defcustom is mostly intended for use with .dir-locals.el for\ncases where it doesn't make sense to register a new ClojureScript REPL type." :type string :safe #[257 "\211?\206\211;\207" [] 2 "\n\n(fn S)"] :package-version (cider . "0.23.0")] 10) #@223 The form used to start a custom ClojureScript REPL. Defaults to the value of `cider-custom-cljs-repl-init-form'. If it's nil the function will prompt for a form. The supplied string will be wrapped in a do form if needed. (defalias 'cider-custom-cljs-repl-init-form #[0 "\206\301\302!\303\304\"\203\211\202\305\306\"\262\207" [cider-custom-cljs-repl-init-form read-from-minibuffer "Please, provide a form to start a ClojureScript REPL: " string-prefix-p "(do" format "(do %s)"] 4 (#$ . 31070)]) #@267 A list of supported ClojureScript REPLs. For each one we have its name, the form we need to evaluate in a Clojure REPL to start the ClojureScript REPL and functions to verify their requirements. The form should be either a string or a function producing a string. (defvar cider-cljs-repl-types '((figwheel "(do (require 'figwheel-sidecar.repl-api) (figwheel-sidecar.repl-api/start-figwheel!) (figwheel-sidecar.repl-api/cljs-repl))" cider-check-figwheel-requirements) (figwheel-main cider-figwheel-main-init-form cider-check-figwheel-main-requirements) (figwheel-connected "(figwheel-sidecar.repl-api/cljs-repl)" cider-check-figwheel-requirements) (browser "(do (require 'cljs.repl.browser) (cider.piggieback/cljs-repl (cljs.repl.browser/repl-env)))") (node "(do (require 'cljs.repl.node) (cider.piggieback/cljs-repl (cljs.repl.node/repl-env)))" cider-check-node-requirements) (weasel "(do (require 'weasel.repl.websocket) (cider.piggieback/cljs-repl (weasel.repl.websocket/repl-env :ip \"127.0.0.1\" :port 9001)))" cider-check-weasel-requirements) (boot "(do (require 'adzerk.boot-cljs-repl) (adzerk.boot-cljs-repl/start-repl))" cider-check-boot-requirements) (shadow cider-shadow-cljs-init-form cider-check-shadow-cljs-requirements) (shadow-select cider-shadow-select-cljs-init-form cider-check-shadow-cljs-requirements) (krell "(require '[clojure.edn :as edn]\n '[clojure.java.io :as io]\n '[cider.piggieback]\n '[krell.api :as krell]\n '[krell.repl])\n(def config (edn/read-string (slurp (io/file \"build.edn\"))))\n(apply cider.piggieback/cljs-repl (krell.repl/repl-env) (mapcat identity config))" cider-check-krell-requirements) (custom cider-custom-cljs-repl-init-form nil)) (#$ . 31582)) #@460 Register a new ClojureScript REPL type. Types are defined by the following: - TYPE - symbol identifier that will be used to refer to the REPL type - INIT-FORM - string or function (symbol) producing string - REQUIREMENTS-FN - function to check whether the REPL can be started. This param is optional. All this function does is modifying `cider-cljs-repl-types'. It's intended to be used in your Emacs config. (fn TYPE INIT-FORM &optional REQUIREMENTS-FN) (defalias 'cider-register-cljs-repl-type #[770 "9\204 \301\302!\210;\2049\204\301\303!\210\211\203$\2119\204$\301\304!\210E\211\235\2030\207\211B\211\207" [cider-cljs-repl-types user-error "The REPL type must be a symbol" "The init form must be a string or a symbol referring to a function" "The requirements-fn must be a symbol referring to a function"] 6 (#$ . 33318)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315& \210\316\317\301\320#\210\316\321\301\320#\210\316\322\301\320#\207" [custom-declare-variable cider-default-cljs-repl funcall function #[0 "\300\207" [nil] 1] "The default ClojureScript REPL to start.\nThis affects commands like `cider-jack-in-cljs'. Generally it's\nintended to be set via .dir-locals.el for individual projects, as its\nrelatively unlikely you'd like to use the same type of REPL in each project\nyou're working on." :type (choice (const :tag "Figwheel" figwheel) (const :tag "Figwheel Main" figwheel-main) (const :tag "Browser" browser) (const :tag "Node" node) (const :tag "Weasel" weasel) (const :tag "Boot" boot) (const :tag "Shadow" shadow) (const :tag "Shadow w/o Server" shadow-select) (const :tag "Krell" krell) (const :tag "Custom" custom)) :group cider :safe symbolp :package-version (cider . "0.17.0") make-obsolete-variable cider-cljs-lein-repl "0.17" cider-cljs-boot-repl cider-cljs-gradle-repl] 12) (defvar cider--select-cljs-repl-history nil) #@155 Select the ClojureScript REPL to use with `cider-jack-in-cljs'. DEFAULT is the default ClojureScript REPL to offer in completion. (fn &optional DEFAULT) (defalias 'cider-select-cljs-repl #[256 "\302\303\"\304\305\306\307\211\211\301 \206 @&!\207" [cider-cljs-repl-types cider--select-cljs-repl-history mapcar car intern completing-read "Select ClojureScript REPL type: " nil] 11 (#$ . 35223)]) #@55 Get the cljs REPL form for REPL-TYPE. (fn REPL-TYPE) (defalias 'cider-cljs-repl-form #[257 "\301\302\303\"\"A@\211\203\2119\203\211 \207\207\304\305\"\207" [cider-cljs-repl-types seq-find make-closure #[257 "\211@\300=\207" [V0] 3 "\n\n(fn ENTRY)"] user-error "No ClojureScript REPL type %s found. Please make sure that `cider-cljs-repl-types' has an entry for it"] 5 (#$ . 35630)]) #@121 Verify that the requirements for REPL-TYPE are met. Return REPL-TYPE if requirements are met. (fn &optional REPL-TYPE) (defalias 'cider-verify-cljs-repl-requirements #[256 "\211\206\n\206\n\303 \203\304\305\306\307\"\n\"8\211\203\211 \210\210\207" [cider-default-cljs-repl cider-check-cljs-repl-requirements cider-cljs-repl-types cider-select-cljs-repl 2 seq-find make-closure #[257 "\211@\300=\207" [V0] 3 "\n\n(fn ENTRY)"]] 7 (#$ . 36029)]) #@266 Verify that all cljs requirements are met for CLJS-TYPE connection. Return REPL-TYPE of requirement are met, and throw an ‘user-error’ otherwise. When NO-ERROR is non-nil, don't throw an error, issue a message and return nil. (fn &optional CLJS-TYPE NO-ERROR) (defalias 'cider--check-cljs #[512 "\211\203\3001\301 \210\302!0\207\303\304\"\210\305\207\301 \210\302!\207" [(error) cider-verify-clojurescript-is-present cider-verify-cljs-repl-requirements message "Invalid ClojureScript dependency: %S" nil] 6 (#$ . 36489)]) #@86 Look for a server address in SERVER-BUFFER and offer to open it. (fn SERVER-BUFFER) (defalias 'cider--offer-to-open-app-in-browser #[257 "\300!\205,r\211q\210\212eb\210\301\302\303\304#\205\305\306!\211\205)\307\310\311\"!\205)\312!\262*\207" [buffer-live-p search-forward-regexp "http://localhost:[0-9]+" nil noerror match-string 0 y-or-n-p format "Visit ‘%s’ in a browser? " browse-url] 6 (#$ . 37029)]) #@35 CIDER jack-in and connect keymap. (defvar cider-start-map (byte-code "\300\301!\302\303\304#\210\302\305\304#\210\302\306\307#\210\302\310\311#\210\302\312\313#\210\302\314\307#\210\302\315\311#\210\302\316\313#\210\302\317\307#\210\302\320\311#\210\302\321\313#\210\302\322\323#\210\302\324\325#\210\302\326\327#\210\302\330\323#\210\302\331\325#\210\302\332\327#\210\302\333\323#\210\302\334\325#\210\302\335\327#\210\302\336\337#\210\302\340\341#\210\302\342\337#\210\302\343\341#\210\302\344\337#\210\302\345\341#\210\207" [define-prefix-command cider-start-map define-key "x" cider "" "jj" cider-jack-in-clj "js" cider-jack-in-cljs "jm" cider-jack-in-clj&cljs "\nj" "\ns" "\nm" "\n\n" "\n" "\n " "cj" cider-connect-clj "cs" cider-connect-cljs "cm" cider-connect-clj&cljs "j" "s" "m" "\n" "" " " "sj" cider-connect-sibling-clj "ss" cider-connect-sibling-cljs "j" "s" "\n" ""] 5) (#$ . 37455)) #@268 Start an nREPL server for the current project and connect to it. PARAMS is a plist optionally containing :project-dir and :jack-in-cmd. With the prefix argument, allow editing of the jack in command; with a double prefix prompt for all these parameters. (fn PARAMS) (defalias 'cider-jack-in-clj #[257 "\300\301\302!!!\303\304\305\"\304\306\"\307\310\"#\207" [cider--update-jack-in-cmd cider--check-existing-session cider--update-project-dir nrepl-start-server-process plist-get :project-dir :jack-in-cmd make-closure #[257 "\301\300\"\207" [V0 cider-connect-sibling-clj] 4 "\n\n(fn SERVER-BUFFER)"]] 8 (#$ . 38399) "P"]) #@313 Start an nREPL server for the current project and connect to it. PARAMS is a plist optionally containing :project-dir, :jack-in-cmd and :cljs-repl-type (e.g. Node, Figwheel, etc). With the prefix argument, allow editing of the jack in command; with a double prefix prompt for all these parameters. (fn PARAMS) (defalias 'cider-jack-in-cljs #[257 "\306 \"\306\n \"\306\f \"p\307\310\311!!!\312\313\314\"\313\315\"\316\317##\262+\207" [cider-jack-in-dependencies cider-jack-in-cljs-dependencies cider-jack-in-lein-plugins cider-jack-in-cljs-lein-plugins cider-jack-in-nrepl-middlewares cider-jack-in-cljs-nrepl-middlewares append cider--update-jack-in-cmd cider--check-existing-session cider--update-project-dir nrepl-start-server-process plist-get :project-dir :jack-in-cmd make-closure #[257 "r\300q\210\302\301\")\207" [V0 V1 cider-connect-sibling-cljs] 4 "\n\n(fn SERVER-BUFFER)"]] 13 (#$ . 39033) "P"]) #@437 Start an nREPL server and connect with clj and cljs REPLs. PARAMS is a plist optionally containing :project-dir, :jack-in-cmd and :cljs-repl-type (e.g. Node, Figwheel, etc). With the prefix argument, allow for editing of the jack in command; with a double prefix prompt for all these parameters. When SOFT-CLJS-START is non-nil, start cljs REPL only when the ClojureScript dependencies are met. (fn &optional PARAMS SOFT-CLJS-START) (defalias 'cider-jack-in-clj&cljs #[512 "\306 \"\306\n \"\306\f \"p\307\310\311\312\313\n!!!!\314\315#\316\317\320\"\317\321\"\322\323\n$#\262+\207" [cider-jack-in-dependencies cider-jack-in-cljs-dependencies cider-jack-in-lein-plugins cider-jack-in-cljs-lein-plugins cider-jack-in-nrepl-middlewares cider-jack-in-cljs-nrepl-middlewares append plist-put cider--update-cljs-type cider--update-jack-in-cmd cider--check-existing-session cider--update-project-dir :do-prompt nil nrepl-start-server-process plist-get :project-dir :jack-in-cmd make-closure #[257 "r\301q\210\303\302\"\300\203\304\305\302\306\"\307\"\205!\310\302\"\202!\310\302\"\262)\207" [V0 V1 V2 cider-connect-sibling-clj cider--check-cljs plist-get :cljs-repl-type no-error cider-connect-sibling-cljs] 6 "\n\n(fn SERVER-BUFFER)"]] 15 (#$ . 39965) "P"]) #@334 Create a Clojure REPL with the same server as OTHER-REPL. PARAMS is for consistency with other connection commands and is currently ignored. OTHER-REPL defaults to `cider-current-repl' and in programs can also be a server buffer, in which case a new session with a REPL for that server is created. (fn PARAMS &optional OTHER-REPL) (defalias 'cider-connect-sibling-clj #[513 "\300\206 \301\302\303\"\304\305\"\306!?\205\307\310\"\311\211\211\312\313\n!\"\314\305#\315\316#\317#\266\203!\207" [cider-nrepl-connect cider-current-repl any ensure cider--gather-connect-params nil nrepl-server-p sesman-session-name-for-object CIDER plist-put append cider--update-do-prompt :repl-init-function :repl-type clj :session-name] 12 (#$ . 41251) "P"]) #@384 Create a ClojureScript REPL with the same server as OTHER-REPL. PARAMS is a plist optionally containing :cljs-repl-type (e.g. Node, Figwheel, etc). All other parameters are inferred from the OTHER-REPL. OTHER-REPL defaults to `cider-current-repl' but in programs can also be a server buffer, in which case a new session for that server is created. (fn PARAMS &optional OTHER-REPL) (defalias 'cider-connect-sibling-cljs #[513 "\211\206\300\301\302\"\303\304\"\305!?\205\306\307\"\310\311\211\312\313\314\315 !\"!!\316#\317\320#!\207" [cider-current-repl any ensure cider--gather-connect-params nil nrepl-server-p sesman-session-name-for-object CIDER cider-nrepl-connect plist-put cider--update-cljs-init-function cider--update-cljs-type append cider--update-do-prompt :session-name :repl-type pending-cljs] 13 (#$ . 42011) "P"]) #@199 Initialize a Clojure connection to an nREPL server. PARAMS is a plist optionally containing :host, :port and :project-dir. On prefix argument, prompt for all the parameters. (fn &optional PARAMS) (defalias 'cider-connect-clj #[256 "\300\301\211\211\302\303\304!!!\305\306#\307\306#\310\311#!\207" [cider-nrepl-connect plist-put cider--check-existing-session cider--update-host-port cider--update-project-dir :repl-init-function nil :session-name :repl-type clj] 9 (#$ . 42859) "P"]) #@287 Initialize a ClojureScript connection to an nREPL server. PARAMS is a plist optionally containing :host, :port, :project-dir and :cljs-repl-type (e.g. Node, Figwheel, etc). On prefix, prompt for all the parameters regardless of their supplied or default values. (fn &optional PARAMS) (defalias 'cider-connect-cljs #[256 "\300\301\211\302\303\304\305\306!!!!!\307\310#\311\312#!\207" [cider-nrepl-connect plist-put cider--update-cljs-init-function cider--update-cljs-type cider--check-existing-session cider--update-host-port cider--update-project-dir :session-name nil :repl-type pending-cljs] 10 (#$ . 43353) "P"]) #@314 Initialize a Clojure and ClojureScript connection to an nREPL server. PARAMS is a plist optionally containing :host, :port, :project-dir and :cljs-repl-type (e.g. Node, Figwheel, etc). When SOFT-CLJS-START is non-nil, don't start if ClojureScript requirements are not met. (fn PARAMS &optional SOFT-CLJS-START) (defalias 'cider-connect-clj&cljs #[513 "\300\301\302\303!!!!\304!\203\305\306\307\"\310\"\205#\311\"\207\311\"\207" [cider--update-cljs-type cider--check-existing-session cider--update-host-port cider--update-project-dir cider-connect-clj cider--check-cljs plist-get :cljs-repl-type no-error cider-connect-sibling-cljs] 8 (#$ . 43980) "P"]) #@61 A list of all user-level connection init commands in CIDER. (defvar cider-connection-init-commands '(cider-jack-in-clj cider-jack-in-cljs cider-jack-in-clj&cljs cider-connect-clj cider-connect-cljs cider-connect-clj&cljs cider-connect-sibling-clj cider-connect-sibling-cljs) (#$ . 44652)) #@47 Start a connection of any type interactively. (defalias 'cider #[0 "\301\302\303\"!\211\205 \304!\207" [cider-connection-init-commands intern completing-read "Select command: " call-interactively] 4 (#$ . 44947) nil]) #@43 Update :do-prompt in PARAMS. (fn PARAMS) (defalias 'cider--update-do-prompt #[257 "\211\300\267\207\301\302D\207\303\302D\207\207" [#s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ((4) 4 (16) 8)) :edit-jack-in-command t :do-prompt] 3 (#$ . 45174)]) #@45 Update :project-dir in PARAMS. (fn PARAMS) (defalias 'cider--update-project-dir #[257 "\302!\303\304\"\203\305\306\307\310 !\"\202\303\311\"p\203$\312\"\2031\313\311\206/\307\310 !#\207\314\315!\203;\316\315!\210r\317\315!q\210\320!\211\203s\211@\211:\203f\211\242\243\3211d\322!L0\266\202f\266\322\301!\210\323A\266\202\202D\210\324 \210\313\211\311#\325p#*\207" [default-directory buffer-file-name cider--update-do-prompt plist-get :do-prompt read-directory-name "Project: " clojure-project-dir cider-current-dir :project-dir file-in-directory-p plist-put get-buffer " *cider-context-buffer*" kill-buffer get-buffer-create buffer-local-variables (error) make-local-variable nil hack-dir-local-variables-non-file-buffer :--context-buffer] 12 (#$ . 45470)]) #@48 Update :cljs-repl-type in PARAMS. (fn PARAMS) (defalias 'cider--update-cljs-type #[257 "r\301\302\"\206 pq\210\303!\301\304\"\206\305\304\301\306\"\203&\307!\202,\206,\307 #\266\202)\207" [cider-default-cljs-repl plist-get :--context-buffer cider--update-do-prompt :cljs-repl-type plist-put :do-prompt cider-select-cljs-repl] 9 (#$ . 46270)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable cider-edit-jack-in-command funcall function #[0 "\300\207" [nil] 1] "When truthy allow the user to edit the command." :type boolean :safe booleanp :version (cider . "0.22.0")] 10) #@63 History list for user-specified jack-in nrepl command params. (defvar cider--jack-in-nrepl-params-history nil (#$ . 46909)) #@51 History list for user-specified jack-in commands. (defvar cider--jack-in-cmd-history nil (#$ . 47039)) #@95 Base64 encode the powershell command and jack-in CMD-PARAMS for clojure-cli. (fn CMD-PARAMS) (defalias 'cider--powershell-encode-command #[257 "\300\301\302#\303\304\"\305\306\"\303\307\310\311\"\"\207" [replace-regexp-in-string "\"" "\"\"" format "clojure %s" encode-coding-string utf-16le "-encodedCommand %s" base64-encode-string t] 9 (#$ . 47148)]) #@49 Update :jack-in-cmd key in PARAMS. (fn PARAMS) (defalias 'cider--update-jack-in-cmd #[257 "\303!\304\305\"\306!\307!\310!\311!\312!\203\246r\304\313\"\206$pq\210\304\314\"\2036\315\316\317#\2027\211\203D\320#\202E\211\204N \203\237\204k \321=\204k?\205\242 \322=\205\242\323\324!\205\242\325\326\327\230\203|\330!\202}#\331\n\332\n\204\216\304 \333\"\203\226\315\334\335#\202\227#\262\266\202\202\244\336\337!\266\202)\207\336\340\"\207" [cider-inject-dependencies-at-jack-in cider-allow-jack-in-without-project cider-edit-jack-in-command cider--update-do-prompt plist-get :project-dir cider-project-type cider-jack-in-command cider-jack-in-resolve-command cider-jack-in-global-options cider-jack-in-params :--context-buffer :do-prompt read-string "nREPL server command: " cider--jack-in-nrepl-params-history cider-inject-jack-in-dependencies t warn y-or-n-p "Are you sure you want to run `cider-jack-in' without a Clojure project? " format "%s %s" "powershell" cider--powershell-encode-command plist-put :jack-in-cmd :edit-jack-in-command "jack-in command: " cider--jack-in-cmd-history user-error "`cider-jack-in' is not allowed without a Clojure project" "The %s executable isn't on your `exec-path'"] 18 (#$ . 47512)]) #@48 Update :host and :port in PARAMS. (fn PARAMS) (defalias 'cider--update-host-port #[257 "r\300\301\"\206 pq\210\302!\300\303\"\300\304\"\300\305\"\203\"\306 \2022\2030\211\2030B\2022\306 \307\211\303@#\304A#\266\204)\207" [plist-get :--context-buffer cider--update-do-prompt :host :port :do-prompt cider-select-endpoint plist-put] 10 (#$ . 48796)]) #@70 Update PARAMS :repl-init-function for cljs connections. (fn PARAMS) (defalias 'cider--update-cljs-init-function #[257 "r\300\301\"\206 pq\210\300\302\"\303!\304\211\305\306\307##\310#\266\202)\207" [plist-get :--context-buffer :cljs-repl-type cider-cljs-repl-form plist-put :repl-init-function make-closure #[0 "\305\300!\210\306\302!\210\300\307\310\311\312\313 \314\301\257\315p!\"\210\316 !\205&\f\205&\317 !\207" [V0 V1 cider-cljs-repl-type nrepl-server-buffer cider-offer-to-open-cljs-app-in-browser cider--check-cljs make-local-variable cider-nrepl-send-request "op" "eval" "ns" cider-current-ns "code" cider-repl-handler buffer-live-p cider--offer-to-open-app-in-browser] 7] :repl-init-form] 11 (#$ . 49168)]) #@193 Ask for confirmation if a session with similar PARAMS already exists. If no session exists or user chose to proceed, return PARAMS. If the user canceled the action, signal quit. (fn PARAMS) (defalias 'cider--check-existing-session #[257 "\301\302\"\301\303\"\301\304\"\305\306\307$\310\311\312\"\"\211\203.\313\314@\315Q!\204.\316\317\320\316\"\210)\266\207" [debug-on-quit plist-get :project-dir :host :port seq-find make-closure #[257 "\303!\300\304\305\"\232\205$\302\203\302\304\306\"\232\205$\301?\206$\301\304\307\"\232\207" [V0 V1 V2 cider--gather-session-params plist-get :project-dir :port :host] 6 "\n\n(fn SES)"] sesman-current-sessions CIDER (project) y-or-n-p "A CIDER session with the same connection parameters already exists (" "). Are you sure you want to create a new session instead of using `cider-connect-sibling-clj(s)'? " nil signal quit] 10 (#$ . 49907)]) (byte-code "\300\301\302\"\210\300\303\304\"\207" [defalias cider-jack-in cider-jack-in-clj cider-connect cider-connect-clj] 3) #@28 Retrieve the current host. (defalias 'cider-current-host #[0 ";\203\f\301\302\"\206 \303\207" [buffer-file-name file-remote-p host "localhost"] 3 (#$ . 50945)]) #@55 Interactively select the host and port to connect to. (defalias 'cider-select-endpoint #[0 "\211\203!\211@\3028\206\211A@;\204\303\304@\"\210A\266\202\202\210\305 \306\307 \2050\310 @\311\"C\312 CC\313%!\314!\211@A@\206L\315\316\"\"B\207" [cider-known-endpoints cider-host-history 2 user-error "The port for %s in `cider-known-endpoints' should be a string" cider--ssh-hosts seq-uniq append split-string ":" cider-current-host (("localhost")) cider--completing-read-host cider--completing-read-port cider--infer-ports] 9 (#$ . 51116)]) #@55 Retrieve all ssh host from local configuration files. (defalias 'cider--ssh-hosts #[0 "\301\302\303\304\"\203 \305\202\306\307\310\311\203+\211A\262\242\312\211A\262\242DDB\262\202\313\314\237\315\312DDE!\266\204\"\207" [emacs-version seq-map #[257 "\300\301\302#C\207" [replace-regexp-in-string ":$" #1=""] 5 "\n\n(fn S)"] version< "26" (tramp-completion-mode) (non-essential) (t) #[0 "\300\301\302\"\207" [tramp-completion-handle-file-name-all-completions #1# "/ssh:"] 3] nil quote eval let funcall] 12 (#$ . 51681)]) #@188 Interactively select host from HOSTS. Each element in HOSTS is one of: (host), (host port) or (label host port). Return a list of the form (HOST PORT), where PORT can be nil. (fn HOSTS) (defalias 'cider--completing-read-host #[257 "\300!\301\302\303\211\211\304@@&\305\"A\206\211C\211G\306U\203$\211A\207\207" [cider-join-into-alist completing-read "Host: " nil cider-host-history assoc 3] 10 (#$ . 52226)]) #@152 A simple compatibility wrapper around `make-tramp-file-name'. Tramp version starting 26.1 is using a `cl-defstruct' rather than vanilla VEC. (fn VEC) (defalias 'cider--tramp-file-name #[257 "\301\302\"\203\207\303\304\234\305\211\306\234\305\211\211\257\207" [emacs-version version< "26.1" tramp-file-name 0 nil 2] 9 (#$ . 52652)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable cider-infer-remote-nrepl-ports funcall function #[0 "\300\207" [nil] 1] "When true, cider will use ssh to try to infer nREPL ports on remote hosts." :type boolean :safe booleanp :package-version (cider . "0.19.0")] 10) #@147 Infer nREPL ports on HOST. Return a list of elements of the form (directory port). SSH-HOSTS is a list of remote SSH hosts. (fn HOST SSH-HOSTS) (defalias 'cider--infer-ports #[514 "\303!\206 \304\"?\211\203&\305!\211\203\306\202\307?\205#!)\207 \205\326\310\311\312\313\312%\305!\205\302\314!\211\242\n>\204H\315\316\317D\"\210\211A@\242\n>\204Y\315\316\317D\"\210\3208\242\n>\204j\315\316\317D\"\210\3218\242\n>\204|\315\316\317D\"\210\3228\242\n>\204\216\315\316\317D\"\210\3238\242\n>\204\240\315\316\317D\"\210\3248\242\n>\204\264\315\316\317 D\"\210\3258\f\230\205\300\266\210\326\327!!\210r\330\327!!q\210\307!)\266\202\207" [default-directory cider-infer-remote-nrepl-ports cl-struct-tramp-file-name-tags nrepl-local-host-p assoc-string file-remote-p "~/" cider-locate-running-nrepl-ports vector "sshx" nil "" tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 tramp-maybe-open-connection cider--tramp-file-name tramp-get-connection-buffer] 15 (#$ . 53312)]) #@65 Interactively select port for HOST from PORTS. (fn HOST PORTS) (defalias 'cider--completing-read-port #[514 "\300!\301\302\303\"\304\211\211\211@@&\305\"A\206\211\211<\203'\211A@\202(\211\211;\2031\306!\207\207" [cider-join-into-alist completing-read format "Port for %s: " nil assoc string-to-number] 11 (#$ . 54373)]) #@174 Locate ports of running nREPL servers. When DIR is non-nil also look for nREPL port files in DIR. Return a list of list of the form (project-dir port). (fn &optional DIR) (defalias 'cider-locate-running-nrepl-ports #[256 "\300 \301\302\303!B\"\304\305\306\"!\207" [cider--running-nrepl-paths mapcar #[257 "\211\205 \300\301!!\211\205\302\303!!D\207" [nrepl-extract-port cider--file-path file-name-nondirectory directory-file-name] 5 "\n\n(fn D)"] clojure-project-dir seq-uniq delq nil] 7 (#$ . 54715)]) #@135 Retrieve project paths of running nREPL servers. Use `cider-ps-running-nrepls-command' and `cider-ps-running-nrepl-path-regexp-list'. (defalias 'cider--running-nrepl-paths #[0 "\302\303\304\305\"r\211q\210\306\307\"\216\310!c\210 \211\2036\211@\311b\210\312\302\305#\203/\313\311!B\262\202A\266\202\202\210*\210\314!\207" [cider-ps-running-nrepls-command cider-ps-running-nrepl-path-regexp-list nil generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] shell-command-to-string 1 re-search-forward match-string seq-uniq] 8 (#$ . 55236)]) #@138 Identify build systems present by their build files in PROJECT-DIR. PROJECT-DIR defaults to current project. (fn &optional PROJECT-DIR) (defalias 'cider--identify-buildtools-present #[256 "\211\206\302\303 !\304\305\306\307\310 \"\"*\207" [default-directory build-files clojure-project-dir cider-current-dir ((lein . "project.clj") (boot . "build.boot") (clojure-cli . "deps.edn") (shadow-cljs . "shadow-cljs.edn") (gradle . "build.gradle") (gradle . "build.gradle.kts")) delq nil mapcar #[257 "\300A!\205 \211@\207" [file-exists-p] 3 "\n\n(fn CANDIDATE)"]] 6 (#$ . 55851)]) #@275 Determine the type of the project in PROJECT-DIR. When multiple project file markers are present, check for a preferred build tool in `cider-preferred-build-tool', otherwise prompt the user to choose. PROJECT-DIR defaults to the current project. (fn &optional PROJECT-DIR) (defalias 'cider-project-type #[256 "\302!\211G\303V\304@!\305!\203\211\235\203\207\203/\306\307\310\311\"\312\313\312\211 &!\207\2036@\207\305 !\207" [cider-preferred-build-tool cider-jack-in-default cider--identify-buildtools-present 1 symbol-name cider-maybe-intern intern completing-read format "Which command should be used (default %s): " nil t] 14 (#$ . 56440)]) #@172 Find COMMAND in exec path (see variable `exec-path'). Return nil if not found. In case `default-directory' is non-local we assume the command is available. (fn COMMAND) (defalias 'cider--resolve-command #[257 "\301!\203\n\211\206\302!\206\302\303P!\211\205\304!\207" [default-directory file-remote-p executable-find ".bat" shell-quote-argument] 4 (#$ . 57110)]) (byte-code "\300\301\302\"\210\303\304!\207" [eval-after-load clojure-mode #[0 "\301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\315#\210\301\316\317#\210\320\321!\210\322!\210\323\324\325\"\207" [clojure-mode-map define-key [3 134217848] cider [3 134217834] cider-jack-in-clj [3 134217802] cider-jack-in-cljs [3 134217827] cider-connect-clj [3 134217795] cider-connect-cljs "" cider-start-map "" sesman-map require sesman sesman-install-menu add-hook clojure-mode-hook #[0 "\301\300!\210\302\211\207" [sesman-system make-local-variable CIDER] 2]] 4] provide cider] 3)