Fixed zoom.

This commit is contained in:
John Wiseman 2020-05-07 18:58:24 -07:00
parent 305d5f7c9b
commit a46d8d9245

View File

@ -72,8 +72,8 @@
(if-let [user-agent (:user-agent options)]
(.setUserAgent page user-agent))
(log-debug "Navigating")
(let [url (gstring/format "https://tar1090.adsbexchange.com/?icao=%s&zoom=%s&noIsolation&hideButtons&hideSidebar&monochromeMarkers=ffff55&monochromeTracks=010101&outlineColor=505050" icao (get options :zoom 14))]
(log-info "Getting screenshot at url %s with zoom %s" url (get options :zoom 14))
(let [url (gstring/format "https://tar1090.adsbexchange.com/?icao=%s&zoom=%s&noIsolation&hideButtons&hideSidebar&monochromeMarkers=ffff55&monochromeTracks=010101&outlineColor=505050" icao (or (:zoom options) 14))]
(log-info "Getting screenshot at url %s with zoom %s" url (or (:zoom options) 14))
(p/all [(.waitForNavigation page)
(.goto page
url