Function: cider-ns-state--update-fringe

cider-ns-state--update-fringe is a byte-compiled function defined in cider-ns-state.el.

Signature

(cider-ns-state--update-fringe)

Documentation

Place or remove the namespace-level fringe marker.

Shown on the ns form only when fringe is enabled in cider-ns-load-state-display and the namespace isn't loaded. Per-form staleness is surfaced separately, by the evaluation fringe indicators.

Source Code

;; Defined in ~/.emacs.d/elpa/cider-20260822.1520/cider-ns-state.el
(defun cider-ns-state--update-fringe ()
  "Place or remove the namespace-level fringe marker.
Shown on the ns form only when `fringe' is enabled in
`cider-ns-load-state-display' and the namespace isn't loaded.  Per-form
staleness is surfaced separately, by the evaluation fringe indicators."
  (when cider-ns-state--fringe-overlay
    (delete-overlay cider-ns-state--fringe-overlay)
    (setq cider-ns-state--fringe-overlay nil))
  (when (and (memq 'fringe cider-ns-load-state-display)
             (eq (ignore-errors (cider-ns-load-state)) 'not-loaded))
    (when-let* ((bounds (cider-ns-state--ns-form-bounds)))
      (let ((ov (make-overlay (car bounds) (cdr bounds))))
        (overlay-put ov 'before-string cider-ns-state--fringe-marker)
        (overlay-put ov 'cider-temporary t)
        (setq cider-ns-state--fringe-overlay ov)))))