gergely/my-emacs-d
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix gpolonkai/idm-get-field-for-account

Browse Source 
It had more problems than not…
This commit is contained in:
Gergely Polonkai 2016-11-18 14:40:59 +01:00
parent dc691e216e
commit a68d635a05
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/idm.el
View File

@ -9,10 +9,11 @@
(defun gpolonkai/idm-get-field-for-account (account field) (defun gpolonkai/idm-get-field-for-account (account field)
"Get id-manager password for ACCOUNT." "Get id-manager password for ACCOUNT."
(let ((db (idm-load-db)) (let ((db (idm-load-db))
(lookup-record)) (lookup-record nil))
(dolist (record (funcall db 'get-all-records) password) (dolist (record (funcall db 'get-all-records) password)
(when (string= "WikEmacs" (idm-record-name record)) (when (string= account (idm-record-name record))
(setq password (gpolonkai/idm-record-get-field record field)))))) (setq lookup-record (gpolonkai/idm-record-get-field record field))))
lookup-record))
(defmacro gpolonkai/idm-get-password-for-account (account) (defmacro gpolonkai/idm-get-password-for-account (account)
`(gpolonkai/idm-get-field-for-account ,account 'password)) `(gpolonkai/idm-get-field-for-account ,account 'password))