copy and eval form in cider buffer.

gistfile1.txt

(defun cider-send-dwim (arg)
  "Send the appropriate forms to the REPL to be evaluated."
  (interactive "P")
  (let ((expr (cider-last-sexp)))
    (set-buffer (cider-current-repl-buffer))
    (unless (eq (current-buffer) (window-buffer))
      (pop-to-buffer (current-buffer) t))
    (goto-char (point-max))
    (insert expr)
    (cider-repl-return)
    (other-window 1)))