From a2a8f8a650d938e79a89cc12a5cd798fc9642874 Mon Sep 17 00:00:00 2001 From: Sacha Chua Date: Wed, 6 Sep 2023 09:05:48 -0400 Subject: Add review command --- emacsconf.el | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) (limited to 'emacsconf.el') diff --git a/emacsconf.el b/emacsconf.el index a9d6874..d601017 100644 --- a/emacsconf.el +++ b/emacsconf.el @@ -34,7 +34,7 @@ "Name of conference" :group 'emacsconf :type 'string) -(defcustom emacsconf-year "2022" +(defcustom emacsconf-year "2023" "Conference year. String for easy inclusion." :group 'emacsconf :type 'string) @@ -83,6 +83,9 @@ "Emergency contact information." :type 'string :group 'emacsconf) +(defcustom emacsconf-review-days 7 "Number of days for review for early acceptance." + :type 'natnum + :group 'emacsconf) (defvar emacsconf-stream-base "https://live0.emacsconf.org/") (defvar emacsconf-chat-base "https://chat.emacsconf.org/") @@ -948,8 +951,11 @@ (defun emacsconf-timezone-strings (o &optional timezones) (mapcar (lambda (tz) (emacsconf-timezone-string o tz)) (or timezones emacsconf-timezones))) +;;;###autoload (defun emacsconf-convert-from-timezone (timezone time) - (interactive (list (completing-read "From zone: " tzc-time-zones) + (interactive (list (progn + (require 'tzc) + (completing-read "From zone: " tzc-time-zones)) (read-string "Time: "))) (let* ((from-offset (format-time-string "%z" (date-to-time emacsconf-date) timezone)) (time -- cgit v1.2.3