Update hugo.scm

technicat · Aug 17, 2023 · ae16ada · ae16ada
1 parent 48c30a4
commit ae16ada
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/hugo.scm b/hugo.scm
@@ -20,6 +20,7 @@
    (i "i|image")
    (d "d|dishes")
    (p "p|places")
+   (r "r|restaurants")
    (v "v|verbose")
    . restargs)
   (if (not h)
@@ -30,7 +31,11 @@
     (add-words words dishes)
     (if i (copy-images))
     (if d (if v (print dishes)
-           (write-dishes dishes)))))))
+           (write-dishes dishes)))
+    (if p (if v (print phrases)
+           (write-places phrases)))
+    (if r (if v (print places)
+           (write-places places)))))))
 
 (define (add-words words dishes)
  (for-each (lambda (word)