Le Sun, 10 Jun 2018 19:16:43 +0200,
Danny Milosavljevic <dannym@scratchpost.org> a écrit :

> Hi Julien,
> 
> On Sun, 10 Jun 2018 13:03:09 +0200
> Julien Lepiller <julien@lepiller.eu> wrote:
> 
> > +                ;; FIXME: This should be taken care of by
> > plexus-component-metadata directly  
> 
> Is this possible now?
> 
> > +                (invoke "sh" "-c"
> > +                        (string-append
> > +                          "(cat
> > build/classes/META-INF/plexus/components.t.xml |"
> > +                          "sed -e 's|</component-set>||' -e
> > 's|</components>||' ; "
> > +                          "cat
> > src/main/resources/META-INF/plexus/artifact-handlers.xml |"
> > +                          " sed -e 's|<?xml.*||' -e
> > 's|<component-set>||' -e 's|<components>||'"
> > +                          " -e 's|</component-set>||' -e
> > 's|</components>||'; "
> > +                          "cat
> > src/main/resources/META-INF/plexus/components.xml |"
> > +                          " sed -e 's|<?xml.*||' -e
> > 's|<component-set>||' -e 's|<components>||'"
> > +                          " -e 's|</component-set>||' -e
> > 's|</components>||'; "
> > +                          "cat
> > src/main/resources/META-INF/plexus/default-bindings.xml |"
> > +                          " sed -e 's|<?xml.*||' -e
> > 's|<component-set>||' -e 's|<components>||' )>"
> > +
> > "build/classes/META-INF/plexus/components.xml"))  
> 
> XML isn't really line-based, so using (sxml simple) to merge would be
> more reliable. Error reporting would be better, too.
> 
> https://www.gnu.org/software/guile/manual/html_node/Reading-and-Writing-XML.html#Reading-and-Writing-XML

So I tried to use that, and here is an updated patch. I had troubles
using match (it tried to evaluate the content of the list I wanted to
match with, although that doesn't happen at the REPL), so I used a
sequence of cdr/car instead. Thanks for the hint :)