wikidata-geo.clj

;; Where are all the -ow -itz place names in Germany? (Limit to 10 for printability)
(query
 '[:select *
   :where [[?ort (wdt :instance-of) / (wdt :subclass-of) * (entity "human settlement")
            _ (wdt :country) (entity "Germany")
            _ rdfs:label ?name
            _ (wdt :coordinate-location) ?wo]
           :filter ((lang ?name) = "de")
           :filter ((regex ?name "(ow|itz)$"))]
   :limit 10])
;;=>
[{:ort "Q6448", :wo "Point(13.716666666 50.993055555)", :name "Bannewitz"}
 {:ort "Q93223", :wo "Point(14.233333333 51.233333333)", :name "Crostwitz"}
 {:ort "Q160693", :wo "Point(14.2275 51.2475)", :name "Caseritz"}
 {:ort "Q160779", :wo "Point(14.2628 51.2339)", :name "Prautitz"}
 {:ort "Q162721", :wo "Point(14.265 51.2247)", :name "Nucknitz"}
 {:ort "Q2795", :wo "Point(12.9222 50.8351)", :name "Chemnitz"}
 {:ort "Q115077", :wo "Point(13.5589 54.5586)", :name "Quoltitz"}
 {:ort "Q160799", :wo "Point(14.43713889 51.79291667)", :name "Groß Lieskow"}
 {:ort "Q318609", :wo "Point(7.28119 53.4654)", :name "Abelitz"}
 {:ort "Q1124721", :wo "Point(13.3096 53.7516)", :name "Conerow"}]