From 4f695107c28d2d0ef069faba3061d736a72c3be9 Mon Sep 17 00:00:00 2001
From: Sacha Chua <sacha@sachachua.com>
Date: Wed, 5 Oct 2022 00:02:21 -0400
Subject: Tweak schedule validation and display

---
 emacsconf.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'emacsconf.el')

diff --git a/emacsconf.el b/emacsconf.el
index 1844713..ca0074b 100644
--- a/emacsconf.el
+++ b/emacsconf.el
@@ -199,6 +199,7 @@
   (let ((heading (org-heading-components))
         (field-props '((:title "ITEM")
                        (:talk-id "TALK_ID")
+                       (:track "TRACK")
                        (:slug "SLUG")
                        (:video-slug "VIDEO_SLUG")
                        (:public "PUBLIC")
@@ -369,9 +370,11 @@
   (let ((time-a (plist-get a :start-time))
         (time-b (plist-get b :start-time)))
     (cond
+     ((null time-b) t)
+     ((null time-a) nil)
      ((time-less-p time-a time-b) t)
      ((time-less-p time-b time-a) nil)
-     (t (< (plist-get a :point) (plist-get b :point))))))
+     (t (< (or (plist-get a :point) 0) (or (plist-get b :point) 0))))))
 
 (defun emacsconf-get-talk-info ()
   (with-current-buffer (find-file-noselect emacsconf-org-file)
-- 
cgit v1.2.3