Make [[!aggregate ... internalize="yes"]] produce internal pages.

The resulting pages simply have extension "._$htmlext" instead of ".$htmlext".

Addresses <http://ikiwiki.info/todo/aggregate_to_internal_pages/>.

diff --git a/IkiWiki/Plugin/aggregate.pm b/IkiWiki/Plugin/aggregate.pm
index b5354a823482e243e3c7d9fdd9ec4a2db6e010eb..bcc8706784f855ab3860e33c145dcc13b8aa301c 100644 (file)
--- a/IkiWiki/Plugin/aggregate.pm
+++ b/IkiWiki/Plugin/aggregate.pm
@@ -175,6 +175,7 @@ sub preprocess (@) { #{{{
                        push @{$feed->{tags}}, $value;
                }
        }
                        push @{$feed->{tags}}, $value;
                }
        }

+       $feed->{internalize} = (exists $params{internalize}) ? IkiWiki::yesno($params{internalize}) : 0;

 
        return "<a href=\"".$feed->{url}."\">".$feed->{name}."</a>: ".
               ($feed->{error} ? "<em>" : "").$feed->{message}.
 
        return "<a href=\"".$feed->{url}."\">".$feed->{name}."</a>: ".
               ($feed->{error} ? "<em>" : "").$feed->{message}.


@@ -271,10 +272,13 @@ sub savestate () { #{{{
 } #}}}
 
 sub garbage_collect () { #{{{
 } #}}}
 
 sub garbage_collect () { #{{{

+       my %was_internal;
+

        foreach my $name (keys %feeds) {
                # remove any feeds that were not seen while building the pages
                # that used to contain them
                if ($feeds{$name}->{unseen}) {
        foreach my $name (keys %feeds) {
                # remove any feeds that were not seen while building the pages
                # that used to contain them
                if ($feeds{$name}->{unseen}) {

+                       $was_internal{$name} = $feeds{$name}->{internalize};

                        delete $feeds{$name};
                }
        }
                        delete $feeds{$name};
                }
        }


@@ -282,13 +286,13 @@ sub garbage_collect () { #{{{
        foreach my $guid (values %guids) {
                # any guid whose feed is gone should be removed
                if (! exists $feeds{$guid->{feed}}) {
        foreach my $guid (values %guids) {
                # any guid whose feed is gone should be removed
                if (! exists $feeds{$guid->{feed}}) {

-                       unlink pagefile($guid->{page})
+                       unlink pagefile($guid->{page}, $was_internal{$guid->{feed}})

                                if exists $guid->{page};
                        delete $guids{$guid->{guid}};
                }
                # handle expired guids
                elsif ($guid->{expired} && exists $guid->{page}) {
                                if exists $guid->{page};
                        delete $guids{$guid->{guid}};
                }
                # handle expired guids
                elsif ($guid->{expired} && exists $guid->{page}) {

-                       unlink pagefile($guid->{page});
+                       unlink pagefile($guid->{page}, $feeds{$guid->{feed}}->{internalize});

                        delete $guid->{page};
                        delete $guid->{md5};
                }
                        delete $guid->{page};
                        delete $guid->{md5};
                }


@@ -482,18 +486,18 @@ sub add_page (@) { #{{{
                }
                my $c="";
                while (exists $IkiWiki::pagecase{lc $page.$c} ||
                }
                my $c="";
                while (exists $IkiWiki::pagecase{lc $page.$c} ||

-                      -e pagefile($page.$c)) {
+                      -e pagefile($page.$c, $feed->{internalize})) {

                        $c++
                }
 
                # Make sure that the file name isn't too long. 
                # NB: This doesn't check for path length limits.
                my $max=POSIX::pathconf($config{srcdir}, &POSIX::_PC_NAME_MAX);
                        $c++
                }
 
                # Make sure that the file name isn't too long. 
                # NB: This doesn't check for path length limits.
                my $max=POSIX::pathconf($config{srcdir}, &POSIX::_PC_NAME_MAX);

-               if (defined $max && length(htmlfn($page)) >= $max) {
+               if (defined $max && length(htmlfn($page, $feed->{internalize})) >= $max) {

                        $c="";
                        $page=$feed->{dir}."/item";
                        while (exists $IkiWiki::pagecase{lc $page.$c} ||
                        $c="";
                        $page=$feed->{dir}."/item";
                        while (exists $IkiWiki::pagecase{lc $page.$c} ||

-                              -e pagefile($page.$c)) {
+                              -e pagefile($page.$c, $feed->{internalize})) {

                                $c++
                        }
                }
                                $c++
                        }
                }


@@ -527,12 +531,12 @@ sub add_page (@) { #{{{
        if (ref $feed->{tags}) {
                $template->param(tags => [map { tag => $_ }, @{$feed->{tags}}]);
        }
        if (ref $feed->{tags}) {
                $template->param(tags => [map { tag => $_ }, @{$feed->{tags}}]);
        }

-       writefile(htmlfn($guid->{page}), $config{srcdir},
+       writefile(htmlfn($guid->{page}, $feed->{internalize}), $config{srcdir},

                $template->output);
 
        # Set the mtime, this lets the build process get the right creation
        # time on record for the new page.
                $template->output);
 
        # Set the mtime, this lets the build process get the right creation
        # time on record for the new page.

-       utime $mtime, $mtime, pagefile($guid->{page})
+       utime $mtime, $mtime, pagefile($guid->{page}, $feed->{internalize})

                if defined $mtime && $mtime <= time;
 } #}}}
 
                if defined $mtime && $mtime <= time;
 } #}}}
 


@@ -588,14 +592,15 @@ sub htmlabs ($$) { #{{{
        return $ret;
 } #}}}
 
        return $ret;
 } #}}}
 

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

        my $page=shift;
        my $page=shift;

+       my $internal=shift;

 
 

-       return "$config{srcdir}/".htmlfn($page);
+       return "$config{srcdir}/".htmlfn($page, $internal);

 } #}}}
 
 } #}}}
 

-sub htmlfn ($) { #{{{
-       return shift().".".$config{htmlext};
+sub htmlfn ($$) { #{{{
+       return shift().".".(shift() ? "_" : "").$config{htmlext};

 } #}}}
 
 my $aggregatelock;
 } #}}}
 
 my $aggregatelock;