Format youtube transcript

format-youtube-transcript.clj

;; Go to video.
;; Click the three dot menu below the video.
;; Click open transcript.
;; Click and drag to highlight the whole transcript.
;; Save to /tmp/a.txt
;; Run this with clj/babashka

(require '[clojure.string :as str])

(->> (iterate (fn [[r lines]]
                (let [[x xs] (split-at 2 lines)]
                  [(conj r x) (seq xs)]))
              [[] (-> (slurp "/tmp/a.txt")
                      (str/split #"\n"))])
     (take-while second)
     last
     (apply conj)
     (map #(str/join ": " %))
     (str/join "\n\n")
     (spit "/tmp/b.txt"))