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 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);
61 7b4d8efb 2022-02-04 op output("p", $_);
73 7b4d8efb 2022-02-04 op my ($tn, $content) = @_;
75 7b4d8efb 2022-02-04 op if (!$in_list && $tn eq "li") {
80 7b4d8efb 2022-02-04 op if ($in_list && $tn ne "li") {
85 7b4d8efb 2022-02-04 op if ($tn eq "p" && $content eq "") {
89 7b4d8efb 2022-02-04 op $_ = $content;
90 7b4d8efb 2022-02-04 op say "<$tn>". san() ."</$tn>";