From 51c17c4038400b278fcc5b78bfbbcb4a0aa7e548 Mon Sep 17 00:00:00 2001 From: Sacha Chua Date: Wed, 13 Nov 2024 12:49:33 -0500 Subject: validate no cancelled talks --- emacsconf-schedule.el | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'emacsconf-schedule.el') 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