   get-comparison-files
   (fn[exptype & args] exptype))
 
+(defmulti
+  get-xcomparison-files
+  (fn[exptype & args] exptype))
+
+
 ;;;(ns-unmap 'aerobio.htseq.common 'run-phase-2)
 (defmulti
   ^{:doc "Each experiment type has its own phase 2 driver, and this

                :refs      (pams/get-params :refdir)
                :index     (fs/join (pams/get-params :refdir) "Index")
                :bt1index  (fs/join (pams/get-params :refdir) "BT1Index")
                :samples   (fs/join base "Samples")
                :collapsed (fs/join base "Samples/Collapsed")
                :out       (fs/join base "Out")
                :bams      (fs/join base "Out/Bams")
                :fcnts     (fs/join base "Out/Fcnts")
                :maps      (fs/join base "Out/Maps")
                :fit       (fs/join base "Out/Fitness")

(defn info-ks [] (-> @exp-info first second keys))

(defn get-exp-info [eid & ks]
  (let [otks #{:bams :star :fcnts :maps :fit :aggrs :charts}
        rep? (coll/in :rep ks)
        ks (remove #{:rep} (filter identity ks)) ; remove any :rep or nil
        info (get-exp eid)
