### ----------------------------------------------------
### -- LibXML
### -- Licenses: Artistic-2.0
### -- Authors: David Warring
### -- File: etc/resolve-links.raku
### ----------------------------------------------------
constant DocRoot = "https://libxml-raku.github.io";

multi sub resolve-class(@ ('LibXML', *@path ('Writer', *@)) ) {
    %( :repo<LibXML-Writer-raku>, :@path );
}

multi sub resolve-class(@ ('LibXML', *@path)) {
    %( :repo<LibXML-raku>, :@path );
}

multi sub resolve-class(@ ('W3C', 'DOM', *@)) {
    %( :repo<W3C-DOM-raku>,  )
}

multi sub resolve-class(@ ('LibXSLT', *@p)) {
    my @path;
    with @p.head {
        when 'Stylesheet'|'Security' {
            @path.push: $_;
        }
    }
    %( :repo<LibXSLT-raku>, :@path)
}

multi sub resolve-class(@ ('XML', *@p)) {
    %( :repo<XML>, :url<https://github.com/raku-community-modules/XML>)
}

sub link-to-url(Str() $class-name) {
    my %info = resolve-class($class-name.split('::'));
    %info<url> // do {
        my @path = DocRoot;
        @path.push: %info<repo>;
        @path.append(.list) with %info<path>;
        @path.join: '/';
    }
}

sub breadcrumb(Str $url is copy, @path, UInt $n = +@path, :$top) {
    my $name = $top ?? @path[0 ..^ $n].join('::') !! @path[$n-1];
    $url ~= '/' ~ @path[0 ..^ $n].join('/');
    my $sep = $top ?? '/' !! '::';
    say " $sep [$name]($url)";
}

INIT {
    with %*ENV<TRAIL> {
        # build a simple breadcrumb trail
        my %info = resolve-class(.split('/'));
        my $repo = %info<repo>;
        say "[[Raku LibXML Project]]({%info<url> // DocRoot})";

        my @mod = $repo.split('-');
        @mod.pop if @mod.tail ~~ 'raku';
        my $mod = @mod.join: '-';
        my $url = %info<url> // DocRoot ~ '/' ~ $repo;
        say " / [[$mod Module]]({$url})";

        with %info<path> {
            my @path = .list;
            if @path {
                my $n = @path[0..^+@mod] == @mod ?? 1 !! 2;
                breadcrumb($url, @path, $n, :top);
                breadcrumb($url, @path, $_)
                    for $n ^.. @path;
            }
        }
        say '';
    }
}

s:g:s/ '](' ([W3C|[Lib]?X[ML|SLT]]['::'*%%<ident>]) ')'/{'](' ~ link-to-url($0) ~ ')'}/;


