Remove tag wrapping from HTML show method

It's an undocumented extension to Base.show, and can be done by the
caller.

Author: tecosaur

src/io.jl

@@ -432,11 +432,9 @@ function htmlstyle(io::IO, face::Face, lastface::Face=getface())
     print(io, "\">")
 end
 
-function Base.show(io::IO, ::MIME"text/html", s::Union{<:AnnotatedString, SubString{<:AnnotatedString}}; wrap::Symbol=:pre)
+function Base.show(io::IO, ::MIME"text/html", s::Union{<:AnnotatedString, SubString{<:AnnotatedString}})
     htmlescape(str) = replace(str, '&' => "&amp;", '<' => "&lt;", '>' => "&gt;")
     buf = IOBuffer() # Avoid potential overhead in repeatadly printing a more complex IO
-    wrap == :none ||
-        print(buf, '<', String(wrap), '>')
     lastface::Face = getface()
     stylestackdepth = 0
     for (str, styles) in eachregion(s)
@@ -459,22 +457,11 @@ function Base.show(io::IO, ::MIME"text/html", s::Union{<:AnnotatedString, SubStr
             htmlstyle(buf, face, lastface)
             stylestackdepth += 1
         end
-        if wrap == :p
-            newpara = false
-            for para in eachsplit(str, "\n\n")
-                newpara && print(buf, "</p>\n<p>")
-                print(buf, htmlescape(para))
-                newpara = true
-            end
-        else
-            print(buf, htmlescape(str))
-        end
+        print(buf, htmlescape(str))
         !isnothing(link) && print(buf, "</a>")
         lastface = face
     end
     print(buf, "</span>" ^ stylestackdepth)
-    wrap == :none ||
-        print(buf, "</", String(wrap), '>')
     write(io, take!(buf))
     nothing
 end

test/runtests.jl

@@ -633,15 +633,15 @@ end
         to provide a {(underline=(red,curly)):full-fledged} textual {(bg=#4063d8,fg=#adbdf8,inherit=[bold,strikethrough]):styling} \
         system, suitable for {inverse:terminal} and graphical displays."
     @test sprint(show, MIME("text/html"), fancy_string[1:27]) ==
-        "<pre>The <span style=\"color: #803d9b;\">`</span><span style=\"color: #25a268;\">StyledStrings</span>\
-        <span style=\"color: #803d9b;\">`</span> package</pre>"
+        "The <span style=\"color: #803d9b;\">`</span><span style=\"color: #25a268;\">StyledStrings</span>\
+        <span style=\"color: #803d9b;\">`</span> package"
     @test sprint(show, MIME("text/html"), fancy_string) ==
-        "<pre>The <span style=\"color: #803d9b;\">`</span><span style=\"color: #25a268;\">StyledStrings</span><span style=\"color: #803d9b;\">\
+        "The <span style=\"color: #803d9b;\">`</span><span style=\"color: #25a268;\">StyledStrings</span><span style=\"color: #803d9b;\">\
         `</span> package <span style=\"font-style: italic;\">builds<span style=\"font-weight: 700;font-style: normal;\"> on top</span></span> \
         of the <span style=\"color: #803d9b;\">`</span><span style=\"color: #25a268;\">AnnotatedString</span><span style=\"color: #803d9b;\">\
         `</span> <a href=\"https://en.wikipedia.org/wiki/Type_system\">type</a> to provide a <span style=\"text-decoration: #a51c2c wavy underline;\">\
         full-fledged</span> textual <span style=\"font-weight: 700;color: #adbdf8;background-color: #4063d8;text-decoration: line-through\">styling</span> \
-        system, suitable for <span style=\"\">terminal</span> and graphical displays.</pre>"
+        system, suitable for <span style=\"\">terminal</span> and graphical displays."
 end
 
 @testset "Legacy" begin