summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--emacsconf-extract.el14
1 files changed, 14 insertions, 0 deletions
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