Add Makefile to get path data.

Also, `dev-prepare` should be able to use any file you want as an
argument (because I'm lazy).

clj/.gitignore

@@ -1,3 +1,4 @@
data
target
.lein-repl-history
*.json

clj/Makefile

@@ -0,0 +1,8 @@
all: paths
paths:
	mkdir -p data
	curl --progress-bar http://download.bbbike.org/osm/bbbike/Leipzig/Leipzig.osm.gz \
		--output data/leipzig.osm.gz
	gzip --decompress --stdout data/leipzig.osm.gz > data/leipzig.osm
	osmfilter --keep='highway=*' data/leipzig.osm > data/leipzig_highways.osm

clj/paths.clj

@@ -23,12 +23,13 @@
(tags-as-map {:content [{:tag :tag, :attrs {:k :hey, :v 1}}, {:tag :tag, :attrs {:k :there, :v 2}}]})
(defn dev-prepare []
  (println "; reading in data/Leipzig_highways.osm...")
  (def leipzig
    (xml/parse "data/Leipzig_highways.osm"))
  (println ";=> availlable in `leipzig`")
  (println "; extracting nodes...")
  (def leipzig-nodes
    (extract-nodes {:content leipzig}))
  (println "; => availlable in `leipzig-nodes`"))
(defn dev-prepare [& [path]]
  (let [path (or path "data/leipzig_highways.osm")]
    (println "; reading in" path "...")
    (def leipzig
      (xml/parse path))
    (println ";=> availlable in `leipzig`")
    (println "; extracting nodes...")
    (def leipzig-nodes
      (extract-nodes {:content leipzig}))
    (println "; => availlable in `leipzig-nodes`")))