plot site visits

1 files changed, 31 insertions, 1 deletions

diff --git a/webstats/server.lisp b/webstats/server.lisp
index 44dbe89..6c74b3e 100644
--- a/webstats/server.lisp
+++ b/webstats/server.lisp
@@ -1,4 +1,4 @@
-(ql:quickload '(hunchentoot spinneret cl-yesql cl-yesql/sqlite parenscript))
+(ql:quickload '(hunchentoot spinneret cl-yesql cl-yesql/sqlite parenscript cl-json))
 
 (defpackage :webstats
   (:use :common-lisp :hunchentoot :spinneret))
@@ -96,3 +96,33 @@
              (:input :type "text" :name "title")
              (:input :type "submit" :value "submit" :name "submit"))))
     ))
+
+(hunchentoot:define-easy-handler (metric :uri "/metric.json") (q)
+  (setf (hunchentoot:content-type*) "application/json")
+  (sqlite:with-open-database (db "test.db")
+    (let ((series (activity-stats db)))
+      (cl-json:encode-json-to-string
+       (apply #'mapcar #'list series)))))
+
+(hunchentoot:define-easy-handler (graphs :uri "/graphs") ()
+  (with-html-string
+    (:doctype)
+    (:html
+     (:head (:title "hu yu ipi")
+            (:meta :charset "utf-8")
+            (:link :rel "stylesheet" :href "/webstats/static/uPlot.min.css")
+            (:script :async t :src "/webstats/static/uPlot.iife.min.js" :type "text/javascript")
+            (:script :async t :src "/stats/stats.js" :type "text/javascript")
+            (:script :async t :src "http://127.0.0.1:8095/skewer"))
+     (:body
+      (:h1 "great graph stats")
+      (:div :id "graph")
+      (:script
+       (:raw
+        (ps:ps
+          (add-event-listener
+           "load"
+           (lambda ()
+             (ps:chain (fetch "/stats/metric.json")
+                       (then #'response-to-json)
+                       (then #'plot)))))))))))