Mercurial > org-tools

     1 #!/usr/bin/perl

     2 

     3 use Linux::Inotify2;

     4 use AnyEvent;

     5 

     6 

     7 my $inotify = new Linux::Inotify2

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

     9 

    10 

    11 @org_files =  glob("./org/*.org");

    12 

    13 $" = "\n";

    14 print "@org_files";

    15 

    16 

    17 foreach(@org_files){

    18 # add watchers

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

    20 {

    21   my $e = shift;

    22   my $name = $e->fullname;

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

    24   `weave $name`;

    25 });

    26 

    27 

    28 

    29 

    30 }

    31 

    32 

    33 

    34 

    35 # integration into AnyEvent (works with EV, Glib, Tk, POE...)

    36 my $inotify_w = AnyEvent->io 

    37   (

    38    fh => $inotify->fileno, poll => 'r', cb => sub { $inotify->poll }

    39   );

    40 

    41  # manual event loop

    42 1 while $inotify->poll;
author	Robert McIntyre <rlm@mit.edu>
date	Mon, 24 Oct 2011 09:41:38 -0700
parents	5370428e673e
children	73beed20f7de