From 959d4fd10f365bbb1cbba1de367544d519274b8e Mon Sep 17 00:00:00 2001 From: Ekaitz Zarraga Date: Wed, 4 Oct 2023 20:44:16 +0200 Subject: media-list: Make `as` module for listing media --- README.md | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'README.md') diff --git a/README.md b/README.md index 807e55e..2f4f0a7 100644 --- a/README.md +++ b/README.md @@ -21,18 +21,20 @@ The following script shows one way to do it: (define root (canonicalize-path (cadr (command-line)))) (define atom-feed (lambda () (atom:render (as 'atom root)))) -(define html-index (lambda () (html:render (as 'html root)))) - (atom-feed) ;; writes your feed to current-output-port + +(define html-index (lambda () (html:render (as 'html root)))) (html-index) ;; writes your html to current-output-port + +(define media-list (as 'media-list root)) ;; list of media files in your site ``` `(as 'atom root)` and `(as 'html root)` the scheme file in `root` and interpret it as atom and html respectively. From that, the result can be generated calling the `render` function of the modules as suggested in the example. -There's also a `media-uploader` module that would upload all the independent -media to the server, but it's still a WIP. +`(as 'media-list root)` returns an association list with the car set to the +path in the filesystem and the cdr to the uri of each media file. ## Format -- cgit v1.2.3