|
|
|
@ -874,33 +874,6 @@ to the beginning of the file."
|
|
|
|
|
(0 font-lock-variable-name-face t)))))))
|
|
|
|
|
#+END_SRC
|
|
|
|
|
|
|
|
|
|
** ~idm~ (ID manager) related functions
|
|
|
|
|
|
|
|
|
|
*** Get specific fields from a record in ~idm~
|
|
|
|
|
|
|
|
|
|
#+BEGIN_SRC emacs-lisp
|
|
|
|
|
(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 nil))
|
|
|
|
|
(dolist (record (funcall db 'get-all-records) password)
|
|
|
|
|
(when (string= account (idm-record-name record))
|
|
|
|
|
(setq lookup-record (gpolonkai/idm-record-get-field record field))))
|
|
|
|
|
lookup-record))
|
|
|
|
|
|
|
|
|
|
(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))
|
|
|
|
|
#+END_SRC
|
|
|
|
|
|
|
|
|
|
** Jinja related
|
|
|
|
|
|
|
|
|
|
*** Mark a string as translatable
|
|
|
|
@ -1384,19 +1357,6 @@ Now set up eshell.
|
|
|
|
|
(save-place-file (expand-file-name ".places" user-emacs-directory)))
|
|
|
|
|
#+END_SRC
|
|
|
|
|
|
|
|
|
|
** ID manager
|
|
|
|
|
|
|
|
|
|
Manage credentials, AKA password manager.
|
|
|
|
|
|
|
|
|
|
#+BEGIN_SRC emacs-lisp
|
|
|
|
|
(use-package id-manager
|
|
|
|
|
:config
|
|
|
|
|
(setq idm-database-file (expand-file-name "idm-db.gpg" user-emacs-directory))
|
|
|
|
|
:bind
|
|
|
|
|
(:map gpolonkai/pers-map
|
|
|
|
|
("i" . idm-open-list-command)))
|
|
|
|
|
#+END_SRC
|
|
|
|
|
|
|
|
|
|
** EDiff
|
|
|
|
|
|
|
|
|
|
#+BEGIN_SRC emacs-lisp
|
|
|
|
|