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 $link = $1; my $link_replace = "$link"; $line =~ s/\Q$1\E/$link_replace/g; 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 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 = "

$2

"; } else { $parsed_line = "

$1

"; } print $fh "$parsed_line"; } elsif ( $line =~ m/^#{2}(?!#)(.*)#{2}$|^#{2}(?!#)(.*)$/ && $inside_code == 0) { my $parsed_line; if ( ! defined $1 || $1 eq "" ) { $parsed_line = "

$2

"; } else { $parsed_line = "

$1

"; } print $fh "$parsed_line"; } elsif ( $line =~ m/^#{3}(?!#)(.*)#{3}$|^#{3}(?!#)(.*)$/ && $inside_code == 0) { my $parsed_line; if ( ! defined $1 || $1 eq "" ) { $parsed_line = "

$2

"; } else { $parsed_line = "

$1

"; } print $fh "$parsed_line"; } elsif ( $line =~ m/^#{4}(?!#)(.*)#{4}$|^#{4}(?!#)(.*)$/ && $inside_code == 0) { my $parsed_line; if ( ! defined $1 || $1 eq "" ) { $parsed_line = "

$2

"; } else { $parsed_line = "

$1

"; } print $fh "$parsed_line"; } elsif ( $line =~ m/^#{5}(?!#)(.*)#{5}$|^#{5}(?!#)(.*)$/ && $inside_code == 0) { my $parsed_line; if ( ! defined $1 || $1 eq "" ) { $parsed_line = "
$2
"; } else { $parsed_line = "
$1
"; } print $fh "$parsed_line"; } elsif ( $line =~ m/^\*(.*)/ && $inside_code == 0) { $line = link_line($1); my $parsed_line = ""; print $fh "$parsed_line"; } elsif ( $line =~ m/^```$/ ) { if ( $inside_code == 0 ) { $inside_code = 1; print $fh "
"; } elsif ( $inside_code == 1 ) { $inside_code = 0; } } elsif ( $inside_code == 1 ) { print $fh "$line
"; } elsif ( $line =~ m/(http.*)/ ) { $line = link_line($line); print $fh "$line
"; } else { print $fh "$line
"; } } print $fh "
"; close $fh; $logger->info("Parsed README"); return $html_readme; } 1;