X-Git-Url: http://git.vanrenterghem.biz/git.ikiwiki.info.git/blobdiff_plain/4a40b5f9d56e4a36112af0007f52357761a5b3fb..fdc7974b2ac995b4ff12dfa208741189ff4bd274:/IkiWiki/Plugin/toggle.pm diff --git a/IkiWiki/Plugin/toggle.pm b/IkiWiki/Plugin/toggle.pm index 92a89bd79..657d8d3c2 100644 --- a/IkiWiki/Plugin/toggle.pm +++ b/IkiWiki/Plugin/toggle.pm @@ -3,65 +3,26 @@ package IkiWiki::Plugin::toggle; use warnings; use strict; -use IkiWiki; - -# Here's the javascript that makes this possible. A key feature is the use -# of css to hide toggleables, to avoid any flashing on page load. The css -# is only emitted after the javascript tests that it's going to be able to -# show the toggleables. -my $javascript=<<'EOF'; - -EOF +use IkiWiki 2.00; sub import { #{{{ + add_underlay("javascript"); + hook(type => "getsetup", id => "toggle", call => \&getsetup); hook(type => "preprocess", id => "toggle", call => \&preprocess_toggle); hook(type => "preprocess", id => "toggleable", - call => \&preprocess_toggleable, scan => 1); + call => \&preprocess_toggleable); hook(type => "format", id => "toggle", call => \&format); } # }}} +sub getsetup () { #{{{ + return + plugin => { + safe => 1, + rebuild => undef, + }, +} #}}} + sub genid ($$) { #{{{ my $page=shift; my $id=shift; @@ -84,28 +45,45 @@ sub preprocess_toggle (@) { #{{{ } # }}} sub preprocess_toggleable (@) { #{{{ - my %params=(id => "default", text => "", @_); + my %params=(id => "default", text => "", open => "no", @_); # Preprocess the text to expand any preprocessor directives - # embedded inside it. This is why scan is set for this preprocessor - # directive, since it could expand to something with a link in it. - $params{text}=IkiWiki::preprocess($params{page}, $params{destpage}, $params{text}); + # embedded inside it. + $params{text}=IkiWiki::preprocess($params{page}, $params{destpage}, + IkiWiki::filter($params{page}, $params{destpage}, $params{text})); my $id=genid($params{page}, $params{id}); + my $class=(lc($params{open}) ne "yes") ? "toggleable" : "toggleable-open"; # Should really be a postprocessor directive, oh well. Work around - # markdown's dislike of markdown inside a

. - return "

\n\n$params{text}\n

"; + # markdown's dislike of markdown inside a

with various funky + # whitespace. + my ($indent)=$params{text}=~/( +)$/; + $indent="" unless defined $indent; + return "

\n\n$params{text}\n$indent

"; } # }}} sub format (@) { #{{{ my %params=@_; - if ($params{content}=~s!(

)

!$1!g) { + if ($params{content}=~s!(

\s*)

!$1!g) { $params{content}=~s/

//g; - $params{content}=~s!^<\/body>!$javascript!m; + if (! ($params{content}=~s!^()!$1.include_javascript($params{page})!em)) { + # no tag, probably in preview mode + $params{content}=include_javascript($params{page}, 1).$params{content}; + } } return $params{content}; } # }}} +sub include_javascript ($;$) { #{{{ + my $page=shift; + my $absolute=shift; + + return ''."\n". + ''; +} #}}} + 1