          {:start {:hour 0 :second 1 :millis 670 :minute 5}
           :stop  {:hour 0 :second 6 :millis 970 :minute 5}}))))
 
-(defn load-caption-blocks [f]
+(defn load-caption-blocks
+  "Takes an srt file and assocs in ::block-id ::words ::time"
+  [f]
   (-> (slurp f)
       (clojure.string/replace #"<[^>]+>" "")
       (clojure.string/split #"\r\n\r\n")

(s/def ::block (s/keys :req [::block-id ::words]))
(s/def ::blocks (s/coll-of ::block))

(defn parse-int [s]
  (try (Integer. (re-find  #"\d+" s ))
       (catch Exception e 0)))

(defn parse-block-time [block-time-text]
  (->> block-time-text
        (#(clojure.string/split % #" --> "))
       (map #(clojure.string/split % #"[:,]"))

(deftest video-make
  (println (make "resources/subs/elliot_hulse/p2zvOJe1Iq4_0_en.srt")))

(defn de-blockify
  "Makes a single list from a key in blocks"
  [video key]
  (reduce
   #(concat %1 (key %2))
   [] 
