From 8f11c0ff5b63fed15f6dfbb6f591376578c96c69 Mon Sep 17 00:00:00 2001
From: Hans Dijkema <hans@dijkewijk.nl>
Date: Sun, 10 Aug 2025 00:46:47 +0200
Subject: [PATCH] ok

---
 scribblings/ellipsis-msg.scrbl | 16 ++++++++++++----
 1 file changed, 12 insertions(+), 4 deletions(-)

diff --git a/scribblings/ellipsis-msg.scrbl b/scribblings/ellipsis-msg.scrbl
index 9336aa2..fa5956f 100644
--- a/scribblings/ellipsis-msg.scrbl
+++ b/scribblings/ellipsis-msg.scrbl
@@ -3,6 +3,7 @@
 @(require
    scribble/example
    scribble/core
+   scribble/html-properties
    (for-label ;racket
               ;racket/base
               ;racket/string
@@ -13,9 +14,16 @@
    ;scribble/html/extra
   @(for-label ellipsis-msg))
 
-@(define(exact . items)
-  (make-element (make-style "identity" '(exact-chars))
-                items))
+
+@(define(add-video video)
+   (make-element
+    (make-style #f
+                (list
+                 (make-alt-tag "video")
+                 (make-attributes (list (cons 'src video)))
+                 )
+                )
+    null))
 
 @title[#:tag "ellipsis-msg"]{A message% with ellipsis (...) to the left or right}
 
@@ -59,7 +67,7 @@ See also @racket[message%].
 
 The code underneath produces the following output:
 
-@exact{(<video src="scribblings/example.mp4"></video>)}
+@add-video{scribblings/example.mp4}
 
 @#reader scribble/comment-reader 
 [racketblock