gzip-encode.clj

(defn gipz-encode ^bytes [^bytes input]
  (let [in
        (new ByteArrayInputStream input)

        out-bytes
        (new ByteArrayOutputStream)

        out-gzip
        (new GZIPOutputStream out-bytes true)

        buf
        (byte-array 1024)]

    (loop []
      (let [len (.read in buf)]
        (when (> len 0)
          (.write out-gzip buf 0 len)
          (recur))))
    
    (.toByteArray out-bytes)))