Hi all,<div><br></div><div>I use geektool on my Mac to put useful things on my desktop.  (Rainmeter is the equivalent program for windoze.)</div><div>Anyways, I would like have some todo items show up in geektool, but emacs eats cpu, aquamacs doesn&#39;t do --batch stuff well, and I hate wasting cycles.</div>
<div>So I wrote a small perl program that digests every file in my org directory looking for todos.  It runs blindingly fast compared to emacs, and it does what I need it to.</div><div><br></div><div>I&#39;ve included the script at the end of this msg, should anyone else find it interesting.</div>
<div>One should consider changing the values of $orgdir and $re.</div><div>And (maybe) the location of perl.</div><div><meta charset="utf-8"><div>It parses :CATEGORY: properties and prints that out (or the file name if there&#39;s no category) for each task with a keyword matching one in $re.</div>
</div><div>It&#39;s not perfect, I know.  But it does work for me.</div><div><br></div><div>Cheers.</div><div>Fil</div><div><br></div><div><div>#!/usr/bin/perl</div><div><br></div><div>$orgdir = &#39;/Users/fil/Dropbox/org&#39;;</div>
<div>$re = &#39;ACTIVE|REVIEW&#39;;</div><div><br></div><div>@files = ();</div><div>$line = &#39;&#39;;</div><div>$category = &#39;&#39;;</div><div><br></div><div># get files</div><div>opendir D, $orgdir;</div><div>@files = grep { /\.org$/ } readdir(D);</div>
<div>closedir D;</div><div><br></div><div>for my $file (@files) {</div><div>  $category = $file;</div><div>  $category =~ s/\.org$//;</div><div>  open F, &quot;$orgdir/$file&quot;;</div><div>  while ($line = &lt;F&gt;) {</div>
<div>    if ( $line =~ m/:CATEGORY: *(.+)$/ ) { $category = $1; }</div><div>    if ( $line =~ m/^\*+ +($re) +(.+)$/ ) {</div><div>      printf &quot;%-13s: %s\n&quot;, $category, $2;</div><div>    }</div><div>  }</div><div>
  close F;</div><div>}</div><div><br></div><br>-- <br>Filippo A. Salustri, Ph.D., P.Eng.<br>Mechanical and Industrial Engineering<br>Ryerson University<br>350 Victoria St, Toronto, ON<br>M5B 2K3, Canada<br>Tel: 416/979-5000 ext 7749<br>
Fax: 416/979-5265<br>Email: <a href="mailto:salustri@ryerson.ca">salustri@ryerson.ca</a><br><a href="http://deseng.ryerson.ca/~fil/">http://deseng.ryerson.ca/~fil/</a> <br>
</div>