Update hugo.scm

technicat · Aug 21, 2023 · ced0098 · ced0098
1 parent b182316
commit ced0098
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/hugo.scm b/hugo.scm
@@ -286,6 +286,9 @@
 (define (place-title place)
    (res-value "title" place))
 
+(define (place-address place)
+   (res-value "address" place))
+
 (define (read-places)
    (let ((us (read-json "assets/json/place/us.json")))
     (map (lambda (file)
@@ -317,6 +320,6 @@
  (news out))
 
 (define (write-region-place place out)
-  (print place)
   (h2 (place-title place) out)
+  (write-string (place-address place) out)
  (news out))