Not yet working but a good start
This commit is contained in:
parent
f1ebcbcc1d
commit
64fd9ffb5b
213 changed files with 5501 additions and 4 deletions
31
src/geocsv_lite/core.cljs
Normal file
31
src/geocsv_lite/core.cljs
Normal file
|
|
@ -0,0 +1,31 @@
|
|||
(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))))
|
||||
|
||||
|
||||
Loading…
Add table
Add a link
Reference in a new issue