duckduckgo
/
zeroclickinfo-goodies
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

BloodDonor: Adding styling as suggested by @chrismorast

master
Rob Emery 2014-06-22 20:13:35 +01:00
parent 30be0ca3e8
commit 851954f4e8
2 changed files with 76 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

87
lib/DDG/Goodie/BloodDonor.pm
View File

@ -3,9 +3,12 @@ package DDG::Goodie::BloodDonor;
use DDG::Goodie;
triggers startend => 'donor compatibility', 'donor', 'donors for',
'blood donor', 'blood donors for', 'blood donor for',
'blood type', 'blood compatibility', 'compatibility', 'blood donor compatibility';
use strict;
use warnings;
triggers startend => 'donor compatibility', 'donor', 'donors for',
'blood donor', 'blood donors for', 'blood donor for',
'blood type', 'blood compatibility', 'compatibility', 'blood donor compatibility';
zci answer_type => "blood_donor";
@ -19,52 +22,62 @@ topics 'everyday';
attribution github => ['https://github.com/faraday', 'faraday'];
my %typeMap = (
'A' => 'A,O',
'O' => 'O',
'AB' => 'AB,A,B,O',
'B' => 'B,O',
'A' => 'A,O',
'O' => 'O',
'AB' => 'AB,A,B,O',
'B' => 'B,O',
);
sub apply_css($)
{
my ($html) = @_;
my $css = scalar share('style.css')->slurp;
return "<style type='text/css'>$css</style>\n$html";
}
sub table_data {
my ($label, $value) = @_;
return "<tr><td style='padding-right: 1em;'>$label</td><td>$value</td></tr>";
my ($label, $value) = @_;
return "<tr><td class='label'>$label</td><td class='value'>$value</td></tr>";
}
handle remainder => sub {
if ($_ =~ /^(O|A|B|AB)(\-|\+)$/i) {
my $type = uc $1;
my $rh = $2;
my $type = uc $1;
my $rh = $2;
my @idealResults = ();
my @criticalResults = ();
my @idealResults = ();
my @criticalResults = ();
return unless defined $typeMap{$type};
return unless defined $typeMap{$type};
# ideally same Rh
foreach our $donorType (split(",", $typeMap{$type})) {
push(@idealResults, $donorType . $rh);
if($rh eq '+') {
# only when access to same Rh is impossible
push(@criticalResults, $donorType . '-');
}
}
# ideally same Rh
foreach our $donorType (split(",", $typeMap{$type})) {
push(@idealResults, $donorType . $rh);
if($rh eq '+') {
# only when access to same Rh is impossible
push(@criticalResults, $donorType . '-');
}
}
my $output = '';
my $html = '<table>';
my $idealStr = join(' or ', @idealResults);
my $criticalStr = join(' or ', @criticalResults);
$output .= "Ideal donor: " . uc($_) . "\n";
$output .= "Other donors: " . $idealStr . "\n";
$html .= table_data("Ideal donor:", uc($_));
$html .= table_data("Other donors:", $idealStr);
if($rh eq '+') {
$output .= "Only if no Rh(+) found: " . $criticalStr . "\n";
$html .= table_data("<i>Only if</i> no Rh(+) found:", $criticalStr);
}
$html .= '</table>';
return $output, html => $html, heading => "Donors for blood type ".uc($_);
my $output = '';
my $html = "<table class='blooddonor'>";
my $idealStr = join(' or ', @idealResults);
my $criticalStr = join(' or ', @criticalResults);
$output .= "Ideal donor: " . uc($_) . "\n";
$output .= "Other donors: " . $idealStr . "\n";
$html .= table_data("Ideal donor:", uc($_));
$html .= table_data("Other donors:", $idealStr);
if($rh eq '+') {
$output .= "Only if no Rh(+) found: " . $criticalStr . "\n";
$html .= table_data("<i>Only if</i> no Rh(+) found:", $criticalStr);
}
$html .= '</table>';
return $output, html => apply_css($html), heading => "Donors for blood type ".uc($_);
}
return;
};
1;

26
share/goodie/blood_donor/style.css Normal file
View File

@ -0,0 +1,26 @@
.zci--answer .blooddonor
{
font-size: 1.1em;
line-height: 1.5em;
}
.zci--answer .blooddonor .label
{
padding-right: 1em;
color: #595959;
}
.zci--answer .blooddonor .value
{
color: #292929;
}
.zci--answer .blooddonor tr
{
border-top: 1px solid #ddd;
}
.zci--answer .blooddonor tr:nth-of-type(1)
{
border-top: 0px;
}