—

              
# ABSTRACT: Blog posts
package HiD::Post;
$HiD::Post::VERSION = '1.94'; # TRIAL
use Moose;
with
  'HiD::Role::IsConverted',
  'HiD::Role::IsPost',
  'HiD::Role::IsPublished';
with 'HiD::Role::DoesLogging'; # this one last b/c it needs method delegated
                               # by initial roles
use namespace::autoclean;
use 5.014;  # strict, unicode_strings
use utf8;
use autodie;
use warnings    qw/ FATAL  utf8     /;
use open        qw/ :std  :utf8     /;
use charnames   qw/ :full           /;
use Path::Tiny;
use String::Errf    qw/ errf /;
sub BUILD {
  my $self = shift;
  if ( defined $self->get_metadata('published')
         and not $self->get_metadata('published')) {
    $self->LOGWARN(
      sprintf "Skipping %s because 'published' flag is false" , $self->input_filename
    );
    die;
  }
}
sub get_default_layout { 'post' }
sub publish {
  my $self = shift;
  my $out = path( $self->output_filename );
  my $dir = $out->parent;
  $dir->mkpath unless $dir->is_dir;
  $out->spew_utf8( $self->rendered_content );
}
# override
my $date_regex = qr|([0-9]{4})-([0-9]{1,2})-([0-9]{1,2})|;
sub _build_basename {
  my $self = shift;
  my $ext = '.' . $self->ext;
  my $basename = path( $self->input_filename )->basename( $ext );
  if( $self->get_config( 'publish_drafts' )) {
    if ( $self->is_draft ) {
      # not fatal to lack a date if you're a draft, but okay to have one
      $basename =~ s/^.*?$date_regex-//;
      return $basename;
    }
  }
  $basename =~ s/^.*?$date_regex-// or die "no date in filename";
  return $basename;
}
sub _build_url {
  my $self = shift;
  ### FIXME this is all horribly bigoted towards unix-ish file paths
  my %formats = (
    simple => '/posts/%{year}/%{month}/%{title}.html',
    date   => '/%{categories}s/%{year}s/%{month}s/%{day}s/%{title}s.html' ,
    ii     => '%{year}s/%{month}s/%{day}s/%{title}s.html' ,
    pretty => '/%{categories}s/%{year}s/%{month}s/%{day}s/%{title}s/' ,
    none   => '/%{categories}s/%{title}s.html' ,
  );
  my $permalink_format = $self->get_metadata( 'permalink' ) //
   $self->get_config('permalink') // 'date';
  $permalink_format = $formats{$permalink_format}
    if exists $formats{$permalink_format};
  my $categories = ( join '/' , @{ $self->categories } ) || '';
  my $day        = $self->strftime( '%d' , $self->day   );
  my $month      = $self->strftime( '%m' , $self->month );
  my $permalink = errf $permalink_format , {
    categories => $categories ,
    day        => $day ,
    i_day      => $self->day,
    i_month    => $self->month,
    month      => $month ,
    title      => $self->basename ,
    year       => $self->year ,
  };
  $permalink =~ s|//+|/|g;
  return $permalink;
}
__PACKAGE__->meta->make_immutable;
1;
__END__
HideShow 51 lines of Pod
=pod
=encoding UTF-8
=head1 NAME
HiD::Post - Blog posts
=head1 SYNOPSIS
    my $post = HiD::Post->new({
      dest_dir       => 'path/to/output/dir' ,
      hid            => $master_hid_object ,
      input_filename => 'path/to/file/for/this/post' ,
      layouts        => $hashref_of_hid_layout_objects,
    });
=head1 DESCRIPTION
Class representing a "blog post" object.
=head1 METHODS
=head2 get_default_layout
The default layout used when publishing a L<HiD::Post> object. (Defaults to 'post'.)
=head2 publish
Publish -- convert, render through any associated layouts, and write out to
disk -- this data from this object.
=for Pod::Coverage BUILD
=head1 VERSION
version 1.94
=head1 AUTHOR
John SJ Anderson <genehack@genehack.org>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2015 by John SJ Anderson.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut