diff options
Diffstat (limited to 'webstats/stats.paren')
| -rw-r--r-- | webstats/stats.paren | 24 |
1 files changed, 23 insertions, 1 deletions
diff --git a/webstats/stats.paren b/webstats/stats.paren index 6491020..43c1be4 100644 --- a/webstats/stats.paren +++ b/webstats/stats.paren @@ -44,6 +44,9 @@ (chain response (json)) (throw (new (-error "not 2XX resp"))))) +(defun spaced-color (idx) + (concatenate 'string "hsl(" (* 137.506 idx) ",70%,55%)")) + (defun plot (data) (new (u-plot @@ -57,8 +60,27 @@ data (chain document (get-element-by-id "graph"))))) +(defun plot-site (data) + (new + (u-plot + (create + :title "Individual Site activity visits" + :width 450 + :height 400 + :cursor (create sync (create key "moo")) + :series (list (create label "Time") + (create label "stats" stroke (spaced-color 0)) + (create label "proxy" stroke (spaced-color 1)) + (create label "blog" stroke (spaced-color 2)))) + data + (chain document (get-element-by-id "graph"))))) + (add-event-listener "load" (lambda () (instrument-links) - (register-page-load))) + (register-page-load) + + (ps:chain (fetch "/stats/metric.json?q=split") + (then #'response-to-json) + (then #'plot-site)))) |