Function: cider-log--completion-extra-properties

cider-log--completion-extra-properties is a byte-compiled function defined in cider-log.el.

Signature

(cider-log--completion-extra-properties KEYS &optional SEPARATOR)

Documentation

Return the completion properties for NREPL dictionaries.

The KEYS are used to lookup the values and are joined by SEPARATOR.

Source Code

;; Defined in ~/.emacs.d/elpa/cider-20260414.1619/cider-log.el
(defun cider-log--completion-extra-properties (keys &optional separator)
  "Return the completion properties for NREPL dictionaries.

The KEYS are used to lookup the values and are joined by SEPARATOR."
  `(:annotation-function
    ,(lambda (identifier)
       (when-let (dict (cadr (assoc identifier minibuffer-completion-table)))
         (let ((annotation (string-join (seq-map (lambda (key) (nrepl-dict-get dict key)) keys)
                                        (or separator " "))))
           (unless (string-blank-p annotation)
             (propertize (format " - %s" (cider-log--strip-whitespace annotation))
                         'face 'font-lock-comment-face)))))))