cider print defun to repl

gistfile1.el

(defun cider-eval-defun-at-point-in-repl ()
  (interactive)
  (let ((form (cider-defun-at-point)))

    ;; Strip excess whitespace
    (while (string-match "\\`\s+\\|\n+\\'" form)
      (setq form (replace-match "" t t form)))
    (cider-switch-to-current-repl-buffer)
    ;;(set-buffer (cider-find-or-create-repl-buffer))
    (goto-char (point-max))
    (insert form)
    (cider-repl-return))
  (cider-switch-to-last-clojure-buffer))

(define-key clojure-mode-map [M-return] 'cider-eval-defun-at-point-in-repl)