Function: cider-docview--insert-clojuredocs-examples

cider-docview--insert-clojuredocs-examples is a byte-compiled function defined in cider-doc.el.

Signature

(cider-docview--insert-clojuredocs-examples DICT)

Documentation

Insert the ClojureDocs examples from DICT at point.

Show at most cider-doc-clojuredocs-max-examples, with a link to the full ClojureDocs entry when more exist. Insert nothing when DICT has no examples.

Source Code

;; Defined in ~/.emacs.d/elpa/cider-20260822.1520/cider-doc.el
(defun cider-docview--insert-clojuredocs-examples (dict)
  "Insert the ClojureDocs examples from DICT at point.
Show at most `cider-doc-clojuredocs-max-examples', with a link to the full
ClojureDocs entry when more exist.  Insert nothing when DICT has no examples."
  (when-let* ((examples (nrepl-dict-get dict "examples")))
    (let ((shown (seq-take examples cider-doc-clojuredocs-max-examples)))
      (insert (propertize "ClojureDocs Examples" 'font-lock-face 'font-lock-function-name-face)
              "\n\n")
      (dolist (example shown)
        (insert (cider-font-lock-as-clojure example) "\n")
        (insert (propertize (make-string 60 ?-) 'font-lock-face 'cider-docview-table-border-face)
                "\n"))
      (when (> (length examples) (length shown))
        (insert-text-button (format "%d more example(s) on ClojureDocs"
                                    (- (length examples) (length shown)))
                            'follow-link t
                            'action (lambda (_) (cider-docview-clojuredocs)))
        (insert "\n")))))