date added

poznan-pm · Mar 12, 2014 · 5e3de6a · 5e3de6a
1 parent cd45c06
commit 5e3de6a
Show file tree

Hide file tree

Showing 4 changed files with 7 additions and 4 deletions.
diff --git a/data/blog/hello_world b/data/blog/hello_world
@@ -1,3 +1,4 @@
+01-01-2014
 <h2>Witamy na stronie Poznańskiej grupy Perl, poznan.pm.org!</h2>
 
 Projekt dopiero co ruszył dlatego strona wygląda jak wygląda. Niedługo się to zmieni. :)

diff --git a/gen.p6 b/gen.p6
@@ -76,8 +76,10 @@ sub blog(@items) {
     my @ret;
     for @items -> $i {
         my ($l, $t) = split(~$i);
-        my $post = Post.new(location => "$l/$t", title => $t, date => "TODOay");
+        my $post = Post.new(location => "$l/$t", title => $t);
-        $post.content = slurp $i;
+        my ($date, @content) = $i.IO.lines;
+        $post.date = $date;
+        $post.content = @content.join: "\n";
         @ret.push: $post;
     }
     return @ret.item;

diff --git a/tmpls/blog/post.mojo b/tmpls/blog/post.mojo
@@ -2,7 +2,7 @@
 % for $posts.list -> $p {
 <div id="post">
     <div id="title">
-        <div class="postdate">TODOay</div><div class="posttitle"><a href="/<%= $p.location %>"><%= $p.title %></a></div>
+        <div class="postdate"><%= $p.date %></div><div class="posttitle"><a href="/<%= $p.location %>"><%= $p.title %></a></div>
     </div>
     <p class="postcontent">
         <%= $p.content %>

diff --git a/tmpls/index.mojo b/tmpls/index.mojo
@@ -16,7 +16,7 @@
                 <a href="/">Strona Główna</a><br>
 % for $menu.list -> $m {
 
-<a href="/<%= $m.location %>"><%= $m.title %></a><br>
+                <a href="/<%= $m.location %>"><%= $m.title %></a><br>
 
 % }
                 </div>