use v6.d;
use Cro::HTTP::Client;
use Cro::Uri::HTTP;
use Cro::BodyParser::VlcXML;
use XML;

multi sub maybe-bool('true') { True }
multi sub maybe-bool('false') { False }
multi sub maybe-bool($x) { $x }

sub xml-to-hash(XML::Element $elem) {
    if $elem.elements() -> @children {
        return %( @children.map: { .name => xml-to-hash($_) } )
    }

    return maybe-bool($elem.contents().join('').trim)
}

class Vlc::Client {
    has Cro::HTTP::Client $!vlc;
    has Str $.password is required;
    has Str $.base-uri = 'http://127.0.0.1:8080/requests/';
    has IO::Path() $.mrl-root = '/';
    
    method !call-vlc(Str:D $path, *%args) {
        $!vlc ||= Cro::HTTP::Client.new(
            auth => { :username(), :password(self.password) },
            add-body-parsers => [ Cro::BodyParser::VlcXML ],
        );

        state Cro::Uri::HTTP $base-uri .= parse(self.base-uri);

        return $!vlc.get(
            $base-uri.add($path).add-query(|%args),
        );
    }

    method command(Str:D $command, *%args) {
        return self!call-vlc('status.xml', :$command, |%args);
    }

    method play-file(Str:D :$path!, Str:D :$name!) {
        return self.command(
            'in_play',
            input => self.mrl-root.child($path).child($name),
        );
    }

    method status() {
        my $res = await self!call-vlc('status.xml');
        my XML::Document $status = await $res.body;
        return Promise.kept(xml-to-hash($status.root));
    }

    method playlist() {
        my $res = await self!call-vlc('playlist.xml');
        my XML::Document $playlist = await $res.body;
        my @playlist-items = $playlist.elements()
        .grep(*.attribs<name> eq 'Playlist').first
        .elements().map(
            -> $leaf {
                %(
                    $leaf.attribs<name id duration uri>:p.Slip,
                    current => $leaf.attribs<current>:exists,
                )
            },
        );
        return Promise.kept(@playlist-items);
    }
}