1 0211eb73 2022-01-23 op #!/usr/bin/env perl
  2 0211eb73 2022-01-23 op #
  3 4226d2c7 2022-02-13 op # Copyright (c) 2022 Omar Polo <op@omarpolo.com>
  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 be734542 2022-02-12 op 	} elsif (m/^</) {
 39 be734542 2022-02-12 op 		say;
 40 0211eb73 2022-01-23 op 	} elsif ($in_list && m/^$/) {
 41 0211eb73 2022-01-23 op 		say "</ul>";
 42 0211eb73 2022-01-23 op 		$in_list = 0;
 43 0211eb73 2022-01-23 op 	} elsif (m/^\*\s+(.*)/) { # NB: at least one space
 44 0211eb73 2022-01-23 op 		if (!$in_list) {
 45 0211eb73 2022-01-23 op 			$in_list = "item";
 46 0211eb73 2022-01-23 op 			say "<ul>";
 47 0211eb73 2022-01-23 op 		} elsif ($in_list eq "link") {
 48 0211eb73 2022-01-23 op 			$in_list = "item";
 49 0211eb73 2022-01-23 op 			say "</ul>";
 50 0211eb73 2022-01-23 op 			say "<ul>";
 51 0211eb73 2022-01-23 op 		}
 52 0211eb73 2022-01-23 op 		output("li", $1);
 53 0211eb73 2022-01-23 op 	} elsif (m/^=>\s*([^\s]*)\s*(.*)$/) {
 54 be734542 2022-02-12 op 		my $href = $1;
 55 be734542 2022-02-12 op 		my $alt = $2 || $1;
 56 be734542 2022-02-12 op 
 57 be734542 2022-02-12 op 		# special case: images
 58 be734542 2022-02-12 op 		if ($1 =~ /\.(png|jpg|svg)$/) {
 59 be734542 2022-02-12 op 			if ($in_list) {
 60 be734542 2022-02-12 op 				say "</ul>";
 61 be734542 2022-02-12 op 				$in_list = 0;
 62 be734542 2022-02-12 op 			}
 63 be734542 2022-02-12 op 			say "<img src='$href' alt='$alt' />";
 64 be734542 2022-02-12 op 			next;
 65 be734542 2022-02-12 op 		}
 66 be734542 2022-02-12 op 
 67 0211eb73 2022-01-23 op 		if (!$in_list) {
 68 0211eb73 2022-01-23 op 			$in_list = "link";
 69 0211eb73 2022-01-23 op 			say "<ul class='link-list'>";
 70 0211eb73 2022-01-23 op 		} elsif ($in_list eq "item") {
 71 0211eb73 2022-01-23 op 			$in_list = "link";
 72 0211eb73 2022-01-23 op 			say "</ul>";
 73 0211eb73 2022-01-23 op 			say "<ul class='link-list'>";
 74 0211eb73 2022-01-23 op 		}
 75 be734542 2022-02-12 op 		$_ = $alt;
 76 0211eb73 2022-01-23 op 		say "<li><a href='$href'>". san() ."</a></li>";
 77 0211eb73 2022-01-23 op 	} elsif (m/^###\s*(.*)$/) {
 78 0211eb73 2022-01-23 op 		output("h3", $1);
 79 0211eb73 2022-01-23 op 	} elsif (m/^##\s*(.*)$/) {
 80 0211eb73 2022-01-23 op 		output("h2", $1);
 81 0211eb73 2022-01-23 op 	} elsif (m/^#\s*(.*)$/) {
 82 0211eb73 2022-01-23 op 		output("h1", $1);
 83 0211eb73 2022-01-23 op 	} elsif (m/^>\s*(.*)$/) {
 84 0211eb73 2022-01-23 op 		output("blockquote", $1);
 85 0211eb73 2022-01-23 op 	} else {
 86 0211eb73 2022-01-23 op 		output("p", $_);
 87 0211eb73 2022-01-23 op 	}
 88 0211eb73 2022-01-23 op }
 89 0211eb73 2022-01-23 op 
 90 99c21d46 2022-02-10 op say "</ul>" if $in_list;
 91 99c21d46 2022-02-10 op say "</pre>" if $in_pre;
 92 99c21d46 2022-02-10 op 
 93 0211eb73 2022-01-23 op sub san {
 94 0211eb73 2022-01-23 op 	s/&/\&amp;/g;
 95 3d3fe931 2022-01-23 op 	s/</\&lt;/g;
 96 3d3fe931 2022-01-23 op 	s/>/\&gt;/g;
 97 0211eb73 2022-01-23 op 	return $_;
 98 0211eb73 2022-01-23 op }
 99 0211eb73 2022-01-23 op 
100 0211eb73 2022-01-23 op sub output {
101 0211eb73 2022-01-23 op 	my ($tn, $content) = @_;
102 0211eb73 2022-01-23 op 
103 0211eb73 2022-01-23 op 	if (!$in_list && $tn eq "li") {
104 0211eb73 2022-01-23 op 		$in_list = 1;
105 0211eb73 2022-01-23 op 		say "<ul>";
106 0211eb73 2022-01-23 op 	}
107 0211eb73 2022-01-23 op 
108 0211eb73 2022-01-23 op 	if ($in_list && $tn ne "li") {
109 0211eb73 2022-01-23 op 		$in_list = 0;
110 0211eb73 2022-01-23 op 		say "</ul>";
111 0211eb73 2022-01-23 op 	}
112 0211eb73 2022-01-23 op 
113 0211eb73 2022-01-23 op 	if ($tn eq "p" && $content eq "") {
114 0211eb73 2022-01-23 op 		return;
115 0211eb73 2022-01-23 op 	}
116 0211eb73 2022-01-23 op 
117 0211eb73 2022-01-23 op 	$_ = $content;
118 0211eb73 2022-01-23 op 	say "<$tn>". san() ."</$tn>";
119 0211eb73 2022-01-23 op }