From 99858e499303e2374ce854a47e9065adc8394113 Mon Sep 17 00:00:00 2001 From: Sacha Chua Date: Tue, 12 Nov 2024 14:28:21 -0500 Subject: create test file if it doesn't exist yet --- emacsconf-stream.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/emacsconf-stream.el b/emacsconf-stream.el index d947a12..1b105a3 100644 --- a/emacsconf-stream.el +++ b/emacsconf-stream.el @@ -414,10 +414,11 @@ With a prefix argument (\\[universal-argument]), clear the overlay." i (substring "123456789 123456789 123456789 123456789 123456789 123456789 " (1+ (length (format "%s %02d" (plist-get talk :slug) i)))))))) - (copy-file - (expand-file-name "template.webm" dir) - (expand-file-name (concat (plist-get talk :file-prefix) "--main.webm") dir) - t)))) + (unless (file-exists-p (expand-file-name (concat (plist-get talk :file-prefix) "--main.webm") dir)) + (copy-file + (expand-file-name "template.webm" dir) + (expand-file-name (concat (plist-get talk :file-prefix) "--main.webm") dir) + t))))) (defun emacsconf-stream-display-talk-info (talk) (interactive (list (emacsconf-complete-talk-info))) -- cgit v1.2.3