kinda working?

2026-08-02 07:41:09 +00:00
parent 0b7b2baa3e
commit 4ebe212090
6 changed files with 109 additions and 22 deletions
--- a/storage.scm
+++ b/storage.scm
@@ -0,0 +1,14 @@
+(load "utils.scm")
+
+(define load-questions (lambda (name)
+  ;load and parse files
+  (define load-questions-tail (lambda (file questions)
+    (let ([line (get-line file)])
+      (if (eof-object? line)
+        questions
+        (load-questions-tail file (append questions (list (line->question line))))
+      )
+    )
+  ))
+  (load-questions-tail (open-input-file (string-append "~/.local/share/ming-wm/flashcards/" name ".flashq")) '())
+))