#!/usr/bin/perl
# This plugin adds a "Diff" button to the page edit form.
package IkiWiki::Plugin::editdiff;

use warnings;
use strict;
use IkiWiki 2.00;
use HTML::Entities;
use IPC::Open2;

sub import { #{{{
    hook(type => "formbuilder_setup", id => "editdiff",
        call => \&formbuilder_setup);
} #}}}

sub diff ($$) { #{{{
    my $orig=shift;
    my $content=shift;

    my $sigpipe=0;
    $SIG{PIPE} = sub { $sigpipe=1; };

    my $pid = open2(*DIFFOUT, *DIFFIN, 'diff', '-u', $orig, '-');
    binmode($_, ':utf8') foreach (*DIFFIN, *DIFFOUT);

    print DIFFIN $content;
    close DIFFIN;