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