#!/usr/bin/env perl
use strict;
use warnings;
use Text::Markdown 'markdown';
## This program is free software: you can redistribute it and/or modify
## it under the terms of the GNU General Public License as published by
## the Free Software Foundation, either version 3 of the License, or
## (at your option) any later version.
## This program is distributed in the hope that it will be useful,
## but WITHOUT ANY WARRANTY; without even the implied warranty of
## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
## GNU General Public License for more details.
## You should have received a copy of the GNU General Public License
## along with this program. If not, see .
### This script takes an input Markdown file, typically the Bismark User Guide
### and converts it to HTML using the Text::Markdown perl package.
### It inserts this into a static template and builds a side navigation
### / table of contents automatically, based on level 1/2 headings.
# Command line arguments
my ($input_fn, $output_fn) = @ARGV;
if (not defined $output_fn) {
die "Usage: make_docs.pl input.md output.html\n";
}
# Load the markdown file specified on the command line
open my $fh_i, '<', $input_fn or die;
$/ = undef;
my $md = <$fh_i>;
close $fh_i;
# Parse to html
my $html = markdown($md);
# Add ID attributes to headings, collect for ToC
my @toc;
sub cleanid {
my ($text, $level) = @_;
(my $id = $text) =~ s/[^A-Za-z]+/-/g;
$id = lc($id);
$id =~ s/code//g;
$id =~ s/-+/-/g;
$id =~ s/^-+|-+$//g;
$level =~ s/\D//g;
push(@toc, {'level' => $level, 'id' => $id, 'text' => $text});
return $id;
}
# This is pretty unstable, don't use elsewhere.
$html =~ s/((.+?)(?=<\/h)/$1.' id="'.cleanid($2, $1).'">'.$2/ge;
# Build the ToC
my $tocstring = '
';
my $toclevel = 1;
my $first = 1;
foreach (@toc){
next if ($_->{'level'} > 2);
if($_->{'level'} > $toclevel){
$tocstring .= '