(define (usage-file dat)
(clean null?
(map usage
- (parse (read-file (format "../activity/%s" dat)) "\n"))))
+ (parse (read-file (format "activity/%s" dat)) "\n"))))
(setf
- USAGE (sort (flat (map usage-file (directory "../activity" "^[^.]")) 1) <)
+ USAGE (sort (flat (map usage-file (directory "activity" "^[^.]")) 1) <)
MAP '()
)
(setf MAP (map (fn (x) (list (x 0) (mkmap (1 x)))) MAP))
+(println "Status 200 OK\nContent-Type: text/html\n\n")
(println (expand-file "tmpl/history-page.html"))
(exit 0)
(load