|
@@ -8,31 +8,30 @@
|
|
|
(s/replace (s/upper-case str) #"[-_]" "")))
|
|
|
|
|
|
(defn get-video-stream
|
|
|
- [{:keys [audio-streams video-streams video-only-streams]} settings]
|
|
|
- (let [video-streams (into video-streams video-only-streams)]
|
|
|
- (-> (cond (seq video-streams)
|
|
|
- (as-> video-streams streams
|
|
|
- (if (some #(fmt= % (:default-video-format settings)) streams)
|
|
|
- (filter #(fmt= % (:default-video-format settings))
|
|
|
- streams)
|
|
|
- streams)
|
|
|
- (if (some #(= (:resolution %)
|
|
|
- (:default-resolution settings))
|
|
|
- video-streams)
|
|
|
- (filter #(= (:resolution %)
|
|
|
- (:default-resolution settings))
|
|
|
- streams)
|
|
|
- streams)
|
|
|
- (first streams))
|
|
|
- (seq audio-streams)
|
|
|
- (if (some #(fmt= % (:default-audio-format settings))
|
|
|
- audio-streams)
|
|
|
- (->> audio-streams
|
|
|
- (filter #(fmt= % (:default-audio-format settings)))
|
|
|
- first)
|
|
|
- (first audio-streams))
|
|
|
- :else (first video-streams))
|
|
|
- :content)))
|
|
|
+ [{:keys [audio-streams video-streams]} settings]
|
|
|
+ (-> (cond (seq video-streams)
|
|
|
+ (as-> video-streams streams
|
|
|
+ (if (some #(fmt= % (:default-video-format settings)) streams)
|
|
|
+ (filter #(fmt= % (:default-video-format settings))
|
|
|
+ streams)
|
|
|
+ streams)
|
|
|
+ (if (some #(= (:resolution %)
|
|
|
+ (:default-resolution settings))
|
|
|
+ video-streams)
|
|
|
+ (filter #(= (:resolution %)
|
|
|
+ (:default-resolution settings))
|
|
|
+ streams)
|
|
|
+ streams)
|
|
|
+ (first streams))
|
|
|
+ (seq audio-streams)
|
|
|
+ (if (some #(fmt= % (:default-audio-format settings))
|
|
|
+ audio-streams)
|
|
|
+ (->> audio-streams
|
|
|
+ (filter #(fmt= % (:default-audio-format settings)))
|
|
|
+ first)
|
|
|
+ (first audio-streams))
|
|
|
+ :else (first video-streams))
|
|
|
+ :content))
|
|
|
|
|
|
(defn get-audio-stream
|
|
|
[{:keys [audio-streams video-streams]} settings]
|