diff options
| author | Sacha Chua <sacha@sachachua.com> | 2024-11-13 12:49:33 -0500 |
|---|---|---|
| committer | Sacha Chua <sacha@sachachua.com> | 2024-11-13 12:49:33 -0500 |
| commit | 51c17c4038400b278fcc5b78bfbbcb4a0aa7e548 (patch) | |
| tree | 497fbc6254d3746c4587f61fe459ba63b701a81f | |
| parent | f3bad5449ea652a18d61fdfd56a84d0047bd2a24 (diff) | |
| download | emacsconf-el-51c17c4038400b278fcc5b78bfbbcb4a0aa7e548.tar.xz emacsconf-el-51c17c4038400b278fcc5b78bfbbcb4a0aa7e548.zip | |
validate no cancelled talks
| -rw-r--r-- | emacsconf-schedule.el | 6 |
1 files changed, 6 insertions, 0 deletions
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))) |