diff options
| author | Sacha Chua <sacha@sachachua.com> | 2024-11-02 11:32:13 -0400 |
|---|---|---|
| committer | Sacha Chua <sacha@sachachua.com> | 2024-11-02 11:32:13 -0400 |
| commit | f38df13ec325115ab443032a34de9613d7f0dd2c (patch) | |
| tree | 9023b3b411b94c8aaf77a4fb548510c63ed30e9c | |
| parent | 50383db111e185c0233e5b895f5e7f39795e49e0 (diff) | |
| download | emacsconf-el-f38df13ec325115ab443032a34de9613d7f0dd2c.tar.xz emacsconf-el-f38df13ec325115ab443032a34de9613d7f0dd2c.zip | |
Handle intros where pronouns are not specified; add line breaks
| -rw-r--r-- | emacsconf-pad.el | 26 |
1 files changed, 15 insertions, 11 deletions
diff --git a/emacsconf-pad.el b/emacsconf-pad.el index 8f1e422..7cd5a8f 100644 --- a/emacsconf-pad.el +++ b/emacsconf-pad.el @@ -729,10 +729,10 @@ ${bbb-checklist}</li>") (let ((pronoun (pcase (plist-get talk :pronouns) ((rx "she") "She") ((rx "\"ou\"" "Ou")) - ((or 'nil "nil") "They") + ((or 'nil "nil") nil) ((or (rx string-start "he") (rx "him")) "He") ((rx "they") "They") - (_ (or (plist-get talk :pronouns) ""))))) + (_ (plist-get talk :pronouns))))) (format "Next, we have \"%s\",\nby %s%s.%s" (plist-get talk :title) (replace-regexp-in-string ", \\([^,]+\\)$" @@ -743,17 +743,21 @@ ${bbb-checklist}</li>") ((or 'nil "") "") ((rx "after") "\nYou can ask questions via Etherpad and IRC.\nWe'll send them to the speaker,\nand we'll post the answers on the talk page afterwards.") ((rx "live") - (format "\n%s will answer questions via BigBlueButton.\nYou can join using the URL from the talk page\nor ask questions through Etherpad or IRC." - pronoun - )) + (if pronoun + (format "\n%s will answer questions via web conference.\nYou can join using the URL from the talk page\nor ask questions through Etherpad or IRC." + pronoun) + "\nYou can ask questions via web conference by joining from the talk page\nor ask questions through Etherpad or IRC.")) ((rx "pad") - (format "\n%s will answer questions via Etherpad." - pronoun - )) + (if pronoun + (format "\n%s will answer questions via Etherpad." pronoun) + "\nYou can ask questions via Etherpad.")) ((rx "IRC") - (format "\n%s will answer questions via IRC in the #%s channel." - pronoun - (plist-get talk :channel))))))))) + (if pronoun + (format "\n%s will answer questions via IRC in the #%s channel." + pronoun + (plist-get talk :channel)) + (format "\nYou can ask questions via IRC in the #%s channel." + (plist-get talk :channel)))))))))) ;; Related: emacsconf-talk-hyperlist (defun emacsconf-pad-talk-hyperlist (talk &optional do-insert) |