@@ -8,6 +8,9 @@ use Plack::Request; use Try::Tiny; use XML::Builder; use File::MimeInfo::Magic qw( mimetype globs ); +use constant DIR_STYLE => <<''; +ul, li { margin: 0; padding: 0 } +li { list-style-type: none } sub git { open my $rh, '-|', git => @_ or die $!; local $/; binmode $rh; <$rh> } @@ -42,21 +45,18 @@ sub get_dir { my $x = XML::Builder->new; my $h = $x->register_ns( 'http://www.w3.org/1999/xhtml', '' ); - return $x->root( - $h->html( - $h->head( - $h->title( $path ), - $h->style( { type => 'text/css' }, - "\nul, li { margin: 0; padding: 0 }", - "\nli { list-style-type: none }", - "\n", - ) - ), - $h->body( $h->ul( $h->li->foreach( - map { $h->a( { href => $_, class => ( m!(\A\.\.|/)\z! ? 'd' : 'f' ) }, $_ ) } @entry - ) ) ), + return $x->root( $h->html( + $h->head( + $h->title( $path ), + $h->style( { type => 'text/css' }, "\n".DIR_STYLE ) ), - ); + $h->body( $h->ul( "\n", map {; $_, "\n" } $h->li->foreach( + map { + my $class = m!(\A\.\.|/)\z! ? 'd' : 'f'; + $h->a( { href => $_, class => $class }, $_ ); + } @entry + ) ) ), + ) ); } sub get_mimetype { app.psgi 10058616faec9710aed53a5430477f7c5c6299c2 Aristotle Pagaltzis pagaltzis@gmx.de http://github.com/ap/witigiki/commit/472db1ad7c5017c8320b9aba7813ab31e23df818 472db1ad7c5017c8320b9aba7813ab31e23df818 2009-11-07T23:36:27-08:00 2009-11-07T23:36:27-08:00 reduce some indentation in index generator 97afda3f6842a53787df83b882052feeffb85ed3 Aristotle Pagaltzis pagaltzis@gmx.de