Function: cider-completion-get-context-at-point

cider-completion-get-context-at-point is a byte-compiled function defined in cider-completion-context.el.

Signature

(cider-completion-get-context-at-point)

Documentation

Extract the context at point.

If point is not inside the list, returns nil; otherwise return "top-level" form, with symbol at point replaced by __prefix__.

Source Code

;; Defined in ~/.emacs.d/elpa/cider-20260414.1619/cider-completion-context.el
(defun cider-completion-get-context-at-point ()
  "Extract the context at point.
If point is not inside the list, returns nil; otherwise return \"top-level\"
form, with symbol at point replaced by __prefix__."
  (when (save-mark-and-excursion
          (condition-case _
              (progn
                (up-list)
                (check-parens)
                t)
            (scan-error nil)
            (user-error nil)))
    (save-excursion
      (let* ((pref-end (point))
             (pref-start (cider-completion-symbol-start-pos))
             (context (cider-defun-at-point))
             (_ (beginning-of-defun-raw))
             (expr-start (point)))
        (concat (when pref-start (substring context 0 (- pref-start expr-start)))
                "__prefix__"
                (substring context (- pref-end expr-start)))))))