diff options
author | Sacha Chua <sacha@sachachua.com> | 2022-10-23 08:13:31 -0400 |
---|---|---|
committer | Sacha Chua <sacha@sachachua.com> | 2022-10-23 08:13:31 -0400 |
commit | d3a178bda7d74a2cdc10c9091d26f2a4ce75ca37 (patch) | |
tree | d869f2fd91b40543cefc17e26b80d9f5219c319d /emacsconf.el | |
parent | 093497894b84bcea46c2df7b5d360261b881693e (diff) | |
download | emacsconf-el-d3a178bda7d74a2cdc10c9091d26f2a4ce75ca37.tar.xz emacsconf-el-d3a178bda7d74a2cdc10c9091d26f2a4ce75ca37.zip |
Caption-related backstage tweaks
Diffstat (limited to 'emacsconf.el')
-rw-r--r-- | emacsconf.el | 16 |
1 files changed, 11 insertions, 5 deletions
diff --git a/emacsconf.el b/emacsconf.el index f2c5e96..e036258 100644 --- a/emacsconf.el +++ b/emacsconf.el @@ -133,11 +133,16 @@ (emacsconf-upload-to-backstage-and-rename talk "main"))))) (defun emacsconf-upload-to-backstage-and-rename (talk filename) - (interactive (list (emacsconf-complete-talk-info) - (read-string (format "Filename (%s): " - (file-name-base (buffer-file-name))) - nil nil - (file-name-base (buffer-file-name))))) + (interactive (let ((talk (emacsconf-complete-talk-info)) + (base (file-name-base (buffer-file-name)))) + (list + talk + (if (string-match (concat "^" (regexp-quote (plist-get talk :video-slug)) "--\\([a-z]+\\)") + base) + (match-string 1 base) + (read-string (format "Filename (%s): " base) + nil nil + base))))) (copy-file (buffer-file-name) (expand-file-name (concat (plist-get talk :video-slug) "--" @@ -146,6 +151,7 @@ (file-name-extension (buffer-file-name))) emacsconf-backstage-dir) t)) + (defun emacsconf-upload-copy-from-json (talk key filename) (interactive (let-alist (json-parse-string (buffer-string) :object-type 'alist) (list (emacsconf-complete-talk-info) |