import "Data/XML"

mapping relation MapNote Element Element

rule SectionsRule where
    @when
    MapNote ?noteA ?noteB
    ?sectionName <- ["from", "to", "heading", "body"]
    
    @from
    Attribute ?noteA ?sectionName ?text
    
    @to
    Element ?noteB ?sectionName ?el
    TextContent ?el ?text
    
main () = do
    doc = parseString """<note to="Tove" from="Jani" heading="Reminder" body="Don't forget me this weekend!"/>"""

    doc2 = parseString "<note/>"

    transformation OneShotForward where
        MapNote (rootElementOf doc) (rootElementOf doc2)
    
    print $ outputString doc2