From def854296e9447e67a468fa82e4c89acc32fcb78 Mon Sep 17 00:00:00 2001 From: Leo Butler Date: Thu, 21 Jan 2021 20:24:25 -0600 Subject: [PATCH] mythtv-make-concat-list: handle empty cut list If cut list is empty, set it to ((0 0)), so that concat list ends up being ((0 N)) where N is either the last i-frame number or greatest-fixnum. When fed to the concat filter in ffmpeg-split+transcode-recording, the recording will be transcoded. --- ffmpeg-myth.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/ffmpeg-myth.scm b/ffmpeg-myth.scm index 7bca51b..77f9ebb 100755 --- a/ffmpeg-myth.scm +++ b/ffmpeg-myth.scm @@ -193,8 +193,10 @@ (cl (cddr l) (if (< (caar l) (caadr l)) (append (list (cons (caar l) (caadr l))) acc) acc))) (#t (cl (cdr l) acc))))) - (if (and (start-of-cut? (cadar s)) (> (caar s) 0)) - (set! s (append '((0 0)) s))) + (cond ((null? s) + (set! s '((0 0)))) + ((and (start-of-cut? (cadar s)) (> (caar s) 0)) + (set! s (append '((0 0)) s)))) (if (end-of-cut? (cadr (last s))) (set! s (append s (list (list (if (null? f) (greatest-fixnum) (caar f)) 1))))) (set! s (map (lambda(x) (if (start-of-cut? (cadr x)) (cons (car x) start) (cons (car x) end)))