diff options
author | Sacha Chua <sacha@sachachua.com> | 2023-10-02 16:35:42 -0400 |
---|---|---|
committer | Sacha Chua <sacha@sachachua.com> | 2023-10-02 16:35:42 -0400 |
commit | c2eed16410e407cf9e6d3bc2fa3a5f422988cbc8 (patch) | |
tree | 66e69d124034dca46e7a3c2a6117fd71e2d7953d | |
parent | eb47ad145dc5b73d91cc0a629dfc7baf724e2403 (diff) | |
download | emacsconf-el-c2eed16410e407cf9e6d3bc2fa3a5f422988cbc8.tar.xz emacsconf-el-c2eed16410e407cf9e6d3bc2fa3a5f422988cbc8.zip |
add buffer as something we can set from the sexp
-rw-r--r-- | emacsconf-schedule.el | 4 |
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 |