You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
93 lines
1.8 KiB
93 lines
1.8 KiB
#!/usr/bin/perl
|
|
|
|
package Display::HTML;
|
|
|
|
use strict;
|
|
use warnings;
|
|
no warnings 'uninitialized';
|
|
|
|
use Exporter;
|
|
our @ISA = qw(Exporter);
|
|
|
|
our %EXPORT_TAGS = ( 'all' => [ qw(a div p em small strong table
|
|
table_row table_cell entry_markup
|
|
heading) ],
|
|
|
|
'highlevel' => [ qw(a p em small strong table
|
|
table_row table_cell
|
|
entry_markup heading) ] );
|
|
|
|
our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
|
|
our @EXPORT = qw( );
|
|
|
|
# Generate subs for these:
|
|
my %tags = (
|
|
p => \&tag,
|
|
em => \&tag,
|
|
small => \&tag,
|
|
strong => \&tag,
|
|
table => \&tag,
|
|
tr => \&tag,
|
|
td => \&tag,
|
|
a => \&tag,
|
|
div => \&tag,
|
|
);
|
|
|
|
# ...but map these tags to different sub names:
|
|
my %tagmap = (
|
|
tr => 'table_row',
|
|
td => 'table_cell',
|
|
);
|
|
|
|
# Install appropriate subs in symbol table:
|
|
{ no strict 'refs';
|
|
|
|
for my $key (keys %tags) {
|
|
my $subname = $tagmap{$key};
|
|
$subname = $key unless ($subname);
|
|
|
|
*{ $subname } = sub { $tags{$key}->($key, @_); };
|
|
}
|
|
|
|
}
|
|
|
|
# handle most HTML tags:
|
|
sub tag {
|
|
my ($tag) = shift;
|
|
my (@params) = @_;
|
|
|
|
my ($attr_string, $text);
|
|
|
|
for my $param (@params) {
|
|
|
|
if ($param =~ m/^([a-z]+): ?(.*)$/) {
|
|
my ($name, $value) = ($1, $2);
|
|
$attr_string .= qq{ $name="$value"}
|
|
}
|
|
else {
|
|
$text .= "\n" if length($text) > 0;
|
|
$text .= $param;
|
|
}
|
|
|
|
}
|
|
|
|
# voila, an X(HT)ML tag:
|
|
return "<${tag}${attr_string}>$text</$tag>";
|
|
|
|
}
|
|
|
|
########################################
|
|
# Special cases and higher-level markup
|
|
|
|
sub entry_markup {
|
|
my ($text) = @_;
|
|
return "\n\n" . div($text, 'class: entry') . "\n\n";
|
|
}
|
|
|
|
sub heading {
|
|
my ($text, $level) = @_;
|
|
my $h = "h$level";
|
|
return tag($h, $text);
|
|
}
|
|
|
|
1;
|