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