Examples for using auth-source api in Emacs

creation-prompt.el

(let ((auth-source-creation-prompts
       '((secret . "password for %u: ")))
      (info ...))
  ...)

get-auth-info.el

(defun get-auth-info (host user &optional port)
  (let ((info (nth 0 (auth-source-search
                      :host host
                      :user user
                      :port port
                      :require '(:user :secret)
                      :create t))))
    (if info
        (let ((secret (plist-get info :secret)))
          (if (functionp secret)
              (funcall secret)
            secret))
      nil)))

save-new-authinfo.el

(let ((save-info  (plist-get info :save-function)))
  (when save-info
        (funcall save-info)))

set-auth-src.el

(setq auth-sources (list "~/.secret/authinfo.gpg"))