web commit by http://id.inelegant.org/: Make htmllink understand links to specific points in pages.
parent
2d204b0b0b
commit
f6bb3a1cbc
|
@ -0,0 +1,29 @@
|
||||||
|
Here's an attempt to make `htmllink` "do the right thing" with in-page anchors:
|
||||||
|
|
||||||
|
<pre>
|
||||||
|
Index: IkiWiki.pm
|
||||||
|
===================================================================
|
||||||
|
--- IkiWiki.pm (revision 2657)
|
||||||
|
+++ IkiWiki.pm (working copy)
|
||||||
|
@@ -426,6 +426,8 @@
|
||||||
|
my $noimageinline=shift; # don't turn links into inline html images
|
||||||
|
my $forcesubpage=shift; # force a link to a subpage
|
||||||
|
my $linktext=shift; # set to force the link text to something
|
||||||
|
+
|
||||||
|
+ my $anchor = ($link =~ s/#(.+)$// ? $1 : undef);
|
||||||
|
|
||||||
|
my $bestlink;
|
||||||
|
if (! $forcesubpage) {
|
||||||
|
@@ -455,7 +457,10 @@
|
||||||
|
if (! $noimageinline && isinlinableimage($bestlink)) {
|
||||||
|
return "<img src=\"$bestlink\" alt=\"$linktext\" />";
|
||||||
|
}
|
||||||
|
- return "<a href=\"$bestlink\">$linktext</a>";
|
||||||
|
+
|
||||||
|
+ $bestlink .= "#$anchor" if $anchor;
|
||||||
|
+
|
||||||
|
+ return "<a href=\"$bestlink\">$linktext</a>";
|
||||||
|
} #}}}
|
||||||
|
|
||||||
|
sub htmlize ($$$) { #{{{
|
||||||
|
</pre>
|
Loading…
Reference in New Issue