From f9878c8f9e91b668981ce8c945dfd0169b557922 Mon Sep 17 00:00:00 2001 From: Sacha Chua Date: Tue, 12 Dec 2023 13:37:48 -0500 Subject: update task status --- emacsconf-extract.el | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/emacsconf-extract.el b/emacsconf-extract.el index 32c9525..2ef7d74 100644 --- a/emacsconf-extract.el +++ b/emacsconf-extract.el @@ -1561,5 +1561,19 @@ Related: `emacsconf-extract-check-playlists'." (plist-get o :qa-toobnix-url) "Toobnix")))))) (emacsconf-publish-prepare-for-display (emacsconf-get-talk-info))))) + +(defun emacsconf-extract-update-task-status-after-copying-logs () + "Mark non-BBB sessions as all done." + (interactive) + (mapc + (lambda (o) + (when (and (member (plist-get o :status) '("TO_ARCHIVE" "TO_EXTRACT")) + (emacsconf-talk-file o "--main.vtt") + (emacsconf-captions-edited-p (emacsconf-talk-file o "--main.vtt")) + (null (plist-get o :bbb-rec))) + (emacsconf-with-talk-heading (plist-get o :slug) + (org-todo "DONE")))) + (emacsconf-publish-prepare-for-display (emacsconf-get-talk-info)))) + (provide 'emacsconf-extract) ;;; emacsconf-extract.el ends here -- cgit v1.2.3