Add command for saving last eval to kill ring

clojure-emacs · Feb 24, 2022 · d3c042f · d3c042f
1 parent 0b0d13f
commit d3c042f
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/cider-eval.el b/cider-eval.el
@@ -1310,6 +1310,12 @@ passing arguments."
          (form (format "(%s)" fn-name)))
     (cider-read-and-eval (cons form (length form)))))
 
+(defun cider-kill-last-result ()
+  "Save the last evaluated result into the kill ring."
+  (interactive)
+  (kill-new
+   (nrepl-dict-get (cider-nrepl-sync-request:eval "*1") "value")))
+
 ;; Eval keymaps
 (defvar cider-eval-pprint-commands-map
   (let ((map (define-prefix-command 'cider-eval-pprint-commands-map)))