Vendor formbox hotfix

2 files changed, 103 insertions, 1 deletions

diff --git a/_libs/formbox/format b/_libs/formbox/format
new file mode 100755
index 0000000..2136a0c
--- /dev/null
+++ b/_libs/formbox/format
@@ -0,0 +1,101 @@
+#!/usr/bin/env python
+# Format mbox as HTML/XML
+# Copyright (C) 2021-2022  Nguyễn Gia Phong
+#
+# This program is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published
+# by the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
+from argparse import ArgumentParser
+from collections import defaultdict
+from email.header import decode_header
+from email.utils import parsedate_to_datetime
+from functools import partial
+from mailbox import mbox
+from pathlib import Path
+from urllib.parse import quote, unquote, urlencode
+
+from bleach import clean, linkify
+from markdown import markdown
+
+sanitise = partial(clean, tags=('a', 'code', 'em', 'strong', 'sub', 'sup',
+                                'blockquote', 'p', 'pre', 'ul', 'ol', 'li'),
+                   protocols=('ftp', 'gemini', 'gopher', 'http', 'https',
+                              'irc', 'ircs', 'mailto', 'matrix', 'xmpp'))
+
+
+def get_body(message):
+    """Return the Markdown message body converted to HTML."""
+    if message.is_multipart():
+        for payload in map(get_body, message.get_payload()):
+            if payload is not None: return payload
+    elif message.get_content_type() in ('text/markdown', 'text/plain'):
+        payload = message.get_payload(decode=True).decode()
+        return sanitise(linkify(markdown(payload, output_format='html5')))
+    return None
+
+
+def decode(header):
+    """Return the decoded email header."""
+    for string, charset in decode_header(header):
+        encoding = 'utf-8' if charset is None else charset
+        yield string.decode(encoding)
+
+
+def reply_to(message):
+    """Return mailto parameters for replying to the given email."""
+    yield 'In-Reply-To', message['Message-ID']
+    yield 'Cc', message.get('Reply-To', message['From'])
+    subject = message['Subject']
+    if subject is None: return
+    if subject.lower().startswith('re:'):
+        yield 'Subject', subject
+    else:
+        yield 'Subject', f'Re: {subject}'
+
+
+def date(message):
+    """Parse given email's Date header."""
+    return parsedate_to_datetime(message['Date']).date()
+
+
+def render(template, archive, parent):
+    """Render the thread recursively based on given template."""
+    for self in sorted(archive[parent], key=date):
+        body = get_body(self)
+        if body is None: continue
+        message_id = self['Message-Id']
+        # Please don't have space in email addresses
+        author = ' '.join(decode(self['From'])).rsplit(maxsplit=1)[0]
+        rendered_children = render(template, archive, message_id)
+        yield template.format(in_reply_to=quote(parent),
+                              message_id=quote(message_id),
+                              mailto_params=urlencode(dict(reply_to(self))),
+                              date=date(self).isoformat(), author=author,
+                              body=body, children='\n'.join(rendered_children))
+
+
+def main():
+    """Parse command-line arguments and pass them to routines."""
+    parser = ArgumentParser(description='format mbox as HTML/XML')
+    parser.add_argument('mbox', type=mbox, help='path to mbox file')
+    parser.add_argument('id', type=unquote, help='root message ID')
+    parser.add_argument('template', type=Path, help='path to template')
+    args = parser.parse_args()
+
+    archive = defaultdict(list)
+    for message in args.mbox: archive[message['In-Reply-To']].append(message)
+    template = args.template.read_text()
+    print(*render(template, archive, args.id), sep='', end='')
+
+
+if __name__ == '__main__': main()
diff --git a/utils.jl b/utils.jl
index 8383740..f39dee5 100644
--- a/utils.jl
+++ b/utils.jl
@@ -17,9 +17,10 @@ hfun_comments() = @sprintf("https://lists.sr.ht/~cnx/site?search=%s:%s",
 
 function render_comments(template)
   prefix = joinpath(path(:libs), "formbox")
+  format = joinpath(prefix, "format")
   mbox = joinpath(prefix, "mbox")
   template_path = joinpath(prefix, template)
-  readchomp(`formbox $mbox $(message_id()) $template_path`)
+  readchomp(`$format $mbox $(message_id()) $template_path`)
 end
 
 function hfun_comments_rendered()