From bbb2c1ebf7ccfab69e9fca4a98d85c0f368f018d Mon Sep 17 00:00:00 2001 From: Leo Butler Date: Tue, 8 Dec 2020 12:46:49 -0600 Subject: [PATCH] add a recording-filesize function --- ffmpeg-myth.scm | 2 ++ 1 file changed, 2 insertions(+) diff --git a/ffmpeg-myth.scm b/ffmpeg-myth.scm index d76af0f..f4fb661 100755 --- a/ffmpeg-myth.scm +++ b/ffmpeg-myth.scm @@ -262,6 +262,8 @@ (define (recording-basename rec) (assv-ref (recording-recorded-table rec) 'basename)) +(define (recording-filesize rec) + (assv-ref (recording-recorded-table rec) 'filesize)) (define (recording-new-file-name file-name ending) (let* ((old-ending (substring file-name (- (string-length file-name) 3)))