-{{{\r
-#!/usr/bin/scsh -s\r
-!#\r
-\r
-(define r-s regexp-substitute/global)\r
-\r
-;;; to be executed in a directory with dirindex.html\r
-;;; will echo moin markup to stdout\r
-(display\r
- (let ((file-contents\r
- (call-with-input-file "dirindex.html"\r
- (lambda (in) \r
- (read-string (file-size "dirindex.html") in))))\r
- (curdir\r
- (r-s #f\r
- (rx (: "public_html/fotos/"\r
- (submatch (: (= 4 numeric)\r
- "/debianistas/"\r
- (= 4 numeric) "_"\r
- (= 2 numeric) "_"\r
- (= 2 numeric)))))\r
- (run/string (pwd))\r
- 1 "/")))\r
- (r-s #f\r
- (rx (: "<a href=\""\r
- (submatch (: "cimg" (= 4 numeric) ".html"))\r
- "\">"\r
- #\newline\r
- "<img src=\""\r
- (submatch (: "cimg" (= 4 numeric) "--thumb.jpg"))\r
- "\" width="))\r
- file-contents\r
- 'pre 'post\r
- "[http://fotos.lefant.net/" curdir 1\r
- " http://fotos.lefant.net/" curdir 2 "]\n")))\r
-\r
-(newline)\r
-}}}\r
-\r
-----\r
-CategoryCodeSnippets
\ No newline at end of file
+
+
+[[!format txt """
+#!/usr/bin/scsh -s
+!#
+
+(define r-s regexp-substitute/global)
+
+;;; to be executed in a directory with dirindex.html
+;;; will echo moin markup to stdout
+(display
+ (let ((file-contents
+ (call-with-input-file "dirindex.html"
+ (lambda (in)
+ (read-string (file-size "dirindex.html") in))))
+ (curdir
+ (r-s #f
+ (rx (: "public_html/fotos/"
+ (submatch (: (= 4 numeric)
+ "/debianistas/"
+ (= 4 numeric) "_"
+ (= 2 numeric) "_"
+ (= 2 numeric)))))
+ (run/string (pwd))
+ 1 "/")))
+ (r-s #f
+ (rx (: "<a href=\""
+ (submatch (: "cimg" (= 4 numeric) ".html"))
+ "\">"
+ #\newline
+ "<img src=\""
+ (submatch (: "cimg" (= 4 numeric) "--thumb.jpg"))
+ "\" width="))
+ file-contents
+ 'pre 'post
+ "[http://fotos.lefant.net/" curdir 1
+ " http://fotos.lefant.net/" curdir 2 "]\n")))
+
+(newline)
+"""]]
+
+
+ [[!tag CategoryCodeSnippets]]