use strict;
use warnings;
use Smart::Comments;
use lib 'tools';
require 'utils.pl';
use File::Spec;
use File::Path;

sub main {
    my $arg = shift;

    my $rel   = File::Spec->abs2rel($arg, $ENV{HOME});
    my $abs   = File::Spec->rel2abs($rel, $ENV{HOME});
    my $saved = rel2saved($rel);

    system('diff', '-u', $abs, $saved);
}

main($ARGV[0] // die);