diff options
| author | Sacha Chua <sacha@sachachua.com> | 2023-12-12 13:37:48 -0500 |
|---|---|---|
| committer | Sacha Chua <sacha@sachachua.com> | 2023-12-12 13:37:48 -0500 |
| commit | f9878c8f9e91b668981ce8c945dfd0169b557922 (patch) | |
| tree | 5035e824330fab3d85ff3c1981c1ac089576e823 | |
| parent | 0f8acc6ebd79633edca7fba612a3c6e36b5aaa66 (diff) | |
| download | emacsconf-el-f9878c8f9e91b668981ce8c945dfd0169b557922.tar.xz emacsconf-el-f9878c8f9e91b668981ce8c945dfd0169b557922.zip | |
update task status
| -rw-r--r-- | emacsconf-extract.el | 14 |
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 |