die "undefined environment '$env'\n" if !defined($environments->{$env});
+ # FIXME: this seems wrong (nested env?)?
return if !$environments->{$env}; # do not track
if ($not) {
die "implement me" if $blockid =~m/,/;
register_blockid($filename, $blockid, $env_stack->[-1]);
}
+ # fixme: "anchor:"
+ # bibliography anchors
+ if ($line =~ m/\[\[\[([^\]]*)\]\]\]/) {
+ my $blockid = $1;
+ die "implement me" if $blockid =~m/,/;
+ register_blockid($filename, $blockid, $env_stack->[-1]);
+ }
}
}