Add function for accessing inbox's URL

1 files changed, 5 insertions, 0 deletions

diff --git a/piem.el b/piem.el
index d70e98e..3a9233e 100644
--- a/piem.el
+++ b/piem.el
@@ -259,6 +259,11 @@ the following information about the patch series:
              (repo (plist-get (cdr (assoc p piem-inboxes)) :coderepo)))
     (expand-file-name repo)))
 
+(defun piem-inbox-url ()
+  "Return the URL of current buffer's inbox."
+  (when-let ((p (piem-inbox)))
+    (plist-get (cdr (assoc p piem-inboxes)) :url)))
+
 (defun piem-inbox-coderepo-maybe-read ()
   "Like `piem-inbox-coderepo', but fall back to reading the repo."
   (or (piem-inbox-coderepo)