Update hugo.scm

technicat · Aug 10, 2023 · 4415f45 · 4415f45
1 parent 320e5e8
commit 4415f45
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/hugo.scm b/hugo.scm
@@ -26,6 +26,9 @@
          (words (read-words))
          (phrases (read-phrases))
          (places (read-places)))
+    (for-each (lambda (word)
+               (add-word word))
+     words)
     (if i (copy-images))
     (if v (print dishes))
     (if o (write-dishes dishes))))))
@@ -35,6 +38,9 @@
 
 (define words (make-hash-table))
 
+(define (add-word word)
+ (hash-table-put!  words (cantonese word) word))
+
 (define (copy-images)
  (copy-directory* "assets/images" "../hugodimsum/assets/images" :if-exists :supersede))