+sub sanitize (@) { #{{{
+ my %params=@_;
+
+ my $tries=10;
+ while (1) {
+ eval {
+ open2(*IN, *OUT, 'tidy -quiet -asxhtml -utf8 --show-body-only yes --show-warnings no --tidy-mark no');
+ };
+ last unless $@;
+ $tries--;
+ if ($tries < 1) {
+ IkiWiki::debug("failed to run tidy: $@");
+ return $params{content};
+ }
+ }