Merge pull request #359 from larseng/master

Adding FIGlet support.

Author: Jag Talon

dist.ini

@@ -19,6 +19,7 @@ Math::Int2Base = 1.00
 Data::GUID = 0.046
 IO::All = 0.44
 File::ShareDir::ProjectDistDir = 0.2.0
+Text::FIGlet = 2.19.3
 Text::Unidecode = 0.04
 Date::Calc = 6.3
 Date::Hijri = 0.02

lib/DDG/Goodie/FIGlet.pm

@@ -0,0 +1,77 @@
+package DDG::Goodie::FIGlet;
+# ABSTRACT: Uses FIGlet to make large letters out of ordinary text.
+
+use DDG::Goodie;
+use Text::FIGlet;
+
+triggers startend => "figlet", "bigtext", "big text";
+primary_example_queries 'figlet DuckDuckGo';
+secondary_example_queries 'figlet computer DuckDuckGo';
+
+name 'FIGlet';
+description 'Uses FIGlet to make large letters out of ordinary text.';
+category 'transformations';
+topics 'words_and_games';
+code_url 'https://github.com/duckduckgo/zeroclickinfo-goodies/blob/master/lib/DDG/Goodie/Figlet.pm';
+attribution
+	web => ['http://engvik.nu', 'Lars Jansøn Engvik'],
+	github => [ 'larseng', 'Lars Jansøn Engvik'];
+
+zci answer_type => 'figlet';
+zci is_cached => 1;
+
+my $width = 800;
+my $css = share("style.css")->slurp;
+
+# Fetch available fonts.
+opendir DIR, share();
+my @fonts = readdir(DIR);
+closedir DIR;
+
+# Renders a figlet.
+sub render_figlet {
+	my ($font, $text) = @_;
+	return Text::FIGlet->new(-f=>$font, -d=>share())->figify(-w=>$width, -A=>$text);
+}
+
+# Apply CSS.
+sub apply_css {
+	my ($html) = @_;
+	return "<style type='text/css'>$css</style>\n" . $html;
+}
+
+handle query => sub {
+	my $font;
+	my $text;
+	my $figlet;
+	my $html;
+
+	# Return if no input provided.
+	return if ((lc $_ eq 'figlet') || (lc $_ eq 'bigtext') || (lc $_ eq 'big text'));
+
+	# Parse query.
+	$_ =~ m/^(?:figlet|bigtext|big text)(?:\-|\s+)(.*)|(.*)\s+(?:figlet|bigtext|big text)$/i;
+	$text = $1 if $1;
+	$text = $2 if $2;
+
+	# Checks if the first word is a font.
+	$text =~ m/^\s*(\w+)/;
+	$font = lc $1 if grep /\b$1\b/i, @fonts;
+
+	# Strip the font from the text to render if we're using a font.
+	if ($font && $font ne $text) {
+		$text = substr $text, length ($font)+1, length $text;
+	} else {
+		$font = "standard";
+	}
+
+	# Render the FIGlet
+	$figlet = render_figlet($font, $text);
+
+	$html = "<div id='figlet-wrapper'><span>Font: </span><span id='figlet-font'>$font</span><pre contenteditable='true'>$figlet</pre></div>";
+
+	return $figlet, html => apply_css($html) if $figlet;
+	return;
+};
+
+1;