1 7b4d8efb 2022-02-04 op #!/usr/bin/env perl
 2 7b4d8efb 2022-02-04 op #
 3 7ae13e25 2022-02-04 op # gem2html - opinionated converter text/gemini to html
 4 7ae13e25 2022-02-04 op # public domain
 5 7b4d8efb 2022-02-04 op 
 6 7b4d8efb 2022-02-04 op use v5.10;
 7 7b4d8efb 2022-02-04 op use strict;
 8 7b4d8efb 2022-02-04 op use warnings;
 9 7b4d8efb 2022-02-04 op 
10 578a1275 2022-05-09 op use open ":std", ":encoding(UTF-8)";
11 578a1275 2022-05-09 op 
12 7b4d8efb 2022-02-04 op my $in_pre = 0;
13 7b4d8efb 2022-02-04 op my $in_list = 0;
14 7b4d8efb 2022-02-04 op 
15 7b4d8efb 2022-02-04 op while (<>) {
16 7b4d8efb 2022-02-04 op 	chomp;
17 7b4d8efb 2022-02-04 op 	if ($in_pre && m/^```/) {
18 7b4d8efb 2022-02-04 op 		$in_pre = 0;
19 7b4d8efb 2022-02-04 op 		say "</pre>";
20 7b4d8efb 2022-02-04 op 	} elsif (!$in_pre && m/^```/) {
21 7b4d8efb 2022-02-04 op 		if ($in_list) {
22 7b4d8efb 2022-02-04 op 			$in_list = 0;
23 7b4d8efb 2022-02-04 op 			say "</ul>";
24 7b4d8efb 2022-02-04 op 		}
25 7b4d8efb 2022-02-04 op 		$in_pre = 1;
26 7b4d8efb 2022-02-04 op 		print "<pre>";
27 7b4d8efb 2022-02-04 op 	} elsif ($in_pre) {
28 7b4d8efb 2022-02-04 op 		say san($_);
29 7b4d8efb 2022-02-04 op 	} elsif ($in_list && m/^$/) {
30 7b4d8efb 2022-02-04 op 		say "</ul>";
31 7b4d8efb 2022-02-04 op 		$in_list = 0;
32 7b4d8efb 2022-02-04 op 	} elsif (m/^\*\s+(.*)/) { # NB: at least one space
33 7b4d8efb 2022-02-04 op 		if (!$in_list) {
34 7b4d8efb 2022-02-04 op 			$in_list = "item";
35 7b4d8efb 2022-02-04 op 			say "<ul>";
36 7b4d8efb 2022-02-04 op 		} elsif ($in_list eq "link") {
37 7b4d8efb 2022-02-04 op 			$in_list = "item";
38 7b4d8efb 2022-02-04 op 			say "</ul>";
39 7b4d8efb 2022-02-04 op 			say "<ul>";
40 7b4d8efb 2022-02-04 op 		}
41 7b4d8efb 2022-02-04 op 		output("li", $1);
42 7b4d8efb 2022-02-04 op 	} elsif (m/^=>\s*([^\s]*)\s*(.*)$/) {
43 7b4d8efb 2022-02-04 op 		if (!$in_list) {
44 7b4d8efb 2022-02-04 op 			$in_list = "link";
45 7b4d8efb 2022-02-04 op 			say "<ul class='link-list'>";
46 7b4d8efb 2022-02-04 op 		} elsif ($in_list eq "item") {
47 7b4d8efb 2022-02-04 op 			$in_list = "link";
48 7b4d8efb 2022-02-04 op 			say "</ul>";
49 7b4d8efb 2022-02-04 op 			say "<ul class='link-list'>";
50 7b4d8efb 2022-02-04 op 		}
51 020c8587 2022-02-08 op 		say "<li><a href='$1'>". san($2 || $1) ."</a></li>";
52 7b4d8efb 2022-02-04 op 	} elsif (m/^###\s*(.*)$/) {
53 7b4d8efb 2022-02-04 op 		output("h3", $1);
54 7b4d8efb 2022-02-04 op 	} elsif (m/^##\s*(.*)$/) {
55 7b4d8efb 2022-02-04 op 		output("h2", $1);
56 7b4d8efb 2022-02-04 op 	} elsif (m/^#\s*(.*)$/) {
57 7b4d8efb 2022-02-04 op 		output("h1", $1);
58 7b4d8efb 2022-02-04 op 	} elsif (m/^>\s*(.*)$/) {
59 7b4d8efb 2022-02-04 op 		output("blockquote", $1);
60 7b4d8efb 2022-02-04 op 	} else {
61 7b4d8efb 2022-02-04 op 		output("p", $_);
62 7b4d8efb 2022-02-04 op 	}
63 7b4d8efb 2022-02-04 op }
64 7b4d8efb 2022-02-04 op 
65 7b4d8efb 2022-02-04 op sub san {
66 2035708f 2022-02-08 op 	$_ = shift;
67 7b4d8efb 2022-02-04 op 	s/&/\&amp;/g;
68 7b4d8efb 2022-02-04 op 	s/</\&lt;/g;
69 7b4d8efb 2022-02-04 op 	s/>/\&gt;/g;
70 7b4d8efb 2022-02-04 op 	return $_;
71 7b4d8efb 2022-02-04 op }
72 7b4d8efb 2022-02-04 op 
73 7b4d8efb 2022-02-04 op sub output {
74 7b4d8efb 2022-02-04 op 	my ($tn, $content) = @_;
75 7b4d8efb 2022-02-04 op 
76 7b4d8efb 2022-02-04 op 	if (!$in_list && $tn eq "li") {
77 7b4d8efb 2022-02-04 op 		$in_list = 1;
78 7b4d8efb 2022-02-04 op 		say "<ul>";
79 7b4d8efb 2022-02-04 op 	}
80 7b4d8efb 2022-02-04 op 
81 7b4d8efb 2022-02-04 op 	if ($in_list && $tn ne "li") {
82 7b4d8efb 2022-02-04 op 		$in_list = 0;
83 7b4d8efb 2022-02-04 op 		say "</ul>";
84 7b4d8efb 2022-02-04 op 	}
85 7b4d8efb 2022-02-04 op 
86 c7110e1c 2022-05-09 op 	return if $tn eq "p" && $content eq "";
87 7b4d8efb 2022-02-04 op 
88 2035708f 2022-02-08 op 	say "<$tn>". san($content) ."</$tn>";
89 7b4d8efb 2022-02-04 op }