-{{{
+
+
+[[!format txt """
#!/usr/bin/scsh -s
!#
(display
(let ((file-contents
(call-with-input-file "dirindex.html"
- (lambda (in)
+ (lambda (in)
(read-string (file-size "dirindex.html") in))))
(curdir
(r-s #f
" http://fotos.lefant.net/" curdir 2 "]\n")))
(newline)
-}}}
+"""]]
+
-----
-CategoryCodeSnippets
\ No newline at end of file
+ [[!tag CategoryCodeSnippets]]