Allow for setting the deflate level

AeroNotix · AeroNotix · commit 8a812ef888a8 · 2014-10-29T00:39:28.000+01:00
diff --git a/src/swindon/core.clj b/src/swindon/core.clj
@@ -8,12 +8,15 @@
            [java.io ByteArrayInputStream]
            [java.io ByteArrayOutputStream]))
 
+(def ^:private default-level 3)
 
 (defn zip
   ([buffer]
      (zip buffer false))
   ([buffer wrap]
-     (let [defl (Deflater. 3 wrap)
+     (zip buffer wrap default-level))
+  ([buffer wrap level]
+     (let [defl (Deflater. level wrap)
            bais (ByteArrayInputStream. buffer)
            dis (DeflaterInputStream. bais defl)
            baos (ByteArrayOutputStream.)]
