From 67ce6cf562b3ca9bc29e4ed65a6a89631eb70577 Mon Sep 17 00:00:00 2001
From: lhess2021 <lorenzohess@tutanota.com>
Date: Sun, 20 Mar 2022 01:57:52 -0400
Subject: [PATCH] creates complete canticle xml files

---
 shell-scripts.d/full-canticles.sh | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100755 shell-scripts.d/full-canticles.sh

diff --git a/shell-scripts.d/full-canticles.sh b/shell-scripts.d/full-canticles.sh
new file mode 100755
index 0000000..33a15ef
--- /dev/null
+++ b/shell-scripts.d/full-canticles.sh
@@ -0,0 +1,23 @@
+#!/bin/bash
+
+# Make full canticle files from comedy-xml.d
+
+xml_dir=../comedy-xml.d
+
+canticles=( 'inferno' 'purgatorio' 'paradiso' )
+
+for canticle in "${canticles[@]}";
+do
+	canticle_dir="$xml_dir/$canticle-xml.d/"
+	canticle_complete=$xml_dir"/$canticle-complete.xml"
+	cp ./canticle-base.xml $canticle_complete
+	sed -i "s/CANTICLE/The\ Complete\ ${canticle^}/" $canticle_complete
+	for canto in $canticle_dir*;
+	do
+		canto_text="$(xmlstarlet sel -t -c "_:TEI/_:text/_:canto" $canto)"
+		echo "$canto_text" >> $canticle_complete
+	done
+	echo -e "\t</text>" >> $canticle_complete
+	echo "</TEI>" >> $canticle_complete
+	sed -i 's/<canto\ xmlns=\"http:\/\/www.tei-c.org\/ns\/1.0\"/\t\t<canto/g' $canticle_complete
+done