die "undefined environment '$env'\n" if !defined($environments->{$env});
+ # FIXME: this seems wrong (nested env?)?
return if !$environments->{$env}; # do not track
if ($not) {
}
sub register_blockid {
- my ($filename, $blockid, $env_list) = @_;
+ my ($filename, $blockid, $reftext, $env_list) = @_;
foreach my $e (@$env_list) {
my $fn = $fileinfo->{blockid}->{$e}->{$blockid};
die "blockid '$blockid' already defined in $fn"
if defined($fn);
$fileinfo->{blockid}->{$e}->{$blockid} = $filename;
+ $fileinfo->{reftext}->{$e}->{$blockid} = $reftext
+ if defined($reftext);
}
}
if ($line =~ m/^\[\[(.*)\]\]\s*$/) {
my $blockid = $1;
die "implement me" if $blockid =~m/,/;
- register_blockid($filename, $blockid, $env_stack->[-1]);
+ my $reftext = '';
+ register_blockid($filename, $blockid, $reftext, $env_stack->[-1]);
+ }
+ # fixme: "anchor:"
+ # bibliography anchors
+ if ($line =~ m/\[\[\[([^\]]*)\]\]\]/) {
+ my $blockid = $1;
+ die "implement me" if $blockid =~m/,/;
+ register_blockid($filename, $blockid, "[$blockid]", $env_stack->[-1]);
}
}
}
my $fn = resolve_link_target($e, $blockid_hash->{$blockid});
if ($e eq 'wiki') {
my $title = $fileinfo->{titles}->{$e}->{$fn};
- $title =~ s/\s/_/g;
$title =~ s/\{pve\}/Proxmox VE/g;
+ $title =~ s/\s/_/g;
die "found not title for '$fn' in env '$e'" if !$title;
$fileinfo->{blockid_target}->{$e}->{$blockid} = "link:/wiki/$title#$blockid";
} else {