Mercurial > org-tools
comparison auto-weave.pl @ 16:f433fae15c50
made auto-weave work on all projects
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Wed, 02 Nov 2011 05:01:57 -0700 |
parents | 6ef9ccf7a17e |
children | 6da973a6b93d |
comparison
equal
deleted
inserted
replaced
15:6ef9ccf7a17e | 16:f433fae15c50 |
---|---|
5 my $mech = WWW::Mechanize::Firefox->new(); | 5 my $mech = WWW::Mechanize::Firefox->new(); |
6 | 6 |
7 my $inotify = new Linux::Inotify2 | 7 my $inotify = new Linux::Inotify2 |
8 or die "unable to create new inotify object: $!"; | 8 or die "unable to create new inotify object: $!"; |
9 | 9 |
10 @org_files = glob("./org/*.org"); | |
11 | 10 |
12 $" = "\n"; | 11 $org_files = `find /home/r/proj -name "*.org" -print0`; |
13 print "@org_files\n"; | 12 @org_files = split /\0/, $org_files; |
14 | 13 |
14 #@org_files = glob("./org/*.org"); | |
15 | |
16 for $file(@org_files){print "$file\n";} | |
15 $ignore_next = 0; | 17 $ignore_next = 0; |
16 | 18 |
17 | 19 |
18 foreach(@org_files){ | 20 foreach(@org_files){ |
19 # add watchers | 21 # add watchers |