+icons

[www.jankratochvil.net.git] / project / Index.html.pl

diff --git a/project/Index.html.pl b/project/Index.html.pl
index eb645d8..d8f527b 100755 (executable)
--- a/project/Index.html.pl
+++ b/project/Index.html.pl
@@ -27,37 +27,20 @@ use warnings;
 
 BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,<F>)[0]]}; eval "use lib '$top_dir'"; close F; }
 use My::Web;
-require CGI;
 Wrequire 'My::Project';
-Wrequire 'project::Platform';
 
 
 My::Web->init(
                "__PACKAGE__"=>__PACKAGE__,
                "title"=>'Project List',
+               "section"=>"Projects",
+               "rel_up"=>top_dir(),
+               "rel_start"=>top_dir(),
                );
 My::Web->heading();
 
-my $CGI=CGI->new();
-
-print <<"HERE";
-<h1>Project List of @{[ a_href 'http://www.jankratochvil.net/','Jan Kratochvil' ]}</h1>
-
-<ul>
-       <li>@{[ a_href 'List.html.pl?platform=1','Brief project listing per platform' ]}</li>
-       <li>@{[ a_href 'List.html.pl'           ,'Unified brief project listing' ]}</li>
-</ul>
-HERE
-
-print '<table border="1" align="center" style="border-collapse: collapse; border-style: solid;">'."\n";
-       my @platforms=@project::Platform::platforms;
-       while (@platforms) {
-               my $platform_sym =shift @platforms;
-               my $platform_name=shift @platforms;
-               print '<td style="padding: 5px;">'.a_href('#'.$platform_sym,$platform_name)."</td>\n";
-               }
-print '</table>'."\n";
-print vskip "1ex";
+print My::Project->views("Detailed");
+print My::Project->platforms(undef());
 
 my %item=( My::Project::item_hash_read() );
 
@@ -77,7 +60,7 @@ $col{"name"}{"format"}=sub {
                return "<a href=\"".$_[1]."/\">".$_[0]."</a>";
                };
 
-@platforms=@project::Platform::platforms;
+my @platforms=@My::Project::platforms;
 while (@platforms) {
        my $platform_sym =shift @platforms;
        my $platform_name=shift @platforms;
@@ -90,10 +73,29 @@ while (@platforms) {
                        (lc($item{$a}{"name"}) cmp lc($item{$b}{"name"}));
                        } map({ $item{$_}{"platform"} ne $platform_sym ? () : ($_); } keys(%item));
        for my $project (@projects) {
-               print "<h3>".a_href("$project/",$item{$project}{"name"}.": ".$item{$project}{"summary"})."</h3>\n";
+               if ($item{$project}{"icon"}) {
+                       print <<"HERE";
+<table border="0" width="100%">
+       <col width="1*" />
+       <col width="0*" />
+       <tr>
+               <td align="left">
+HERE
+                       }
+               print "<h3>".a_href("/project/$project/",$item{$project}{"name"}.": ".$item{$project}{"summary"})."</h3>\n";
                print "<blockquote>\n";
                        print $item{$project}{"description"};
                print "</blockquote>\n";
+               if ($item{$project}{"icon"}) {
+                       print <<"HERE";
+               </td>
+               <td align="right">@{[
+                               img "/project/$project/".$item{$project}{"icon"},$item{$project}{"name"}." Icon","a_href"=>"/project/$project/"
+                               ]}</td>
+       </tr>
+</table>
+HERE
+                       }
                }
        }