package WebGUI::Help::Macros;

use WebGUI::Session;

our $HELP = {

        'macros using' => {
		title => 'macros using title',
		body => 'macros using body',
		fields => [
		],
		related => [
                        {
                                tag => "macros list",
                                namespace => "Macros",
                        },
                ],
        },

        'macros list' => {
		title => 'macros list title',
		body => 'macros list body',
		fields => [
		],
		related => [ 
                             sort { $a->{tag} cmp $b->{tag} }
                             map {
                                 $tag = $_;
                                 $tag =~ s/^[a-zA-Z]+_//;           #Remove initial shortcuts
				 $tag =~ s/([A-Z]+(?![a-z]))/$1 /g; #Separate acronyms
				 $tag =~ s/([a-z])([A-Z])/$1 $2/g;  #Separate studly caps
				 $tag = lc $tag;
				 $namespace = join '', 'Macro_', $_;
				 { tag => $tag,
				   namespace => $namespace }
			     }
		             values %{ $session{config}{macros} }
			   ],
        },

};

1;