Update hugo.scm

technicat · Aug 7, 2023 · 44b4aed · 44b4aed
1 parent 03db63c
commit 44b4aed
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/hugo.scm b/hugo.scm
@@ -142,8 +142,20 @@
 
 (define (write-dish-text chinese out)
  (write-string (text chinese) out)
+ (news out)
+ (write-dish-wkty chinese out)
  (news out))
 
+(define (write-dish-wkty chinese out)
+ (h4 "Wiktionary" out)
+ (let ((wkty (wkty chinese)))
+  (if wkty
+   (for-each (lambda (chars) (write-string chars out))
+    wkty)
+   (write-string "Missing wiktionary" out))
+  (news out)))
+
+
 (define (write-dish-description dish out)
  (h2 "Description" out)
  (write-string (description dish) out)