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 | |
| parent | 51c17c4038400b278fcc5b78bfbbcb4a0aa7e548 (diff) | |
| download | emacsconf-el-a1745f10a19bfdafe5f9543fe80dbd8621cadcaa.tar.xz emacsconf-el-a1745f10a19bfdafe5f9543fe80dbd8621cadcaa.zip | |
change colours
Diffstat (limited to '')
| -rw-r--r-- | emacsconf-publish.el | 2 | ||||
| -rw-r--r-- | emacsconf-schedule.el | 15 |
2 files changed, 9 insertions, 8 deletions
diff --git a/emacsconf-publish.el b/emacsconf-publish.el index 11924e8..c42d0ee 100644 --- a/emacsconf-publish.el +++ b/emacsconf-publish.el @@ -1394,7 +1394,7 @@ If MODIFY-FUNC is specified, use it to modify the talk." (if (file-exists-p (expand-file-name "include-in-index.html" emacsconf-cache-dir)) (with-temp-buffer (insert-file-contents (expand-file-name "include-in-index.html" emacsconf-cache-dir)) (buffer-string)) "") - "<p>Schedule by status: (gray: waiting, light yellow: processing, yellow: to assign, light green: captioning, green: to check, light blue: captioned and ready)<br />Updated by conf.org and the wiki repository</br />" + "<p>Schedule by status: (gray: waiting, light yellow: processing, yellow: to assign, light blue: captioning, light green: to check, green: captioned and ready)<br />Updated by conf.org and the wiki repository</br />" (let* ((emacsconf-schedule-svg-modify-functions '(emacsconf-schedule-svg-color-by-status)) (img (emacsconf-schedule-svg 800 200 info))) (with-temp-buffer 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"))))) |