5 (define r-s regexp-substitute/global)
\r
7 ;;; to be executed in a directory with dirindex.html
\r
8 ;;; will echo moin markup to stdout
\r
10 (let ((file-contents
\r
11 (call-with-input-file "dirindex.html"
\r
13 (read-string (file-size "dirindex.html") in))))
\r
16 (rx (: "public_html/fotos/"
\r
17 (submatch (: (= 4 numeric)
\r
26 (submatch (: "cimg" (= 4 numeric) ".html"))
\r
30 (submatch (: "cimg" (= 4 numeric) "--thumb.jpg"))
\r
34 "[http://fotos.lefant.net/" curdir 1
\r
35 " http://fotos.lefant.net/" curdir 2 "]\n")))
\r