--- nfo/perl/libs/Data/Rap.pm	2003/03/29 07:08:56	1.6
+++ nfo/perl/libs/Data/Rap.pm	2003/05/13 05:52:58	1.7
@@ -1,7 +1,10 @@
 ## -------------------------------------------------------------------------
-##  $Id: Rap.pm,v 1.6 2003/03/29 07:08:56 joko Exp $
+##  $Id: Rap.pm,v 1.7 2003/05/13 05:52:58 joko Exp $
 ## -------------------------------------------------------------------------
 ##  $Log: Rap.pm,v $
+##  Revision 1.7  2003/05/13 05:52:58  joko
+##  minor update: modified description printing logic
+##
 ##  Revision 1.6  2003/03/29 07:08:56  joko
 ##  rap goes global:
 ##    + distinguish between running in global- or project-mode
@@ -218,6 +221,10 @@
 use File::Spec::Functions qw( splitpath splitdir catpath catdir );
 
 
+# a package global topic registry
+our $registry;
+
+
 sub constructor {
   my $self = shift;
   
@@ -251,9 +258,26 @@
   } else {
     my $meta_raw = $self->getTargetList();
 
+    my $maxlength = 0;
+    map { 
+      my $len = length($_->{name});
+      $maxlength = $len if $len > $maxlength;
+    } @$meta_raw;
+
+    my $program = splitpath($0);
     foreach my $entry (@$meta_raw) {
-      print "  - rap.pl $entry->{name}", "\n";
-      print $entry->{description}, "\n" if $entry->{description};
+      my $len = length($entry->{name});
+      #$len = ((1 / ($len / 8)) * 1.9);
+      #$len = ((1 / ($maxlength - $len / 8)) * 1.9);
+      $len = $maxlength - $len + 5;
+      #print "len: $len", "\n";
+      # one line per target
+      print "$program $entry->{name}", " " x $len;
+      print $entry->{description} if $entry->{description};
+      print "\n";
+      # more lines per target
+      #print "$program $entry->{name}", "\n";
+      #print "   ", $entry->{description}, "\n" if $entry->{description};
     }
 
     return;