front page rendering appears to work (given git zoom, dbixds and web-simple, anyway)

[catagits/App-IdiotBox.git] / lib / App / IdiotBox.pm

diff --git a/lib/App/IdiotBox.pm b/lib/App/IdiotBox.pm
index 29452c0..4d880c7 100644 (file)
--- a/lib/App/IdiotBox.pm
+++ b/lib/App/IdiotBox.pm
@@ -2,6 +2,26 @@ package App::IdiotBox;
 
 use Web::Simple __PACKAGE__;
 use Method::Signatures::Simple;
+use FindBin;
+use HTML::Zoom;
+
+{
+  package App::IdiotBox::Announcement;
+
+  sub made_at { shift->{made_at} } 
+  sub bucket { shift->{bucket} } 
+  sub video_count { shift->{video_count} } 
+
+  package App::IdiotBox::Bucket;
+
+  sub slug { shift->{slug} }
+  sub name { shift->{name} }
+  sub video_count { shift->{video_count} }
+}
+
+default_config(
+  template_dir => $FindBin::Bin.'/../share/html'
+);
 
 dispatch {
   sub (/) { $self->show_front_page },
@@ -12,60 +32,118 @@ dispatch {
         $self->show_bucket($bucket)
       },
       sub (/*) {
-        $self->show_video($bucket->videos->get({ slug => $_[1] });
+        $self->show_video($bucket->videos->get({ slug => $_[1] }));
       }
     ]
   }
 };
 
+method recent_announcements { $self->{recent_announcements} }
+
 method show_front_page {
   my $ann = $self->recent_announcements;
   $self->html_response(
     front_page => [
-      '#announcement-list' => {
-        -repeat => {
-          data => $ann->map(sub { +{
-            '#fill-bucket-name' => { -replace_content => $_->bucket->name },
-            '#fill-bucket-link' => {
-              -set_attribute => { name => 'href', value => '/'.$_->slug.'/' }
-            },
-            '#fill-new-videos' => $_->videos->count,
-            '#fill-total-videos' => $_->bucket->videos->count,
-          } })
+      '#announcement-list' => [
+        -repeat_content => {
+          repeat_for => $ann->map(sub { [
+            '.fill-bucket-name' => [
+              -replace_content => { replace_with => $_->bucket->name }
+            ],
+            '.fill-bucket-link' => [
+              -set_attribute => { name => 'href', value => $_->bucket->slug.'/' }
+            ],
+            '.fill-new-videos' => [
+              -replace_content => { replace_with => $_->video_count }
+            ],
+            '.fill-total-videos' => [
+              -replace_content => { replace_with => $_->bucket->video_count }
+            ],
+          ] })->as_stream
         }
-      }
+      ]
     ]
   );
 }
 
+method show_bucket ($bucket) {
+  $self->html_response(bucket => [
+    '.fill-bucket-name' => [
+      -replace_content => { replace_with => $bucket->name }
+    ],
+    '#video-list' => [
+      -repeat_content => {
+        repeat_for => $bucket->videos->map(sub { [
+          '.fill-video-name' => [
+            -replace_content => { replace_with => $_->name }
+          ],
+          '.fill-video-author' => [
+            -replace_content => { replace_with => $_->author }
+          ],
+          '.fill-video-link' => [
+            -set_attribute => {
+              name => 'href', value => $_->slug.'/'
+            }
+          ],
+        ] })->as_stream
+      }
+    ]
+  ]);
+}
+
+method show_video ($video) {
+  $self->html_response(video => [
+    '.fill-video-name' => [
+      -replace_content => { replace_with => $video->name }
+    ],
+    '.fill-author-name' => [
+      -replace_content => { replace_with => $video->author }
+    ],
+    '.fill-bucket-link' => [
+      -set_attribute => { name => 'href', value => '../' }
+    ],
+    '.fill-bucket-name' => [
+      -replace_content => { replace_with => $video->bucket->name }
+    ],
+    '.fill-video-details' => [
+      -replace_content => { replace_with => $video->details }
+    ]
+  ]);
+}
+
 method html_response ($template_name, $selectors) {
-  my $io = $self->_zoom_for($template_name => $selectors)->as_io;
+  my $io = $self->_zoom_for($template_name => $selectors)->as_readable_fh;
   return [ 200, [ 'Content-Type' => 'text/html' ], $io ]
 }
 
+method _template_filename_for ($name) {
+  $self->{config}{template_dir}.'/'.$name.'.html';
+}
+
 method _layout_zoom {
-  $self->{layout_zoom} ||= HTML::Zoom->from_filename(
-    $self->_teamplate_filename_for('layout')
+  $self->{layout_zoom} ||= HTML::Zoom->from_file(
+    $self->_template_filename_for('layout')
   )
 }
 
 method _zoom_for ($template_name, $selectors) {
   ($self->{zoom_for_template}{$template_name} ||= do {
     my @body;
-    HTML::Zoom->from_filename(
-                  $self->_template_filename_for($template_name);
+    HTML::Zoom->from_file(
+                  $self->_template_filename_for($template_name)
                 )
               ->with_selectors(
-                '#main-content' => { -capture_events_into => \@body }
+                  '#main-content' => [
+                    -capture_events => { into => \@body }
+                  ]
                 )
-              ->to_bit_bucket;
-    my @all = $self->_layout_zoom->with_selectors(
-      '#main-content' => {
-        -replace_content_events => \@body
-      }
-    )->to_event_array;
-    HTML::Zoom->from_events(\@all)
-  })->with_selectors(@$selectors)
+              ->run;
+    $self->_layout_zoom->with_selectors(
+      '#main-content' => [
+        -replace_content_events => { replace_with => \@body }
+      ]
+    )->to_zoom;
+  })->with_selectors($selectors)
 }
 
 1;