Implement eval-able AnnotatedString 2-arg show

[tecosaur]

Resolves #54193, which see.

More details in the commit message 🙂

[LilithHafner]

Should also define the 3-arg method to keep using the AbstractString method

julia> @eval Base function show(io::IO, s::A) where {A <: AnnotatedString}
           show(io, A)
           print(io, '(')
           show(io, s.string)
           print(io, ", ")
           show(IOContext(io, :typeinfo => typeof(annotations(s))), annotations(s))
           print(io, ')')
       end
show (generic function with 319 methods)

julia> using StyledStrings

julia> styled"{red:hi}"
Base.AnnotatedString{String}("hi", [(1:2, :face => :red)])

julia> @eval Base show(io::IO, ::MIME"text/plain", s::A) where {A <: AnnotatedString} = invoke(show, Tuple{IO, AbstractString}, io, s)
show (generic function with 320 methods)

julia> styled"{red:hi}"
"hi" # this is red

julia> @test ans == "hi"
Test Failed at REPL[13]:1
  Expression: ans == "hi"
   Evaluated: Base.AnnotatedString{String}("hi", [(1:2, :face => :red)]) == "hi"

ERROR: There was an error during testing

[tecosaur]

Ah yep, thanks for catching that.

[tecosaur]

Thanks for giving this a look so quickly 😍

[tecosaur]

Ah, I see the test introduced here will have to be adjusted in #54289.