Changeset 12556 for lang/perl/App-Chariot

Timestamp:

05/27/08 21:39:28 (6 months ago)

Author:

tokuhirom

Message:

- make formatter.
- remove creating stuff from core
- added controllers.

Location:

lang/perl/App-Chariot/trunk

Files:

• assets/tmpl/item-parts.tt (modified) (1 diff)
• config.yaml (modified) (1 diff)
• lib/App/Chariot.pm (modified) (5 diffs)
• lib/App/Chariot/C (added)
• lib/App/Chariot/C/Index.pm (added)
• lib/App/Chariot/C/Permalink.pm (added)
• lib/App/Chariot/C/RSS.pm (added)
• lib/App/Chariot/Config.pm (modified) (1 diff)
• lib/App/Chariot/Formatter (added)
• lib/App/Chariot/Formatter/Hatena.pm (added)
• lib/App/Chariot/Formatter/Markdown.pm (added)

lang/perl/App-Chariot/trunk/assets/tmpl/item-parts.tt

@@ -1 @@
-                    [% USE Markdown %]
-
                     <div class="entry">
                         <h3 class="entry-header"><a href="[% item.permalink %]">[% item.title %]</a></h3>
-                        <div class="entry-content"><div class="entry-body">[% FILTER markdown %][% item.content %][% END %]</div></div>
+                        <div class="entry-content"><div class="entry-body">[% format(item.content) %]</div></div>
                         <div class="entry-footer">
                             <span class="post-footers">[% item.entry.header.date %]</span>

lang/perl/App-Chariot/trunk/config.yaml

@@ -3 +3 @@
 css_filename: http://bulknews.typepad.com/test/styles.css
 clog_url: ./
+formatter: Hatena

lang/perl/App-Chariot/trunk/lib/App/Chariot.pm

@@ -11 +11 @@
 use XML::RSS;
 use Scalar::Util;
+use Module::Find;
+my @CONTROLLERS = useall 'App::Chariot::C';
 
 do {
@@ -41 +43 @@
 };
 
-sub say { print "@_\n" }
-
 has dat => (
     is => 'rw',
@@ -61 +61 @@
             }
         );
+    },
+);
+
+has formatter => (
+    is      => 'ro',
+    isa     => 'CodeRef',
+    lazy    => 1,
+    default => sub {
+        my $self      = shift;
+        my $formatter = $self->config->formatter;
+        $formatter = "App::Chariot::Formatter::$formatter";
+        Class::MOP::load_class($formatter);
+        $formatter->meta->get_method('format')->body;
     },
 );
@@ -101 +114 @@
 sub create {
     my $self = shift;
-    $self->create_index_page();
-    $self->create_rss();
-    $self->create_permalink_pages();
-}
 
-sub create_dir {
-    my $self = shift;
-    say "create dir";
+    print "create dir\n";
     mkdir $self->config->output_dir;
-}
-
-sub create_permalink_pages {
-    my ($self, ) = @_;
-
-    say "create permalink pages";
-    my $ifile = File::Spec->catfile($self->config->assets_dir, 'tmpl', 'item.tt');
-    for my $entry (@{$self->dat->list}) {
-        my $cnt = 1;
-        for my $item (reverse @{$entry->items->list}) {
-            $item->count($cnt);
-            $item->entry( $entry );
-            my $ofile = File::Spec->catfile($self->config->output_dir, $item->permalink);
-            $self->render(
-                $ifile => $ofile,
-                {
-                    item  => $item,
-                },
-            );
-
-            $cnt++;
-        }
+    for my $controller (@CONTROLLERS) {
+        $controller->meta->get_method('create')->body->( $self );
     }
-}
-
-sub create_index_page {
-    my ($self, ) = @_;
-
-    say "create index page";
-    my @list = reverse @{$self->dat->list};
-    my $ifile = File::Spec->catfile($self->config->assets_dir, 'tmpl', 'index.tt');
-    my $ofile = File::Spec->catfile($self->config->output_dir, 'index.html');
-
-    $self->render(
-        $ifile => $ofile, {
-            entries => [ @list[0..($self->config->index_stop)] ],
-        }
-    );
-}
-
-sub create_rss {
-    my $self = shift;
-
-    say "create rss";
-
-    my $ofname = File::Spec->catfile( $self->config->output_dir, $self->config->rss_filename );
-
-    my $rss = XML::RSS->new(version => '1.0');
-    $rss->channel(
-        title        => $self->config->title,
-        link         => $self->config->clog_url,
-        description  => $self->config->changelog_description,
-    );
-
-    my @list = reverse @{$self->dat->list};
-    for my $entry (@list[0..($self->config->index_stop)]) {
-        my $cnt = 1;
-        for my $item (reverse @{$entry->items->list}) {
-            $item->count($cnt);
-            $item->entry( $entry );
-
-            $rss->add_item(
-                title       => $item->title,
-                link        => $self->config->clog_url . $item->permalink,
-                description => $item->content,
-                content => {
-                    encoded => $item->content,
-                },
-            );
-
-            $cnt++;
-        }
-    }
-    say "-- save to $ofname";
-    $rss->save($ofname);
 }
 
@@ -190 +125 @@
     my ($self, $ifile, $ofile, $params) = @_;
 
-    say "-- render $ifile => $ofile";
+    print "-- render $ifile => $ofile\n";
     $self->tt->process(
         $ifile,
         {
-            conf    => $self->config,
+            conf      => $self->config,
+            format    => $self->formatter,
             %$params,
         },

lang/perl/App-Chariot/trunk/lib/App/Chariot/Config.pm

@@ -58 +58 @@
 );
 
+has formatter => (
+    is      => 'ro',
+    isa     => 'Str',
+    default => 'Markdown',
+);
+
 1;