eintrag verlinkung vom oevsv

[debienna.git] / LefantFotoHack / index.mdwn

diff --git a/LefantFotoHack/index.mdwn b/LefantFotoHack/index.mdwn
index 80d36d41ec4f54ff094e8ed0887212b6e40b63a2..76703e7bbf7449af0bc584701cd0b2f570443095 100644 (file)
--- a/LefantFotoHack/index.mdwn
+++ b/LefantFotoHack/index.mdwn
@@ -1,41 +1,43 @@
-{{{\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]]