lucas/dotfiles
1
0
Fork 0
Code Activity

fix: make gpg-public-keys return alist

Browse source 
Signed-off-by: Lucas Sta Maria <lucas@priime.dev>
This commit is contained in:
Lucas Sta Maria 2023-08-06 21:35:20 -07:00
parent feb6e8eea2
commit 68593c4e6b
No known key found for this signature in database
GPG key ID: F07FB16A826E3B47
1 changed files with 5 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

11
.emacs.d/include/gpgconfig.el
View file

@ -30,11 +30,10 @@
(string-to-list curline)))) (string-to-list curline))))
(start (+ 2 (- original-length (start (+ 2 (- original-length
(length start-raw)))) (length start-raw))))
(name-email (substring curline start -1)) (name-email (substring curline start -1)))
(keyid-name-email (concat keyid " " name-email)))
(if (not (memq (string-to-char "(") (if (not (memq (string-to-char "(")
(string-to-list name-email))) (string-to-list name-email)))
(push keyid-name-email info) (push (cons name-email keyid) info)
;; Remove key descriptions inside parentheses ;; Remove key descriptions inside parentheses
(let* ((open-paren-start (let* ((open-paren-start
(length (concat (memq (string-to-char "(") (length (concat (memq (string-to-char "(")
@ -45,9 +44,9 @@
(string-to-list name-email))))) (string-to-list name-email)))))
(email-part (substring name-email (email-part (substring name-email
(+ 2 (- close-paren-start)))) (+ 2 (- close-paren-start))))
(sanitized (concat keyid " " name-part email-part))) (sanitized (concat name-part email-part)))
(push sanitized info))))))) (push (cons sanitized keyid) info)))))))
(setq info (-filter (lambda (s) (not (string-match "image" s))) info)) (setq info (-filter (lambda (s) (not (string-match "image" (car s)))) info))
info))) info)))
(provide 'gpgconfig) (provide 'gpgconfig)