From e1e49b49b168ab2df4fb2c28b3d4ed4a5ded962c Mon Sep 17 00:00:00 2001 From: Sacha Chua Date: Mon, 26 Sep 2022 14:52:12 -0400 Subject: Exporting --- emacsconf.el | 53 ++++++++++++++++++++++++++++++++++++++++++++++------- 1 file changed, 46 insertions(+), 7 deletions(-) (limited to 'emacsconf.el') diff --git a/emacsconf.el b/emacsconf.el index e5a92b9..f1d1cc8 100644 --- a/emacsconf.el +++ b/emacsconf.el @@ -115,11 +115,24 @@ (defun emacsconf-complete-slug () (emacsconf-get-slug-from-string (emacsconf-complete-talk))) +(defun emacsconf-export-slug (link description format _) + (let ((path (format "https://emacsconf.org/%s/talks/%s" emacsconf-year link)) + (desc (or description link))) + (pcase format + (`html + (format "%s" link desc)) + (`ascii (format "%s (%s)" desc path)) + (`markdown + (format "[[%s|%s/talks/%s]]" desc emacsconf-year link)) + (t path)))) + (with-eval-after-load 'org (org-link-set-parameters "emacsconf" :follow #'emacsconf-go-to-talk - :complete (lambda () (concat "emacsconf:" (emacsconf-complete-slug))))) + :complete (lambda () (concat "emacsconf:" (emacsconf-complete-slug))) + :export #'emacsconf-export-slug)) + (defun emacsconf-complete-talk () (let ((choices (with-current-buffer (find-file-noselect emacsconf-org-file) @@ -417,11 +430,15 @@ (format-time-string "%H:%M" (time-add end-time offset))))))) ;(emacsconf-update-schedules #'emacsconf-round-start-to-five) +(defvar emacsconf-default-buffer-minutes-for-live-q-and-a 15) +(defvar emacsconf-default-buffer-minutes 5) (defun emacsconf-allocate-buffer-time (o) (when (plist-get o :slug) - (if (string-match "live" (plist-get o :q-and-a)) - (plist-put o :buffer "15") - (plist-put o :buffer "5"))) + (plist-put o :buffer + (number-to-string + (if (string-match "live" (plist-get o :q-and-a)) + emacsconf-default-buffer-minutes-for-live-q-and-a + emacsconf-default-buffer-minutes)))) o) (defun emacsconf-allocate-max-time (o) @@ -501,10 +518,12 @@ Talks with a FIXED_TIME property are not moved." "") (or (plist-get o :time) "") (or (plist-get o :buffer) "") - (or (plist-get o :max-time) "") + (if (< (string-to-number (or (plist-get o :time) "")) + (string-to-number (or (plist-get o :max-time) ""))) + (plist-get o :max-time) + "") (org-link-make-string (org-link-heading-search-string (plist-get o :title)) (plist-get o :title)) - (or (plist-get o :speakers) "") (if (plist-get o :scheduled) ; time is here twice so we can easily check it against availability (emacsconf-format-short-time (plist-get o :scheduled)) "") @@ -513,7 +532,7 @@ Talks with a FIXED_TIME property are not moved." (defun emacsconf-summarize-schedule () (cons (if (eq emacsconf-focus 'time) - (list "Slug" "Schedule" "Time" "Buffer" "Max" "Title" "Name" "Time" "Availability") + (list "Slug" "Schedule" "Time" "Buffer" "Max" "Title" "Time" "Availability") (list "Status" "Slug" "Schedule" "Time" "Buffer" "Title" "Name" "Q&A" "Availability")) (mapcar #'emacsconf-format-schedule-summary-row (emacsconf-get-talk-info)))) @@ -641,5 +660,25 @@ Include some other things, too, such as emacsconf-year, title, name, email, url, (length (emacsconf-collect-field-for-status "PREREC_RECEIVED" :title)) (apply '+ (seq-map 'string-to-number (conf-collect-field-for-status "PREREC_RECEIVED" :duration))))))) +;; Timezones +(defvar emacsconf-date "2022-12-03" "Starting date of EmacsConf.") +(defun emacsconf-convert-from-timezone (timezone time) + (interactive (list (completing-read "From zone: " tzc-time-zones) + (read-string "Time: "))) + (let* ((from-offset (tzc--get-offset timezone)) + (time + (date-to-time + (concat emacsconf-date "T" (string-pad time 5 ?0 t) ":00.000" + from-offset)))) + (message "%s = %s" + (format-time-string + "%b %d %H:%M %z" + time + timezone) + (format-time-string + "%b %d %H:%M %z" + time + emacsconf-timezone)))) + (provide 'emacsconf) ;;; emacsconf.el ends here -- cgit v1.2.3