diff options
| author | Sacha Chua <sacha@sachachua.com> | 2022-11-24 14:08:05 -0500 |
|---|---|---|
| committer | Sacha Chua <sacha@sachachua.com> | 2022-11-24 14:08:05 -0500 |
| commit | 934b8c909ab00b2a55501f8bdd2a6bc1ac017d60 (patch) | |
| tree | 6cc336170e63676fb00faa1df0c473e6ba38d09f /emacsconf-schedule.el | |
| parent | c8b469a0597edb988a9966655d9061ed3ce8936a (diff) | |
| download | emacsconf-el-934b8c909ab00b2a55501f8bdd2a6bc1ac017d60.tar.xz emacsconf-el-934b8c909ab00b2a55501f8bdd2a6bc1ac017d60.zip | |
publishing without unedited captions
Diffstat (limited to 'emacsconf-schedule.el')
| -rw-r--r-- | emacsconf-schedule.el | 28 |
1 files changed, 18 insertions, 10 deletions
diff --git a/emacsconf-schedule.el b/emacsconf-schedule.el index f4cdeda..7c9c060 100644 --- a/emacsconf-schedule.el +++ b/emacsconf-schedule.el @@ -642,16 +642,24 @@ Both start and end time are tested." "Write the proposed schedule to FILENAME using the variables in VARLIST. If emacsconf-schedule-apply is non-nil, update `emacsconf-org-file' and the wiki." (declare (debug t)) - `(let* (,@varlist) - (let* ((schedule (emacsconf-schedule-prepare arranged)) - (info (if emacsconf-schedule-expected-talks - (emacsconf-schedule-inflate-sexp emacsconf-schedule-expected-talks) - (emacsconf-get-talk-info))) - (validation (or (emacsconf-schedule-validate schedule info) ""))) - (with-temp-file ,filename - (svg-print (emacsconf-schedule-svg 800 200 schedule))) - (clear-image-cache) - (mapconcat (lambda (o) (format "- %s\n" o)) (append validation (list (format "[[file:%s]]" filename))))))) + `(prog1 + (let* (,@varlist) + (let* ((schedule (emacsconf-schedule-prepare arranged)) + (info (if emacsconf-schedule-expected-talks + (emacsconf-schedule-inflate-sexp emacsconf-schedule-expected-talks) + (emacsconf-get-talk-info))) + (validation (or (emacsconf-schedule-validate schedule info) ""))) + (when (and (boundp 'emacsconf-schedule-apply) emacsconf-schedule-apply) + (emacsconf-schedule-update-from-info schedule)) + (with-temp-file ,filename + (svg-print (emacsconf-schedule-svg 800 200 schedule))) + (clear-image-cache) + (mapconcat (lambda (o) (format "- %s\n" o)) (append validation (list (format "[[file:%s]]" filename)))))) + (when (and (boundp 'emacsconf-schedule-apply) emacsconf-schedule-apply) + (emacsconf-publish-before-pages) + (emacsconf-publish-schedule) + ;; (emacsconf-update-schedule) + ))) (defun emacsconf-schedule-format-summary-row (o) (pcase emacsconf-focus |