Function: cider-eldoc-info-at-sexp-beginning

cider-eldoc-info-at-sexp-beginning is a byte-compiled function defined in cider-eldoc.el.

Signature

(cider-eldoc-info-at-sexp-beginning K)

Documentation

Compute eldoc info for the first symbol in the sexp; call K with it (or nil).

Source Code

;; Defined in ~/.emacs.d/elpa/cider-20260822.1520/cider-eldoc.el
(defun cider-eldoc-info-at-sexp-beginning (k)
  "Compute eldoc info for the first symbol in the sexp; call K with it (or nil)."
  (save-excursion
    (let ((beginning-of-sexp (cider-eldoc-beginning-of-sexp)))
      (if (not beginning-of-sexp)
          (funcall k nil)
        ;; If we are at the beginning of function name, this will be -1
        (let ((argument-index (max 0 (1- beginning-of-sexp))))
          (if (or (memq (or (char-before (point)) 0) '(?\" ?\{ ?\[))
                  (cider-in-comment-p))
              (funcall k nil)
            (let ((thing (cider-symbol-at-point)))
              (cider-eldoc-info-async
               (cider--eldoc-remove-dot thing)
               (lambda (eldoc-info)
                 (funcall k (when eldoc-info
                              `("eldoc-info" ,eldoc-info
                                "thing" ,thing
                                "pos" ,argument-index))))))))))))