Function: majutsu-row-read-entry-field

majutsu-row-read-entry-field is a natively compiled function defined in majutsu-row.el.

Signature

(majutsu-row-read-entry-field ENTRY COMPILED &optional PROMPT)

Documentation

Read one canonical field from ENTRY using COMPILED.

Source Code

;; Defined in /nix/store/jagqw3nms546pad0gxi5f3wsckk6pji7-emacs-packages-deps/share/emacs/site-lisp/majutsu-row.el
(defun majutsu-row-read-entry-field (entry compiled &optional prompt)
  "Read one canonical field from ENTRY using COMPILED."
  (let* ((default-field (majutsu-text-property-near-point
                         'majutsu-row-field))
         (field-alist (mapcar (lambda (field)
                                (cons (symbol-name field) field))
                              (majutsu-row-entry-copyable-fields
                               entry compiled)))
         (items (mapcar (lambda (cell)
                          (cons (car cell)
                                (majutsu-row-entry-field-candidate-preview
                                 entry (cdr cell))))
                        field-alist))
         (default (car (rassoc default-field field-alist)))
         (choice (majutsu-completing-read
                  (or prompt "Copy entry field: ")
                  items nil t nil nil default 'majutsu-row-field)))
    (or (alist-get choice field-alist nil nil #'equal)
        (user-error "Unknown entry field %S" choice))))