post.ss

(def (do-post)
  (http-post "http://localhost:9515/session"
             headers: '(("Content-Type" . "application/json; charset=utf-8")
                        ("Accept-Encoding" . "identity")
                        ("Accept" . "*/*"))
             data: (json-object->string capabilities)))

(def (get-session)
  (let (req (do-post))
    (for-each (lambda (h) (printf "~s~%" h)) (request-headers req))
    (displayln (request-text req))))

(def chrome-driver-url
  "http://localhost:9515/session/")

(def args
  (hash (args '("--headless" "--disable-gpu"))))

(def chrome
  (hash (browserName  "chrome")
        (goog:chromeOptions  args)))

(def capabilities
  (hash (capabilities (hash (firstMatch `(, chrome))))))