(point-min)
(point-max))))))
-(defun auto-source--symbol-keyword (symbol)
+(defun auth-source--symbol-keyword (symbol)
(intern (format ":%s" symbol)))
(defun auth-source-netrc-normalize (alist filename)
(setq lexv (funcall token-decoder lexv)))
lexv))))
(setq ret (plist-put ret
- (auto-source--symbol-keyword k)
+ (auth-source--symbol-keyword k)
v))))
ret))
alist))
;; 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)
- (let ((val (plist-get spec (auto-source--symbol-keyword br))))
+ (let ((val (plist-get spec (auth-source--symbol-keyword br))))
(when val
(let ((br-choice (cond
;; all-accepting choice (predicate is t)
;; for extra required elements, see if the spec includes a value for them
(dolist (er create-extra)
- (let ((k (auto-source--symbol-keyword er))
+ (let ((k (auth-source--symbol-keyword er))
(keys (loop for i below (length spec) by 2
collect (nth i spec))))
(when (memq k keys)
;; take the first element if the data is a list
(data (or (auth-source-netrc-element-or-first data)
(plist-get current-data
- (auto-source--symbol-keyword r))))
+ (auth-source--symbol-keyword r))))
;; this is the default to be offered
(given-default (auth-source--aget
auth-source-creation-defaults r))
(when data
(setq artificial (plist-put artificial
- (auto-source--symbol-keyword r)
+ (auth-source--symbol-keyword r)
(if (eq r 'secret)
(lexical-let ((data data))
(lambda () data))
(defun auth-source-macos-keychain-result-append (result generic k v)
(push v result)
- (push (auto-source--symbol-keyword
+ (push (auth-source--symbol-keyword
(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)
- (let ((val (plist-get spec (auto-source--symbol-keyword br))))
+ (let ((val (plist-get spec (auth-source--symbol-keyword br))))
(when val
(let ((br-choice (cond
;; all-accepting choice (predicate is t)
;; for extra required elements, see if the spec includes a value for them
(dolist (er create-extra)
- (let ((k (auto-source--symbol-keyword er))
+ (let ((k (auth-source--symbol-keyword er))
(keys (loop for i below (length spec) by 2
collect (nth i spec))))
(when (memq k keys)
;; take the first element if the data is a list
(data (or (auth-source-netrc-element-or-first data)
(plist-get current-data
- (auto-source--symbol-keyword r))))
+ (auth-source--symbol-keyword r))))
;; this is the default to be offered
(given-default (auth-source--aget
auth-source-creation-defaults r))
(if (member r base-secret)
(setq secret-artificial
(plist-put secret-artificial
- (auto-source--symbol-keyword r)
+ (auth-source--symbol-keyword r)
data))
(setq artificial (plist-put artificial
- (auto-source--symbol-keyword r)
+ (auth-source--symbol-keyword r)
data))))))
(plstore-put (oref backend data)
(sha1 (format "%s@%s:%s"