From bf71791fc540a584dd6d88548c91192294d106bc Mon Sep 17 00:00:00 2001
From: dozens
Date: Tue, 25 Jun 2024 21:22:35 -0600
Subject: feat: add story engine

---
 src/story/story.test.fnl | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 src/story/story.test.fnl

(limited to 'src/story/story.test.fnl')

diff --git a/src/story/story.test.fnl b/src/story/story.test.fnl
new file mode 100644
index 0000000..e4fce4d
--- /dev/null
+++ b/src/story/story.test.fnl
@@ -0,0 +1,16 @@
+(let [{
+  : flatten
+  : create-corpus 
+  } (require :src.story.story)]
+
+  (let [corpus (create-corpus "src/story/story.test.dat")
+        get-story (partial flatten corpus corpus.start)]
+      (print "\n== POEMS ==")
+      (for [_ 1 10] (print (get-story))))
+
+  (let [corpus (create-corpus "src/story/cards.dat")
+        get-story (partial flatten corpus corpus.draw)]
+      (print "\n== CARDS ==")
+      (for [_ 1 10] (print (get-story)))))
+
+
-- 
cgit 1.4.1-2-gfad0