#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;

my %theme_table;
my %taglist_table;
my %menu_table;

sub buildTables {
    while (<>) { 
        if (/^\s*(theme\.(?:bg|fg|border|font)(?:\_(?:normal|focus|urgent|minimize|marked|width))?)\s*=\s*\"([^"]*)\"\s*$/)
	    { $theme_table{$1} = $2 }
	    if (/^\s*(theme\.taglist\_(?:bg|fg)\_(?:normal|focus|urgent))\s*=\s*\"([^"]*)\"\s*$/)
	    { $taglist_table{$1} = $2 }
	    if (/^\s*(theme\.menu\_(?:bg|fg|border|height|width)(?:\_(?:normal|focus|color|width))?)\s*=\s*\"([^"]*)\"\s*$/)
	    { $menu_table{$1} = $2 }
        }
        #print Dumper \%theme_table;
        #print Dumper \%taglist_table;
        #print Dumper \%menu_table;
}

sub printSettings {
    print "=" x 32, "\n";
    print " AWESOME CONFIGURATION SETTINGS \n";
    print "=" x 32, "\n\n";

    foreach my $table (@_) { 
        foreach my $key (sort keys %$table) { print "    $key => $table->{$key}\n" }  
	    print "\n";
    }
}

buildTables;
printSettings(\%theme_table, \%taglist_table, \%menu_table);