31 lines
941 B
Clojure
31 lines
941 B
Clojure
(ns geocsv-lite.core
|
|
(:require
|
|
[clojure.browser.dom :as dom]
|
|
[clojure.string :as cs]
|
|
[geocsv-lite.data :refer [get-csv-url get-data get-query-part-as-map]]
|
|
[geocsv-lite.gis :as gis]
|
|
[geocsv-lite.map :as m]))
|
|
|
|
(enable-console-print!)
|
|
|
|
(println "This text is printed from src/geocsv-lite/core.cljs. Go ahead and edit it and see reloading in action.")
|
|
|
|
|
|
|
|
|
|
;; define your app data so that it doesn't get over-written on reload
|
|
|
|
(defonce app-state (atom {:text "Hello world!"}))
|
|
|
|
(defn on-js-reload []
|
|
;; optionally touch your app-state to force rerendering depending on
|
|
;; your application
|
|
;; (swap! app-state update-in [:__figwheel_counter] inc)
|
|
(m/add-view "map" 55 -4 10)
|
|
(let [query (get-query-part-as-map)
|
|
uri (get-csv-url query)
|
|
records (get-data :map)]
|
|
(dom/set-text (.getElementById js/document "message")
|
|
(str "Query was: " query "; uri was: " uri))))
|
|
|
|
|