README source link; note on GitHubPreview missing styles

src/printbox-md/README.md

@@ -1,5 +1,7 @@
 # PrintBox-md: a Markdown backend for PrintBox
 
+[This file was generated by the readme executable.](readme.ml)
+
 ## Coverage of Markdown and `PrintBox` constructions
 
 ### Single-line and multiline text
@@ -106,8 +108,8 @@ to separate the entries (here with style \`Line_break).
   - <div><div style="border:thin solid"><div class="">to fallback on</div></div></div>
 
 
-  - HTML.
-- Although it probably won't be perfect.
+  - HTML -- but it doesn't work on GitHub Preview.
+- (GitHub ignores styles on \<div\> and \<span\> tags.)
 
 ### Trees
 

src/printbox-md/readme.ml

@@ -4,8 +4,13 @@ module B = PrintBox
 module MD = PrintBox_md
 
 let () = print_endline {|# PrintBox-md: a Markdown backend for PrintBox
+|}
+
+let () = print_endline MD.(to_string Config.default
+  @@ B.link ~uri:"readme.ml"
+  @@ B.line "This file was generated by the readme executable.")
 
-## Coverage of Markdown and `PrintBox` constructions
+let () = print_endline {|## Coverage of Markdown and `PrintBox` constructions
 
 ### Single-line and multiline text
 |}
@@ -124,8 +129,8 @@ let () =
       vlist ~bars:false [
         line "when tables are configured";
         frame @@ line "to fallback on";
-        line "HTML."];
-      line "Although it probably won't be perfect."
+        line "HTML -- but it doesn't work on GitHub Preview."];
+      line "(GitHub ignores styles on <div> and <span> tags.)"
   ]))
 
 let () = print_endline {|### Trees