1 7b4d8efb 2022-02-04 op #!/usr/bin/env perl
3 7ae13e25 2022-02-04 op # gem2html - opinionated converter text/gemini to html
4 7ae13e25 2022-02-04 op # public domain
10 578a1275 2022-05-09 op use open ":std", ":encoding(UTF-8)";
12 7b4d8efb 2022-02-04 op my $in_pre = 0;
13 7b4d8efb 2022-02-04 op my $in_list = 0;
17 7b4d8efb 2022-02-04 op if ($in_pre && m/^```/) {
20 7b4d8efb 2022-02-04 op } elsif (!$in_pre && m/^```/) {
21 7b4d8efb 2022-02-04 op if ($in_list) {
26 7b4d8efb 2022-02-04 op print "<pre>";
27 7b4d8efb 2022-02-04 op } elsif ($in_pre) {
29 7b4d8efb 2022-02-04 op } elsif ($in_list && m/^$/) {
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";
36 7b4d8efb 2022-02-04 op } elsif ($in_list eq "link") {
37 7b4d8efb 2022-02-04 op $in_list = "item";
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";
49 7b4d8efb 2022-02-04 op say "<ul class='link-list'>";
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);
61 7b4d8efb 2022-02-04 op output("p", $_);
74 7b4d8efb 2022-02-04 op my ($tn, $content) = @_;
76 7b4d8efb 2022-02-04 op if (!$in_list && $tn eq "li") {
81 7b4d8efb 2022-02-04 op if ($in_list && $tn ne "li") {
86 c7110e1c 2022-05-09 op return if $tn eq "p" && $content eq "";
88 2035708f 2022-02-08 op say "<$tn>". san($content) ."</$tn>";