Geotools in Clojure

gistfile1.clj

(ns geotools.shape-viewer
  (:import [org.geotools.data CachingFeatureSource FeatureSource FileDataStore FileDataStoreFinder])
  (:import [org.geotools.map DefaultMapContext MapContext])
  (:import [org.geotools.swing JMapFrame])
  (:import [org.geotools.swing.data JFileDataStoreChooser]))

(defn show-shapefile
  "Prompts the user for a shapefile and displays its content"
  []
  (if-let [shapefile (JFileDataStoreChooser/showOpenFile "shp" nil)]
    (let [fs (.getFeatureSource (FileDataStoreFinder/getDataStore shapefile))]
      (doto (DefaultMapContext.)
        (.setTitle "Quickstart")
        (.addLayer fs nil)
        (JMapFrame/showMap)))))

(defn show-shapefile-cached
  "Prompts the user for a shapefile and displays its content.
   Uses memory-based cache to speed up display"
  []
  (if-let [shapefile (JFileDataStoreChooser/showOpenFile "shp" nil)]
    (let [fs (.getFeatureSource (FileDataStoreFinder/getDataStore shapefile))
          cache (CachingFeatureSource. fs)]
      (doto (DefaultMapContext.)
        (.setTitle "Quickstart")
        (.addLayer cache nil)
        (JMapFrame/showMap)))))

project.clj

(defproject geotools-something-like-this-perhaps "1.0.0-SNAPSHOT"
  :description "FIXME: write"
  :repositories {"osgeo-geotools" "http://download.osgeo.org/webdav/geotools"}
  :dependencies [[org.clojure/clojure "1.2.0"]
                 [org.clojure/clojure-contrib "1.2.0"]
                 [org.geotools/gt-main "2.7-M3"]
                 [org.geotools/gt-shapefile "2.7-M3"]])