From 68593c4e6beb07a84728a730da5bc465fab4c76e Mon Sep 17 00:00:00 2001 From: Lucas Sta Maria Date: Sun, 6 Aug 2023 21:35:20 -0700 Subject: [PATCH] fix: make `gpg-public-keys` return alist Signed-off-by: Lucas Sta Maria --- .emacs.d/include/gpgconfig.el | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/.emacs.d/include/gpgconfig.el b/.emacs.d/include/gpgconfig.el index da1c7f0..f7719af 100644 --- a/.emacs.d/include/gpgconfig.el +++ b/.emacs.d/include/gpgconfig.el @@ -30,11 +30,10 @@ (string-to-list curline)))) (start (+ 2 (- original-length (length start-raw)))) - (name-email (substring curline start -1)) - (keyid-name-email (concat keyid " " name-email))) + (name-email (substring curline start -1))) (if (not (memq (string-to-char "(") (string-to-list name-email))) - (push keyid-name-email info) + (push (cons name-email keyid) info) ;; Remove key descriptions inside parentheses (let* ((open-paren-start (length (concat (memq (string-to-char "(") @@ -45,9 +44,9 @@ (string-to-list name-email))))) (email-part (substring name-email (+ 2 (- close-paren-start)))) - (sanitized (concat keyid " " name-part email-part))) - (push sanitized info))))))) - (setq info (-filter (lambda (s) (not (string-match "image" s))) info)) + (sanitized (concat name-part email-part))) + (push (cons sanitized keyid) info))))))) + (setq info (-filter (lambda (s) (not (string-match "image" (car s)))) info)) info))) (provide 'gpgconfig)