mdbook-latex: Add mdBook backend script.

Author: flexibeast

book.toml

@@ -7,6 +7,8 @@ title = "Void Linux Handbook"
 [output.html]
 theme = "src/theme"
 
+[output.latex]
+
 [output.linkcheck]
 follow-web-links = true
 exclude = [ "kernel.org", "ntp.org", "\\.onion", "localhost", "hushan.tech" ]

mdbook-latex

@@ -0,0 +1,120 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use JSON;
+
+my $data;
+{
+  local $/;
+  undef $/;
+  $data = <>;
+}
+my $json = JSON->new->decode($data);
+my $sections = $json->{book}->{sections};
+my $date = `date '+%d %B %Y'`;
+chomp $date;
+
+my $latex;
+
+
+$latex .= "\\documentclass{book}\n";
+$latex .= "\\usepackage{hyperref}\n";
+$latex .= "\\def\\code#1{\\texttt{#1}}\n";
+$latex .= "\\def\\codeblock#1{\\texttt{#1}}\n";
+$latex .= "\\begin{document}\n";
+$latex .= "\\title{Void Handbook}\n";
+$latex .= "\\date{$date}\n";
+$latex .= "\\maketitle\n";
+
+foreach my $i (@$sections) {
+    process_json($i);
+}
+
+$latex .= "\\end{document}\n";
+
+open(my $fh, ">", "handbook.tex")
+    or die "Can't open handbook.tex for writing: $!";
+print $fh $latex;
+close($fh)
+    or die "Couldn't close handboox.tex after writing: $!";
+
+exit 0;
+
+sub process_json {
+
+    my $j = shift;
+    my $type = ref($j);
+    if ($type eq 'HASH') {
+        if (defined $j->{content}) {
+            process_content($j->{content});
+        }
+        if (defined $j->{Chapter}) {
+            process_json($j->{Chapter});
+        }
+        if (defined $j->{sub_items}) {
+            foreach my $k ($j->{sub_items}) {
+                process_json($k);
+            }
+        }
+    }
+    if ($type eq 'ARRAY') {
+        foreach my $k (@{$j}) {
+            process_json($k);
+        }
+    }
+}
+
+sub process_content {
+
+    my $content = shift;
+
+    # Create section headings
+    $content =~ s/^# ([^\n]+)/create_hyperref($1,"section")/eg;
+
+    # Create subsection headings;
+    $content =~ s/\n## ([^\n]+)/\\subsection\{$1\}/g;
+
+    # Create subsubsection headings.
+    $content =~ s/\n### ([^\n]+)/\\subsubsection\{$1\}/g;
+
+    # Create paragraph headings.
+    $content =~ s/\n#### ([^\n]+)/\\paragraph\{$1\}/g;
+
+    # Create subparagraph headings.
+    $content =~ s/\n##### ([^\n]+)/\\subparagraph\{$1\}/g;
+
+    # Create inline code.
+    $content =~ s/(?: |\n)`([^`]+)`/ \\code\{$1\}/g;
+
+    # Create codeblocks.
+    $content =~ s/\n```(.+?)\n```/\n\\codeblock\{$1\}/sg;
+
+    # TODO: Create lists.
+
+    # TODO: Create tables.
+
+    # TODO: Create internal links.
+    $content =~ s/\[(.+?)\]\((\..+?)\)/--internal link--/sg;
+
+    # Create external links.
+    $content =~ s/\[(.+?)\]\((.+?)\)/\\href\{$2\}\{$1\}/sg;
+
+    # TODO: Create blockquotes.
+
+    $latex .= $content;
+
+}
+
+sub create_hyperref {
+
+    my $arg = shift;
+    my $type = shift;
+    my $ref;
+
+    $ref .= "\\hypertarget{";
+    $ref .= lc($arg);
+    $ref .= "}{}\n\\$type\{$arg\}"
+
+}