core.clj

(ns iss-sim-auto-docking.core
  (:require
   [etaoin.api :refer :all]
   [iss-sim-auto-docking.dragon :as dragon]
   [iss-sim-auto-docking.telemetry :as tel])
  (:gen-class))

(def sim-website-url "https://iss-sim.spacex.com")

;; Button selectors
(def begin-button {:id :begin-button})
(def success {:css "#success > h2"})

(defn setup-sim
  "Setup the simulator."
  [driv]
  (println "Setting up the simulator...")
  (doto driv
    (set-window-size 1200 800)
    (go sim-website-url)
    (wait-visible begin-button {:timeout 30})
    (click begin-button)
    (wait 12))
  (println "Simulator started."))

(defn -main
  "I don't do a whole lot ... yet."
  [& args]
  (println "Starting up webdriver...")
  (with-chrome {} chr
    ;; Setup the simulator
    (setup-sim chr)
    (println "Started telemetry poller")
    (future (tel/poll chr))
    (wait chr 2)
    ;; concurrent futures for each control axis
    (println "Rotation alignment enabled")
    ;; TODO: Replace with core.async channels
    (future (dragon/align-roll-rot chr))
    (future (dragon/align-pitch-rot chr))
    (future (dragon/align-yaw-rot chr))

    (wait chr 10)
    (dragon/wait-rotation-stopped)
    ;; concurrent futures for each translation axis besides approach axis x
    (wait chr 4)
    (println "Translation alignment enabled")
    (future (dragon/align-z-translation chr))
    (future (dragon/align-y-translation chr))
    (wait chr 5)

    ;; start actual approach to docking port
    (dragon/accelerate chr)
    (future (dragon/decellerate chr))
    (wait-visible chr success {:timeout 420})
    (println "Docking confirmed")
    (wait chr 10))
  (System/exit 0))