From 4cb806633ab8dc863c9db7bedc9a4f0d4b61f561 Mon Sep 17 00:00:00 2001
From: Marcus Kammer <marcus.kammer@mailbox.org>
Date: Fri, 12 Apr 2024 12:16:21 +0200
Subject: [PATCH] Get keys from auth source

---
 bundle/bundle--mk.el | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/bundle/bundle--mk.el b/bundle/bundle--mk.el
index caf6b40a..caed0963 100644
--- a/bundle/bundle--mk.el
+++ b/bundle/bundle--mk.el
@@ -208,3 +208,19 @@
   (interactive "sEnter the URL to mirror: ")
   (let ((cmd (format "wget --mirror --convert-links --adjust-extension --page-requisites --no-parent %s" url)))
     (async-shell-command cmd)))
+
+(defun mk/get-auth-source-key (host key)
+  "Retrieve the API key using 'auth-source'."
+  (require 'auth-source)
+  (let* ((auth-source-creation-prompts
+          '((secret . (format "API key for %s@%s: " key host))))
+         (found (nth 0 (auth-source-search
+                        :max 1
+                        :host host
+                        :user key
+                        :require '(:secret)
+                        :create t)))
+         (secret (plist-get found :secret)))
+    (if (functionp secret)
+        (funcall secret)
+      secret)))