felixfoertsch/remind
1
0
Fork 0
mirror of https://salsa.debian.org/dskoll/remind.git synced 2026-04-16 06:18:47 +02:00
Code Issues Actions Packages Projects Releases Wiki Activity

Add popup for location and description in HTML calendar.

Browse Source
This commit is contained in:
Dianne Skoll
2025-02-03 11:36:19 -05:00
parent 34f8486c10
commit 8555352c18
1 changed files with 31 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
rem2html/rem2html.in
View File

@@ -359,10 +359,11 @@ sub parse_input
chomp;
last if /^\# rem2ps2? end$/;
next if /^\#/;
my ($y, $m, $d, $special, $tag, $duration, $time, $body);
my ($y, $m, $d, $special, $tag, $duration, $time, $body, $title);
if (m/^(\d*).(\d*).(\d*)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s*(.*)$/) {
($y, $m, $d, $special, $tag, $duration, $time, $body) =
($1, $2, $3, $4, $5, $6, $7, $8);
$title = '';
} elsif (/\{/) {
my $obj;
if ($Options{utf8}) {
@@ -379,6 +380,7 @@ sub parse_input
$duration = $obj->{duration} || '*';
$time = $obj->{time} || '*';
$body = $obj->{body};
$title = info_to_title($obj->{info});
} else {
next;
}
@@ -415,10 +417,10 @@ sub parse_input
my($r, $g, $b, $text) = ($1, $2, $3, $4);
my $color = sprintf("style=\"color: #%02X%02X%02X;\"",
$r % 256, $g % 256, $b % 256);
push(@{$days->[$d]}, "<p$class $color>" . fix_whitespace(escape_html($text)) . '</p>');
push(@{$days->[$d]}, "<p$class$title $color>" . fix_whitespace(escape_html($text)) . '</p>');
}
} elsif ($special eq '*') {
push(@{$days->[$d]}, "<p$class>" . fix_whitespace(escape_html($body)) . '</p>');
push(@{$days->[$d]}, "<p$class$title>" . fix_whitespace(escape_html($body)) . '</p>');
}
}
return $found_data;
@@ -477,6 +479,29 @@ sub emit_ppp_calendars
}
}
sub info_to_title
{
my ($info) = @_;
if (!$info) {
return '';
}
my $done_one = 0;
my $title = '';
foreach my $key ('location', 'description') {
next unless $info->{$key};
if ($done_one) {
$title .= "&#010";
}
$done_one = 1;
my $val = escape_html($info->{$key});
$val =~ s/\n/&#010/g;
$val =~ s/"/&#034;/g;
$val =~ s/</&lt;/g;
$title .= ucfirst($key) . ': ' . $val;
}
return " title=\"$title\"";
}
sub emit_one_ppp_calendar
{
my ($c, $type) = @_;
@@ -537,6 +562,7 @@ sub emit_one_ppp_calendar
my $duration = $obj->{duration} || '*';
my $time = $obj->{time} || '*';
my $body = $obj->{body};
my $title = info_to_title($obj->{info});
$special = uc($special);
if ($special eq 'HTML') {
push(@{$days->[$col]}, $body);
@@ -568,10 +594,10 @@ sub emit_one_ppp_calendar
my($r, $g, $b, $text) = ($1, $2, $3, $4);
my $color = sprintf("style=\"color: #%02X%02X%02X;\"",
$r % 256, $g % 256, $b % 256);
push(@{$days->[$col]}, "<p$class $color>" . fix_whitespace(escape_html($text)) . '</p>');
push(@{$days->[$col]}, "<p$class$title $color>" . fix_whitespace(escape_html($text)) . '</p>');
}
} elsif ($special eq '*') {
push(@{$days->[$col]}, "<p$class>" . fix_whitespace(escape_html($body)) . '</p>');
push(@{$days->[$col]}, "<p$class$title>" . fix_whitespace(escape_html($body)) . '</p>');
}
}
output_calendar($type, $cols_to_date_info);