82 lines
2.2 KiB
Raku
82 lines
2.2 KiB
Raku
use v6.e.PREVIEW;
|
|
|
|
use HTML::Functional;
|
|
use DB::BlogMeta;
|
|
use DB::Post;
|
|
|
|
unit class Config;
|
|
|
|
method generate-head(Str:D $title, BlogMeta:D $meta, $description?) {
|
|
head [
|
|
meta :charset<utf-8>;
|
|
meta :name<viewport>, :content<width=device-width, initial-scale=1>;
|
|
meta :author :content<Nathan McCarty>;
|
|
title "{$meta.title} — $title";
|
|
# Add description, if one exists
|
|
do if $description ~~ Str:D {
|
|
meta :description :content($description)
|
|
} else {
|
|
[]
|
|
}
|
|
# Preconnect to all our resource sources
|
|
link :rel<preconnect> :href<https://static.stranger.systems>;
|
|
link :rel<preconnect> :href<https://fonts.googleapis.com>;
|
|
link :rel<preconnect> :href<https://fonts.gstatic.com> :crossorigin;
|
|
# Load fonts, Iosevka Alie for code, and Open Sans for content
|
|
link :rel<stylesheet>,
|
|
:href<https://static.stranger.systems/fonts/IosevkaAlie/IosevkaAile.css>;
|
|
link :rel<stylesheet>,
|
|
:href<https://fonts.googleapis.com/css2?family=Open+Sans:ital,wght@0,300..800;1,300..800&display=swap>;
|
|
# Inline our style sheets
|
|
style %?RESOURCES<main.css>.slurp;
|
|
style %?RESOURCES<code.css>.slurp;
|
|
];
|
|
}
|
|
|
|
method site-header(BlogMeta:D $meta) {
|
|
header :class<site-header>, [
|
|
div :class<site-logo>, [
|
|
# TODO: Use a real image here
|
|
$meta.title
|
|
];
|
|
div :class<site-tagline>, [
|
|
$meta.tagline
|
|
];
|
|
div :class<header-links>, [
|
|
|
|
]
|
|
]
|
|
}
|
|
|
|
method post-header(Post:D $post) {
|
|
header :class<post-header>, [
|
|
div :class<post-title>, [
|
|
h1 $post.title;
|
|
]
|
|
]
|
|
}
|
|
|
|
# TODO: Support GFM admonitions
|
|
method generate-post(Post:D $post, BlogMeta:D $meta) {
|
|
my $content = $post.render-html;
|
|
my $head = self.generate-head($post.title, $meta, $post.description);
|
|
my $body =
|
|
body [
|
|
self.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"
|
|
}
|