Custom show methods for faces and simplecolor

This is just nicer to look at in the REPL

base/strings/faces.jl

@@ -164,6 +164,99 @@ end
     getfield.(Ref(a), fieldnames(Face)) ==
     getfield.(Ref(b), fieldnames(Face))
 
+function show(io::IO, ::MIME"text/plain", color::SimpleColor)
+    skiptype = get(io, :typeinfo, nothing) === SimpleColor
+    skiptype || show(io, SimpleColor)
+    skiptype || print(io, '(')
+    if get(io, :color, false)::Bool
+        print(io, StyledString("■", :face => Face(foreground=color)), ' ')
+    end
+    if color.value isa Symbol
+        print(io, color.value)
+    else # rgb tuple
+        print(io, '#', join(lpad.(string.(values(color.value), base=16), 2, '0')))
+    end
+    skiptype || print(io, ')')
+    nothing
+end
+
+function show(io::IO, ::MIME"text/plain", face::Face)
+    if get(io, :compact, false)::Bool
+        show(io, Face)
+        if get(io, :color, false)::Bool
+            # Could do S"({$face:sample})", but S_str isn't defined yet
+            print(io, StyledString("(sample)", [(2:7, :face => face)]))
+        else
+            print(io, '(')
+            isfirst = true
+            for field in setdiff(fieldnames(Face), (:inherit,))
+                if !isnothing(getfield(face, field))
+                    if isfirst; isfirst = false else print(io, ", ") end
+                    print(io, field, '=')
+                    show(io, getfield(face, field))
+                end
+            end
+            if !isempty(face.inherit)
+                if isfirst; isfirst = false else print(io, ", ") end
+                print(io, "inherit=")
+                show(IOContext(io, :typeinfo => Vector{Symbol}), face.inherit)
+            end
+            print(io, ')')
+        end
+    else
+        show(io, Face)
+        print(io, StyledString(" (sample)", [(3:8, :face => face)]))
+        showcolor(io, color) = show(IOContext(io, :typeinfo => SimpleColor),
+                                    MIME("text/plain"), color)
+        setfields = Pair{Symbol, Any}[]
+        isempty(setfields) || print(io, ":")
+        fieldnamepad = 14
+        for field in (:font, :height, :weight, :slant)
+            if !isnothing(getfield(face, field))
+                print(io, '\n', lpad(String(field), fieldnamepad, ' '), ": ",
+                      getfield(face, field))
+            end
+        end
+        for field in (:foreground, :background)
+            if !isnothing(getfield(face, field))
+                print(io, '\n', lpad(String(field), fieldnamepad, ' '), ": ")
+                showcolor(io, getfield(face, field))
+            end
+        end
+        if !isnothing(face.underline)
+            print(io, '\n', lpad("underline", fieldnamepad, ' '), ": ")
+            if face.underline isa Bool
+                print(io, face.underline)
+            elseif face.underline isa SimpleColor
+                showcolor(io, face.underline)
+            elseif face.underline isa Tuple{Nothing, Symbol}
+                print(io, last(face.underline))
+            elseif face.underline isa Tuple{SimpleColor, Symbol}
+                showcolor(io, first(face.underline))
+                print(io, ", ", last(face.underline))
+            end
+        end
+        for field in (:strikethrough, :inverse)
+            if !isnothing(getfield(face, field))
+                print(io, '\n', lpad(String(field), fieldnamepad, ' '), ": ",
+                      getfield(face, field))
+            end
+        end
+        if !isempty(face.inherit)
+            print(io, '\n', lpad("inherit", fieldnamepad, ' '), ": ")
+            isfirst = true
+            for iface in face.inherit
+                if isfirst; isfirst = false else print(io, ", ") end
+                print(io, iface, '(', StyledString("*", :face => iface), ')')
+            end
+        end
+    end
+end
+
+function show(io::IO, face::Face)
+    show(IOContext(io, :compact => true), MIME("text/plain"), face)
+end
+
 """
 Globally named [`Face`](@ref)s.