From 58d3961b06f73baa33e8defe52710d708324f428 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Tue, 12 May 2020 00:46:51 -0400 Subject: piem: Define extended link regexp and use in elfeed The links in Elfeed entries only need the restricted variant, but the extended one will be useful for EWW support. --- piem.el | 13 +++++++++++++ 1 file changed, 13 insertions(+) (limited to 'piem.el') diff --git a/piem.el b/piem.el index 872da22..f014cbc 100644 --- a/piem.el +++ b/piem.el @@ -87,6 +87,19 @@ should return a function that takes no arguments and inserts the mbox's contents in the current buffer." :type 'hook) +(defvar piem-link-re + (rx "/" (group (one-or-more (not (any "/" "\n")))) + "/" (group (one-or-more (not (any "/" "\n")))) + "/" (group (zero-or-one + (or "raw" + "t.mbox.gz" + (and (or "t" "T") "/#" + (one-or-more (not (any "/" "\n"))))))) + string-end) + "Regular expression matching public-inbox HTTP link. +The first group is the inbox, the second is the message ID, and +the rest is any trailing endpoint.") + (defun piem-inbox-by-header-match () "Return inbox based on matching message headers. This should be called from a buffer containing a message and is -- cgit v1.2.3