#!/usr/bin/perl 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 sub import { #{{{ hook(type => "preprocess", id => "toggle", call => \&preprocess_toggle); hook(type => "preprocess", id => "toggleable", call => \&preprocess_toggleable, scan => 1); hook(type => "format", id => "toggle", call => \&format); } # }}} sub preprocess_toggle (@) { #{{{ my %params=(id => "default", text => "more", @_); return "$params{text}"; } # }}} sub preprocess_toggleable (@) { #{{{ my %params=(id => "default", text => "", @_); # 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}); # Should really be a postprocessor directive, oh well. Work around # markdown's dislike of markdown inside a
. return "
\n\n$params{text}
"; } # }}} sub format (@) { #{{{ my %params=@_; if ($params{content}=~s!(
)
!$1!g) { $params{content}=~s/
//g; $params{content}=~s!^<\/body>!$javascript!m; } return $params{content}; } # }}} 1