Added --html parameter for ddg_attribution

duckduckgo · May 11, 2012 · d2d76fe · d2d76fe
1 parent 68ba65c
commit d2d76fe
Show file tree

Hide file tree

Showing 2 changed files with 23 additions and 10 deletions.
diff --git a/lib/DDG/App/Attribution.pm b/lib/DDG/App/Attribution.pm
@@ -8,25 +8,35 @@ use Module::Runtime qw( use_module );
 use lib ();
 use Path::Class;
 
+option 'html' => (
+	is => 'ro',
+	default => sub { 0 },
+	negativable => 1,
+);
+
 sub BUILD {
 	my ( $self ) = @_;
 	my $curdir = dir('lib')->absolute;
 	lib->import($curdir->stringify);
 	if (@ARGV) {
 		for (@ARGV) {
 			use_module($_);
-			my @attributions = @{$_->get_attributions};
-			if (@attributions) {
-				print "\nAttributions for ".$_.":\n\n";
-				while (@attributions) {
-					my $key = shift @attributions;
-					my $value = shift @attributions;
-					print " - ".$key." (".$value.")\n";
-				}
+			if ($self->html) {
+				print $_->get_attributions_html;
+				print "\n";
 			} else {
-				print "\nNo attributions for ".$_."\n\n";
+				my @attributions = @{$_->get_attributions};
+				if (@attributions) {
+					print "\nAttributions for ".$_.":\n\n";
+					while (@attributions) {
+						my $key = shift @attributions;
+						my $value = shift @attributions;
+						print " - ".$key." (".$value.")\n";
+					}
+				} else {
+					print "\nNo attributions for ".$_."\n\n";
+				}
 			}
-
 		}
 	} else {
 		# TODO, load all and show all attributions

diff --git a/lib/DDG/Meta/Attribution.pm b/lib/DDG/Meta/Attribution.pm
@@ -42,6 +42,9 @@ sub apply_keywords {
 		}
 		return \@attribution_links;
 	});
+	$stash->add_symbol('&get_attributions_html', sub {
+		# TODO
+	});
 	$stash->add_symbol('&attribution', sub {
 		while (@_) {
 			my $type = shift;