From 51c17c4038400b278fcc5b78bfbbcb4a0aa7e548 Mon Sep 17 00:00:00 2001
From: Sacha Chua <sacha@sachachua.com>
Date: Wed, 13 Nov 2024 12:49:33 -0500
Subject: validate no cancelled talks
---
emacsconf-schedule.el | 6 ++++++
1 file changed, 6 insertions(+)
diff --git a/emacsconf-schedule.el b/emacsconf-schedule.el
index 3d6cbfa..ebaadb4 100644
--- a/emacsconf-schedule.el
+++ b/emacsconf-schedule.el
@@ -817,6 +817,12 @@ Both start and end time are tested."
(when diff
(list (concat "Missing talks: " (string-join diff ", "))))))
+(defun emacsconf-schedule-validate-no-cancelled-talks (sched &optional list)
+ (let ((cancelled (seq-keep (lambda (o) (when (string= (plist-get o :status) "CANCELLED") (plist-get o :slug)))
+ sched)))
+ (when cancelled
+ (list (concat "Cancelled talks: " (string-join cancelled ", "))))))
+
(defun emacsconf-schedule-validate-no-duplicates (sched &optional info)
(let* ((sched-slugs (mapcar (lambda (o) (plist-get o :slug))
(emacsconf-filter-talks sched)))
--
cgit v1.2.3