From cb1213d1dac23deaad92fbdb2b83cacb5b17cc68 Mon Sep 17 00:00:00 2001 From: franck cuny Date: Sun, 13 Mar 2011 17:39:08 +0100 Subject: layout Signed-off-by: franck cuny --- lib/ballet/Page.pm | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) (limited to 'lib/ballet') diff --git a/lib/ballet/Page.pm b/lib/ballet/Page.pm index 63486f5..3d3a097 100644 --- a/lib/ballet/Page.pm +++ b/lib/ballet/Page.pm @@ -7,9 +7,8 @@ sub find_page { my ($self, $name, $version) = @_; $version ||= 'master'; - my @output = $self->git_repo->run('ls-tree', $version); - - my @page = grep {$_ =~ /$name\./} @output; + my @output = $self->git_repo->run( 'ls-tree' => $version ); + my @page = grep { $_ =~ /$name\./ } @output; if (!@page) { die "blablabla"; @@ -26,18 +25,21 @@ sub update_page { print $fh $content; close $fh; - $self->git_repo->run(add => $page_name.'.md'); - $self->git_repo->run('commit' => '-m', 'udpate' ); + $self->git_repo->run( add => $page_name . '.md' ); + $self->git_repo->run( commit => '-m', 'udpate' ); 1; } +sub find_history { + my ($self, $page_name, $version) = @_; +} + sub _format_page { my ($self, $blob) = @_; my @line = split (/\s/, $blob); - my @content = $self->git_repo->run('cat-file', '-p', $line[2]); - + my @content = $self->git_repo->run( 'cat-file' => '-p', $line[2] ); return join("\n", @content); } -- cgit 1.4.1