tvl-depot/users/sterni/mblog/packages.lisp

(defpackage :maildir
  (:use :common-lisp)
  (:shadow :list)
  (:export :list)
  (:documentation
   "Very incomplete package for dealing with maildir(5)."))

(defpackage :mblog
  (:use
   :common-lisp
   :mime4cl
   :closure-html
   :who
   :uiop)
  (:shadow :with-html-output) ; conflict between closure-html and who
  (:import-from
   :alexandria
   :when-let*
   :when-let
   :starts-with-subseq
   :ends-with-subseq)
  (:export :main))
feat(sterni/mblog): add package to read maildirs Change-Id: I7be8d8b7d12bb194712aa26f3ddad74340357779 Reviewed-on: https://cl.tvl.fyi/c/depot/+/5070 Tested-by: BuildkiteCI Reviewed-by: sterni <sternenseemann@systemli.org> 2021-11-30 17:42:05 +01:00			`(defpackage :maildir`
			`(:use :common-lisp)`
			`(:shadow :list)`
			`(:export :list)`
			`(:documentation`
			`"Very incomplete package for dealing with maildir(5)."))`

feat(sterni/mblog): convert apple note mime msgs to html For now mblog only contains the mnote-html executable which takes a mime message from a maildir and prints the equivalent HTML fragment to stdout. It is intended to work with the mblaze(7) utilities, i. e. mnote-html resolves all `object` tags to proper `img` inclusions with the correct filename, so mshow(1)'s -x version can supply the needed image files. A note created using Apple's Notes app (tested with the iOS version) can be converted in a viewable HTML file like this: $ mnote-html path/to/msg > fragment.html $ mshow -x path/to/msg $ cat <(echo "<!DOCTYPE html>") fragment.html > document.html $ xdg-open document.html Note that only the limited feature set of Apple Notes when using the IMAP backend is supported. The iCloud-based one has more (quite neat) features, but its notes can only accessed via an internal API as far as I know. This CLI is a bit impractical due to the big startup overhead of loading the lisp image. mblog should be become a fully fletched static site generator in the future, but this is a good starting point and providing the mnote-html tool is certainly useful. Change-Id: Iee6d1558e939b932da1e70ca2d2ae75638d855df Reviewed-on: https://cl.tvl.fyi/c/depot/+/3271 Tested-by: BuildkiteCI Reviewed-by: sterni <sternenseemann@systemli.org> 2021-08-02 15:13:05 +02:00			`(defpackage :mblog`
			`(:use`
			`:common-lisp`
			`:mime4cl`
			`:closure-html`
			`:who`
			`:uiop)`
			`(:shadow :with-html-output) ; conflict between closure-html and who`
			`(:import-from`
			`:alexandria`
			`:when-let*`
			`:when-let`
			`:starts-with-subseq`
			`:ends-with-subseq)`
			`(:export :main))`