;; fill in the valist with whatever data we may have from the search
;; we complete the first value if it's a list and use the value otherwise
(dolist (br base-required)
;; fill in the valist with whatever data we may have from the search
;; we complete the first value if it's a list and use the value otherwise
(dolist (br base-required)
;; for extra required elements, see if the spec includes a value for them
(dolist (er create-extra)
;; for extra required elements, see if the spec includes a value for them
(dolist (er create-extra)
;; this is the default to be offered
(given-default (auth-source--aget
auth-source-creation-defaults r))
;; this is the default to be offered
(given-default (auth-source--aget
auth-source-creation-defaults r))
(cond
((equal k "acct") "user")
;; for generic keychains, creator is host, service is port
(cond
((equal k "acct") "user")
;; for generic keychains, creator is host, service is port
;; fill in the valist with whatever data we may have from the search
;; we complete the first value if it's a list and use the value otherwise
(dolist (br base-required)
;; fill in the valist with whatever data we may have from the search
;; we complete the first value if it's a list and use the value otherwise
(dolist (br base-required)
;; for extra required elements, see if the spec includes a value for them
(dolist (er create-extra)
;; for extra required elements, see if the spec includes a value for them
(dolist (er create-extra)
;; this is the default to be offered
(given-default (auth-source--aget
auth-source-creation-defaults r))
;; this is the default to be offered
(given-default (auth-source--aget
auth-source-creation-defaults r))