diff options
| author | Sacha Chua <sacha@sachachua.com> | 2023-09-10 11:18:53 -0400 |
|---|---|---|
| committer | Sacha Chua <sacha@sachachua.com> | 2023-09-10 11:18:53 -0400 |
| commit | a480fbdb04d86a487dee97386340a4e5320e0072 (patch) | |
| tree | 000f3806b6e9e6e1287c3021b4a5a5a15f94e235 /emacsconf-schedule.el | |
| parent | 057b32df925f21000f0b22340c7f37b0b874d377 (diff) | |
| download | emacsconf-el-a480fbdb04d86a487dee97386340a4e5320e0072.tar.xz emacsconf-el-a480fbdb04d86a487dee97386340a4e5320e0072.zip | |
Add emacsconf-schedule-set-all-tracks-to-general
Diffstat (limited to 'emacsconf-schedule.el')
| -rw-r--r-- | emacsconf-schedule.el | 18 |
1 files changed, 11 insertions, 7 deletions
diff --git a/emacsconf-schedule.el b/emacsconf-schedule.el index 4464014..c8eb505 100644 --- a/emacsconf-schedule.el +++ b/emacsconf-schedule.el @@ -74,6 +74,10 @@ Each function should take the info and manipulate it as needed, returning the ne (cdr (seq-filter (lambda (o) (string-match "LUNCH" (elt o title-field))) list))))) +(defun emacsconf-schedule-set-all-tracks-to-general (info) + "Set all tracks to General." + (mapcar (lambda (o) (plist-put o :track "General")) info)) + (defun emacsconf-schedule-strategy-pack-everything-in-just-as-confirmed (&optional info) (let* ((emacsconf-schedule-break-time 10) (emacsconf-schedule-lunch-time 30) @@ -81,14 +85,14 @@ Each function should take the info and manipulate it as needed, returning the ne (emacsconf-schedule-default-buffer-minutes 5) (emacsconf-schedule-default-buffer-minutes-for-live-q-and-a 10) (emacsconf-schedule-tweaked-allocations '(("indieweb" . 20) - ("maint" . 20) - ("workflows" . 20))) + ("maint" . 20) + ("workflows" . 20))) (emacsconf-schedule-strategies '(emacsconf-schedule-allocate-buffer-time - emacsconf-schedule-override-breaks - emacsconf-schedule-allocate-buffer-time-at-most-max-time - emacsconf-schedule-allocate-max-time - emacsconf-schedule-allocate-at-most - emacsconf-schedule-tweak-allocations))) + emacsconf-schedule-override-breaks + emacsconf-schedule-allocate-buffer-time-at-most-max-time + emacsconf-schedule-allocate-max-time + emacsconf-schedule-allocate-at-most + emacsconf-schedule-tweak-allocations))) (emacsconf-schedule-prepare info))) (defun emacsconf-schedule-allocate-buffer-time-at-most-max-time (info) |