diff options
| author | Sacha Chua <sacha@sachachua.com> | 2024-11-19 09:05:03 -0500 |
|---|---|---|
| committer | Sacha Chua <sacha@sachachua.com> | 2024-11-19 09:05:03 -0500 |
| commit | a1745f10a19bfdafe5f9543fe80dbd8621cadcaa (patch) | |
| tree | 403a190e025a1a40b3e27e520492f82a8da0197b /emacsconf-schedule.el | |
| parent | 51c17c4038400b278fcc5b78bfbbcb4a0aa7e548 (diff) | |
| download | emacsconf-el-a1745f10a19bfdafe5f9543fe80dbd8621cadcaa.tar.xz emacsconf-el-a1745f10a19bfdafe5f9543fe80dbd8621cadcaa.zip | |
change colours
Diffstat (limited to '')
| -rw-r--r-- | emacsconf-schedule.el | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/emacsconf-schedule.el b/emacsconf-schedule.el index ebaadb4..6c5c211 100644 --- a/emacsconf-schedule.el +++ b/emacsconf-schedule.el @@ -267,7 +267,8 @@ Pairs with `emacsconf-schedule-dump-sexp'." (org-entry-put (point) "SCHEDULED" (plist-get talk :scheduled)) (org-entry-put (point) "TRACK" (plist-get talk :track)) (org-entry-put (point) "TIME" (plist-get talk :time))) - (emacsconf-filter-talks info))))) + (emacsconf-filter-talks info)) + (setq emacsconf-schedule-draft nil)))) (defun emacsconf-schedule-save-emailed-times (info &optional field force) (interactive (list (or emacsconf-schedule-draft (emacsconf-get-talk-info)) @@ -435,9 +436,9 @@ Pairs with `emacsconf-schedule-dump-sexp'." "Set talk color based on status. Processing: palegoldenrod, Waiting to be assigned a captioner: yellow, -Captioning in progress: lightgreen, -To check: green, -Ready to stream: blue, +Captioning in progress: lightblue, +To check: lightgreen, +Ready to stream: green, Other status: gray" (unless (plist-get o :invalid) (dom-set-attribute node 'fill @@ -449,11 +450,11 @@ Other status: gray" ("TO_ASSIGN" "yellow") ("TO_CAPTION" - "lightgreen") + "lightblue") ("TO_CHECK" - "green") + "#90ee90") ("TO_STREAM" - "lightblue") + "green") ("TODO" "lightgray") (_ "gray"))))) |