          ;;It'd be nice to recurse to the actual branch that handles Polygon, instead of repeating...
          (join (map (fn [subpoly]
                       (join (map coords->path subpoly)))
-                    xs))
-
-         :else ""))
+                    xs))))
 
 
 

(ns c2.geo.core
  (:use [clojure.core.match :only [match]]
        [clojure.string :only [join]]
        [c2.maths :only [abs]])
  (:require c2.geom.polygon))

(defn geo->svg

  (defn polygon-area [poly-coordinates]
    (let [area (fn [coordinates]
                 (abs (c2.geom.polygon/area (map projection coordinates))))]

      ;;area of exterior boundary - interior holes
      (apply - (area (first poly-coordinates))
             (map area (rest poly-coordinates)))))

  (abs (match [geo]
