Function: majutsu-sign--read-key

majutsu-sign--read-key is a natively compiled function defined in majutsu-sign.el.

Signature

(majutsu-sign--read-key PROMPT &optional INITIAL-INPUT HISTORY)

Documentation

Read a backend-specific signing key with PROMPT.

INITIAL-INPUT and HISTORY follow a transient option reader.

Source Code

;; Defined in /nix/store/jagqw3nms546pad0gxi5f3wsckk6pji7-emacs-packages-deps/share/emacs/site-lisp/majutsu-sign.el
(defun majutsu-sign--read-key (prompt &optional initial-input history)
  "Read a backend-specific signing key with PROMPT.
INITIAL-INPUT and HISTORY follow a transient option reader."
  (let ((backend (majutsu-get "signing.backend"))
        (default (majutsu-get "signing.key")))
    (pcase backend
      ("gpg"
       (let ((epg-gpg-program
              (or (majutsu-get "signing.backends.gpg.program")
                  epg-gpg-program)))
         (majutsu-sign--read-gpg-key
          prompt initial-input history 'OpenPGP default)))
      ("gpgsm"
       (let ((epg-gpgsm-program
              (or (majutsu-get "signing.backends.gpgsm.program")
                  epg-gpgsm-program)))
         (majutsu-sign--read-gpg-key
          prompt initial-input history 'CMS default)))
      ("ssh"
       (majutsu-completing-read
        prompt
        (delq nil (delete-dups
                   (cons default (majutsu-sign--ssh-key-files))))
        nil 'any initial-input history default))
      (_
       (read-string prompt initial-input history default)))))