 
 (s/def ::nc-xref-rec
   (s/merge (s/keys :req-un [::ncid ::expnm])
-           ::gbk? ::gtf? ::index? ::bt1index? ::normgenes?))
+           ::gbk? ::gtf? ::bowtie-or-star? ::normgenes?))
 (s/def ::nc-xref-recs (s/coll-of ::nc-xref-rec))
 
 

  (contains? (get-exp-sheet-data (x :EID) :strains) (x :s)))

(defn nodup? [x] (= 0 (x :dupcnt)))
(defn cond-ok? [x] (re-matches #"[A-Za-z0-9]+" (x :c)))
(defn repid-ok? [x] (re-matches #"[A-Z]|[a-z]|[0-9]" (x :r)))
(defn len3? [x] (= (count (dissoc x :EID :v :dupcnt)) 3))

(s/def ::len3? len3?)
(s/def ::strain? strain?)

  [_ problem]
  (format "reference `%s` does not have a Bowtie-1 index"
          (-> problem :val :ncid)))
(p/defphraser starindex?
  [_ problem]
  (format "reference `%s` does not have a STAR index"
          (-> problem :val :ncid)))

(p/defphraser normgenes?
  [_ problem]
  (format "reference `%s` does not have normalization genes registered"
