forked from github/kensanata.oddmuse
(AnchorsRule): Added invisible anchor
definition.
This commit is contained in:
@@ -16,13 +16,15 @@
|
||||
# 59 Temple Place, Suite 330
|
||||
# Boston, MA 02111-1307 USA
|
||||
|
||||
$ModulesDescription .= '<p>$Id: anchors.pl,v 1.8 2004/06/17 01:13:18 as Exp $</p>';
|
||||
$ModulesDescription .= '<p>$Id: anchors.pl,v 1.9 2004/08/06 20:37:57 as Exp $</p>';
|
||||
|
||||
push(@MyRules, \&AnchorsRule);
|
||||
|
||||
sub AnchorsRule {
|
||||
if (m/\G\[\[\#([-a-zA-Z0-9_]+)\]\]/gc) {
|
||||
return $q->a({-href=>"#$1", -class=>'anchor'}, $1);
|
||||
} elsif (m/\G\[\[\:([-a-zA-Z0-9_]+)\]\]/gc) {
|
||||
return $q->a({-name=>"#$1", -class=>'anchor definition'}, $1);
|
||||
}
|
||||
return undef;
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user