https://git.spwbk.site/swatson/git-site-gen/raw/master/lib/Gsg/MdParse.pm
___________________________________
package Gsg::MdParse;
use strict;
use warnings;
use Log::Log4perl qw(:easy);
use Exporter qw(import);
our @EXPORT_OK = qw(render_readme);
sub link_line($) {
my $line = shift;
if ( $line =~ m/(<(http.*)>)/ ) {
my $markup_link = $1;
my $link = $2;
my $link_replace = "<a href=\"$link\">$link</a>";
$line =~ s/\Q$1\E/$link_replace/g;
return $line;
}
return $line;
}
sub strike_line($) {
my $line = shift;
#if ( $line =~ m/~~(.*)~~/ ) {
if ( $line =~ m/^(.*)~~(.*)~~(.*)/ ) {
$line = "$1<s>$2</s>$3";
return $line;
}
return $line;
}
# README content is passed in as a var, sub returned an HTML version of the parsed markdown
sub render_readme($$) {
my $readme_content = shift;
my $logger = shift;
my $html_readme;
# Might be a better way to do this? TODO
open my $fh, '>>', \$html_readme or die "Can't open variable: $!";
# Main parsing logic, doing it line by line
# I have some ideas on how to make this more robust/efficient,
# but starting with below for POC
# TODO:
# Headers parsing can be one concise subroutine
# Started building a suite of simple subs to handle everything else,
# each line should be run through the 'sub suite' to handle all parsing
my @readme_lines = split("\n", $readme_content);
my $inside_code = 0;
foreach my $line ( @readme_lines ) {
# HEADERS
if ( $line =~ m/^#{1}(?!#)(.*)#$|^#{1}(?!#)(.*)$/ && $inside_code == 0 ) {
my $parsed_line;
if ( ! defined $1 || $1 eq "" ) {
$parsed_line = "<h1>$2</h1>";
} else {
$parsed_line = "<h1>$1</h1>";
}
print $fh "$parsed_line";
} elsif ( $line =~ m/^#{2}(?!#)(.*)#{2}$|^#{2}(?!#)(.*)$/ && $inside_code == 0) {
my $parsed_line;
if ( ! defined $1 || $1 eq "" ) {
$parsed_line = "<h2>$2</h2>";
} else {
$parsed_line = "<h2>$1</h2>";
}
print $fh "$parsed_line";
} elsif ( $line =~ m/^#{3}(?!#)(.*)#{3}$|^#{3}(?!#)(.*)$/ && $inside_code == 0) {
my $parsed_line;
if ( ! defined $1 || $1 eq "" ) {
$parsed_line = "<h3>$2</h3>";
} else {
$parsed_line = "<h3>$1</h3>";
}
print $fh "$parsed_line";
} elsif ( $line =~ m/^#{4}(?!#)(.*)#{4}$|^#{4}(?!#)(.*)$/ && $inside_code == 0) {
my $parsed_line;
if ( ! defined $1 || $1 eq "" ) {
$parsed_line = "<h4>$2</h4>";
} else {
$parsed_line = "<h4>$1</h4>";
}
print $fh "$parsed_line";
} elsif ( $line =~ m/^#{5}(?!#)(.*)#{5}$|^#{5}(?!#)(.*)$/ && $inside_code == 0) {
my $parsed_line;
if ( ! defined $1 || $1 eq "" ) {
$parsed_line = "<h5>$2</h5>";
} else {
$parsed_line = "<h5>$1</h5>";
}
print $fh "$parsed_line";
} elsif ( $line =~ m/^\*(.*)/ && $inside_code == 0) {
$line = strike_line($1);
$line = link_line($line);
my $parsed_line = "<ul><li>$line</li></ul>";
print $fh "$parsed_line";
} elsif ( $line =~ m/^```$/ ) {
if ( $inside_code == 0 ) {
$inside_code = 1;
print $fh "<br>";
} elsif ( $inside_code == 1 ) {
$inside_code = 0;
}
} elsif ( $inside_code == 1 ) {
print $fh "<code>$line</code><br>";
} elsif ( $line =~ m/(http.*)/ ) {
$line = link_line($line);
print $fh "$line<br>";
} elsif ( $line =~ m/^~~(.*)~~/ ) {
$line = strike_line($line);
print $fh "$line<br>";
}
else {
print $fh "$line<br>";
}
}
print $fh "<br>";
close $fh;
$logger->info("Parsed README");
return $html_readme;
}
1;
