76 lines
1.8 KiB
Raku
76 lines
1.8 KiB
Raku
use v6.e.PREVIEW;
|
|
|
|
use JSON::Class:auth<zef:vrurg>;
|
|
|
|
#| Shared post meta-data
|
|
unit role Post is json;
|
|
|
|
#| The location of the source file for the post
|
|
has
|
|
IO::Path:D $.source
|
|
is required
|
|
is json(
|
|
:to-json(*.Str),
|
|
:from-json(*.IO)
|
|
);
|
|
#| The time to display for the creation of the post
|
|
has
|
|
DateTime:D $.posted-at
|
|
is required
|
|
is json(
|
|
:to-json(*.Str),
|
|
:from-json(*.DateTime)
|
|
);
|
|
#| An optional list of edit times for the post
|
|
has
|
|
DateTime:D @.edited-at
|
|
is rw
|
|
is json(
|
|
:to-json(
|
|
value => { $^value.Str }
|
|
),
|
|
:from-json(
|
|
value => { $^value.DateTime }
|
|
)
|
|
)
|
|
= [];
|
|
#| An optional list of extra slugs to use for this post
|
|
has Str:D @.slugs is json = [];
|
|
#| Should the post be hidden from the main list
|
|
has Bool:D $.hidden is json is rw = False;
|
|
|
|
#| Get the title for this post, intended to be extracted from whatever
|
|
#| document produced it
|
|
method title(--> Str:D) {...}
|
|
|
|
#| The time the post was last updated at
|
|
method updated(--> DateTime:D) {
|
|
if @!edited-at {
|
|
@!edited-at.max
|
|
} else {
|
|
$!posted-at
|
|
}
|
|
}
|
|
|
|
#| Get the list of slugs for this post, including ones auto generated from
|
|
#| the title, as well as any additional slugs
|
|
method all-slugs(--> Array[Str:D]) {
|
|
my $long-title-slug = self.title.lc.trim.subst: /\h+/, '-', :g;
|
|
my Str:D @slugs = @!slugs.clone;
|
|
@slugs.push($long-title-slug);
|
|
@slugs;
|
|
}
|
|
|
|
#| Render this post to an html body
|
|
method render-html(--> Str:D) {...}
|
|
|
|
#| Get the description for this post, returning nil if there is none
|
|
method description(--> Str) {
|
|
Nil
|
|
}
|
|
|
|
#| Estimated readtimes at 140/180/220 wpm
|
|
method readtimes() {
|
|
my $word-count = $!source.slurp.words.elems;
|
|
($word-count / 140, $word-count / 180, $word-count / 220).map(*.ceiling)
|
|
}
|