X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=blobdiff_plain;f=directory.gmi;h=fb6a77cd46223e6b90c0b6750d4596b0e247d342;hb=7eb64931b42ef14d7d45b859b97f6176ccc4d46d;hp=9c8403500fa567abe529c0ccf2e6e44aaa59ee22;hpb=8c6e2d8351ab1e4485ed41b121a0f02ef08eb415;p=microbotany.git

diff --git a/directory.gmi b/directory.gmi
index 9c84035..fb6a77c 100755
--- a/directory.gmi
+++ b/directory.gmi
@@ -2,12 +2,6 @@
 
 ```
 ,(eval (begin
-         (import (chicken io)
-                 (chicken file)
-                 (chicken string)
-                 (chicken pathname)
-                 (chicken time posix)
-                 srfi-1 srfi-13)
          (for-each eval (with-input-from-file "garden.scm" read-list))
          (define (pad-string o max-len)
            (let* ((s (->string o))
@@ -24,11 +18,13 @@
            (print-rule total-width)
            (for-each
             (lambda (garden-file)
-              (let* ((g (with-input-from-file garden-file read))
-                     (fields (list (garden-prop 'user g)
-                                   (seconds->string (garden-prop 'created g))
-                                   (garden-stage g))))
-                (apply print (map pad-string fields colwidths)))) 
+              (let ((g (with-input-from-file garden-file read)))
+                (update-garden! g)
+                (with-output-to-file garden-file (lambda () (write g)))
+                (let ((fields (list (garden-prop 'user g)
+                                    (seconds->string (garden-prop 'created g))
+                                    (garden-stage g))))
+                  (apply print (map pad-string fields colwidths)))))
             (glob "accounts/*"))
            (print-rule total-width))))
 ```