Update hugo.scm

technicat · Aug 7, 2023 · b15e841 · b15e841
1 parent da3f92d
commit b15e841
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/hugo.scm b/hugo.scm
@@ -160,14 +160,14 @@
 
 (define (write-dish-description dish out)
  (h2 "Description" out)
- (write-string (description dish) out)
+ (write-string (replace-wkty (description dish)) out)
  (news out)
  (let ((wd (word-description dish)))
   (if wd
    (begin
     (news out)
     (h3 "Characters" out)
-    (write-string (word-description dish) out)
+    (write-string (replace-wkty wd) out)
     (newline out)))))
 
 (define (word dish)
@@ -218,6 +218,9 @@
 (define (word-description dish)
  (res-value "description" (word dish)))
 
+(define (replace-wkty text)
+  (regexp-replace-all #/{([^{]*)}/ text "[\\1](https://en.wiktionary.org/wiki/\\1)"))
+
 (define (tags dish)
  (res-value "tags" dish))