Convert xml to markdown
Examples
cha <- pegboard:::make_div("challenge")
sol <- pegboard:::make_div("solution")
xml2::xml_add_child(cha, xml2::xml_child(sol, 1), .where = 1)
xml2::xml_add_child(cha, xml2::xml_child(sol, 2), .where = 2)
cat(pegboard:::xml_to_md(cha))
#> :::::::::::::::::::::::::::::::::::::::: challenge
#>
#> :::::::::::::::: solution
#>
#> :::::::::::::::::::::::::
#>
#> ::::::::::::::::::::::::::::::::::::::::::::::::::