Function: org-cite-basic--complete-style

org-cite-basic--complete-style is a byte-compiled function defined in oc-basic.el.gz.

Signature

(org-cite-basic--complete-style _)

Documentation

Offer completion for style.

Return chosen style as a string.

Source Code

;; Defined in /usr/src/emacs/lisp/org/oc-basic.el.gz
;;; "Insert" capability
(defun org-cite-basic--complete-style (_)
  "Offer completion for style.
Return chosen style as a string."
  (let* ((styles
          (mapcar (pcase-lambda (`((,style . ,_) . ,_))
                    style)
                  (org-cite-supported-styles))))
    (pcase styles
      (`(,style) style)
      (_ (completing-read "Style (\"\" for default): " styles nil t)))))