reorganising src files

.editorconfig

@@ -0,0 +1,3 @@
+root=true
+[*]
+line_ending

src/_tape/.editorconfig

@@ -0,0 +1,4 @@
+root=false
+[*.pl]
+indent_type=space
+indent_size=1

src/_tape/render.sh

@@ -1,5 +1,6 @@
 #!/bin/bash
 # render.sh: part of the tape-and-string framework.
+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}

src/_tape/string.pl

@@ -0,0 +1,20 @@
+#!/usr/bin/env perl
+use strict; use warnings;
+use "dat.pl";
+use Text::Textile;
+use Text::Markdown;
+use Org::To::HTML
+if($ARGV[1][0]=='_') {
+  print STDERR "Skipping file: $ARGV[1], ignored.";
+  exit 0;
+}
+my @fi = split(/\./, $ARGV[1])
+if(!exists($fn{$fi[1]}) {
+	print STDERR "Skipping file: $ARGV[1], no way to process extension.";
+	exit 1;
+}
+open $if, "<$ARGV[1]";
+open $of, ">_tmp";
+$fn{$fi[1]}($if);
+close $if;
+close $of;