aggregate: If a feed fails to be downloaded, try again immediatly next time aggregati...

[git.ikiwiki.info.git] / IkiWiki / Plugin / color.pm

diff --git a/IkiWiki/Plugin/color.pm b/IkiWiki/Plugin/color.pm
index ac702ff026052e34b780ec380cf3cc048b7443bc..53d8389d231cacafc6320292bd2a6b4fcc1456e8 100644 (file)
--- a/IkiWiki/Plugin/color.pm
+++ b/IkiWiki/Plugin/color.pm
@@ -7,12 +7,12 @@ use warnings;
 use strict;
 use IkiWiki 2.00;
 
 use strict;
 use IkiWiki 2.00;
 

-sub import { #{{{
+sub import {

        hook(type => "preprocess", id => "color", call => \&preprocess);
        hook(type => "format",     id => "color", call => \&format);
        hook(type => "preprocess", id => "color", call => \&preprocess);
        hook(type => "format",     id => "color", call => \&format);

-} #}}}
+}

 
 

-sub preserve_style ($$$) { #{{{
+sub preserve_style ($$$) {

        my $foreground = shift;
        my $background = shift;
        my $text       = shift;
        my $foreground = shift;
        my $background = shift;
        my $text       = shift;


@@ -37,18 +37,18 @@ sub preserve_style ($$$) { #{{{
        
        return $preserved;
 
        
        return $preserved;
 

-} #}}}
+}

 
 

-sub replace_preserved_style ($) { #{{{
+sub replace_preserved_style ($) {

        my $content = shift;
 
        $content =~ s!<span class="color">((color: ([a-z]+|\#[0-9a-f]{3,6})?)?((; )?(background-color: ([a-z]+|\#[0-9a-f]{3,6})?)?)?)</span>!<span class="color" style="$1">!g;
        $content =~ s!<span class="colorend">!!g;
 
        return $content;
        my $content = shift;
 
        $content =~ s!<span class="color">((color: ([a-z]+|\#[0-9a-f]{3,6})?)?((; )?(background-color: ([a-z]+|\#[0-9a-f]{3,6})?)?)?)</span>!<span class="color" style="$1">!g;
        $content =~ s!<span class="colorend">!!g;
 
        return $content;

-} #}}}
+}

 
 

-sub preprocess (@) { #{{{
+sub preprocess (@) {

        my %params = @_;
 
        # Preprocess the text to expand any preprocessor directives
        my %params = @_;
 
        # Preprocess the text to expand any preprocessor directives


@@ -57,13 +57,13 @@ sub preprocess (@) { #{{{
                                IkiWiki::filter($params{page}, $params{destpage}, $params{text}));
 
        return preserve_style($params{foreground}, $params{background}, $params{text});
                                IkiWiki::filter($params{page}, $params{destpage}, $params{text}));
 
        return preserve_style($params{foreground}, $params{background}, $params{text});

-} #}}}
+}

 
 

-sub format (@) { #{{{
+sub format (@) {

        my %params = @_;
 
        $params{content} = replace_preserved_style($params{content});
        return $params{content};        
        my %params = @_;
 
        $params{content} = replace_preserved_style($params{content});
        return $params{content};        

-} #}}}
+}

 
 1
 
 1