diff options
| author | Sacha Chua <sacha@sachachua.com> | 2022-10-05 00:02:21 -0400 |
|---|---|---|
| committer | Sacha Chua <sacha@sachachua.com> | 2022-10-05 00:02:21 -0400 |
| commit | 4f695107c28d2d0ef069faba3061d736a72c3be9 (patch) | |
| tree | 0a3f97550f7de52781af9fd42a315949049d0365 /emacsconf.el | |
| parent | 4b9096c7955cb0e57b89512e57227254fac14663 (diff) | |
| download | emacsconf-el-4f695107c28d2d0ef069faba3061d736a72c3be9.tar.xz emacsconf-el-4f695107c28d2d0ef069faba3061d736a72c3be9.zip | |
Tweak schedule validation and display
Diffstat (limited to 'emacsconf.el')
| -rw-r--r-- | emacsconf.el | 5 |
1 files changed, 4 insertions, 1 deletions
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) |