phuff

(defn writeZipOutput [zip-output filename content]
  (let [dataOutputStream (new DataOutputStream zip-output)]
    (.putNextEntry zip-output (new ZipEntry filename))
    (.writeBytes dataOutputStream content)))

phuff

(defn writeZipOutput [zip-output filename content]
  (let [contentBytes (.getBytes content "UTF-8")]
    (.putNextEntry zip-output (new ZipEntry filename))
    (.write zip-output contentBytes (.length contentBytes))))

phuff

/* Copyright (c) 2011 Aza Raskin
|
| Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated
| documentation files (the "Software"), to deal in the Software without restriction, including
| without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
| copies of the Software, and to permit persons to whom the Software is furnished to do so, subject
| to the following conditions:
|
| The above copyright notice and this permission notice shall be included in all copies or substantial portions 
| of the Software.

phuff

/* Copyright (c) 2011 Aza Raskin
|
| Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated
| documentation files (the "Software"), to deal in the Software without restriction, including
| without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
| copies of the Software, and to permit persons to whom the Software is furnished to do so, subject
| to the following conditions:
|
| The above copyright notice and this permission notice shall be included in all copies or substantial portions 
| of the Software.