diff options
author | Joey Hess <joey@kodama.kitenet.net> | 2008-09-27 14:14:36 -0400 |
---|---|---|
committer | Joey Hess <joey@kodama.kitenet.net> | 2008-09-27 14:27:42 -0400 |
commit | 9ec9d6901d444af48555abf7b4c26d1965c46017 (patch) | |
tree | 3139a86f4dcffaea5d90c6120b8b1d25edbc07e6 /IkiWiki/Plugin/link.pm | |
parent | bfab23ce33c86f03bff6fb5c36f7bf082fe2cbcf (diff) | |
download | ikiwiki-9ec9d6901d444af48555abf7b4c26d1965c46017.tar ikiwiki-9ec9d6901d444af48555abf7b4c26d1965c46017.tar.gz |
Export pagetitle, titlepage, linkpage.
Diffstat (limited to 'IkiWiki/Plugin/link.pm')
-rw-r--r-- | IkiWiki/Plugin/link.pm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/IkiWiki/Plugin/link.pm b/IkiWiki/Plugin/link.pm index 957355643..0638d4bdd 100644 --- a/IkiWiki/Plugin/link.pm +++ b/IkiWiki/Plugin/link.pm @@ -69,11 +69,11 @@ sub linkify (@) { #{{{ defined $2 ? ( $1 ? "[[$2|$3".($4 ? "#$4" : "")."]]" - : htmllink($page, $destpage, IkiWiki::linkpage($3), - anchor => $4, linktext => IkiWiki::pagetitle($2))) + : htmllink($page, $destpage, linkpage($3), + anchor => $4, linktext => pagetitle($2))) : ( $1 ? "[[$3".($4 ? "#$4" : "")."]]" - : htmllink($page, $destpage, IkiWiki::linkpage($3), + : htmllink($page, $destpage, linkpage($3), anchor => $4)) }eg; @@ -86,7 +86,7 @@ sub scan (@) { #{{{ my $content=$params{content}; while ($content =~ /(?<!\\)$link_regexp/g) { - push @{$links{$page}}, IkiWiki::linkpage($2); + push @{$links{$page}}, linkpage($2); } } # }}} @@ -99,8 +99,8 @@ sub renamepage (@) { #{{{ $params{content} =~ s{(?<!\\)$link_regexp}{ my $linktext=$2; my $link=$linktext; - if (bestlink($page, IkiWiki::linkpage($linktext)) eq $old) { - $link=IkiWiki::pagetitle($new, 1); + if (bestlink($page, linkpage($linktext)) eq $old) { + $link=pagetitle($new, 1); $link=~s/ /_/g; if ($linktext =~ m/.*\/*?[A-Z]/) { # preserve leading cap of last component |