From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Thu, 17 Jun 2010 17:42:08 +0000 (+0200)
Subject: browse code on disk at /code/
X-Git-Url: http://git.rot13.org/?a=commitdiff_plain;h=0ea68c59a9ea7067fbd85f6a2a6357cabf5f0896;hp=7e138ee6bb2909b6cf4930dbbafb732d159d8483;p=MojoFacets.git

browse code on disk at /code/
---

diff --git a/lib/MojoFacets/Code.pm b/lib/MojoFacets/Code.pm
new file mode 100644
index 0000000..db4ad9f
--- /dev/null
+++ b/lib/MojoFacets/Code.pm
@@ -0,0 +1,30 @@
+package MojoFacets::Code;
+
+use strict;
+use warnings;
+
+use base 'Mojolicious::Controller';
+
+use Data::Dump qw(dump);
+use File::Slurp;
+
+sub index {
+	my $self = shift;
+
+	my $dir = $self->app->home->rel_dir('public') . '/code';
+
+	my $snippets;
+
+	foreach my $full_path ( glob("$dir/*.pl") ) {
+		my $path = $full_path;
+		$path =~ s/^$dir\/*//;
+		my ( $column, $description ) = split(/\./,$path,2);
+		$snippets->{$column}->{$description} = read_file $full_path;
+	}
+
+	$self->render(
+		snippets => $snippets,
+	);
+}
+
+1;
diff --git a/templates/code/index.html.ep b/templates/code/index.html.ep
new file mode 100644
index 0000000..7512beb
--- /dev/null
+++ b/templates/code/index.html.ep
@@ -0,0 +1,15 @@
+% layout 'default';
+
+<h1>Code snippets</h1>
+
+% foreach my $column ( keys %$snippets ) {
+<h2><%= $column %></h2>
+<ul>
+%   foreach my $desc ( keys %{ $snippets->{$column} } ) {
+<li><a href="/code/<%= $column . '.' . $desc %>"><%= $desc %></a>
+<pre><%= $snippets->{$column}->{$desc} %></pre>
+%   }
+</ul>
+% }
+
+<tt class=debug><%= dumper stash('snippets') %></tt>