   (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.

  ([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

  atributes, for all of its supported Attribute classes."
  {:added "1.0"}
  [^PrintService p]
  (let [unflattened (for [c (.. p getSupportedAttributeCategories)]
                      (.. p (getSupportedAttributeValues c nil nil)))] 
    (->> unflattened
