From 67a8c7b4cda64bf56f972424bd710f300d909c7a Mon Sep 17 00:00:00 2001 From: Sacha Chua Date: Tue, 22 Nov 2022 10:18:53 -0500 Subject: publish static redirects just in case --- emacsconf-publish.el | 19 +++++++++++++++++-- 1 file changed, 17 insertions(+), 2 deletions(-) (limited to 'emacsconf-publish.el') diff --git a/emacsconf-publish.el b/emacsconf-publish.el index a998779..45def04 100644 --- a/emacsconf-publish.el +++ b/emacsconf-publish.el @@ -1811,12 +1811,27 @@ when the host has opened the Q&A.

;; (assert (eq (emacsconf-get-bbb-state '(:status "OPEN_Q")) 'open)) ;; (assert (eq (emacsconf-get-bbb-state '(:status "TO_ARCHIVE")) 'after)) -(defun emacsconf-publish-bbb-redirect (talk) + +(defun emacsconf-publish-bbb-static-redirects () + "Create emergency redirects that can be copied over the right location." + (mapc (lambda (state) + (let ((emacsconf-publish-current-dir + (expand-file-name + state + (expand-file-name "redirects" emacsconf-stream-asset-dir)))) + (unless (file-directory-p emacsconf-publish-current-dir) + (make-directory emacsconf-publish-current-dir t)) + (mapc + (lambda (talk) + (emacsconf-publish-bbb-redirect talk (intern state))) + (emacsconf-prepare-for-display (emacsconf-get-talk-info))))) + '("before" "open" "after"))) +(defun emacsconf-publish-bbb-redirect (talk &optional status) (interactive (list (emacsconf-complete-talk-info))) (let ((bbb-filename (expand-file-name (format "bbb-%s.html" (plist-get talk :slug)) emacsconf-publish-current-dir)) (bbb-redirect-url (concat "https://media.emacsconf.org/" emacsconf-year "/current/bbb-" (plist-get talk :slug) ".html")) - (status (emacsconf-bbb-status (if (boundp 'org-state) (append (list :status org-state) talk) talk)))) + (status (or status (emacsconf-bbb-status (if (boundp 'org-state) (append (list :status org-state) talk) talk))))) (with-temp-file bbb-filename (insert (emacsconf-replace-plist-in-string -- cgit v1.2.3