1 files changed, 21 insertions, 0 deletions
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)