summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSacha Chua <sacha@sachachua.com>2023-09-05 13:22:55 -0400
committerSacha Chua <sacha@sachachua.com>2023-09-05 13:22:55 -0400
commit35cdf3f6dad0c0595c4c402cad27e5fd0fc42603 (patch)
tree7cd822c481b0bdf216b2c6db33b896643c31e07e
parent7a4117a8eefd6bfb33a7a9be0f16acaacea68d3f (diff)
downloademacsconf-el-35cdf3f6dad0c0595c4c402cad27e5fd0fc42603.tar.xz
emacsconf-el-35cdf3f6dad0c0595c4c402cad27e5fd0fc42603.zip
Add submission parsing
-rw-r--r--emacsconf-mail.el108
1 files changed, 103 insertions, 5 deletions
diff --git a/emacsconf-mail.el b/emacsconf-mail.el
index 88dca51..f74cc81 100644
--- a/emacsconf-mail.el
+++ b/emacsconf-mail.el
@@ -244,15 +244,113 @@ Group by e-mail."
(emacsconf-mail-merge-get-template-from-subtree))
(error "Could not find template %s" id)))))))))
+(defun emacsconf-mail-parse-submission (body)
+ "Extract data from EmacsConf 2023 submissions in BODY."
+ (let (data
+ (fields '((:title "^Talk title")
+ (:description "^Talk description")
+ (:format "^Format")
+ (:intro "^Introduction for you and your talk")
+ (:name "^Speaker name")
+ (:availability "^Speaker availability")
+ (:q-and-a "^Preferred Q&A approach")
+ (:public "^Public contact information")
+ (:private "^Private emergency contact information")
+ (:release "^Please include this speaker release"))))
+ (with-temp-buffer
+ (insert body)
+ (goto-char (point-min))
+ ;; Try to parse it
+ (while fields
+ ;; skip the field title
+ (when (and (or (looking-at (cadar fields))
+ (re-search-forward (cadar fields) nil t))
+ (re-search-forward "\\(:[ \t\n]+\\|\n\n\\)" nil t))
+ ;; get the text between this and the next field
+ (setq data (plist-put data (caar fields)
+ (buffer-substring (point)
+ (or
+ (when (and (cdr fields)
+ (re-search-forward (cadr (cadr fields)) nil t))
+ (goto-char (match-beginning 0))
+ (point))
+ (point-max))))))
+ (setq fields (cdr fields)))
+ (if (string-match "[0-9]+" (or (plist-get data :format) ""))
+ (plist-put data :time (match-string 0 (or (plist-get data :format) ""))))
+ data)))
+
+(defun emacsconf-mail-add-submission (slug)
+ "Add the submission from the current e-mail."
+ (interactive "MTalk ID: ")
+ (let* ((props (notmuch-show-get-message-properties))
+ (from (plist-get (plist-get props :headers) :From))
+ (body (plist-get
+ (car
+ (plist-get props :body))
+ :content))
+ (date (format-time-string "%Y-%m-%d"
+ (date-to-time (plist-get (plist-get props :headers) :Date))))
+ (to-notify (format-time-string
+ "%Y-%m-%d"
+ (time-add
+ (days-to-time 7)
+ (date-to-time (plist-get (plist-get props :headers) :Date)))))
+ (data (emacsconf-mail-parse-submission body)))
+ (when (string-match "<\\(.*\\)>" from)
+ (setq from (match-string 1 from)))
+ (with-current-buffer
+ (find-file emacsconf-org-file)
+ ;; go to the submissions entry
+ (goto-char (org-find-property "CUSTOM_ID" "submissions"))
+ (when (org-find-property "CUSTOM_ID" slug)
+ (error "Duplicate talk ID")))
+ (find-file emacsconf-org-file)
+ (delete-other-windows)
+ (outline-next-heading)
+ (org-insert-heading)
+ (insert " " (or (plist-get data :title) "") "\n")
+ (org-todo "TO_REVIEW")
+ (org-entry-put (point) "CUSTOM_ID" slug)
+ (org-entry-put (point) "SLUG" slug)
+ (org-entry-put (point) "TRACK" "General")
+ (org-entry-put (point) "EMAIL" from)
+ (org-entry-put (point) "DATE_SUBMITTED" date)
+ (org-entry-put (point) "DATE_TO_NOTIFY" to-notify)
+ (when (plist-get data :time)
+ (org-entry-put (point) "TIME" (plist-get data :time)))
+ (when (plist-get data :availability)
+ (org-entry-put (point) "AVAILABILITY"
+ (replace-regexp-in-string "\n+" " "
+ (plist-get data :availability))))
+ (when (plist-get data :public)
+ (org-entry-put (point) "PUBLIC_CONTACT"
+ (replace-regexp-in-string "\n+" " "
+ (plist-get data :public))))
+ (when (plist-get data :private)
+ (org-entry-put (point) "EMERGENCY"
+ (replace-regexp-in-string "\n+" " "
+ (plist-get data :private))))
+ (when (plist-get data :q-and-a)
+ (org-entry-put (point) "Q_AND_A"
+ (replace-regexp-in-string "\n+" " "
+ (plist-get data :q-and-a))))
+ (save-excursion
+ (insert body))
+ (re-search-backward org-drawer-regexp)
+ (org-fold-hide-drawer-toggle 'off)
+ (org-end-of-meta-data)
+ (split-window-below)))
+
(defun emacsconf-mail-merge-fill (string)
"Fill in the values for STRING using the properties at point.
Include some other things, too, such as emacsconf-year, title, name, email, url, and duration."
(let (start (values `(("year" . ,emacsconf-year)
- ("title" . ,(org-entry-get (point) "ITEM"))
- ("name" . ,(org-entry-get (point) "NAME"))
- ("email" . ,(org-entry-get (point) "EMAIL"))
- ("url" . ,(format "%s%s/talks/%s" emacsconf-base-url emacsconf-year (org-entry-get (point) "SLUG")))
- ("duration" . ,(org-entry-get (point) "TIME")))))
+ ("title" . ,(org-entry-get (point) "ITEM"))
+ ("name" . ,(org-entry-get (point) "NAME"))
+ ("email" . ,(org-entry-get (point) "EMAIL"))
+ ("url" . ,(format "%s%s/talks/%s" emacsconf-base-url emacsconf-year (org-entry-get (point) "SLUG")))
+ ("duration" . ,(org-entry-get (point) "TIME")))))
(while (string-match "\\${\\([-a-zA-Z_]+?\\)}" string start)
(if (assoc-default (match-string 1 string) values)
(setq string (replace-match (assoc-default (match-string 1 string) values) t t string))