;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\207" [require cider-client cider-common cider-util cider-connection nrepl-dict] 2) #@39 Toggle var tracing for SYM. (fn SYM) (defalias 'cider-sync-request:toggle-trace-var #[257 "\300\301\302\303\304 \305\257!\207" [cider-nrepl-send-sync-request "op" "toggle-trace-var" "ns" cider-current-ns "sym"] 8 (#$ . 244)]) #@39 Toggle var tracing for SYM. (fn SYM) (defalias 'cider--toggle-trace-var #[257 "\300!\301\302\"\301\303\"\211\304\267\202\"\305\306\307\310\"\"\207\305\311\307\310\"\"\207\312\313\307\310\"#\207" [cider-sync-request:toggle-trace-var nrepl-dict-get "var-name" "var-status" #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("not-found" 17 "not-traceable" 26)) error "Var %s not found" cider-propertize fn "Var %s can't be traced because it's not bound to a function" message "Var %s %s"] 9 (#$ . 480)]) #@214 Toggle var tracing. Prompts for the symbol to use, or uses the symbol at point, depending on the value of `cider-prompt-for-symbol'. With prefix arg ARG, does the opposite of what that option dictates. (fn ARG) (defalias 'cider-toggle-trace-var #[257 "\300\301!\210\302!\303\304\"\207" [cider-ensure-op-supported "toggle-trace-var" cider-prompt-for-symbol-function "Toggle trace for var" cider--toggle-trace-var] 4 (#$ . 1036) "P"]) #@43 Toggle namespace tracing for NS. (fn NS) (defalias 'cider-sync-request:toggle-trace-ns #[257 "\300\301\302\303F!\207" [cider-nrepl-send-sync-request "op" "toggle-trace-ns" "ns"] 6 (#$ . 1478)]) #@102 Toggle ns tracing. Defaults to the current ns. With prefix arg QUERY, prompts for a ns. (fn QUERY) (defalias 'cider-toggle-trace-ns #[257 "\300\301\302\303\"\"\207" [cider-map-repls :clj-strict make-closure #[257 "r\211q\210\301\302!\210\300\203\303\304\305 \"\202\306 \307!\310\311\"\211\312\232\203/\313\314\315\316\"\"\266\202\2029\317\320\315\316\"#\266\202\262)\207" [V0 cider-ensure-op-supported "toggle-trace-ns" completing-read "Toggle trace for ns: " cider-sync-request:ns-list cider-current-ns cider-sync-request:toggle-trace-ns nrepl-dict-get "ns-status" "not-found" error "Namespace %s not found" cider-propertize ns message "Namespace %s %s"] 9 "\n\n(fn CONN)"]] 6 (#$ . 1681) "P"]) (provide 'cider-tracing)