Function: majutsu-workspace-candidate-data

majutsu-workspace-candidate-data is a natively compiled function defined in majutsu-workspace.el.

Signature

(majutsu-workspace-candidate-data &optional DIRECTORY)

Documentation

Return completion payload for workspace names in DIRECTORY.

Source Code

;; Defined in /nix/store/jagqw3nms546pad0gxi5f3wsckk6pji7-emacs-packages-deps/share/emacs/site-lisp/majutsu-workspace.el
(defun majutsu-workspace-candidate-data (&optional directory)
  "Return completion payload for workspace names in DIRECTORY."
  (let* ((default-directory (or directory default-directory))
         (entry-list (condition-case nil
                         (majutsu-workspace-list-entries default-directory)
                       (error nil)))
         (entries (make-hash-table :test #'equal))
         candidates)
    (dolist (entry entry-list)
      (when-let* ((name (plist-get entry :name)))
        (unless (gethash name entries)
          (push name candidates))
        (puthash name entry entries)))
    (list :category 'majutsu-workspace
          :candidates (nreverse candidates)
          :entry-list entry-list
          :entries entries
          :annotation-suffix-function
          (majutsu-workspace--completion-suffix-function
           entries default-directory))))