projects
/
rrq
/
hourglass.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
include setup.sh in distribution
[rrq/hourglass.git]
/
manager
/
history.lsp
diff --git
a/manager/history.lsp
b/manager/history.lsp
index 3002839fe33de2e530c91871c99da4fec0065873..fdf12198c59c74622889e89f8977fe3070db3a25 100644
(file)
--- a/
manager/history.lsp
+++ b/
manager/history.lsp
@@
-26,10
+26,10
@@
(define (usage-file dat)
(clean null?
(map usage
(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
(setf
- USAGE (sort (flat (map usage-file (directory "
../
activity" "^[^.]")) 1) <)
+ USAGE (sort (flat (map usage-file (directory "activity" "^[^.]")) 1) <)
MAP '()
)
MAP '()
)
@@
-44,6
+44,7
@@
(setf MAP (map (fn (x) (list (x 0) (mkmap (1 x)))) 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
(println (expand-file "tmpl/history-page.html"))
(exit 0)
(load