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
| -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  | 
