1 files changed, 14 insertions, 0 deletions
diff --git a/testTheThing/clean_all.scm b/testTheThing/clean_all.scm
new file mode 100755
index 0000000..82091d9
--- /dev/null
+++ b/testTheThing/clean_all.scm
@@ -0,0 +1,14 @@
+#! /usr/bin/guile \
+-e main -s
+!#
+
+(define (main args)
+  (for-each
+   (lambda (file)
+     (system (string-append "./clean_up_html.scm " file ".html"
+                            " | tidy | pandoc -f html -t org > "
+                            "org/" file ".org")))
+   '("index" "linux_room" "music_room" "nathans_philosophy"
+     "truth" "ttr" "tv_corner" "distro_guides/arch"
+     "distro_guides/fedora" "distro_guides/xfce"
+     "error/404")))