Index: code-docs/pollen.scrbl
==================================================================
--- code-docs/pollen.scrbl
+++ code-docs/pollen.scrbl
@@ -249,10 +249,17 @@
 If the first element in an article is a @racket[verse] tag with the @racket[#:title] attribute
 specified, that title is used as the article’s title if the normal @racket[title] tag is absent.
 
 To cite a source, use @racket[attrib] immediately afterward.
 
+}
+
+@defproc[(magick [element xexpr?] ...) txexpr?]{
+
+Typeset contents using historical ligatures and the “long s” conventions of 17th-century English
+books.
+
 }
 
 @defproc[(blockquote [element xexpr?] ...) txexpr?]{
 
 Surrounds a block quotation. To cite a source, use @racket[attrib] immediately afterward.

Index: pollen.rkt
==================================================================
--- pollen.rkt
+++ pollen.rkt
@@ -100,10 +100,11 @@
 (poly-branch-tag subsection)
 (poly-branch-tag code)
 (poly-branch-tag dialogue)
 (poly-branch-tag say)
 (poly-branch-tag saylines)
+(poly-branch-tag magick)  ; Extra-fancy ligatures, “long s”
 (poly-branch-kwargs-tag index)
 (poly-branch-tag figure)
 (poly-branch-tag figure-@2x)
 (poly-branch-tag image-link)
 (poly-branch-kwargs-tag blockcode)

Index: tags-html.rkt
==================================================================
--- tags-html.rkt
+++ tags-html.rkt
@@ -71,10 +71,11 @@
          html-figure-@2x
          html-image-link
          html-dialogue
          html-say
          html-saylines
+         html-magick
          html-verse
          html-attrib
          html-link
          html-xref
          html-url
@@ -141,10 +142,33 @@
                           [else '([class "verse"])])]
          [pre-title (cond [(string>? title "") `(p [[class "verse-heading"]] ,title)]
                           [else ""])])
     `(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 "ſ")))))
+
+(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
+  (check-equal? (html-magick "offset, satisfaction") '(div [[class "antique"]] "offset, ſatisfaction"))
+  ; long s before hyphen
+  (check-equal? (html-magick "Shafts-bury") '(div [[class "antique"]] "Shaftſ-bury"))
+  ; round s before k or b (17th-century rules)
+  (check-equal? (html-magick "ask, husband") '(div [[class "antique"]] "ask, husband"))
+  ; 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"))))
+   '(div [[class "antique"]] (root "This is " (a [[href "class"]] (b "ſong, ſubſtitutes"))))))
+
 (define html-attrib (default-tag-function 'div #:class "attrib"))
 
 ;; (Private) Get the dimensions of an image file
 (define (get-image-size filepath)
   (define bmp (make-object bitmap% filepath))