diff options
author | Sacha Chua <sacha@sachachua.com> | 2022-11-03 18:41:22 -0400 |
---|---|---|
committer | Sacha Chua <sacha@sachachua.com> | 2022-11-03 18:41:22 -0400 |
commit | c36261caaff9305d256c616edcc9d1fdb51b1b42 (patch) | |
tree | db26ab46121d26442002dd8d4b190d8a8393dae9 /emacsconf-publish.el | |
parent | 3cce90093797c7524cecff94df35b4b8253f91fa (diff) | |
download | emacsconf-el-c36261caaff9305d256c616edcc9d1fdb51b1b42.tar.xz emacsconf-el-c36261caaff9305d256c616edcc9d1fdb51b1b42.zip |
Change hooks to pass the talk variable
Diffstat (limited to 'emacsconf-publish.el')
-rw-r--r-- | emacsconf-publish.el | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/emacsconf-publish.el b/emacsconf-publish.el index 6dcf3f4..3daf7eb 100644 --- a/emacsconf-publish.el +++ b/emacsconf-publish.el @@ -815,13 +815,15 @@ Entries are sorted chronologically, with different tracks interleaved." (with-current-buffer (find-file-noselect emacsconf-org-file) (remove-hook 'org-after-todo-state-change-hook #'emacsconf-publish-backstage-org-after-todo-state-change t))) -(defun emacsconf-publish-backstage-org-after-todo-state-change () - (when (member org-state '("TO_CAPTION")) - (unless (org-entry-get (point) "CAPTIONER") - (org-entry-put (point) "CAPTIONER" - (assoc-default "CUSTOM_ID" (emacsconf-complete-volunteer))))) - (when (member org-state '("TO_ASSIGN" "TO_CAPTION" "TO_STREAM")) - (emacsconf-publish-backstage-index))) +(defun emacsconf-publish-backstage-org-on-state-change (talk) + (save-window-excursion + (emacsconf-with-talk-heading talk + (when (member org-state '("TO_CAPTION")) + (unless (org-entry-get (point) "CAPTIONER") + (org-entry-put (point) "CAPTIONER" + (assoc-default "CUSTOM_ID" (emacsconf-complete-volunteer))))) + (when (member org-state '("TO_ASSIGN" "TO_CAPTION" "TO_STREAM")) + (emacsconf-publish-backstage-index))))) (defun emacsconf-publish-copy-main-files-from-backstage-to-media-root (talk) (interactive (list (emacsconf-complete-talk-info))) @@ -1630,7 +1632,7 @@ ffplay https://live0.emacsconf.org:9001/emacsconf/gen.webm (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 talk))) + (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 |