1 files changed, 19 insertions, 0 deletions
diff --git a/lib/main.scm b/lib/main.scm
new file mode 100644
index 0000000..b97d66a
--- /dev/null
+++ b/lib/main.scm

@@ -0,0 +1,19 @@
+(declare (module (jimmy main)))
+(import scheme (chicken base)
+        (chicken port)
+        (jimmy util)
+        (jimmy read)
+        (jimmy emit)
+        (jimmy wrap))
+(define-public (jimmy #!optional file template)
+  (parameterize ((current-input-port
+                  (if file
+                      (open-input-file file)
+                      (current-input-port))))
+    (let ((doc (parse))
+          (post-proc (if template
+                         (cut wrap-with <> template)
+                         emit-string)))
+      (post-proc doc))))

diff --git a/lib/main.scm b/lib/main.scm new file mode 100644 index 0000000..b97d66a --- /dev/null +++ b/lib/main.scm
@@ -0,0 +1,19 @@
	1	(declare (module (jimmy main)))
	2
	3	(import scheme (chicken base)
	4	(chicken port)
	5	(jimmy util)
	6	(jimmy read)
	7	(jimmy emit)
	8	(jimmy wrap))
	9
	10	(define-public (jimmy #!optional file template)
	11	(parameterize ((current-input-port
	12	(if file
	13	(open-input-file file)
	14	(current-input-port))))
	15	(let ((doc (parse))
	16	(post-proc (if template
	17	(cut wrap-with <> template)
	18	emit-string)))
	19	(post-proc doc))))