Update hugo.scm

technicat · Aug 8, 2023 · a6f7de1 · a6f7de1
1 parent 8fa75b7
commit a6f7de1
Showing 1 changed file with 11 additions and 5 deletions.
diff --git a/hugo.scm b/hugo.scm
@@ -25,7 +25,7 @@
    (let ((dishes (read-dishes))
          (words (read-words))
          (phrases (read-phrases))
-         (places (read-places)))
+        (places (read-places)))
     (if i (copy-images))
     (if v (print dishes))
     (if o (write-dishes dishes))))))
@@ -247,11 +247,17 @@
   (define (read-words)
    (let ((files (read-json "assets/json/words.json")))
     (concatenate (map (lambda (file)
-                     (vector->list (read-json #"assets/json/words/~|file|.json")))
-                files))))
+                       (vector->list (read-json #"assets/json/words/~|file|.json")))
+                  files))))
 
   (define (read-places)
-   (read-json "assets/json/countries.json"))
+   (let ((files (read-json "assets/json/countries.json")))
+    (concatenate (map (lambda (file)
+                       (read-json #"assets/json/place/~|file|.json"))
+                  files))))
 
   (define (read-phrases)
-   (read-json "assets/json/phrases.json"))
+   (let ((files (read-json "assets/json/phrases.json")))
+   (concatenate (map (lambda (file)
+                       (read-json #"assets/json/phrases/~|file|.json"))
+                  files))))