summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--emacsconf.el54
1 files changed, 54 insertions, 0 deletions
diff --git a/emacsconf.el b/emacsconf.el
index 6d25045..9829acb 100644
--- a/emacsconf.el
+++ b/emacsconf.el
@@ -77,6 +77,60 @@
(defvar emacsconf-stream-base "https://live0.emacsconf.org:9001/emacsconf/")
(defvar emacsconf-chat-base "https://chat.emacsconf.org/")
+(defvar emacsconf-backstage-dir "/ssh:media:/var/www/media.emacsconf.org/2022/backstage")
+(defvar emacsconf-upload-dir "/ssh:media:/srv/upload")
+
+(defun emacsconf-upload-open-dir ()
+ (interactive)
+ (dired emacsconf-upload-dir "-tl"))
+(defun emacsconf-backstage-open-dir ()
+ (interactive)
+ (dired emacsconf-backstage-dir "-tl"))
+(defun emacsconf-slugify (s)
+ (replace-regexp-in-string " +" "-" (replace-regexp-in-string "[^a-z0-9 ]" "" (downcase s))))
+
+(defun emacsconf-video-slug (talk)
+ (concat "emacsconf-" emacsconf-year "-" (plist-get talk :slug) "--"
+ (emacsconf-slugify (plist-get talk :title))
+ (if (plist-get talk :speakers)
+ (concat"--"
+ (emacsconf-slugify (plist-get talk :speakers)))
+ "")))
+
+(defun emacsconf-set-video-slug-if-needed (o)
+ (interactive (list (emacsconf-complete-talk-info)))
+ (unless (plist-get o :video-slug)
+ (let ((video-slug
+ (read-string "Set video slug: " (emacsconf-video-slug o))))
+ (save-window-excursion
+ (emacsconf-with-talk-heading (plist-get o :slug)
+ (org-entry-put (point) "VIDEO_SLUG" video-slug)))
+ (plist-put o :video-slug video-slug)))
+ (plist-get o :video-slug))
+
+(defun emacsconf-set-video-slugs ()
+ (interactive)
+ (org-map-entries
+ (lambda ()
+ (org-entry-put (point) "VIDEO_SLUG" (emacsconf-video-slug (emacsconf-get-talk-info-for-subtree))))
+ "SLUG={.}-VIDEO_SLUG={.}"))
+
+(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)
+ .key
+ (read-string (format "Filename (%s): "
+ (file-name-base .metadata.name))
+ nil nil
+ (file-name-base .metadata.name)))))
+ (copy-file key
+ (expand-file-name (concat (plist-get talk :video-slug)
+ "--"
+ filename
+ "."
+ (let-alist (json-parse-string (buffer-string) :object-type 'alist)
+ (file-name-extension .metadata.name)))
+ emacsconf-backstage-dir)))
(defcustom emacsconf-download-directory "~/Downloads"
"Directory to check for downloaded files."