diff --git a/examples/google-maps/test-maps.rkt b/examples/google-maps/test-maps.rkt index 9f8e04a..caf0dee 100644 --- a/examples/google-maps/test-maps.rkt +++ b/examples/google-maps/test-maps.rkt @@ -2,10 +2,9 @@ (require (planet dyoo/whalesong/web-world) "maps.rkt") -;; This is dyoo's API key. -(printf "Loading google maps api\n"); +;; Note: this is dyoo's API key. Please don't abuse this. :) (initialize-google-maps-api! "AIzaSyCRKQNI_nbyyN1286cssEy3taKj5IZcHN8" #f) -(printf "google maps api loaded\n") + ;; We dynamically create a dom node for the presentation of the map, ;; and an auxiliary gmap value that we use to manage the internal @@ -13,6 +12,7 @@ (define-values (dom gmap) (make-dom-and-map 41.82706261971936 -71.39962630844116)) + ;; on-map-click: world handler ;; Creates an on-map-click associated to the gmap, ready to be used in ;; a big bang. @@ -21,6 +21,9 @@ + +(xexp->dom '(h1 "Google Maps demonstration")) + (big-bang "???" (initial-view (xexp->dom