Gergely Polonkai
d0fba2c7c6
Add new macros that can fetch the account-id and password for a given account.
22 lines
837 B
EmacsLisp
22 lines
837 B
EmacsLisp
;; id-manager extensions
|
|
|
|
(defun gpolonkai/idm-record-get-field (record field)
|
|
"Get FIELD of an id-manager RECORD."
|
|
(let ((funcname (intern (concat "idm-record-" (symbol-name field)))))
|
|
(when (fboundp funcname)
|
|
(funcall funcname record))))
|
|
|
|
(defun gpolonkai/idm-get-field-for-account (account field)
|
|
"Get id-manager password for ACCOUNT."
|
|
(let ((db (idm-load-db))
|
|
(lookup-record))
|
|
(dolist (record (funcall db 'get-all-records) password)
|
|
(when (string= "WikEmacs" (idm-record-name record))
|
|
(setq password (gpolonkai/idm-record-get-field record field))))))
|
|
|
|
(defmacro gpolonkai/idm-get-password-for-account (account)
|
|
`(gpolonkai/idm-get-field-for-account ,account 'password))
|
|
|
|
(defmacro gpolonkai/idm-get-id-for-account (account)
|
|
`(gpolonkai/idm-get-field-for-account ,account 'account-id))
|