summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSacha Chua <sacha@sachachua.com>2022-09-30 15:56:33 -0400
committerSacha Chua <sacha@sachachua.com>2022-09-30 15:56:33 -0400
commit0527ff60cff7702189ead331252084445a732934 (patch)
treeca82a8d67c4476961d154d7dea7c415eff8b0fd7
parent94f1d4c4fef71b5012eefcce57e5ca781134ab92 (diff)
downloademacsconf-el-0527ff60cff7702189ead331252084445a732934.tar.xz
emacsconf-el-0527ff60cff7702189ead331252084445a732934.zip
Add mail merge wrap handler
-rw-r--r--emacsconf.el23
1 files changed, 16 insertions, 7 deletions
diff --git a/emacsconf.el b/emacsconf.el
index 891b7eb..8ff487e 100644
--- a/emacsconf.el
+++ b/emacsconf.el
@@ -706,6 +706,14 @@ Talks with a FIXED_TIME property are not moved."
(org-find-property "NAME"
(completing-read "Name: " (delq nil (org-map-entries (lambda () (org-entry-get "NAME"))))))))))
+(defun emacsconf-mail-merge-wrap ()
+ (interactive)
+ (with-undo-amalgamate
+ (save-excursion
+ (while (re-search-forward " *${wrap}" nil t)
+ (replace-match "")
+ (fill-paragraph)))))
+
(defun emacsconf-mail-merge-get-template (id)
"Return the information for the e-mail template with EMAIL_ID set to ID."
(save-excursion
@@ -808,7 +816,7 @@ Include some other things, too, such as emacsconf-year, title, name, email, url,
comments)
(forward-line 1)
(setq comments
-a (split-string
+ (split-string
(replace-regexp-in-string
"\t\t\\*[ \t]*"
""
@@ -866,12 +874,13 @@ Both start and end time are tested."
(format "%s: Ends at %s after %s" label end-time to-time)))))
(defun emacsconf-get-time-constraint (o)
- (let ((avail (or (plist-get o :availability) ""))
- hours)
- (when (string-match "\\([<>]\\)=? *\\([0-9]+:[0-9]+\\) *EST" avail)
- (if (string= (match-string 1 avail) ">")
- (list (match-string 2 avail) nil)
- (list nil (match-string 2 avail))))))
+ (unless (string-match "after the event" (or (plist-get o :q-and-a) ""))
+ (let ((avail (or (plist-get o :availability) ""))
+ hours)
+ (when (string-match "\\([<>]\\)=? *\\([0-9]+:[0-9]+\\) *EST" avail)
+ (if (string= (match-string 1 avail) ">")
+ (list (match-string 2 avail) nil)
+ (list nil (match-string 2 avail)))))))
(defvar emacsconf-time-constraints
'(("saturday morning break" "10:00" "11:30")