diff options
author | Sacha Chua <sacha@sachachua.com> | 2022-10-03 08:18:14 -0400 |
---|---|---|
committer | Sacha Chua <sacha@sachachua.com> | 2022-10-03 08:18:14 -0400 |
commit | cddcc3a790ef5e76ca618617d4a8bae96582e022 (patch) | |
tree | 3a79796cc3292684f2eb95fad2a87c97b34c5c07 | |
parent | ca7a0a56139bc6a1f617fc7584d395ce62164175 (diff) | |
download | emacsconf-el-cddcc3a790ef5e76ca618617d4a8bae96582e022.tar.xz emacsconf-el-cddcc3a790ef5e76ca618617d4a8bae96582e022.zip |
Fix inflating sexp
Diffstat (limited to '')
-rw-r--r-- | emacsconf-schedule.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/emacsconf-schedule.el b/emacsconf-schedule.el index c1534fa..7435bd7 100644 --- a/emacsconf-schedule.el +++ b/emacsconf-schedule.el @@ -166,13 +166,13 @@ Each function should take the info and manipulate it as needed, returning the ne (list :title seq))) ;; Slug with time ((and (listp seq) (symbolp (car seq)) (stringp (cdr seq))) - (append (assoc-default seq by-assoc) + (append (assoc-default (car seq) by-assoc) (list :scheduled (format-time-string (car org-time-stamp-formats) (date-to-time (cdr seq))) :start-time (date-to-time (cdr seq)) :fixed-time t))) ;; Slug with duration ((and (listp seq) (symbolp (car seq)) (numberp (cdr seq))) - (append (assoc-default seq by-assoc) + (append (assoc-default (car seq) by-assoc) (list :override-time t :time (number-to-string (cdr seq))))) ;; Just the slug |