use XML::DT;
use Natura;

my $basedir = `pwd`;
chomp($basedir);
$userconf = {
     thesaurus => "$basedir/Natura.the",
     name => "$basedir/nat",
     catalog =>
     [
      {
       file => "$basedir/Natura.catalog",
       type  => {
	 asList => sub{
	   my $file = shift;
	   my $t = `cat $file`;
	   return ($t =~ m{(<entry>.*?</entry>)}gs); 
	 },
	 asRelations => sub{
           my $f=shift;
           my $data = {};
	   while($f =~ m{<rel\s+type=(["'])(.*?)\1>(.*?)</rel>}g)
             { push @{$data->{$2}}, $3; }
           $data; 
	 },
	 asHTML => sub{
	   my $f=shift;
	   Natura::small_entry($f);
	 },
	 asLaTeX => sub{
	   my $f=shift;
	   Natura::asLaTeX($f);
	 },
	 asText => sub{
	   my $f=shift;
	   $f =~ s{</?\w+}{ }g;
	   $f =~ s/(\s*[\n>"'])+\s*/,/g;
	   $f =~ s/\w+=//g;
	   $f =~ s/\s{2,}/ /g;
	   $f
	 },
	},
      }]
    };