publish static redirects just in case

1 files changed, 17 insertions, 2 deletions

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.</p>
 ;; (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