summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSacha Chua <sacha@sachachua.com>2023-09-06 09:05:48 -0400
committerSacha Chua <sacha@sachachua.com>2023-09-06 09:07:59 -0400
commita2a8f8a650d938e79a89cc12a5cd798fc9642874 (patch)
tree9105b87e68855e56e808b7fa847f3e4a3e03aed3
parent35cdf3f6dad0c0595c4c402cad27e5fd0fc42603 (diff)
downloademacsconf-el-a2a8f8a650d938e79a89cc12a5cd798fc9642874.tar.xz
emacsconf-el-a2a8f8a650d938e79a89cc12a5cd798fc9642874.zip
Add review command
-rw-r--r--emacsconf-mail.el22
-rw-r--r--emacsconf.el10
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