thatonelutenist/website
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Working markdown post title

Browse source
This commit is contained in:
Nathan McCarty 2025-01-21 01:31:33 -05:00
parent ec491f6c98
commit 0b199cf9b9
4 changed files with 46 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

18
lib/Pandoc.rakumod
View file

@ -5,7 +5,7 @@ use JSON::Fast;
sub markdown-title(IO::Path:D $file --> Str:D) is export {
# Call into pandoc
my $pandoc = run 'pandoc', '-t', 'JSON', $file, :out, :err;
my $pandoc = run 'pandoc', '-f', 'gfm', '-t', 'JSON', $file, :out, :err;
my $output = $pandoc.out.slurp: :close;
my $stderr = $pandoc.err.slurp: :close;
@ -16,25 +16,29 @@ sub markdown-title(IO::Path:D $file --> Str:D) is export {
# Parse out output from pandoc, we are making an executive decision to trust
# pandoc here, so we won't do any error handling for pandoc's output
my $parsed = from-json $output;
my %parsed = from-json $output;
# Extract a list of top level headers from the pandoc output, this should
# only have one element in it, but as this is user input, its untrusted and
# we need to do some error handling
my @headers = $parsed.blocks.grep(*.t == "Header").grep(*.c[0] == 1);
my sub is-header($v) {
$v ~~ Associative && $v<t> ~~ "Header"
}
my @headers = %parsed<blocks>.grep(&is-header).grep(*<c>[0] == 1);
if @headers.elems > 1 {
die "More than one top level header in $file";
};
if @headers.elems == 0 {
die "No top level hearders in $file";
die "No top level headers in $file";
};
# Extract the header and process it into a string
my @header = @headers[0].c[2];
my @header = @headers[0]<c>[2].flat;
my $title = "";
for @header -> $component {
given $component.t {
next unless $component ~~ Associative;
given $component<t> {
when "Str" {
$title = $title ~ $component.c;
$title = $title ~ $component<c>;
}
when "Space" {
$title = $title ~ " ";