liveness.clj

(defn- index
  [coll]
  (map vector (iterate inc 0) coll))

(defn- pos
  [elm coll]
  (for [[i e] (index coll) :when (e elm)] i))

(defn convert
  "Convert the results of `live` into intervals."
  [in]
  (let [temps (union-all in)]
    (for [t temps]
      (let [found (pos t in)
            reg (if (keyword? (:id t)) (:id t))]
        {:id t, :start (first found), :end (last found), :reg reg}))))