#!/usr/bin/perl

 

 use Linux::Inotify2;

 

 my $inotify = new Linux::Inotify2

   or die "unable to create new inotify object: $!";

 

 $org_files = `find /home/r/proj -name "*.org" -print0`;

 @org_files = split /\0/, $org_files;

 

 for $file(@org_files){print "$file\n";}

 $ignore_next = 0;

 

 

 foreach(@org_files){

 # add watchers

 $inotify->watch ($_, IN_MODIFY, sub 

 {

     print ("IGNORE : $ignore_next\n");

     # ok, for some reason this gets called exactly 

     # twice every time the file is saved from emacs.

     # so ignore every other invocation.

     if ($ignore_next) {

     	$ignore_next = 0;

     	return;

     }

     $ignore_next = 1;

 

     my $e = shift;

     my $name = $e->fullname;

     print "$name was modified\n" if $e->IN_MODIFY;

     system "weave $name &";

 

 });

 }

 

 # manual event loop

 1 while $inotify->poll;