diff options
author | Sacha Chua <sacha@sachachua.com> | 2022-11-04 19:00:50 -0400 |
---|---|---|
committer | Sacha Chua <sacha@sachachua.com> | 2022-11-04 19:00:50 -0400 |
commit | 67d7aac3235f3fba73b82e1f7d2660fbb59e44dd (patch) | |
tree | 8f13361fb72e87d45c88d77fad397070152cdf21 /emacsconf.el | |
parent | dfbbf5d6078020b511f9c0104d2f056fa5769f38 (diff) | |
download | emacsconf-el-67d7aac3235f3fba73b82e1f7d2660fbb59e44dd.tar.xz emacsconf-el-67d7aac3235f3fba73b82e1f7d2660fbb59e44dd.zip |
Convenience functions for working with subtitles
Diffstat (limited to 'emacsconf.el')
-rw-r--r-- | emacsconf.el | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/emacsconf.el b/emacsconf.el index 4b6b444..ac7a4aa 100644 --- a/emacsconf.el +++ b/emacsconf.el @@ -169,10 +169,7 @@ (interactive (let-alist (json-parse-string (buffer-string) :object-type 'alist) (list (emacsconf-complete-talk-info) .metadata.key - (read-string (format "Filename (%s): " - (file-name-base .metadata.name)) - nil nil - (file-name-base .metadata.name))))) + (read-string (format "Filename: "))))) (let ((new-filename (concat (plist-get talk :video-slug) (if (string= filename "") filename @@ -183,10 +180,12 @@ (copy-file key (expand-file-name new-filename emacsconf-backstage-dir) t) - (copy-file key (expand-file-name new-filename emacsconf-cache-dir)) - (unless (file-directory-p (expand-file-name (plist-get talk :slug) emacsconf-res-dir)) - (make-directory (expand-file-name (plist-get talk :slug) emacsconf-res-dir))) - (copy-file (expand-file-name new-filename emacsconf-cache-dir) (expand-file-name new-filename (expand-file-name (plist-get talk :slug) emacsconf-res-dir))))) + ;; (copy-file key (expand-file-name new-filename emacsconf-cache-dir)) + ;; (unless (file-directory-p (expand-file-name (plist-get talk :slug) emacsconf-res-dir)) + ;; (make-directory (expand-file-name (plist-get talk :slug) emacsconf-res-dir))) + ;; (copy-file (expand-file-name new-filename emacsconf-cache-dir) + ;; (expand-file-name new-filename (expand-file-name (plist-get talk :slug) emacsconf-res-dir))) + )) (defcustom emacsconf-download-directory "~/Downloads" "Directory to check for downloaded files." @@ -199,7 +198,7 @@ (defun emacsconf-find-captions-from-slug (search) (interactive (list (emacsconf-complete-talk))) - (emacsconf-with-talk-heading search (emacsconf-find-captions))) + (emacsconf-with-talk-heading search (emacsconf-subed-find-captions))) (defun emacsconf-edit-wiki-page (search) (interactive (list (emacsconf-complete-talk))) |