diff options
| -rw-r--r-- | emacsconf.el | 21 |
1 files changed, 0 insertions, 21 deletions
diff --git a/emacsconf.el b/emacsconf.el index ce4edb0..8eb749c 100644 --- a/emacsconf.el +++ b/emacsconf.el @@ -394,27 +394,6 @@ FILENAME specifies an extra string to add to the file prefix if needed." (kill-new (string-join command " "))) command)) -(defun emacsconf-upload-copy-scp-from-json (talk key filename) - "Parse PsiTransfer JSON files and make an scp command. -This command will copy the uploaded file to the current directory. -The file is associated with TALK. KEY identifies the file in a multi-file upload. -FILENAME specifies an extra string to add to the file prefix if needed." - (interactive (let-alist (json-parse-string (buffer-string) :object-type 'alist) - (list (emacsconf-complete-talk-info) - .metadata.key - (read-string (format "Filename: "))))) - (let* ((new-filename (concat (plist-get talk :file-prefix) - (if (string= filename "") - filename - (concat "--" filename)) - "." - (let-alist (json-parse-string (buffer-string) :object-type 'alist) - (file-name-extension .metadata.name)))) - (cmd (format "scp media:%s %s" - (file-name-sans-extension (tramp-file-local-name (buffer-file-name))) - new-filename))) - (message "%s" cmd) - (kill-new cmd))) (defun emacsconf-upload-copy-from-json (talk key filename) "Parse PsiTransfer JSON files and copy the uploaded file to the res directory. The file is associated with TALK. KEY identifies the file in a multi-file upload. |