diff options
| author | Sacha Chua <sacha@sachachua.com> | 2024-11-12 14:28:21 -0500 |
|---|---|---|
| committer | Sacha Chua <sacha@sachachua.com> | 2024-11-12 14:28:21 -0500 |
| commit | 99858e499303e2374ce854a47e9065adc8394113 (patch) | |
| tree | f85b0534e991b4bd8d7d0ac0e152b9e1eba2c1aa | |
| parent | ed5afd4addbd779ebea3e54d8a2a40dba165cc33 (diff) | |
| download | emacsconf-el-99858e499303e2374ce854a47e9065adc8394113.tar.xz emacsconf-el-99858e499303e2374ce854a47e9065adc8394113.zip | |
create test file if it doesn't exist yet
Diffstat (limited to '')
| -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))) |