From d75062d57029f09a0b51b640e2b4f0a1a50fa6e1 Mon Sep 17 00:00:00 2001
From: Oscar Najera <hi@oscarnajera.com>
Date: Sun, 9 Feb 2025 15:07:28 +0100
Subject: small js to track visit

---
 webstats/stats.paren | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 webstats/stats.paren

(limited to 'webstats/stats.paren')

diff --git a/webstats/stats.paren b/webstats/stats.paren
new file mode 100644
index 0000000..04faff7
--- /dev/null
+++ b/webstats/stats.paren
@@ -0,0 +1,21 @@
+;; -*- mode: lisp; -*-
+;; (pushnew '(SLYNK:*STRING-ELISION-LENGTH* . nil) slynk:*slynk-pprint-bindings* :test #'equal)
+
+(in-package :webstats-js)
+
+(defun register-visit ()
+  (let ((data (create :title (@ document title)
+                      :page (@ window location href)
+                      :referer (@ document referrer))))
+    (chain
+     (fetch "http://localhost:4252/visit"
+            (create :method "POST"
+                    :headers (create "Content-Type" "application/x-www-form-urlencoded")
+                    :body (new (-u-r-l-search-params data))
+                    ))
+     (then (lambda (r)
+             ((@ console log) r)
+             ((@ r text))))
+     (then (@ console log)))))
+
+(add-event-listener "load" register-visit)
-- 
cgit v1.2.3