From 98e4cd032f45ade1c408162ebccd914f31266f9f Mon Sep 17 00:00:00 2001 From: sterni Date: Sat, 29 Jan 2022 16:18:19 +0100 Subject: feat(users/sterni/mblog): implement mblog executable This change finally sort of puts the parts together: We take a maildir, render all its note messages as standalone HTML, extract the attachments alongside and finally generate a global index page linking all notes. The new executable and mnote-html are both contained in the same image and we dispatch the right functionality based on argv[0]. Change-Id: I5a5bdbfaca79199f92e73ea4a2f070fa900d2bc4 Reviewed-on: https://cl.tvl.fyi/c/depot/+/5113 Tested-by: BuildkiteCI Reviewed-by: sterni --- users/sterni/mblog/packages.lisp | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) (limited to 'users/sterni/mblog/packages.lisp') diff --git a/users/sterni/mblog/packages.lisp b/users/sterni/mblog/packages.lisp index aa2fa952f1..651dc6f261 100644 --- a/users/sterni/mblog/packages.lisp +++ b/users/sterni/mblog/packages.lisp @@ -32,6 +32,20 @@ (defpackage :mblog (:use :common-lisp - :uiop + :klatre + :who + :maildir :note) + (:export :build-mblog) + (:import-from :local-time :universal-to-timestamp) + (:import-from :sclf :pathname-as-directory) + (:shadowing-import-from :common-lisp :list)) + +(defpackage :cli + (:use + :common-lisp + :uiop + :note + :mblog) + (:import-from :alexandria :starts-with) (:export :main)) -- cgit 1.4.1