Function: cider-browse-ns--node-label

cider-browse-ns--node-label is a byte-compiled function defined in cider-browse-ns.el.

Signature

(cider-browse-ns--node-label KEY ITEMS)

Documentation

Build the fontified tree label for item KEY in nrepl-dict ITEMS.

When a namespace is being browsed, the var's first doc line is appended.

Source Code

;; Defined in ~/.emacs.d/elpa/cider-20260822.1520/cider-browse-ns.el
(defun cider-browse-ns--node-label (key items)
  "Build the fontified tree label for item KEY in nrepl-dict ITEMS.
When a namespace is being browsed, the var's first doc line is appended."
  (let* ((var-meta (nrepl-dict-get items key))
         (face (cider-browse-ns--text-face var-meta))
         (private-p (cider-browse-ns--meta-private-p var-meta))
         (test-p (cider-browse-ns--meta-test-p var-meta)))
    (concat
     (propertize key 'font-lock-face face)
     (cond
      (test-p (propertize " (test)" 'face 'cider-browse-ns-extra-info-face))
      (private-p (propertize " (-)" 'face 'cider-browse-ns-extra-info-face))
      (t ""))
     (when cider-browse-ns-current-ns
       (let* ((doc (nrepl-dict-get-in items (list key "doc")))
              (doc (when doc (ignore-errors (read doc)))))
         (concat "  " (propertize (cider-browse-ns--first-doc-line doc)
                                  'font-lock-face 'font-lock-doc-face)))))))