aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2020-06-06 21:45:29 -0400
committerKyle Meyer <kyle@kyleam.com>2020-06-07 01:14:07 -0400
commitdf480c9d52416c6a8cbacd7ed7abbdacc43be4a9 (patch)
treea50273c9bd430ef3bbfd19187fcc0dbaa04b63ab
parentd3a0857a8fc110893bbb3cdf14489603c4dad23d (diff)
downloadpiem-df480c9d52416c6a8cbacd7ed7abbdacc43be4a9.tar.gz
Add function for accessing inbox's URL
-rw-r--r--piem.el5
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)