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 7b4d8efb 2022-02-04 op my $in_pre = 0;
11 7b4d8efb 2022-02-04 op my $in_list = 0;
15 7b4d8efb 2022-02-04 op if ($in_pre && m/^```/) {
18 7b4d8efb 2022-02-04 op } elsif (!$in_pre && m/^```/) {
19 7b4d8efb 2022-02-04 op if ($in_list) {
24 7b4d8efb 2022-02-04 op print "<pre>";
25 7b4d8efb 2022-02-04 op } elsif ($in_pre) {
27 7b4d8efb 2022-02-04 op } elsif ($in_list && m/^$/) {
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";
34 7b4d8efb 2022-02-04 op } elsif ($in_list eq "link") {
35 7b4d8efb 2022-02-04 op $in_list = "item";
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";
47 7b4d8efb 2022-02-04 op say "<ul class='link-list'>";
49 020c8587 2022-02-08 op say "<li><a href='$1'>". san($2 || $1) ."</a></li>";
50 7b4d8efb 2022-02-04 op } elsif (m/^###\s*(.*)$/) {
51 7b4d8efb 2022-02-04 op output("h3", $1);
52 7b4d8efb 2022-02-04 op } elsif (m/^##\s*(.*)$/) {
53 7b4d8efb 2022-02-04 op output("h2", $1);
54 7b4d8efb 2022-02-04 op } elsif (m/^#\s*(.*)$/) {
55 7b4d8efb 2022-02-04 op output("h1", $1);
56 7b4d8efb 2022-02-04 op } elsif (m/^>\s*(.*)$/) {
57 7b4d8efb 2022-02-04 op output("blockquote", $1);
59 7b4d8efb 2022-02-04 op output("p", $_);
72 7b4d8efb 2022-02-04 op my ($tn, $content) = @_;
74 7b4d8efb 2022-02-04 op if (!$in_list && $tn eq "li") {
79 7b4d8efb 2022-02-04 op if ($in_list && $tn ne "li") {
84 7b4d8efb 2022-02-04 op if ($tn eq "p" && $content eq "") {
88 2035708f 2022-02-08 op say "<$tn>". san($content) ."</$tn>";