Index: tags-html.rkt
==================================================================
--- tags-html.rkt
+++ tags-html.rkt
@@ -147,23 +147,26 @@
     `(div [[class "poem"]] ,pre-title (pre ,pre-attrs ,@elems))))
 
 (define (html-magick . elems)
   (txexpr
    'div '([class "antique"])
-   (decode-elements elems #:string-proc (λ (s) (regexp-replace* #px"(?<!f)s(?![fkb\\s]|$)" s "ſ")))))
+   (decode-elements
+    elems
+    #:string-proc
+    (λ (s) (regexp-replace* #px"(?<!f)s(?![fkb\\s”,;.’:\\!\\?]|$)" s "ſ")))))
 
 (module+ test
   (require rackunit)
-  ; round s at the end of a word
-  (check-equal? (html-magick "is") '(div [[class "antique"]] "is"))
-  ; round s before/after f
+  ; always round s at the end of a word
+  (check-equal? (html-magick "mirrors? yes, it is") '(div [[class "antique"]] "mirrors? yes, it is"))
+  ; always round s before/after f
   (check-equal? (html-magick "offset, satisfaction") '(div [[class "antique"]] "offset, ſatisfaction"))
-  ; long s before hyphen
+  ; always LONG s before hyphen
   (check-equal? (html-magick "Shafts-bury") '(div [[class "antique"]] "Shaftſ-bury"))
-  ; round s before k or b (17th-century rules)
+  ; always round s before k or b (17th-century rules)
   (check-equal? (html-magick "ask, husband") '(div [[class "antique"]] "ask, husband"))
-  ; long s everywhere else
+  ; always LONG s everywhere else
   (check-equal? (html-magick "song, substitutes") '(div [[class "antique"]] "ſong, ſubſtitutes")) 
 
   ;; Nested elements
   (check-equal?
    (html-magick '(root "This is " (a [[href "class"]] (b "song, substitutes"))))