         nextseq-base (pams/get-params :nextseq-base)
         expdir (fs/join nextseq-base eid)
         sample-sheet (fs/join expdir "SampleSheet.csv")
-        exp-sample-sheet (fs/join expdir "Exp-SampleSheet.csv")]
+        exp-sample-sheet (fs/join expdir "Exp-SampleSheet.csv")
+        cfgfile (fs/join expdir "cmd.config")]
     (swap! exp-info
            (fn[m]
              (assoc m eid
-                    (init-exp-data base sample-sheet exp-sample-sheet))))))
+                    (init-exp-data base sample-sheet exp-sample-sheet cfgfile))))))
 
 (defn del-exp [eid]
   (swap! exp-info (fn[m] (dissoc m eid)))

         (reduce (fn[M [bc v]] (assoc M bc (conj (get M bc []) v))) {}))))


(def exp-info (atom {}))
;;; "/data1/NextSeq/TVOLab/AHL7L3BGXX"
;;; "/data1/NextSeq/TVOLab/AHL7L3BGXX/Docs/SampleSheet.csv"
;;; "/data1/NextSeq/TVOLab/AHL7L3BGXX/Docs/Exp-AntibioticsRTS_KZ_SD_index.csv"
(defn init-exp-data [base ssheet exp-ssheet]
  (-> {}
      (assoc :sample-sheet
             (get-sample-info ssheet))
      ((fn[m]
         (assoc m :base base
                :refs      (pams/get-params :refdir)
                :index     (fs/join (pams/get-params :refdir) "Index")
                :bt1index  (fs/join (pams/get-params :refdir) "BT1Index")


(defn get-paired-fqs [eid repname repk]
  (->> (get-replicate-fqzs eid repname repk)
       (group-by (fn[fq] (if (re-find #"-R2\." fq) :R2 :R1)))
       (map (fn[[k v]] [k (cljstr/join "," v)]))
       (into {})))

