don't use ext, so remove it
This commit is contained in:
parent
d97779eacd
commit
bbb8b1a094
@ -284,7 +284,7 @@
|
||||
(define* (ffmpeg-split+scale+transcode-recording rec #:optional (scale? #f))
|
||||
(let* ((basename (recording-basename rec))
|
||||
(rootname+ext (string-split basename #\.))
|
||||
(rootname (car rootname+ext)) (ext (cadr rootname+ext))
|
||||
(rootname (car rootname+ext))
|
||||
(in-file (simple-format #f "~a/~a" recordings-directory basename))
|
||||
(out-file (simple-format #f "~a/~a.~a" working-directory rootname transcoded-file-ending))
|
||||
(m-d (mythtv-recorded-table->metadata rec))
|
||||
|
Loading…
x
Reference in New Issue
Block a user