diff options
| author | Oscar Najera <hi@oscarnajera.com> | 2025-02-09 15:07:28 +0100 |
|---|---|---|
| committer | Oscar Najera <hi@oscarnajera.com> | 2025-02-09 15:07:28 +0100 |
| commit | d75062d57029f09a0b51b640e2b4f0a1a50fa6e1 (patch) | |
| tree | 3ac527ef3c6c67b7bae2c69c18fb1449dd996940 /webstats/stats.paren | |
| parent | 050efc586b961f46f6e917cb8e4f522234f975cc (diff) | |
| download | scratch-d75062d57029f09a0b51b640e2b4f0a1a50fa6e1.tar.gz scratch-d75062d57029f09a0b51b640e2b4f0a1a50fa6e1.tar.bz2 scratch-d75062d57029f09a0b51b640e2b4f0a1a50fa6e1.zip | |
small js to track visit
Diffstat (limited to 'webstats/stats.paren')
| -rw-r--r-- | webstats/stats.paren | 21 |
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) |