summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSacha Chua <sacha@sachachua.com>2022-10-03 08:18:14 -0400
committerSacha Chua <sacha@sachachua.com>2022-10-03 08:18:14 -0400
commitcddcc3a790ef5e76ca618617d4a8bae96582e022 (patch)
tree3a79796cc3292684f2eb95fad2a87c97b34c5c07
parentca7a0a56139bc6a1f617fc7584d395ce62164175 (diff)
downloademacsconf-el-cddcc3a790ef5e76ca618617d4a8bae96582e022.tar.xz
emacsconf-el-cddcc3a790ef5e76ca618617d4a8bae96582e022.zip
Fix inflating sexp
Diffstat (limited to '')
-rw-r--r--emacsconf-schedule.el4
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