tyrel/advisory-circular
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fixed zoom.

Browse Source
This commit is contained in:
John Wiseman 2020-05-07 18:58:24 -07:00
parent 305d5f7c9b
commit a46d8d9245
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/main/lemondronor/advisorycircular/adsbx.cljs
View File

@ -72,8 +72,8 @@
(if-let [user-agent (:user-agent options)] (if-let [user-agent (:user-agent options)]
(.setUserAgent page user-agent)) (.setUserAgent page user-agent))
(log-debug "Navigating") (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))] (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 (get options :zoom 14)) (log-info "Getting screenshot at url %s with zoom %s" url (or (:zoom options) 14))
(p/all [(.waitForNavigation page) (p/all [(.waitForNavigation page)
(.goto page (.goto page
url url