subtitle-shift.clj

(comment
  (import '[java.time Duration])

  @(def subs (slurp "/Users/felipecortez/suboverride.ttml"))

  (spit "/Users/felipecortez/suboverride-good.ttml"
        (clojure.string/replace subs #"\d\d:\d\d:\d\d\.\d\d\d" shifted)))

(defn shifted [cue-timing]
  (let [[h m s ms] (map #(Integer/parseInt % 10) (str/split cue-timing #"[:.]"))
        shifted-ts (-> (Duration/ofMillis (+ ms (* 1000 s) (* 60 1000 m) (* 60 60 1000 h)))
                       (.minusSeconds 6)
                       (.minusMillis 800))]
    (format "%02d:%02d:%02d.%03d"
            (.toHoursPart shifted-ts)
            (.toMinutesPart shifted-ts)
            (.toSecondsPart shifted-ts)
            (.toMillisPart shifted-ts))))