Removed imports.

[microbotany.git] / directory.gmi

diff --git a/directory.gmi b/directory.gmi
index 9c84035..fb6a77c 100755 (executable)
--- 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))))
 ```