From d743f76bd61599169aed2785bfc9d0598f99162f Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Mon, 26 Aug 2019 16:27:48 -0700
Subject: [PATCH] never surrender

---
 pollen/private/ts.rktd         | 2 +-
 pollen/unstable/typography.rkt | 4 ++++
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/pollen/private/ts.rktd b/pollen/private/ts.rktd
index 304d42d..7aa63a0 100644
--- a/pollen/private/ts.rktd
+++ b/pollen/private/ts.rktd
@@ -1 +1 @@
-1566501806
+1566862068
diff --git a/pollen/unstable/typography.rkt b/pollen/unstable/typography.rkt
index 549325d..2ee6f19 100644
--- a/pollen/unstable/typography.rkt
+++ b/pollen/unstable/typography.rkt
@@ -28,6 +28,8 @@
  (define tricky-string "\"Why,\" she could've asked, \"are we in O‘ahu watching 'Mame'?\"")
  (check-equal? (smart-quotes tricky-string) 
                "“Why,” she could’ve asked, “are we in O‘ahu watching ‘Mame’?”")
+ (check-equal? (smart-quotes "\"what's in it for me?\",")
+               "“what’s in it for me?”,")
  (check-equal? (smart-quotes tricky-string
                              #:apostrophe "zing"
                              #:double-open "«" #:double-close "»"
@@ -53,8 +55,10 @@
 
   (define quotes
     `((#px"(?<=\\w)'(?=\\w)" ,apostrophe-str) ; apostrophe
+      (#px"(?<!\\w)'(?=[,.:;?!])" ,single-close-str) ; sentence ender on outside exceptions
       (#px"(?<!\\w)'(?=\\S)" ,single-open-str) ; single_at_beginning
       (#px"(?<=\\S)'(?!\\w)" ,single-close-str) ; single_at_end
+      (#px"(?<!\\w)\"(?=[,.:;?!])" ,double-close-str) ; sentence ender on outside exceptions
       (#px"(?<!\\w)\"(?=\\S)" ,double-open-str) ; double_at_beginning
       (#px"(?<=\\S)\"(?!\\w)" ,double-close-str))) ; double_at_end