Hack together a script for testing HTML output

Author: Alhadis

spec/tools/bemuse.1

@@ -0,0 +1,61 @@
+.Dd October 15, 2019
+.Dt BEMUSE 1
+.Os
+.Sh NAME
+.Nm bemuse
+.Nd quickly convert a Muse document to HTML
+.
+.Sh SYNOPSIS
+.Nm
+.Op Ar files
+.Pp
+.Nm
+.Op < Ar stdin
+.
+.Sh DESCRIPTION
+.Nm
+formats a list of Muse
+.Ar files
+using the
+.Xr Text::Amuse 3pm
+module from
+.Xr cpan 1 .
+Output is basic HTML with
+.Li .html
+replacing the file's
+.Li .muse
+extension.
+.
+.Pp
+If there are no files passed on the command-line,
+.Nm
+reads from stdin and writes to standard output.
+.
+.Sh FILES
+.Pa TEMP_FILE_LOL\.tmp\~
+Created in the executable's directory when reading from stdin.
+A limitation of
+.Xr Text::Amuse 3pm
+is that a filename is required to instantiate a new document.
+The aforementioned filename \(em unlikely to be in-use by the filesystem \(em
+is removed once the output has been generated.
+.
+.Sh EXIT STATUS
+.Ex -std
+.
+.Sh EXAMPLES
+Write converted HTML to stdout:
+.Bd -literal
+.Nm < Ar input
+.Ed
+.
+.Pp
+Create
+.Ar file.html :
+.Bd -literal
+.Nm Ar file.muse
+.Ed
+.
+.Sh SEE ALSO
+.Xr perl 1 ,
+.Xr Text::Amuse 3pm

spec/tools/bemuse.pl

@@ -0,0 +1,64 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use autodie;
+use v5.14;
+use utf8;
+$| = 1;
+
+use warnings  qw< FATAL utf8 >;
+use open      qw< :std :utf8 >;
+use feature   qw< say unicode_strings >;
+use File::Spec::Functions qw< rel2abs >;
+use Text::Amuse;
+
+die <<END if(-t and $#ARGV < 0);
+bemuse: quickly convert a Muse document to HTML
+
+Usage:
+	bemuse < input    # Write converted HTML to stdout
+	bemuse file.muse  # Create file.html
+END
+
+
+my $execDir = Cwd::abs_path rel2abs("../", "$0");
+my $tempFile = undef;
+
+@ARGV = do {{
+	# HACK: Text::Amuse(3pm) says:
+	#
+	#   “Please note that you can't pass a string.
+	#    Build a wrapper going through a temporary
+	#    file if you need to pass strings.”
+	#
+	# Well, okay then…
+	$tempFile = "$execDir/TEMP_FILE_LOL.tmp~";
+	open(my $fh, "> :encoding(UTF-8)", $tempFile);
+	while(<STDIN>){ print $fh $_; }
+	close($fh);
+	($tempFile);
+}} unless $ARGV[0];
+
+END {
+	if(defined($tempFile)){
+		unlink $tempFile or die $@;
+	}
+	close STDOUT;
+}
+
+for my $file (@ARGV) {
+	my $document = Text::Amuse->new(file => $file) or die $@;
+	my $html = $document->as_html;
+	
+	# Reading (or read, rather) from standard input
+	if(defined($tempFile) && !-t){
+		$html =~ s/^\R+|\R+$//g;
+		say $html;
+	}
+	else{
+		(my $outputFile = $ARGV) =~ s/\.\Kmuse$/html/i;
+		open(my $fh, "> :encoding(UTF-8)", $outputFile) or die $@;
+		print $fh $html;
+		close $fh or die $@;
+	}
+}