core.async HTML5 geolocation in ClojureScript

async_geolocation.cljs

(ns cljs-minimal.core
  (:require [cljs.core.async :as async :refer [put! <! >! <!! >!! chan]])
  (:require-macros [cljs.core.async.macros :as m :refer [go]]))

(defn get-position []
  (let [out (chan)
        geo (.-geolocation js/navigator)]
    (.getCurrentPosition geo (fn [pos] (put! out pos)))
    out))

(go 
 (let [coords    (.-coords (<! (get-position)))
       latitude  (.-latitude coords)
       longitude (.-longitude coords)]
   (.log js/console "Lat:" latitude "Long:" longitude)))

(.log js/console "After the go block")