lib/Frey/IconBrowser.pm

package Frey::IconBrowser;
use Moose;

extends 'Frey';
with 'Frey::Web', 'Frey::Web::CombineImages', 'Frey::File';

use Data::Dump qw/dump/;

has path => (
        is => 'rw',
        isa => 'Str',
        required => 1,
        default => 'static/icons/fugue/',
);

has show_names => (
        is => 'rw',
        isa => 'Bool',
        required => 1,
        default => 1,
);

sub as_markup {
        my ($self) = @_;

        $self->title( 'icons - ' . $self->path );

        my $extension = '\.(?:png)$';
        my @icons = $self->dir_extension( $self->path, qr{$extension} );

        my ( $combined_path, $styles ) = $self->combine_images( @icons );

        my $width = 0;
        foreach ( @icons ) {
                my $l = length($_);
                $width = $l if $l > $width;
        }

        $width = 2 if ! $self->show_names;

        $self->add_css(qq|
                h1 { font-size: 20px }
                /* group */
                div.g {
                        float: left;
                        clear: both;
                }
                /* individual icon */
                div.i {
                        color: #888;
                        width: ${width}ex;
                        float: left;
                }
        |);

        my $html = '<div class="g">';
        my $base;

        foreach my $icon ( @icons ) {
                my $name = $icon;
                $name =~ s{^[\w/]*/([^/]+)$extension}{$1};

                if ( ! $base ) {
                        $base = $name;
                        $html .= qq|<h1>$name</h1>|;
                }

                my $desc = '';

                my $bl = length $base;

                if ( $name =~ m{_} && substr($name, 0, $bl) eq $base ) {
                        ($name,$desc) = (
                                substr($name,0,$bl),
                                substr($name,$bl)
                        );
                } else {
                        $base = $name;
                        warn "# new base $base" if $self->debug;
                        $html .= qq|
                                </div>
                                <div class="g">
                                <h1>$name</h1>
                        |;
                }

#               $html .= qq|<img src="/| . $self->path . qq|/$icon" alt="$icon"> <b>$name</b>$desc<br/>\n|;
#               $html .= qq|<b>$name</b>$desc<br/>\n|;

                my $path = $icon;
                $path = $self->path . '/' . $icon unless $icon =~ m{[\w/]+/[^/]+$};

                my $pic = $styles->{$path} || die "can't find pic for $path in ",dump( $styles );
                $html .= ''
                        . qq|<div title="$icon" class="i">$pic|
                        . ( $self->show_names ? qq|<b>$name</b>$desc| : '' )
                        . qq|</div>\n|
                        ;
        }


        $html .= '</div>';
#       $html .= qq|<img src="$combined_path">|;
        return $html;
}

__PACKAGE__->meta->make_immutable;
no Moose;

1;
1	dpavlin	553	package Frey::IconBrowser;
2			use Moose;
3
4			extends 'Frey';
5	dpavlin	1133	with 'Frey::Web', 'Frey::Web::CombineImages', 'Frey::File';
6	dpavlin	553
7	dpavlin	555	use Data::Dump qw/dump/;
8
9	dpavlin	553	has path => (
10			is => 'rw',
11			isa => 'Str',
12			required => 1,
13			default => 'static/icons/fugue/',
14			);
15
16	dpavlin	608	has show_names => (
17			is => 'rw',
18			isa => 'Bool',
19			required => 1,
20			default => 1,
21			);
22
23	dpavlin	553	sub as_markup {
24			my ($self) = @_;
25
26	dpavlin	608	$self->title( 'icons - ' . $self->path );
27
28	dpavlin	553	my $extension = '\.(?:png)$';
29	dpavlin	972	my @icons = $self->dir_extension( $self->path, qr{$extension} );
30	dpavlin	553
31	dpavlin	972	my ( $combined_path, $styles ) = $self->combine_images( @icons );
32	dpavlin	553
33	dpavlin	608	my $width = 0;
34			foreach ( @icons ) {
35			my $l = length($_);
36			$width = $l if $l > $width;
37			}
38
39			$width = 2 if ! $self->show_names;
40
41			$self->add_css(qq\|
42			h1 { font-size: 20px }
43			/* group */
44			div.g {
45			float: left;
46			clear: both;
47			}
48			/* individual icon */
49			div.i {
50			color: #888;
51			width: ${width}ex;
52			float: left;
53			}
54			\|);
55
56			my $html = '<div class="g">';
57	dpavlin	553	my $base;
58
59			foreach my $icon ( @icons ) {
60			my $name = $icon;
61	dpavlin	972	$name =~ s{^[\w/]*/([^/]+)$extension}{$1};
62	dpavlin	553
63	dpavlin	608	if ( ! $base ) {
64			$base = $name;
65			$html .= qq\|<h1>$name</h1>\|;
66			}
67
68	dpavlin	555	my $desc = '';
69	dpavlin	553
70			my $bl = length $base;
71
72	dpavlin	608	if ( $name =~ m{_} && substr($name, 0, $bl) eq $base ) {
73	dpavlin	553	($name,$desc) = (
74			substr($name,0,$bl),
75			substr($name,$bl)
76			);
77			} else {
78			$base = $name;
79	dpavlin	560	warn "# new base $base" if $self->debug;
80	dpavlin	608	$html .= qq\|
81			</div>
82			<div class="g">
83			<h1>$name</h1>
84			\|;
85	dpavlin	553	}
86
87			# $html .= qq\|<img src="/\| . $self->path . qq\|/$icon" alt="$icon"> <b>$name</b>$desc<br/>\n\|;
88			# $html .= qq\|<b>$name</b>$desc<br/>\n\|;
89
90	dpavlin	972	my $path = $icon;
91			$path = $self->path . '/' . $icon unless $icon =~ m{[\w/]+/[^/]+$};
92	dpavlin	553
93	dpavlin	555	my $pic = $styles->{$path} \|\| die "can't find pic for $path in ",dump( $styles );
94	dpavlin	608	$html .= ''
95			. qq\|<div title="$icon" class="i">$pic\|
96			. ( $self->show_names ? qq\|<b>$name</b>$desc\| : '' )
97			. qq\|</div>\n\|
98			;
99	dpavlin	553	}
100
101
102	dpavlin	608	$html .= '</div>';
103	dpavlin	553	# $html .= qq\|<img src="$combined_path">\|;
104			return $html;
105			}
106
107	dpavlin	1133	__PACKAGE__->meta->make_immutable;
108			no Moose;
109
110	dpavlin	553	1;