;; -*- 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)