1 files changed, 19 insertions, 0 deletions
diff --git a/TM b/TM
new file mode 100644
index 0000000..a4f2721
--- /dev/null
+++ b/TM

@@ -0,0 +1,19 @@
+<!DOCTYPE html>
+<meta charset=utf-8>
+<title>$(T|sed 's/<[^>]\+>//g')</title>
+$(q -d S &&
+e '<link rel=stylesheet href=S/css.css>' ||
+e '<style>
+body{max-width:70ch;padding:2ch;margin:auto;font:18px/1.4 serif;} </style>')
+<h1>$(T)</h1>
+$(B|./lht)
+$(q "${N%%.*}" = index&&(
+e '<ul id=toc>'
+for p in I/*;do q "$p" = "$F"&&continue;
+n="${p#I/}";n="${n%%.*}.htm"
+e "<li><a href=\"$n\">$(sed 1q $p)</a></li>"
+done
+e '</ul>')||(e '<a id=toc href=index.htm>return</a>'))
+<footer>&copy; 2019 Case Duckworth</footer>

diff --git a/TM b/TM new file mode 100644 index 0000000..a4f2721 --- /dev/null +++ b/TM
@@ -0,0 +1,19 @@
	1	<!DOCTYPE html>
	2	<meta charset=utf-8>
	3	<title>$(T\|sed 's/<[^>]\+>//g')</title>
	4	$(q -d S &&
	5	e '<link rel=stylesheet href=S/css.css>' \|\|
	6	e '<style>
	7	body{max-width:70ch;padding:2ch;margin:auto;font:18px/1.4 serif;} </style>')
	8
	9	<h1>$(T)</h1>
	10	$(B\|./lht)
	11
	12	$(q "${N%%.*}" = index&&(
	13	e '<ul id=toc>'
	14	for p in I/*;do q "$p" = "$F"&&continue;
	15	n="${p#I/}";n="${n%%.*}.htm"
	16	e "<li><a href=\"$n\">$(sed 1q $p)</a></li>"
	17	done
	18	e '</ul>')\|\|(e '<a id=toc href=index.htm>return</a>'))
	19	<footer>© 2019 Case Duckworth</footer>