           file-type (case file-type
                       ;; NOTE: Always use "." here. See note below.
                       :png "png")
-          tmp-file (java.io.File/createTempFile "pdftocairo" (str "." file-type))]
+          tmp-file (File/createTempFile "pdftocairo" (str "." file-type))]
       (try
         (let [args [(str file)
                     (str "-" file-type) ;-png flag

  "Extracts PAGE (a number) from PDF (input-stream). Returns a file.
  Caller must delete this file when it's no longer needed."
  [file page]
  (let [tmp-file (java.io.File/createTempFile "pdfseparate-" ".pdf")
        page (inc page)
        args ["-f" page
              "-l" page

  "Merges PAGES into a pdf. PAGES must be a sequence of pdf files. Returns a file."
  [pages]
  (assert (seq pages))
  (let [file (File/createTempFile "pdfunite-" ".pdf")
        args (concat (map #(.getAbsolutePath %) pages)
                     [(.getAbsolutePath file)])
        process (-> (into-array (map str (cons "pdfunite" args)))
