copy track

1 files changed, 13 insertions, 1 deletions

diff --git a/emacsconf-schedule.el b/emacsconf-schedule.el
index 071a3d4..84413f2 100644
--- a/emacsconf-schedule.el
+++ b/emacsconf-schedule.el
@@ -109,6 +109,15 @@ Each function should take the info and manipulate it as needed, returning the ne
                         emacsconf-schedule-tweak-allocations)))
     (emacsconf-schedule-prepare info)))
 
+(defun emacsconf-schedule-copy-previous-track (info)
+	"Use :set-track to update INFO."
+	(cl-loop with track = (plist-get (car info) :set-track)
+					 for talk in info
+					 collect
+					 (progn (when (plist-get talk :set-track)
+										(setq track (plist-get talk :set-track)))
+									(plist-put talk :track track))))
+
 (defun emacsconf-schedule-allocate-buffer-time-at-most-max-time (info)
   (mapcar (lambda (o)
             (when (plist-get o :slug)
@@ -163,7 +172,8 @@ Pairs with `emacsconf-schedule-dump-sexp'."
 															(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)))
+               (track-prop (plist-get (cdr seq) :track))
+							 (set-track-prop (plist-get (cdr seq) :set-track)))
            (append
             ;; overriding 
             (when start-prop
@@ -179,6 +189,8 @@ Pairs with `emacsconf-schedule-dump-sexp'."
 							(list :buffer buffer-prop))
             (when track-prop
               (list :track track-prop))
+						(when set-track-prop
+              (list :set-track set-track-prop))
             (when time-prop
               (list :time (if (numberp time-prop) (number-to-string time-prop) time-prop)))
             ;; base entity