290 lines
6.3 KiB
Raku
290 lines
6.3 KiB
Raku
use v6.e.PREVIEW;
|
|
|
|
use HTML::Functional;
|
|
|
|
use Render::Head;
|
|
use Render::Util;
|
|
use DB::BlogMeta;
|
|
use DB::Post;
|
|
|
|
unit class Config;
|
|
|
|
method post-date(Post:D $post) {
|
|
my $datetime = $post.posted-at;
|
|
my $timestamp = sprintf(
|
|
"%s %02d:%02d%s",
|
|
$datetime.yyyy-mm-dd,
|
|
($datetime.hour % 12) || 12,
|
|
$datetime.minute,
|
|
$datetime.hour < 12 ?? 'am' !! 'pm'
|
|
);
|
|
|
|
div :class<post-time>, :title("Posted At $timestamp"), [
|
|
icon 'time';
|
|
' ';
|
|
$timestamp
|
|
]
|
|
}
|
|
|
|
method post-edit(Post:D $post) {
|
|
return [] unless $post.edited-at.elems;
|
|
my $datetime = $post.edited-at.max;
|
|
my $timestamp = sprintf(
|
|
"%s %02d:%02d%s",
|
|
$datetime.yyyy-mm-dd,
|
|
($datetime.hour % 12) || 12,
|
|
$datetime.minute,
|
|
$datetime.hour < 12 ?? 'am' !! 'pm'
|
|
);
|
|
|
|
div :class<post-edit>, :title("Laste Edited At $timestamp"), [
|
|
icon 'edit';
|
|
' ';
|
|
$timestamp
|
|
]
|
|
}
|
|
|
|
sub mins-to-string($mins) {
|
|
if $mins < 60 {
|
|
$mins.Str ~ "m"
|
|
} else {
|
|
my $h = $mins div 60;
|
|
my $m = $mins mod 60;
|
|
$h.Str ~ "h" ~ $m.Str ~ "m"
|
|
}
|
|
}
|
|
|
|
method post-read-time(Post:D $post) {
|
|
my ($slow, $average, $fast) = $post.readtimes;
|
|
div :class<post-read-time>, :title<Estimated read time at 140/180/220 WPM>, [
|
|
icon 'timer';
|
|
' ';
|
|
mins-to-string $slow;
|
|
' ';
|
|
'/';
|
|
' ';
|
|
mins-to-string $average;
|
|
' ';
|
|
'/';
|
|
' ';
|
|
mins-to-string $fast;
|
|
]
|
|
}
|
|
|
|
method post-tag(Str:D $tag) {
|
|
span :class<post-tag>, [
|
|
a :href("/tags/$tag.html"), [
|
|
icon 'hash';
|
|
$tag;
|
|
]
|
|
]
|
|
}
|
|
|
|
method post-tags(Post:D $post){
|
|
sub intersperse (\element, +list) {
|
|
gather for list {
|
|
FIRST .take, next;
|
|
take slip element, $_;
|
|
}
|
|
}
|
|
my @tags = $post.tags;
|
|
if @tags {
|
|
@tags.=map(-> $tag {self.post-tag($tag)});
|
|
div :class<post-tags>, [
|
|
icon 'purchase-tag-alt';
|
|
' ';
|
|
intersperse(', ', @tags);
|
|
]
|
|
} else {
|
|
[]
|
|
}
|
|
}
|
|
|
|
method post-info(Post:D $post) {
|
|
div :class<post-info>, [
|
|
self.post-date: $post;
|
|
self.post-edit: $post;
|
|
self.post-read-time: $post;
|
|
self.post-tags: $post;
|
|
];
|
|
}
|
|
|
|
method post-header(Post:D $post) {
|
|
header :class<post-header>, [
|
|
div :class<post-title>, [
|
|
h1 $post.title;
|
|
];
|
|
self.post-info: $post;
|
|
]
|
|
}
|
|
|
|
# TODO: Support GFM admonitions
|
|
method generate-post(Post:D $post, BlogMeta:D $meta) {
|
|
my $content = $post.render-html;
|
|
my $head = generate-head($meta, $post.title, $post.description);
|
|
my $body =
|
|
body [
|
|
site-header $meta;
|
|
article :class<post>, [
|
|
self.post-header: $post;
|
|
div :class<post-body>, [
|
|
$content;
|
|
]
|
|
]
|
|
];
|
|
# TODO: Setup footer
|
|
# my $footer;
|
|
|
|
my $html = html :lang<en>, [
|
|
$head,
|
|
$body
|
|
];
|
|
|
|
"<!doctype html>$html"
|
|
}
|
|
|
|
method generate-blurb(Int:D $id, $db) {
|
|
my $post = $db.posts{$id};
|
|
my $desc = $post.description;
|
|
my $link = post-link $id, $post;
|
|
div :class<post-blurb>, [
|
|
div :class<post-blurb-title>, [
|
|
a :href($link), span [
|
|
h2 $post.title;
|
|
];
|
|
];
|
|
self.post-info: $post;
|
|
if $desc ~~ Str:D {
|
|
div :class<post-blurb-description>, [
|
|
p $post.description;
|
|
];
|
|
} else {
|
|
[]
|
|
}
|
|
]
|
|
}
|
|
|
|
method generate-index($db) {
|
|
my @most-recent =
|
|
$db.sorted-posts
|
|
.head(10)
|
|
.grep(!*.value.hidden)
|
|
.map(-> $pair {
|
|
self.generate-blurb: $pair.key, $db
|
|
});
|
|
|
|
my $head = generate-head($db.meta);
|
|
my $body = body [
|
|
site-header $db.meta;
|
|
div :class<post-blurbs>, [
|
|
h1 "Recent Posts"
|
|
], @most-recent;
|
|
];
|
|
|
|
my $html =
|
|
html :lang<en>, [
|
|
$head,
|
|
$body
|
|
];
|
|
|
|
"<!doctype html>$html"
|
|
}
|
|
|
|
method generate-archive($db) {
|
|
my @most-recent =
|
|
$db.sorted-posts
|
|
.grep(!*.value.hidden)
|
|
.map(-> $pair {
|
|
self.generate-blurb: $pair.key, $db
|
|
});
|
|
|
|
my $head = generate-head($db.meta);
|
|
my $body = body [
|
|
site-header $db.meta;
|
|
div :class<post-blurbs>, [
|
|
h1 "All Posts"
|
|
], @most-recent;
|
|
];
|
|
|
|
my $html =
|
|
html :lang<en>, [
|
|
$head,
|
|
$body
|
|
];
|
|
|
|
"<!doctype html>$html"
|
|
}
|
|
|
|
method generate-tag-blurb($db, $tag, $limit?) {
|
|
sub post-to-link($id, $post) {
|
|
my $desc = $post.description;
|
|
my $link = post-link $id, $post;
|
|
div :class<tag-blurb-post>, [
|
|
div :class<tag-blurb-post-title>, [
|
|
a :href($link), span [
|
|
h3 $post.title;
|
|
];
|
|
self.post-info: $post;
|
|
if $desc ~~ Str:D {
|
|
div :class<tag-blurb-post-description>, [
|
|
p $post.description;
|
|
];
|
|
} else {
|
|
[]
|
|
}
|
|
];
|
|
]
|
|
}
|
|
my @posts = $db.sorted-posts.grep(-> $a { $tag (elem) $a.value.tags });
|
|
if $limit {
|
|
@posts.=head($limit);
|
|
}
|
|
if @posts {
|
|
div :class<tag-blurb>, [
|
|
span :class<tag-blurb-title>, [
|
|
a :href("/tags/$tag.html"), [
|
|
icon 'hash';
|
|
$tag;
|
|
];
|
|
];
|
|
div :class<tag-blurb-links>,
|
|
@posts.map(-> $a {post-to-link $a.key, $a.value});
|
|
]
|
|
} else {
|
|
[]
|
|
}
|
|
}
|
|
|
|
method generate-tags-page($db, @tags) {
|
|
my $head = generate-head($db.meta);
|
|
my $body = body [
|
|
site-header $db.meta;
|
|
div :class<tags>, [
|
|
h1 "Tags";
|
|
], @tags.map(-> $tag {self.generate-tag-blurb($db, $tag, 4)});
|
|
];
|
|
|
|
my $html =
|
|
html :lang<en>, [
|
|
$head,
|
|
$body
|
|
];
|
|
|
|
"<!doctype html>$html"
|
|
}
|
|
|
|
method generate-tag-page($db, $tag) {
|
|
my $head = generate-head($db.meta);
|
|
my $body = body [
|
|
site-header $db.meta;
|
|
self.generate-tag-blurb($db, $tag, 4);
|
|
];
|
|
|
|
my $html =
|
|
html :lang<en>, [
|
|
$head,
|
|
$body
|
|
];
|
|
|
|
"<!doctype html>$html"
|
|
}
|