From a2a8f8a650d938e79a89cc12a5cd798fc9642874 Mon Sep 17 00:00:00 2001
From: Sacha Chua <sacha@sachachua.com>
Date: Wed, 6 Sep 2023 09:05:48 -0400
Subject: Add review command

---
 emacsconf-mail.el | 22 +++++++++++++++++++++-
 emacsconf.el      | 10 ++++++++--
 2 files changed, 29 insertions(+), 3 deletions(-)

diff --git a/emacsconf-mail.el b/emacsconf-mail.el
index f74cc81..0a88e75 100644
--- a/emacsconf-mail.el
+++ b/emacsconf-mail.el
@@ -280,6 +280,26 @@ Group by e-mail."
 					(plist-put data :time (match-string 0 (or (plist-get data :format) ""))))
 			data)))
 
+;;;###autoload
+(defun emacsconf-mail-review ()
+	(interactive)
+	(let ((notification-date (format-time-string
+														"%Y-%m-%d"
+														(time-add
+														 (days-to-time emacsconf-review-days)
+														 (date-to-time (plist-get (plist-get (notmuch-show-get-message-properties) :headers) :Date))))))
+		(notmuch-show-reply)
+		(message-goto-body)
+		(save-excursion
+			(insert (format
+							 "Thanks for submitting your proposal! (TODO: feedback) We're experimenting
+with early acceptance this year, so we'll wait a week (~ %s) in case the
+other volunteers want to chime in regarding your talk. =)
+
+"
+							 notification-date)))))
+
+;;;###autoload
 (defun emacsconf-mail-add-submission (slug)
 	"Add the submission from the current e-mail."
 	(interactive "MTalk ID: ")
@@ -294,7 +314,7 @@ Group by e-mail."
 				 (to-notify (format-time-string
 										 "%Y-%m-%d"
 										 (time-add
-											(days-to-time 7)
+											(days-to-time emacsconf-review-days)
 											(date-to-time (plist-get (plist-get props :headers) :Date)))))
 				 (data (emacsconf-mail-parse-submission body)))
 		(when (string-match "<\\(.*\\)>" from)
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