summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSacha Chua <sacha@sachachua.com>2023-10-02 16:35:42 -0400
committerSacha Chua <sacha@sachachua.com>2023-10-02 16:35:42 -0400
commitc2eed16410e407cf9e6d3bc2fa3a5f422988cbc8 (patch)
tree66e69d124034dca46e7a3c2a6117fd71e2d7953d
parenteb47ad145dc5b73d91cc0a629dfc7baf724e2403 (diff)
downloademacsconf-el-c2eed16410e407cf9e6d3bc2fa3a5f422988cbc8.tar.xz
emacsconf-el-c2eed16410e407cf9e6d3bc2fa3a5f422988cbc8.zip
add buffer as something we can set from the sexp
-rw-r--r--emacsconf-schedule.el4
1 files changed, 4 insertions, 0 deletions
diff --git a/emacsconf-schedule.el b/emacsconf-schedule.el
index 34ac5f6..72ed423 100644
--- a/emacsconf-schedule.el
+++ b/emacsconf-schedule.el
@@ -159,6 +159,8 @@ Pairs with `emacsconf-schedule-dump-sexp'."
(error "Not yet implemented")
(let ((start-prop (or (plist-get (cdr seq) :start)
(and (stringp (cdr seq)) (cdr seq))))
+ (buffer-prop (when (plist-get (cdr seq) :buffer)
+ (number-to-string (plist-get (cdr seq) :buffer))))
(time-prop (or (plist-get (cdr seq) :time) ; this is duration in minutes
(and (numberp (cdr seq)) (cdr seq))))
(track-prop (plist-get (cdr seq) :track)))
@@ -173,6 +175,8 @@ Pairs with `emacsconf-schedule-dump-sexp'."
emacsconf-timezone)
:start-time (date-to-time start-prop)
:fixed-time t))
+ (when buffer-prop
+ (list :buffer buffer-prop))
(when track-prop
(list :track track-prop))
(when time-prop