[Bast-commits] r8112 - in ironman/IronMan-Web: lib/IronMan/Web/Controller root/inc root/static/css

grim at dev.catalyst.perl.org grim at dev.catalyst.perl.org
Mon Dec 14 22:20:46 GMT 2009


Author: grim
Date: 2009-12-14 22:20:45 +0000 (Mon, 14 Dec 2009)
New Revision: 8112

Added:
   ironman/IronMan-Web/root/inc/feed_list.tt
   ironman/IronMan-Web/root/static/css/screen.css
Modified:
   ironman/IronMan-Web/lib/IronMan/Web/Controller/Root.pm
   ironman/IronMan-Web/root/inc/wrapper.tt
Log:
Added feeds list

Modified: ironman/IronMan-Web/lib/IronMan/Web/Controller/Root.pm
===================================================================
--- ironman/IronMan-Web/lib/IronMan/Web/Controller/Root.pm	2009-12-14 21:43:16 UTC (rev 8111)
+++ ironman/IronMan-Web/lib/IronMan/Web/Controller/Root.pm	2009-12-14 22:20:45 UTC (rev 8112)
@@ -27,17 +27,16 @@
 
 =cut
 
-=head2 default
+=head2 auto
 
 =cut
-
-sub default : Private {
+sub auto : Private {
     my ( $self, $c ) = @_;
 
-    # Hello World
-    $c->response->body( $c->welcome_message );
+    $c->stash( 'feeds' => $c->model('FeedDB::Feed') );
 }
 
+
 =head2 index
 
 =cut
@@ -48,9 +47,10 @@
     my $posts = $c->model('FeedDB::Post')->search({},{
         'order_by' => \'posted_on DESC',
         'rows' => $c->config->{'frontpage_entries'} + 1,
-        });
+    });
+
     $c->stash( 'posts' => $posts );
-    
+
     my $next_post = ($posts->all)[-1];
     
     my $next_post_date = $next_post->posted_on;

Added: ironman/IronMan-Web/root/inc/feed_list.tt
===================================================================
--- ironman/IronMan-Web/root/inc/feed_list.tt	                        (rev 0)
+++ ironman/IronMan-Web/root/inc/feed_list.tt	2009-12-14 22:20:45 UTC (rev 8112)
@@ -0,0 +1,5 @@
+<ul id="members-list">
+[% FOREACH feed IN feeds.all %]
+    <li class="member"><a href="[%- feed.link -%]" title="[%- feed.title -%]">[%- feed.title -%]</a></li>
+[% END %]
+</ul>

Modified: ironman/IronMan-Web/root/inc/wrapper.tt
===================================================================
--- ironman/IronMan-Web/root/inc/wrapper.tt	2009-12-14 21:43:16 UTC (rev 8111)
+++ ironman/IronMan-Web/root/inc/wrapper.tt	2009-12-14 22:20:45 UTC (rev 8112)
@@ -50,6 +50,8 @@
       </div>
     </div>
     <div id="main">
+        <div id="feed-title">all.things.per.ly - Perl Blog Archives</div>
+        [% PROCESS 'inc/feed_list.tt' %]
         [% content %]
     <hr />
 	<div class="footer">

Added: ironman/IronMan-Web/root/static/css/screen.css
===================================================================
--- ironman/IronMan-Web/root/static/css/screen.css	                        (rev 0)
+++ ironman/IronMan-Web/root/static/css/screen.css	2009-12-14 22:20:45 UTC (rev 8112)
@@ -0,0 +1,28 @@
+body {
+    color: black;
+    background: #5F8DD3;
+    margin: 0 auto; 
+    max-width: 60em; 
+    font-family: Verdana, sans-serif;
+}
+
+#feed-title {
+    font-size: 200%;
+    font-weight: bold;
+    text-align: left;
+    padding: 10px;
+    background-color: #fbffd5;
+}
+
+.entry, .footer, .header {
+    margin: 5px;
+    padding: 1em;
+    background-color: white;
+}
+.entry-title {
+    display: block;
+    font-weight: bold;
+    margin: 0px;
+    line-height: 1em;
+    font-size: large;
+}




More information about the Bast-commits mailing list