X-Git-Url: https://git.deb.at/?p=debienna.git;a=blobdiff_plain;f=LefantFotoHack%2Findex.mdwn;h=7c48cc1756c289eeccf5448990c6b61c26594f4f;hp=80d36d41ec4f54ff094e8ed0887212b6e40b63a2;hb=e6773c3a4442d47546f9d800e8a1aefdd8c1695c;hpb=bb58b440ee60e34e1c961060195598787087c131

diff --git a/LefantFotoHack/index.mdwn b/LefantFotoHack/index.mdwn
index 80d36d4..7c48cc1 100644
--- a/LefantFotoHack/index.mdwn
+++ b/LefantFotoHack/index.mdwn
@@ -1,41 +1,45 @@
-{{{
-#!/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)
-}}}
-
-----
-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)
+"""]]
+
+
+---
+
+ [[CategoryCodeSnippets|CategoryCodeSnippets]]