branch: externals/openpgp
commit 489d53d075f46c8ae976f810f379f1bdb95c1c0b
Author: Philip Kaludercic <phil...@posteo.net>
Commit: Philip Kaludercic <phil...@posteo.net>
Convert openpgp-fetch-... functions into commands
---
openpgp.el | 10 +++++++++-
1 file changed, 9 insertions(+), 1 deletion(-)
diff --git a/openpgp.el b/openpgp.el
index 0739515805..00524504a6 100644
--- a/openpgp.el
+++ b/openpgp.el
@@ -1,6 +1,6 @@
;;; openpgp.el --- Client for keys.openpgp.org -*- lexical-binding: t;
-*-
-;; Copyright (C) 2020, 2023 Free Software Foundation, Inc.
+;; Copyright (C) 2020, 2023, 2024 Free Software Foundation, Inc.
;; Author: Philip Kaludercic <phil...@posteo.net>
;; Maintainer: Philip Kaludercic <~pkal/public-in...@lists.sr.ht>
@@ -74,6 +74,7 @@ STATUS is a plist described in the docstring for
`url-retrieve'."
;;;###autoload
(defun openpgp-fetch-key-by-fingerprint (fingerprint)
"Query key via FINGERPRINT and add to keychain."
+ (interactive "sFingerprint: ")
(let ((fingerprint (string-remove-prefix "0X" (upcase fingerprint))))
(url-retrieve (openpgp--api-url "by-fingerprint" fingerprint)
#'openpgp--process-key)))
@@ -81,13 +82,20 @@ STATUS is a plist described in the docstring for
`url-retrieve'."
;;;###autoload
(defun openpgp-fetch-key-by-keyid (keyid)
"Query key via KEYID and add to keychain."
+ (interactive "sKey ID: ")
(let ((keyid (string-remove-prefix "0X" (upcase keyid))))
(url-retrieve (openpgp--api-url "by-keyid" keyid)
#'openpgp--process-key)))
+(declare-function message--name-table "message" (orig-string))
+
;;;###autoload
(defun openpgp-fetch-key-by-email (email)
"Query key via EMAIL and add to keychain."
+ (interactive (progn
+ (require 'message)
+ (cdr (mail-extract-address-components
+ (completing-read "Email: " (message--name-table ""))))))
(url-retrieve (openpgp--api-url "by-email" (url-hexify-string email))
#'openpgp--process-key))
