Work on tape and string framework

src/_tape/dat.pm

@@ -0,0 +1,16 @@
+package tape;
+use strict; use warnings;
+use Exporter qw(Export);
+our @EXPORT = qw(fn titles);
+my %fn = (
+  'txti' => sub {
+  },
+  'md' => sub {
+  },
+  'org' => sub {
+  }
+);
+my %titles = (
+  "not_found.txti" => "404 - Page Not Found",
+  "index.txti" => "Atlas48's Archives"
+);

src/_tape/render.sh

@@ -1,7 +1,14 @@
 #!/bin/bash
 # render.sh: part of the tape-and-string framework.
+# v2.0
 cd ..
-declare -A title=([not_found]="404 - Page Not Found" [index]="Atlas48's Archives")
-for i in *.txti; do
-  flatiron < $i | m4 -DTITLE=${title[${i##.html}]} main.html.m4 | sed '/^$/d' > ../${i/txti/html}
+files=(`find -not -path '_*'`)
+for i in ${files[@]}; do
+  if test -d $i; then
+	mkdir -p ../$i
+  elif test -f $i; then
+	_tape/render.pl $i
+  else
+	echo "Skipping $i, unknown file type"
+  fi
 done

src/_tape/string.pl

@@ -1,6 +1,6 @@
 #!/usr/bin/env perl
 use strict; use warnings;
-use "dat.pl";
+use "dat.pm";
 use Text::Textile;
 use Text::Markdown;
 use Org::To::HTML