96 lines
1.8 KiB
Perl
96 lines
1.8 KiB
Perl
package App::BlogAlba::Publisher;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Carp;
|
|
|
|
use Text::Markdown::Hoedown;
|
|
use YAML;
|
|
|
|
use POSIX qw/strftime/;
|
|
use Date::Parse qw/str2time/;
|
|
|
|
use Unicode::Normalize;
|
|
|
|
=head1 NAME
|
|
|
|
App::BlogAlba::Publisher
|
|
|
|
=head1 VERSION
|
|
|
|
Version 0.1
|
|
|
|
=cut
|
|
|
|
our $VERSION = '0.1';
|
|
|
|
use Exporter::Easy (
|
|
EXPORT => [ qw// ],
|
|
OK => [ qw/ParseArticle, ParseArticles/ ],
|
|
);
|
|
|
|
=head1 SYNOPSIS
|
|
|
|
Allows a fairly genericised "load files from given path with given regexp and turn them into a data structure" setup.
|
|
|
|
use App::BlogAlba::Publisher;
|
|
my @articles = ParseArticles('/your/path','^.*\.md$');
|
|
|
|
=head1 TERMINOLOGY
|
|
|
|
=head2 Article
|
|
|
|
In the context of this module, an "article" is any valid markdown document which contains a YAML preamble, of the format:
|
|
|
|
---
|
|
YAML
|
|
---
|
|
|
|
MARKDOWN
|
|
|
|
=cut
|
|
|
|
sub FindArticles {
|
|
my ($path,$regexp) = @_;
|
|
opendir ARTICLES, $path or carp "Couldn't open path '$path'!" and return undef;
|
|
my @articles;
|
|
while(readdir ARTICLES) {
|
|
push @articles, "$path/$_" if /$regexp/;
|
|
}
|
|
closedir ARTICLES;
|
|
return @articles;
|
|
}
|
|
|
|
=head1 SUBROUTINES
|
|
|
|
=head2 ParseArticle
|
|
|
|
Allows a single file to be parsed. Returns a hashref of the resulting data structure.
|
|
Requires one argument, the path to a valid article.
|
|
|
|
my $article = ParseArticle('/path/to/your/article.md');
|
|
|
|
=cut
|
|
|
|
sub ParseArticle {
|
|
my $file = shift;
|
|
return {};
|
|
}
|
|
|
|
=head2 ParseArticles
|
|
|
|
A wrapper around ParseArticle() for parsing all articles in a directory. Uses FindArticles() internally for retrieving the list of articles within the directory.
|
|
Requires two arguments; the path to a directory containing articles, and a regular expression with which to compare filenames against.
|
|
|
|
=cut
|
|
|
|
sub ParseArticles {
|
|
my @articles = FindArticles @_;
|
|
my @parsed_articles;
|
|
push @parsed_articles, ParseArticle $_ for @articles;
|
|
}
|
|
|
|
1;
|
|
__END__
|