Only unlink excess recentchanges from srcdir if not in transientdir

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

diff --git a/IkiWiki/Plugin/transient.pm b/IkiWiki/Plugin/transient.pm
index 5764467ab0092827651f65b0485a96862e82c4ed..c482b8552f78efbe218b71de14bf21cf97a6cd2c 100644 (file)
--- a/IkiWiki/Plugin/transient.pm
+++ b/IkiWiki/Plugin/transient.pm
@@ -8,6 +8,7 @@ use IkiWiki 3.00;
 sub import {
        hook(type => "getsetup", id => "transient",  call => \&getsetup);
        hook(type => "checkconfig", id => "transient", call => \&checkconfig);
 sub import {
        hook(type => "getsetup", id => "transient",  call => \&getsetup);
        hook(type => "checkconfig", id => "transient", call => \&checkconfig);

+       hook(type => "change", id => "transient", call => \&change);

 }
 
 sub getsetup () {
 }
 
 sub getsetup () {


@@ -30,4 +31,19 @@ sub checkconfig () {
        add_underlay($transientdir);
 }
 
        add_underlay($transientdir);
 }
 

+sub change (@) {
+       foreach my $file (@_) {
+               # If the corresponding file exists in the transient underlay
+               # and isn't actually being used, we can get rid of it.
+               # Assume that the file that just changed has the same extension
+               # as the obsolete transient version: this'll be true for web
+               # edits, and avoids invoking File::Find.
+               my $casualty = "$transientdir/$file";
+               if (srcfile($file) ne $casualty && -e $casualty) {
+                       debug(sprintf(gettext("removing transient version of %s"), $file));
+                       IkiWiki::prune($casualty);
+               }
+       }
+}
+

 1;
 1;