From 00eb1cca8777099861b679b84a45f7099c4af90e Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@derf.homelinux.org>
Date: Sun, 11 Jul 2010 12:39:25 +0200
Subject: Add short options + switch to show image names, increase cached
 performance

---
 bin/gen-xhtml-thumbnails | 43 +++++++++++++++++++++++++++++--------------
 1 file changed, 29 insertions(+), 14 deletions(-)

diff --git a/bin/gen-xhtml-thumbnails b/bin/gen-xhtml-thumbnails
index c4895af..bb9cd12 100755
--- a/bin/gen-xhtml-thumbnails
+++ b/bin/gen-xhtml-thumbnails
@@ -17,6 +17,7 @@ my $css_line = '';
 my $thumb_max_dim = 150;
 my $thumb_quality = 75;
 my $thumb_spacing = 1.1;
+my $thumb_show_names = 0;
 my $css_source;
 my ($dx, $dy);
 my @files;
@@ -36,11 +37,12 @@ sub print_progress {
 }
 
 GetOptions(
-	'css=s'     => \$css_source,
-	'size=i'    => \$thumb_max_dim,
-	'spacing=f' => \$thumb_spacing,
-	'title=s'   => \$title,
-	'quality=i' => \$thumb_quality,
+	'c|css=s'     => \$css_source,
+	'd|size=i'    => \$thumb_max_dim,
+	's|spacing=f' => \$thumb_spacing,
+	'n|show-name' => \$thumb_show_names,
+	't|title=s'   => \$title,
+	'q|quality=i' => \$thumb_quality,
 );
 
 if (@ARGV > 0) {
@@ -82,7 +84,6 @@ closedir($dirhandle);
 print "Generating thumbnails [ - cached | + generated ]\n";
 
 foreach my $file (sort { lc($a) cmp lc($b) } @files) {
-	my $image = Image::Imlib2->load($file);
 	my $thumb;
 
 	if (defined($css_source)) {
@@ -90,13 +91,22 @@ foreach my $file (sort { lc($a) cmp lc($b) } @files) {
 	}
 	else {
 		printf {$index} (
-			'<div style="float: left; width: %dpx; height: %dpx">',
-			$thumb_max_dim * $thumb_spacing,
+			'<div style="%s; %s; %s; width: %dpx; height: %dpx">',
+			'text-align: center',
+			'font-size: 80%',
+			'float: left',
 			$thumb_max_dim * $thumb_spacing,
+			($thumb_max_dim * $thumb_spacing) + ($thumb_show_names ? 10 : 0),
 		);
 	}
 
-	print {$index} "<a href=\"$file\"><img src=\".thumbs/$file\" alt=\"$file\" /></a></div>\n";
+	print {$index} "<a href=\"$file\"><img src=\".thumbs/$file\" alt=\"$file\" /></a>\n";
+
+	if ($thumb_show_names) {
+		print {$index} "\n${file}";
+	}
+
+	print {$index} "</div>\n";
 	print_progress;
 	$number++;
 
@@ -105,6 +115,7 @@ foreach my $file (sort { lc($a) cmp lc($b) } @files) {
 		next;
 	}
 
+	my $image = Image::Imlib2->load($file);
 	($dx, $dy) = ($image->width, $image->height);
 
 	if ($dx > $thumb_max_dim and $dy > $thumb_max_dim) {
@@ -161,15 +172,19 @@ is not supported.
 
 =over
 
-=item B<--css> I<file>
+=item B<-c>, B<--css> I<file>
 
 Use I<file> for css definitions
 
-=item B<--size> I<pixels>
+=item B<-n>, B<--show-names>
+
+Show image names below thumbnails
+
+=item B<-d>, B<--size> I<pixels>
 
 Maximum thumbnail size (either width or height)
 
-=item B<--spacing> I<float>
+=item B<-s>, B<--spacing> I<float>
 
 Use I<float> as spacing factor.
 The size of each image element (image + possible border around it) is the
@@ -177,11 +192,11 @@ number of pixels (see --size) times I<float>.
 So for B<1.1> you have a small border around each image, for B<1.0> you have
 no border at all, etc.
 
-=item B<--title> I<title>
+=item B<-t>, B<--title> I<title>
 
 Use I<title> as <title> for the XHTML output
 
-=item B<--quality> I<int>
+=item B<-q>, B<--quality> I<int>
 
 Set thumbnail quality.
 Accepts values between 0 and 100, where 100 is the highest possible quality
-- 
cgit v1.2.3