From 5db6afef2702a9ad0e175df8675dee4607d8476f Mon Sep 17 00:00:00 2001
From: Oscar Najera <hi@oscarnajera.com>
Date: Sun, 9 Feb 2025 20:05:48 +0100
Subject: plot site visits

---
 webstats/stats.paren | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

(limited to 'webstats/stats.paren')

diff --git a/webstats/stats.paren b/webstats/stats.paren
index b9d3974..4721272 100644
--- a/webstats/stats.paren
+++ b/webstats/stats.paren
@@ -38,6 +38,24 @@
              ((@ r text))))
      (then (@ console log)))))
 
+(defun response-to-json (response)
+  (if (@ response ok)
+      (chain response (json))
+      (throw (new (-error "not 2XX resp")))))
+
+(defun plot (data)
+  (new
+   (u-plot
+    (create
+     :title "Site activity visits"
+     :width 450
+     :height 400
+     :cursor (create sync (create key "moo"))
+     :series (list (create label "Time")
+                   (create label "visits" stroke "red")))
+    data
+    (chain document (get-element-by-id "graph")))))
+
 (add-event-listener
  "load"
  (lambda ()
-- 
cgit v1.2.3