diff options
| -rw-r--r-- | doc/patchqueue/htmllink-anchors.mdwn | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/doc/patchqueue/htmllink-anchors.mdwn b/doc/patchqueue/htmllink-anchors.mdwn new file mode 100644 index 000000000..2bb203f51 --- /dev/null +++ b/doc/patchqueue/htmllink-anchors.mdwn @@ -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>
\ No newline at end of file |