From: Matt S Trout <mst@shadowcat.co.uk>
Date: Mon, 18 Jan 2010 02:56:49 +0000 (+0000)
Subject: Iniitial IdiotBox.pm and script/idiotbox
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e30ed59ddb7852f9c79a449dfce61a31e97dc807;hp=afd643e5d7019a8725b6f45e56cb5af54267564f;p=catagits%2FApp-IdiotBox.git

Iniitial IdiotBox.pm and script/idiotbox

Basic dispatch is in for the first bits - front page, bucket and video pages.

Not sure whether I'll try and make IdiotBox itself a Moose class or not yet.

Blocking out the structure for rendering and writing a quick bit of code to
generate a layout zoom; this is just a sketch though since Zoom will need some
updating before I can try and run it.
---

diff --git a/lib/App/IdiotBox.pm b/lib/App/IdiotBox.pm
new file mode 100644
index 0000000..29452c0
--- /dev/null
+++ b/lib/App/IdiotBox.pm
@@ -0,0 +1,71 @@
+package App::IdiotBox;
+
+use Web::Simple __PACKAGE__;
+use Method::Signatures::Simple;
+
+dispatch {
+  sub (/) { $self->show_front_page },
+  subdispatch sub (/*/...) {
+    my $bucket = $self->buckets->get({ slug => $_[1] });
+    [
+      sub (/) {
+        $self->show_bucket($bucket)
+      },
+      sub (/*) {
+        $self->show_video($bucket->videos->get({ slug => $_[1] });
+      }
+    ]
+  }
+};
+
+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,
+          } })
+        }
+      }
+    ]
+  );
+}
+
+method html_response ($template_name, $selectors) {
+  my $io = $self->_zoom_for($template_name => $selectors)->as_io;
+  return [ 200, [ 'Content-Type' => 'text/html' ], $io ]
+}
+
+method _layout_zoom {
+  $self->{layout_zoom} ||= HTML::Zoom->from_filename(
+    $self->_teamplate_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);
+                )
+              ->with_selectors(
+                '#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)
+}
+
+1;
diff --git a/script/idiotbox b/script/idiotbox
new file mode 100644
index 0000000..ceb90be
--- /dev/null
+++ b/script/idiotbox
@@ -0,0 +1,7 @@
+#!/usr/bin/env perl
+
+use FindBin;
+use lib "$FindBin::Bin/../lib";
+use App::IdiotBox;
+
+App::IdiotBox->run_if_script;