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-mail.el | 22 +++++++++++++++++++++- 1 file changed, 21 insertions(+), 1 deletion(-) (limited to 'emacsconf-mail.el') 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) -- cgit v1.2.3