From cddcc3a790ef5e76ca618617d4a8bae96582e022 Mon Sep 17 00:00:00 2001 From: Sacha Chua Date: Mon, 3 Oct 2022 08:18:14 -0400 Subject: Fix inflating sexp --- emacsconf-schedule.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'emacsconf-schedule.el') 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 -- cgit v1.2.3