diff options
| author | Sacha Chua <sacha@sachachua.com> | 2022-09-21 14:08:08 -0400 |
|---|---|---|
| committer | Sacha Chua <sacha@sachachua.com> | 2022-09-21 14:08:08 -0400 |
| commit | 119a654f08fc335f3f894db22e22d45288e13243 (patch) | |
| tree | 672aedf670be82c3c7eee97321d7b5912fa4e2b5 /emacsconf.el | |
| parent | f7cc8a984fa9cc6e33287ba53d604146a3f08150 (diff) | |
| download | emacsconf-el-119a654f08fc335f3f894db22e22d45288e13243.tar.xz emacsconf-el-119a654f08fc335f3f894db22e22d45288e13243.zip | |
Update code for publishing
Diffstat (limited to 'emacsconf.el')
| -rw-r--r-- | emacsconf.el | 24 |
1 files changed, 21 insertions, 3 deletions
diff --git a/emacsconf.el b/emacsconf.el index 4771255..5737616 100644 --- a/emacsconf.el +++ b/emacsconf.el @@ -27,7 +27,7 @@ (defgroup emacsconf nil "EmacsConf" :group 'multimedia) (defcustom emacsconf-name "EmacsConf" - "Name of emacsconference" + "Name of conference" :group 'emacsconf :type 'string) (defcustom emacsconf-year "2022" @@ -51,7 +51,7 @@ (defcustom emacsconf-base-url "https://emacsconf.org/" "Includes trailing slash" :group 'emacsconf :type 'string) -(defcustom emacsconf-publishing-phase 'resources +(defcustom emacsconf-publishing-phase 'program "Controls what information to include. 'program - don't include times 'schedule - include times; use this leading up to the emacsconference @@ -194,6 +194,7 @@ (:qa-toobnix "QA_TOOBNIX") (:pronunciation "PRONUNCIATION") (:pronouns "PRONOUNS") + (:public-email "PUBLIC_EMAIL") (:buffer "BUFFER") (:time "TIME") (:time "MAX_TIME") @@ -209,6 +210,7 @@ 'append o (list + :year emacsconf-year :type (if (org-entry-get (point) "SLUG") 'talk 'headline) :status (elt heading 2) :level (car heading) @@ -244,6 +246,22 @@ nil 'tree) o) +(defun emacsconf-convert-talk-abstract-to-markdown (o) + (plist-put o :abstract-md (org-export-string-as (or (plist-get o :abstract) "") 'md t))) + +(defun emacsconf-summarize-times (time timezones) + (let (prev-day) + (mapconcat + (lambda (tz) + (let ((cur-day (format-time-string "%a %b %-e" time tz)) + (cur-time (format-time-string "%H%MH %Z" time tz))) + (if (equal prev-day cur-day) + cur-time + (setq prev-day cur-day) + (concat cur-day " " cur-time)))) + timezones + " / "))) + (defun emacsconf-add-timezone-conversions (o) (plist-put o :scheduled-tzs (concat (org-timestamp-format (plist-get o :start-time) "%a %b %e %l:%M%p Toronto time (") @@ -361,7 +379,7 @@ (while a (setq string (replace-regexp-in-string (regexp-quote (concat "${" (substring (symbol-name (pop a)) 1) "}")) - (pop a) + (or (pop a) "") string t t))) string)) |