   (condp = (parse-source doc-source)
     :file (:autosense flavors/input-streams)
     :url (:autosense flavors/urls)
-    nil nil))
+    nil))
 
 (defn job-map
   "Returns a job-map that encapsulates the constituent parts of a print job.

                        doc-flavor
                        doc-attrs
                        job-attrs]
                 :or {p-name nil
                      doc-flavor (flavor doc-source)
                      doc-attrs nil
                      job-attrs (doto (HashPrintRequestAttributeSet.) (.add MediaTray/MAIN))}}]
  (let [^PrintService p (printer p-name)
        job (job p)]
    {:doc-source doc-source
     :printer (.getName p)
     :job-attrs job-attrs
     :job job
     :doc-flavor doc-flavor

  ([name]
     (if (seq name)
       (let [attrs (doto (HashAttributeSet.) (.add (PrinterName. name nil)))] 
         (some (fn [^PrintService p] (when (= name (.. p getName)) p)) (printers nil attrs)))
       (printer))))

(defn status
