Просмотр исходного кода

Convert tag keys to keywords if possible.

Lucas Stadler лет назад: 12
Родитель
Сommit
ef4ee343c6
1 измененных файлов с 2 добавлено и 2 удалено
  1. 2 2
      clj/paths.clj

+ 2 - 2
clj/paths.clj

18
  (let [tags (filter #(= (:tag %) :tag) (:content osm-element))]
18
  (let [tags (filter #(= (:tag %) :tag) (:content osm-element))]
19
    (into {} (map #(-> (get+ (:attrs %) [:k :v])
19
    (into {} (map #(-> (get+ (:attrs %) [:k :v])
20
                       ((fn [[k v]]
20
                       ((fn [[k v]]
21
                          [(keyword k) v])))
21
                          [(or (keyword k) k) v])))
22
                  tags))))
22
                  tags))))
23
23
24
(tags-as-map {:content [{:tag :tag, :attrs {:k :hey, :v 1}}, {:tag :tag, :attrs {:k :there, :v 2}}]})
24
(tags-as-map {:content [{:tag :tag, :attrs {:k "hey", :v 1}}, {:tag :tag, :attrs {:k :there, :v 2}}]})
25
25
26
(defn dev-prepare [& [path]]
26
(defn dev-prepare [& [path]]
27
  (let [path (or path "data/leipzig_highways.osm")]
27
  (let [path (or path "data/leipzig_highways.osm")]