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 7b4d8efb 2022-02-04 op my $in_pre = 0;
11 7b4d8efb 2022-02-04 op my $in_list = 0;
12 7b4d8efb 2022-02-04 op 
13 7b4d8efb 2022-02-04 op while (<>) {
14 7b4d8efb 2022-02-04 op 	chomp;
15 7b4d8efb 2022-02-04 op 	if ($in_pre && m/^```/) {
16 7b4d8efb 2022-02-04 op 		$in_pre = 0;
17 7b4d8efb 2022-02-04 op 		say "</pre>";
18 7b4d8efb 2022-02-04 op 	} elsif (!$in_pre && m/^```/) {
19 7b4d8efb 2022-02-04 op 		if ($in_list) {
20 7b4d8efb 2022-02-04 op 			$in_list = 0;
21 7b4d8efb 2022-02-04 op 			say "</ul>";
22 7b4d8efb 2022-02-04 op 		}
23 7b4d8efb 2022-02-04 op 		$in_pre = 1;
24 7b4d8efb 2022-02-04 op 		print "<pre>";
25 7b4d8efb 2022-02-04 op 	} elsif ($in_pre) {
26 7b4d8efb 2022-02-04 op 		say san($_);
27 7b4d8efb 2022-02-04 op 	} elsif ($in_list && m/^$/) {
28 7b4d8efb 2022-02-04 op 		say "</ul>";
29 7b4d8efb 2022-02-04 op 		$in_list = 0;
30 7b4d8efb 2022-02-04 op 	} elsif (m/^\*\s+(.*)/) { # NB: at least one space
31 7b4d8efb 2022-02-04 op 		if (!$in_list) {
32 7b4d8efb 2022-02-04 op 			$in_list = "item";
33 7b4d8efb 2022-02-04 op 			say "<ul>";
34 7b4d8efb 2022-02-04 op 		} elsif ($in_list eq "link") {
35 7b4d8efb 2022-02-04 op 			$in_list = "item";
36 7b4d8efb 2022-02-04 op 			say "</ul>";
37 7b4d8efb 2022-02-04 op 			say "<ul>";
38 7b4d8efb 2022-02-04 op 		}
39 7b4d8efb 2022-02-04 op 		output("li", $1);
40 7b4d8efb 2022-02-04 op 	} elsif (m/^=>\s*([^\s]*)\s*(.*)$/) {
41 7b4d8efb 2022-02-04 op 		if (!$in_list) {
42 7b4d8efb 2022-02-04 op 			$in_list = "link";
43 7b4d8efb 2022-02-04 op 			say "<ul class='link-list'>";
44 7b4d8efb 2022-02-04 op 		} elsif ($in_list eq "item") {
45 7b4d8efb 2022-02-04 op 			$in_list = "link";
46 7b4d8efb 2022-02-04 op 			say "</ul>";
47 7b4d8efb 2022-02-04 op 			say "<ul class='link-list'>";
48 7b4d8efb 2022-02-04 op 		}
49 7b4d8efb 2022-02-04 op 		my $href = $1;
50 7b4d8efb 2022-02-04 op 		$_ = $2 || $1;
51 7b4d8efb 2022-02-04 op 		say "<li><a href='$href'>". san() ."</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 7b4d8efb 2022-02-04 op 	s/&/\&amp;/g;
67 7b4d8efb 2022-02-04 op 	s/</\&lt;/g;
68 7b4d8efb 2022-02-04 op 	s/>/\&gt;/g;
69 7b4d8efb 2022-02-04 op 	return $_;
70 7b4d8efb 2022-02-04 op }
71 7b4d8efb 2022-02-04 op 
72 7b4d8efb 2022-02-04 op sub output {
73 7b4d8efb 2022-02-04 op 	my ($tn, $content) = @_;
74 7b4d8efb 2022-02-04 op 
75 7b4d8efb 2022-02-04 op 	if (!$in_list && $tn eq "li") {
76 7b4d8efb 2022-02-04 op 		$in_list = 1;
77 7b4d8efb 2022-02-04 op 		say "<ul>";
78 7b4d8efb 2022-02-04 op 	}
79 7b4d8efb 2022-02-04 op 
80 7b4d8efb 2022-02-04 op 	if ($in_list && $tn ne "li") {
81 7b4d8efb 2022-02-04 op 		$in_list = 0;
82 7b4d8efb 2022-02-04 op 		say "</ul>";
83 7b4d8efb 2022-02-04 op 	}
84 7b4d8efb 2022-02-04 op 
85 7b4d8efb 2022-02-04 op 	if ($tn eq "p" && $content eq "") {
86 7b4d8efb 2022-02-04 op 		return;
87 7b4d8efb 2022-02-04 op 	}
88 7b4d8efb 2022-02-04 op 
89 7b4d8efb 2022-02-04 op 	$_ = $content;
90 7b4d8efb 2022-02-04 op 	say "<$tn>". san() ."</$tn>";
91 7b4d8efb 2022-02-04 op }