web commit by http://smcv.pseudorandom.co.uk/

[git.ikiwiki.info.git] / IkiWiki / Plugin / toggle.pm
diff --git a/IkiWiki/Plugin/toggle.pm b/IkiWiki/Plugin/toggle.pm

index 54c9a0d9a29223e98aecfc6e49f707c7263adfae..284eb8249df031e77f2e1ff1796d19624bbae1cf 100644 (file)
--- a/IkiWiki/Plugin/toggle.pm
+++ b/IkiWiki/Plugin/toggle.pm
@@ -81,17 +81,11 @@ sub preprocess_toggle (@) { #{{{
         my %params=(id => "default", text => "more", @_);
  
         my $id=genid($params{page}, $params{id});
         my %params=(id => "default", text => "more", @_);
  
         my $id=genid($params{page}, $params{id});
-       if (! $params{preview}) {
-               return "<a class=\"toggle\" href=\"#$id\">$params{text}</a>";
-       }
-       else {
-               return "$params{text} ".
-                       gettext("(not toggleable in preview mode)");
-       }
+       return "<a class=\"toggle\" href=\"#$id\">$params{text}</a>";
  } # }}}
  
  sub preprocess_toggleable (@) { #{{{
  } # }}}
  
  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.
  
         # Preprocess the text to expand any preprocessor directives
         # embedded inside it.
@@ -99,23 +93,24 @@ sub preprocess_toggleable (@) { #{{{
                 IkiWiki::filter($params{page}, $params{destpage}, $params{text}));
         
         my $id=genid($params{page}, $params{id});
                 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 <div> with various funky
         # whitespace.
         my ($indent)=$params{text}=~/( +)$/;
         $indent="" unless defined $indent;
  
         # Should really be a postprocessor directive, oh well. Work around
         # markdown's dislike of markdown inside a <div> with various funky
         # whitespace.
         my ($indent)=$params{text}=~/( +)$/;
         $indent="" unless defined $indent;
-       return "<div class=\"toggleable\" id=\"$id\"></div>\n\n$params{text}\n$indent<div class=\"toggleableend\"></div>";
+       return "<div class=\"$class\" id=\"$id\"></div>\n\n$params{text}\n$indent<div class=\"toggleableend\"></div>";
  } # }}}
  
  sub format (@) { #{{{
          my %params=@_;
  
  } # }}}
  
  sub format (@) { #{{{
          my %params=@_;
  
-       if ($params{content}=~s!(<div class="toggleable" id="[^"]+">)</div>!$1!g) {
+       if ($params{content}=~s!(<div class="toggleable(?:-open)?" id="[^"]+">)</div>!$1!g) {
                 $params{content}=~s/<div class="toggleableend">//g;
                 $params{content}=~s/<div class="toggleableend">//g;
-               if (! ($params{content}=~s!^<\/body>!$javascript</body>!m)) {
+               if (! ($params{content}=~s!^<body>!<body>$javascript!m)) {
                         # no </body> tag, probably in preview mode
                         # no </body> tag, probably in preview mode
-                       $params{content}.=$javascript;
+                       $params{content}=$javascript.$params{content};
                 }
         }
         return $params{content};
                 }
         }
         return $params{content};