            (java.net URL)
            (javax.print Doc
                         DocPrintJob
+                        DocFlavor ;; Remove me!
                         PrintException
                         PrintService
                         PrintServiceLookup
                         SimpleDoc)
-           (javax.print.attribute AttributeSet
+           (javax.print.attribute Attribute
+                                  AttributeSet
+                                  DocAttributeSet
                                   HashAttributeSet
                                   HashPrintRequestAttributeSet)
            (javax.print.attribute.standard MediaTray

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

(defn status

  (condp = (parse-source doc-source)
    :file (:autosense flavors/input-streams)
    :url (:autosense flavors/urls)
    nil))

(defn job-map
  "Returns a job-map that encapsulates the constituent parts of a print job.
