Add scratchdown main

1 files changed, 55 insertions, 0 deletions

@@ -0,0 +1,55 @@
+#!/bin/sh
+#| -*- scheme -*-
+exec csi -s "$0" "$@"
+SCRATCHDOWN --- Combine markdown and chicken-scratch
+|#
+
+(import (chicken io)
+        (chicken irregex)
+        (chicken process-context)
+        (chicken-scratch)
+        (html-parser)
+        (lowdown)
+        (sxml-transforms)
+        (utf8))
+
+(define (expand* text)
+  (expand-string
+   (irregex-replace/all '(or (: #\# #\# (look-ahead (or #\{ #\()))
+                             (: #\# (look-ahead (~ #\{ #\()))
+                             (: #\# eos))
+                        text
+                        "##")))
+
+#;(define (list-of-strings? xs)
+  (cond
+   ((null? xs) #t)
+   ((not (string? (car xs))) #f)
+   (else (list-of-strings? (cdr xs)))))
+
+#;(define (expand-text x)
+  (print x)
+  (cond
+   ((symbol? x) x)
+   ((string? x)
+    (expand* x))
+   ((list-of-strings? x)
+    (expand* (apply string-append x)))
+   ((list-of-strings? (cdr x))
+    (cons (car x)
+          (expand-text (cdr x))))
+   ((list? x)
+    (map expand-text x))
+   (else x)))
+
+(define (read-and-expand file)
+  (let* ((text (with-input-from-file file read-string))
+         (expd (irregex-replace "^#!.*\n" (expand* text) ""))
+         #;(sexp (markdown->sxml expd))
+         )
+    (markdown->html expd)))
+
+(define (main args)
+  (for-each read-and-expand args))
+
+(main (command-line-arguments))