diff options
| author | Sacha Chua <sacha@sachachua.com> | 2025-12-03 14:39:37 -0500 |
|---|---|---|
| committer | Sacha Chua <sacha@sachachua.com> | 2025-12-03 14:39:37 -0500 |
| commit | 672f906b0dbc17f3b7b31f57a7ea6ec25e55fc1e (patch) | |
| tree | 2b477160f9d64385ac43cc9bec2ebe716c102571 | |
| parent | ea96f2d6f7a9d96123ef5fab3c46d448088c6b8e (diff) | |
| download | emacsconf-el-672f906b0dbc17f3b7b31f57a7ea6ec25e55fc1e.tar.xz emacsconf-el-672f906b0dbc17f3b7b31f57a7ea6ec25e55fc1e.zip | |
validate videos fit in time
| -rw-r--r-- | emacsconf-schedule.el | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/emacsconf-schedule.el b/emacsconf-schedule.el index cfc1340..2ee74b8 100644 --- a/emacsconf-schedule.el +++ b/emacsconf-schedule.el @@ -884,6 +884,18 @@ Both start and end time are tested." (when dupes (list (concat "Duplicate talks: " (mapconcat 'car dupes ", ")))))) +(defun emacsconf-schedule-validate-videos-fit-in-time (sched &optional info) + "If there are prerecorded videos, make sure they fit in the time allocated." + (seq-keep + (lambda (o) + (when (and (plist-get o :video-time) + (> (string-to-number (plist-get o :video-time)) + (string-to-number (plist-get o :time)))) + (format "%s: video: %s, allocated %s" + (plist-get o :slug) + (plist-get o :video-time) + (plist-get o :time)))) + sched)) (defvar emacsconf-schedule-validation-functions '(emacsconf-schedule-validate-time-constraints emacsconf-schedule-validate-live-q-and-a-sessions-are-staggered emacsconf-schedule-validate-all-talks-present |