Redeem NYT gift code

core.clj

(ns freenyt.core                                                                                                                                                                           
  (:gen-class)                                                                                                                                                                             
  (:require [etaoin.api :as eta]                                                                                                                                                           
            [etaoin.keys :as k]))

;;(def driver (eta/firefox-headless))                                                                                                                                                      
(defn -main [& args]
  (let [driver (eta/safari)]
    (eta/go
      driver (str "https://www.nytimes.com/subscription"
                  "/redeem?campaignId=8UR8F&gift_code="
                  (System/getenv "NYT_GIFTCODE")))
    (eta/wait-visible driver {:tag :input :value :Redeem})
    (eta/click driver [{:tag :input :class :giftRedeem__submitButton}])

    (eta/wait-visible driver {:tag :input :name :email})
    (eta/fill driver {:tag :input :name :email} (System/getenv "NYT_USER"))
    (eta/click driver [{:tag :button :type :submit}])
    (eta/wait-visible driver {:tag :input :name :password})
    (eta/fill driver {:tag :input :name :password} (System/getenv "NYT_PASS"))
    (eta/click driver [{:tag :button :type :submit}])

    (eta/wait 10)

    (println (eta/get-url driver))

    (try
      (eta/quit driver)
      (catch Exception _))))

project.clj

(defproject freenyt "0.1.0-SNAPSHOT"
  :description "FIXME: write description"
  :url "http://example.com/FIXME"
  :license {:name "EPL-2.0 OR GPL-2.0-or-later WITH Classpath-exception-2.0"
            :url "https://www.eclipse.org/legal/epl-2.0/"}
  :dependencies [[org.clojure/clojure "1.10.3"]
                 [etaoin/etaoin "0.4.6"]
                 [clojure.java-time/clojure.java-time "0.3.3"]]
  :repl-options {:init-ns freenyt.core}
  :main freenyt.core)