diff options
| -rw-r--r-- | emacsconf-stream.el | 9 |
1 files 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))) |