Function: majutsu-gerrit-rest--auth-credentials

majutsu-gerrit-rest--auth-credentials is a natively compiled function defined in majutsu-gerrit-rest.el.

Signature

(majutsu-gerrit-rest--auth-credentials SPEC)

Documentation

Return (USER . SECRET) for SPEC, or nil if no auth-source entry exists.

Source Code

;; Defined in /nix/store/jagqw3nms546pad0gxi5f3wsckk6pji7-emacs-packages-deps/share/emacs/site-lisp/majutsu-gerrit-rest.el
(defun majutsu-gerrit-rest--auth-credentials (spec)
  "Return (USER . SECRET) for SPEC, or nil if no auth-source entry exists."
  (let* ((host (plist-get spec :host))
         (user (plist-get spec :user))
         (args (append (list :host host
                             :require (if user '(:secret) '(:user :secret))
                             :create nil
                             :max 1)
                       (when user (list :user user))))
         (entry (car (apply #'auth-source-search args))))
    (when entry
      (let ((secret (plist-get entry :secret)))
        (cons (or (plist-get entry :user) user)
              (if (functionp secret) (funcall secret) secret))))))