1 7b4d8efb 2022-02-04 op #!/usr/bin/env perl
  2 7b4d8efb 2022-02-04 op #
  3 7b4d8efb 2022-02-04 op # Copyright (c) 2022 Omar Polo <op@openbsd.org>
  4 7b4d8efb 2022-02-04 op #
  5 7b4d8efb 2022-02-04 op # Permission to use, copy, modify, and distribute this software for any
  6 7b4d8efb 2022-02-04 op # purpose with or without fee is hereby granted, provided that the above
  7 7b4d8efb 2022-02-04 op # copyright notice and this permission notice appear in all copies.
  8 7b4d8efb 2022-02-04 op #
  9 7b4d8efb 2022-02-04 op # THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
 10 7b4d8efb 2022-02-04 op # WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
 11 7b4d8efb 2022-02-04 op # MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
 12 7b4d8efb 2022-02-04 op # ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
 13 7b4d8efb 2022-02-04 op # WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
 14 7b4d8efb 2022-02-04 op # ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
 15 7b4d8efb 2022-02-04 op # OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 16 7b4d8efb 2022-02-04 op 
 17 7b4d8efb 2022-02-04 op use v5.10;
 18 7b4d8efb 2022-02-04 op use strict;
 19 7b4d8efb 2022-02-04 op use warnings;
 20 7b4d8efb 2022-02-04 op 
 21 7b4d8efb 2022-02-04 op my $in_pre = 0;
 22 7b4d8efb 2022-02-04 op my $in_list = 0;
 23 7b4d8efb 2022-02-04 op 
 24 7b4d8efb 2022-02-04 op while (<>) {
 25 7b4d8efb 2022-02-04 op 	chomp;
 26 7b4d8efb 2022-02-04 op 	if ($in_pre && m/^```/) {
 27 7b4d8efb 2022-02-04 op 		$in_pre = 0;
 28 7b4d8efb 2022-02-04 op 		say "</pre>";
 29 7b4d8efb 2022-02-04 op 	} elsif (!$in_pre && m/^```/) {
 30 7b4d8efb 2022-02-04 op 		if ($in_list) {
 31 7b4d8efb 2022-02-04 op 			$in_list = 0;
 32 7b4d8efb 2022-02-04 op 			say "</ul>";
 33 7b4d8efb 2022-02-04 op 		}
 34 7b4d8efb 2022-02-04 op 		$in_pre = 1;
 35 7b4d8efb 2022-02-04 op 		print "<pre>";
 36 7b4d8efb 2022-02-04 op 	} elsif ($in_pre) {
 37 7b4d8efb 2022-02-04 op 		say san($_);
 38 7b4d8efb 2022-02-04 op 	} elsif ($in_list && m/^$/) {
 39 7b4d8efb 2022-02-04 op 		say "</ul>";
 40 7b4d8efb 2022-02-04 op 		$in_list = 0;
 41 7b4d8efb 2022-02-04 op 	} elsif (m/^\*\s+(.*)/) { # NB: at least one space
 42 7b4d8efb 2022-02-04 op 		if (!$in_list) {
 43 7b4d8efb 2022-02-04 op 			$in_list = "item";
 44 7b4d8efb 2022-02-04 op 			say "<ul>";
 45 7b4d8efb 2022-02-04 op 		} elsif ($in_list eq "link") {
 46 7b4d8efb 2022-02-04 op 			$in_list = "item";
 47 7b4d8efb 2022-02-04 op 			say "</ul>";
 48 7b4d8efb 2022-02-04 op 			say "<ul>";
 49 7b4d8efb 2022-02-04 op 		}
 50 7b4d8efb 2022-02-04 op 		output("li", $1);
 51 7b4d8efb 2022-02-04 op 	} elsif (m/^=>\s*([^\s]*)\s*(.*)$/) {
 52 7b4d8efb 2022-02-04 op 		if (!$in_list) {
 53 7b4d8efb 2022-02-04 op 			$in_list = "link";
 54 7b4d8efb 2022-02-04 op 			say "<ul class='link-list'>";
 55 7b4d8efb 2022-02-04 op 		} elsif ($in_list eq "item") {
 56 7b4d8efb 2022-02-04 op 			$in_list = "link";
 57 7b4d8efb 2022-02-04 op 			say "</ul>";
 58 7b4d8efb 2022-02-04 op 			say "<ul class='link-list'>";
 59 7b4d8efb 2022-02-04 op 		}
 60 7b4d8efb 2022-02-04 op 		my $href = $1;
 61 7b4d8efb 2022-02-04 op 		$_ = $2 || $1;
 62 7b4d8efb 2022-02-04 op 		say "<li><a href='$href'>". san() ."</a></li>";
 63 7b4d8efb 2022-02-04 op 	} elsif (m/^###\s*(.*)$/) {
 64 7b4d8efb 2022-02-04 op 		output("h3", $1);
 65 7b4d8efb 2022-02-04 op 	} elsif (m/^##\s*(.*)$/) {
 66 7b4d8efb 2022-02-04 op 		output("h2", $1);
 67 7b4d8efb 2022-02-04 op 	} elsif (m/^#\s*(.*)$/) {
 68 7b4d8efb 2022-02-04 op 		output("h1", $1);
 69 7b4d8efb 2022-02-04 op 	} elsif (m/^>\s*(.*)$/) {
 70 7b4d8efb 2022-02-04 op 		output("blockquote", $1);
 71 7b4d8efb 2022-02-04 op 	} else {
 72 7b4d8efb 2022-02-04 op 		output("p", $_);
 73 7b4d8efb 2022-02-04 op 	}
 74 7b4d8efb 2022-02-04 op }
 75 7b4d8efb 2022-02-04 op 
 76 7b4d8efb 2022-02-04 op sub san {
 77 7b4d8efb 2022-02-04 op 	s/&/\&amp;/g;
 78 7b4d8efb 2022-02-04 op 	s/</\&lt;/g;
 79 7b4d8efb 2022-02-04 op 	s/>/\&gt;/g;
 80 7b4d8efb 2022-02-04 op 	return $_;
 81 7b4d8efb 2022-02-04 op }
 82 7b4d8efb 2022-02-04 op 
 83 7b4d8efb 2022-02-04 op sub output {
 84 7b4d8efb 2022-02-04 op 	my ($tn, $content) = @_;
 85 7b4d8efb 2022-02-04 op 
 86 7b4d8efb 2022-02-04 op 	if (!$in_list && $tn eq "li") {
 87 7b4d8efb 2022-02-04 op 		$in_list = 1;
 88 7b4d8efb 2022-02-04 op 		say "<ul>";
 89 7b4d8efb 2022-02-04 op 	}
 90 7b4d8efb 2022-02-04 op 
 91 7b4d8efb 2022-02-04 op 	if ($in_list && $tn ne "li") {
 92 7b4d8efb 2022-02-04 op 		$in_list = 0;
 93 7b4d8efb 2022-02-04 op 		say "</ul>";
 94 7b4d8efb 2022-02-04 op 	}
 95 7b4d8efb 2022-02-04 op 
 96 7b4d8efb 2022-02-04 op 	if ($tn eq "p" && $content eq "") {
 97 7b4d8efb 2022-02-04 op 		return;
 98 7b4d8efb 2022-02-04 op 	}
 99 7b4d8efb 2022-02-04 op 
100 7b4d8efb 2022-02-04 op 	$_ = $content;
101 7b4d8efb 2022-02-04 op 	say "<$tn>". san() ."</$tn>";
102 7b4d8efb 2022-02-04 op }