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

(in-package :mblog)
(declaim (optimize (safety 3)))

(defparameter +synopsis+ "mnote-html FILE [FILE [ ... ]]")

;; TODO(sterni): handle relevant conditions
(defun main ()
  (let* ((args (uiop:command-line-arguments))
         (help-p (or (not args)
                     (find-if (lambda (x)
                                (member x '("-h" "--help" "--usage")
                                        :test #'string=))
                              args))))
    (if help-p (format *error-output* "Usage: ~A~%" +synopsis+)
      (loop for arg in args
            do (note:apple-note-html-fragment
                (note:make-apple-note (mime:mime-message (pathname arg)))
                *standard-output*)))))
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			`(in-package :mblog)`
			`(declaim (optimize (safety 3)))`

			`(defparameter +synopsis+ "mnote-html FILE [FILE [ ... ]]")`

			`;; TODO(sterni): handle relevant conditions`
			`(defun main ()`
			`(let* ((args (uiop:command-line-arguments))`
			`(help-p (or (not args)`
			`(find-if (lambda (x)`
			`(member x '("-h" "--help" "--usage")`
			`:test #'string=))`
			`args))))`
			`(if help-p (format error-output "Usage: ~A~%" +synopsis+)`
			`(loop for arg in args`
refactor(sterni/mblog): add (sub)class for apple note messages * Upon creation of an apple-note object we can check if certain fields we are interested in are present and of the right type etc. These currently are: - UUID (for links later) - Subject (title) - Time - Text part with supported MIME type These are then put into their own shortcut fields in the apple-note subclass which allows for easier access and forces us to make sure they are present. * Split out everything note related into its own package. Using the new type, we can expose an interface which sort of makes sense. Change-Id: Ic9d67518354e61a3cc8388bb0e566fce661e90d0 Reviewed-on: https://cl.tvl.fyi/c/depot/+/5072 Tested-by: BuildkiteCI Reviewed-by: sterni <sternenseemann@systemli.org> 2022-01-13 00:33:59 +01:00			`do (note:apple-note-html-fragment`
			`(note:make-apple-note (mime:mime-message (pathname arg)))`
			`standard-output)))))`