Function: cider-ns--reload-callback

cider-ns--reload-callback is a byte-compiled function defined in cider-ns.el.

Signature

(cider-ns--reload-callback NS)

Documentation

Return an eval handler that resyncs NS's buffers after a successful reload.

Wraps the standard interactive-eval handler so results and errors display as usual, and additionally marks NS's buffers loaded once evaluation finishes without an error.

Source Code

;; Defined in ~/.emacs.d/elpa/cider-20260822.1520/cider-ns.el
(defun cider-ns--reload-callback (ns)
  "Return an eval handler that resyncs NS's buffers after a successful reload.
Wraps the standard interactive-eval handler so results and errors display as
usual, and additionally marks NS's buffers loaded once evaluation finishes
without an error."
  (let ((base (cider-interactive-eval-handler))
        (errored nil))
    (lambda (response)
      (funcall base response)
      (let ((status (nrepl-dict-get response "status")))
        (when (member "eval-error" status)
          (setq errored t))
        (when (and (not errored) (member "done" status))
          (cider-ns--mark-reloaded (list ns)))))))