Quickly define let bindings in Emacs Cider

defit.el

(defun cider-binding-defit-init ()
  (interactive)
  (cider-nrepl-request:eval
   "(in-ns 'defit)
    (defn get-bindings [form]
      (cond
        (vector? form) (into () form)
        (map? form) (into () (:keys form))
        :else (list form)))"
   (lambda (x) (message "DONE"))))

(defun cider-binding-defit ()
  (interactive)
  (let ((end (point))
        (mid nil)
        (beg nil))
    (save-excursion
      (sp-backward-sexp)
      (setq mid (point))
      (sp-backward-sexp)
      (setq beg (point)))
    (lexical-let ((binding (buffer-substring beg mid))
                  (form (buffer-substring mid end)))
      (message "binding %s to %s" binding form)
      (cider-interactive-eval (format "(defit/get-bindings (quote %s))" binding)
                              (lambda (dict)
                                (let* ((result (nrepl-dict-get dict "value"))
                                       (defs ""))
                                  (when result
                                    (message "All bingindgs %s" result)
                                    (dolist (b (car (read-from-string result)))
                                      (setq defs (concat defs (format "(def %s %s)" b b))))
                                    (cider-interactive-eval (format "(let [%s %s] %s)" binding form defs)))))))))

(define-key cider-mode-map (kbd "C-x C-3") 'cider-binding-defit)