 
 (defn translate [coordinates]
   (let [[x y] (->xy coordinates)]
-       (str "translate(" x "," y ")")))
+    (str "translate(" x "," y ")")))
 
 (defn scale [coordinates]
   (match [coordinates]


   > *:major-tick-width* width of ticks (minor ticks not yet implemented), defaults to 6

   > *:text-margin* distance between axis and start of text, defaults to 9"
  [scale ticks & {:keys [orientation
                         formatter
                         major-tick-width
                         text-margin]
                  :or {orientation :left
                       formatter str
                       major-tick-width 6
                       text-margin 9}}]

  (let [[x y x1 x2 y1 y2] (match [orientation]
                                 [(:or :left :right)] [:x :y :x1 :x2 :y1 :y2]

;;Coordinates to any fn can be 2-vector `[x y]` or map `{:x x :y y}`.
^:clj (ns c2.svg
        (:use [c2.maths :only [Pi Tau radians-per-degree
                               sin cos mean]]
              [clojure.core.match :only [match]]))

^:cljs (ns c2.svg
         (:use-macros [clojure.core.match.js :only [match]])
         (:use [c2.maths :only [Pi Tau radians-per-degree
                                sin cos mean]])
         (:require [c2.dom :as dom]))


