[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