;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\207" [require cider-client cider-popup cider-eval] 2) (defconst cider-profile-buffer "*cider-profile*") #@24 CIDER profiler keymap. (defvar cider-profile-map (byte-code "\300\301!\302\303\304#\210\302\305\304#\210\302\306\307#\210\302\310\307#\210\302\311\312#\210\302\313\312#\210\302\314\315#\210\302\313\315#\210\302\316\317#\210\302\320\317#\210\302\321\322#\210\302\323\322#\210\302\324\325#\210\302\326\325#\210\207" [define-prefix-command cider-profile-map define-key "t" cider-profile-toggle "" "c" cider-profile-clear "" "S" cider-profile-summary "" "s" cider-profile-var-summary "n" cider-profile-ns-toggle "" "v" cider-profile-var-profiled-p "" "+" cider-profile-samples [67108907]] 5) (#$ . 239)) #@26 CIDER profiling submenu. (defconst cider-profile-menu '("Profile" ["Toggle var profiling" cider-profile-toggle] ["Toggle namespace profiling" cider-profile-ns-toggle] "--" ["Display var profiling status" cider-profile-var-profiled-p] ["Display max sample count" cider-profile-samples] ["Display var summary" cider-profile-var-summary] ["Display summary" cider-profile-summary] ["Clear data" cider-profile-clear]) (#$ . 864)) #@161 Make a response handler using value handler HANDLER for connection BUFFER. Optional argument BUFFER defaults to current buffer. (fn HANDLER &optional BUFFER) (defalias 'cider-profile--make-response-handler #[513 "\300\206p\301\211\211%\207" [nrepl-make-response-handler nil] 8 (#$ . 1296)]) #@134 Displays current max-sample-count. If optional QUERY is specified, set max-sample-count and display new value. (fn &optional QUERY) (defalias 'cider-profile-samples #[256 "\300\301!\210\300\302!\210\211\203%\303\247\205\304\305\"\210\306\301\307F\262\310\311!\"\210\207\303\312\310\313!\"\210\207" [cider-ensure-op-supported "set-max-samples" "get-max-samples" cider-nrepl-send-request message "query: %s" "op" "max-samples" cider-profile--make-response-handler #[514 "\211G\300U\203 \301\202\f\211\302\303\"\207" [0 "unlimited" message "max-sample-count is now %s"] 6 "\n\n(fn BUFFER VALUE)"] ("op" "get-max-samples") #[514 "\211G\300U\203 \301\202\f\211\302\303\"\207" [0 "unlimited" message "max-sample-count is now %s"] 6 "\n\n(fn BUFFER VALUE)"]] 7 (#$ . 1600) "P"]) #@120 Displays the profiling status of var under point. Prompts for var if none under point or QUERY is present. (fn QUERY) (defalias 'cider-profile-var-profiled-p #[257 "\300\301!\210\302\303\304\"\210\207" [cider-ensure-op-supported "is-var-profiled" cider-read-symbol-name "Report profiling status for var: " #[257 "\300 \301\302\303\304\305\257\306\307\310#!\"\207" [cider-current-ns cider-nrepl-send-request "op" "is-var-profiled" "ns" "sym" cider-profile--make-response-handler make-closure #[514 "\211\302\267\202\303\304\301\300#\207\303\305\301\300#\207\303\306\301\300#\207\307\207" [V0 V1 #s(hash-table size 3 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("profiled" 6 "unprofiled" 12 "unbound" 18)) message "Profiling is currently enabled for %s/%s" "Profiling is currently disabled for %s/%s" "%s/%s is unbound" nil] 6 "\n\n(fn BUFFER VALUE)"]] 9 "\n\n(fn SYM)"]] 4 (#$ . 2394) "P"]) #@165 Toggle profiling for the ns associated with optional QUERY. If optional argument QUERY is non-nil, prompt for ns. Otherwise use current ns. (fn &optional QUERY) (defalias 'cider-profile-ns-toggle #[256 "\300\301!\210\211\203\302\303\304 \"\202\305 \306\307\301\310F\311\312\313\"!\"\266\207" [cider-ensure-op-supported "toggle-profile-ns" completing-read "Toggle profiling for ns: " cider-sync-request:ns-list cider-current-ns cider-nrepl-send-request "op" "ns" cider-profile--make-response-handler make-closure #[514 "\211\301\267\202\302\303\300\"\207\302\304\300\"\207\305\207" [V0 #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("profiled" 6 "unprofiled" 11)) message "Profiling enabled for %s" "Profiling disabled for %s" nil] 5 "\n\n(fn BUFFER VALUE)"]] 8 (#$ . 3326) "P"]) #@142 Toggle profiling for the given QUERY. Defaults to the symbol at point. With prefix arg or no symbol at point, prompts for a var. (fn QUERY) (defalias 'cider-profile-toggle #[257 "\300\301!\210\302\303\304\"\210\207" [cider-ensure-op-supported "toggle-profile" cider-read-symbol-name "Toggle profiling for var: " #[257 "\300 \301\302\303\304\305\257\306\307\310#!\"\207" [cider-current-ns cider-nrepl-send-request "op" "toggle-profile" "ns" "sym" cider-profile--make-response-handler make-closure #[514 "\211\302\267\202\303\304\301\300#\207\303\305\301\300#\207\303\306\301\300#\207\307\207" [V0 V1 #s(hash-table size 3 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("profiled" 6 "unprofiled" 12 "unbound" 18)) message "Profiling enabled for %s/%s" "Profiling disabled for %s/%s" "%s/%s is unbound" nil] 6 "\n\n(fn BUFFER VALUE)"]] 9 "\n\n(fn SYM)"]] 4 (#$ . 4166) "P"]) #@77 Displays the STATS-RESPONSE on `cider-profile-buffer`. (fn STATS-RESPONSE) (defalias 'cider-profile-display-stats #[257 "\302\303\"\203)\304!r\211q\210\305c\210*\306!\210\307!\310\311\"\210\312!\210\313!\207\314!\207" [cider-profile-buffer inhibit-read-only nrepl-dict-get "err" cider-make-popup-buffer t display-buffer get-buffer-window set-window-point 0 select-window fit-window-to-buffer cider-emit-interactive-eval-err-output] 7 (#$ . 5075)]) #@56 Display a summary of currently collected profile data. (defalias 'cider-profile-summary #[0 "\300\301!\210\302\303\304!!\207" [cider-ensure-op-supported "profile-summary" cider-profile-display-stats cider-nrepl-send-sync-request ("op" "profile-summary")] 3 (#$ . 5542) nil]) #@153 Display profile data for var under point QUERY. Defaults to the symbol at point. With prefix arg or no symbol at point, prompts for a var. (fn QUERY) (defalias 'cider-profile-var-summary #[257 "\300\301!\210\302\303\304\"\210\207" [cider-ensure-op-supported "profile-var-summary" cider-read-symbol-name "Profile-summary for var: " #[257 "\300\301\302\303\304\305 \306\257!!\207" [cider-profile-display-stats cider-nrepl-send-sync-request "op" "profile-var-summary" "ns" cider-current-ns "sym"] 9 "\n\n(fn SYM)"]] 4 (#$ . 5824) "P"]) #@35 Clear any collected profile data. (defalias 'cider-profile-clear #[0 "\300\301!\210\302\303\304\305!\"\207" [cider-ensure-op-supported "clear-profile" cider-nrepl-send-request ("op" "clear-profile") cider-profile--make-response-handler #[514 "\211\300\232\205 \301\302!\207" ["cleared" message "Cleared profile data"] 4 "\n\n(fn BUFFER VALUE)"]] 4 (#$ . 6368) nil]) (provide 'cider-profile)