diff options
author | Tianxiang Xiong <tianxiang.xiong@gmail.com> | 2018-02-07 21:52:35 -0800 |
---|---|---|
committer | Bozhidar Batsov <bozhidar.batsov@gmail.com> | 2018-02-11 20:38:38 +0700 |
commit | 80163911991fef6a2f46107a974425c561581d42 (patch) | |
tree | b9907c78f62ad2745f91c6ee9cb3fd3cc1aa44f1 /cider-profile.el | |
parent | 6505608dda7996d2e813bd9160d2c278073c3b77 (diff) |
Use standard `cider-profile` response handler everywhere
Diffstat (limited to 'cider-profile.el')
-rw-r--r-- | cider-profile.el | 32 |
1 files changed, 12 insertions, 20 deletions
diff --git a/cider-profile.el b/cider-profile.el index c7e49378..76e9f247 100644 --- a/cider-profile.el +++ b/cider-profile.el @@ -52,16 +52,12 @@ ["Clear data" cider-profile-clear]) "CIDER profiling submenu.") -;;;###autoload -(defun cider-profile-message-response-handler (handler &optional buffer) - "Default message response handler. -It takes HANDLER to process the message on an optional BUFFER or the current buffer if not specified." +(defun cider-profile--make-response-handler (handler &optional buffer) + "Make a response handler using value handler HANDLER for connection BUFFER. + +Optional argument BUFFER defaults to current buffer." (nrepl-make-response-handler - (or buffer (current-buffer)) - handler - '() - '() - '())) + (or buffer (current-buffer)) handler nil nil nil)) ;;;###autoload (defun cider-profile-samples (&optional query) @@ -75,20 +71,16 @@ If optional QUERY is specified, set max-sample-count and display new value." (let ((max-samples (if (numberp query) query '()))) (message "query: %s" max-samples) `("op" "set-max-samples" "max-samples" ,max-samples)) - (cider-profile-message-response-handler + (cider-profile--make-response-handler (lambda (_buffer value) (let ((value (if (zerop (length value)) "unlimited" value))) (message "max-sample-count is now %s." value))))) (cider-nrepl-send-request '("op" "get-max-samples") - (nrepl-make-response-handler - (current-buffer) + (cider-profile--make-response-handler (lambda (_buffer value) (let ((value (if (zerop (length value)) "unlimited" value))) - (message "max-sample-count is now %s." value))) - '() - '() - '()))) + (message "max-sample-count is now %s." value)))))) query) ;;;###autoload @@ -105,7 +97,7 @@ Prompts for var if none under point or QUERY is present." `("op" "is-var-profiled" "ns" ,ns "sym" ,sym) - (cider-profile-message-response-handler + (cider-profile--make-response-handler (lambda (_buffer value) (pcase value ("profiled" (message "profiling %s/%s." ns sym)) @@ -128,7 +120,7 @@ current ns." (cider-nrepl-send-request `("op" "toggle-profile-ns" "ns" ,ns) - (cider-profile-message-response-handler + (cider-profile--make-response-handler (lambda (_buffer value) (pcase value ("profiled" (message "profiling %s." ns)) @@ -150,7 +142,7 @@ With prefix arg or no symbol at point, prompts for a var." `("op" "toggle-profile" "ns" ,ns "sym" ,sym) - (cider-profile-message-response-handler + (cider-profile--make-response-handler (lambda (_buffer value) (pcase value ("profiled" (message (format "profiling %s/%s." ns sym))) @@ -205,7 +197,7 @@ prompts for a var." (cider-ensure-op-supported "clear-profile") (cider-nrepl-send-request '("op" "clear-profile") - (cider-profile-message-response-handler + (cider-profile--make-response-handler (lambda (_buffer value) (when (equal value "cleared") (message "cleared profile data.")))))) |