Function: majutsu-workspace--completion-suffix

majutsu-workspace--completion-suffix is a natively compiled function defined in majutsu-workspace.el.

Signature

(majutsu-workspace--completion-suffix ENTRY &optional DIRECTORY)

Documentation

Return aligned completion suffix for workspace ENTRY.

DIRECTORY is the base directory used to label workspace roots.

Source Code

;; Defined in /nix/store/jagqw3nms546pad0gxi5f3wsckk6pji7-emacs-packages-deps/share/emacs/site-lisp/majutsu-workspace.el
(defun majutsu-workspace--completion-suffix (entry &optional directory)
  "Return aligned completion suffix for workspace ENTRY.
DIRECTORY is the base directory used to label workspace roots."
  (majutsu-completion-annotation
   (majutsu-completion-column
    (if (plist-get entry :current) "current" "workspace")
    10 (if (plist-get entry :current) 'success 'majutsu-completion-key))
   (majutsu-completion-column
    (majutsu-workspace--root-label (plist-get entry :root) directory)
    28 'majutsu-completion-file-name)
   (majutsu-completion-column
    (plist-get entry :change-id)
    8 'majutsu-completion-number)
   (majutsu-completion-field
    (when-let* ((desc (plist-get entry :desc))
                ((not (string-empty-p desc))))
      desc)
    'majutsu-completion-documentation)))