#!/usr/bin/perl -w

# converts markdown exported from hackmd.io to reStructuredText

# SPDX-FileCopyrightText: © 2020 Stefano Zacchiroli <zack@upsilon.cc>

# SPDX-License-Identifier: GPL-3.0-or-later

use strict;

my $md_fname = $ARGV[0];
die "Usage: hackmd2rst MARKDOWN_FILE\n" unless defined $md_fname;
open(my $rst, "pandoc -f markdown -t rst '$md_fname' |")
    or die "pandoc conversion failure";
while (my $line = <$rst>) {
    chomp $line;
    if ($line =~ /^\s*\[TOC\]\s*$/) {
	print(".. toctree::\n");
	print("   :maxdepth: 2\n");
    } elsif ($line =~ /^\s+\[[^\]]+\]\s+(.*)/) {
	print(".. note::\n\n");
	print("   $1\n");
    } else {
	print $line, "\n";
    }
}