diff options
| author | Sacha Chua <sacha@sachachua.com> | 2023-10-12 21:56:35 -0400 |
|---|---|---|
| committer | Sacha Chua <sacha@sachachua.com> | 2023-10-12 21:56:35 -0400 |
| commit | 04aabbab47b47a0e6269de904eea09f5f850ea25 (patch) | |
| tree | 6e9d909d480acda08c2eb0cf68538a44c0c5d82e | |
| parent | 297a0fd21319a6158b2db19b3f5e3581b9c1f29c (diff) | |
| download | emacsconf-el-04aabbab47b47a0e6269de904eea09f5f850ea25.tar.xz emacsconf-el-04aabbab47b47a0e6269de904eea09f5f850ea25.zip | |
export json in multiple places
| -rw-r--r-- | emacsconf.el | 40 |
1 files changed, 25 insertions, 15 deletions
diff --git a/emacsconf.el b/emacsconf.el index 64ef086..d574ef3 100644 --- a/emacsconf.el +++ b/emacsconf.el @@ -1168,21 +1168,31 @@ The subheading should match `emacsconf-abstract-heading-regexp'." (message "Missing %s" (mapconcat #'symbol-name missing ", ")) (format "Missing %s" (mapconcat #'symbol-name missing ", ")))))) -;;; Ansible support -(defun emacsconf-ansible-export-talks () - (interactive) - (when emacsconf-ansible-directory - (with-temp-file (expand-file-name "talks.json" emacsconf-ansible-directory) - (insert (json-encode (list :talks - (mapcar (lambda (o) - (apply 'list - (cons :start-time (format-time-string "%FT%T%z" (plist-get o :start-time) t)) - (cons :end-time (format-time-string "%FT%T%z" (plist-get o :end-time) t)) - (mapcar (lambda (field) - (cons field (plist-get o field))) - '(:slug :title :speakers :pronouns :pronunciation :url :track :file-prefix))) - ) - (emacsconf-filter-talks (emacsconf-get-talk-info))))))))) +(defun emacsconf-talks-json () + "Return JSON format with a subset of talk information." + (json-encode + (list + :talks + (mapcar + (lambda (o) + (apply + 'list + (cons :start-time (format-time-string "%FT%T%z" (plist-get o :start-time) t)) + (cons :end-time (format-time-string "%FT%T%z" (plist-get o :end-time) t)) + (mapcar + (lambda (field) + (cons field (plist-get o field))) + '(:slug :title :speakers :pronouns :pronunciation :url :track :file-prefix)))) + (emacsconf-filter-talks (emacsconf-get-talk-info)))))) + +(defun emacsconf-export-talks-json () + (interactive) + "Export talk information as JSON so that we can use it in shell scripts." + (mapc (lambda (dir) + (when (and dir (file-directory-p dir)) + (with-temp-file (expand-file-name "talks.json" dir) + (insert (emacsconf-talks-json))))) + (list emacsconf-res-dir emacsconf-ansible-directory))) (defun emacsconf-ansible-load-vars (file) (interactive (list (read-file-name "File: " emacsconf-ansible-directory))) |