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