unk/L

14 lines
502 B
Plaintext

<!DOCTYPE html>
<meta charset=utf-8>
<title>$(T|sed 's/<[^>]\+>//g')</title>
$(q -f S/s.css&&e '<link rel=stylesheet href=S/s.css>'||
e '<style>body{max-width:70ch;padding:1em;margin:auto}
#toc{background:pink;padding:1em;display:block}</style>')
<h1>$(T)</h1>
$(B|./lht)
$(q "${N%.*}" = index&&(e '<ul id=toc>Pages'
for p in I/*;do q $p = $F&&continue;n="${p#I/}"
e "<li><a href='${n%.*}.htm'>$(sed 1q $p)</a></li>"
done;e '</ul>')||(e '<a id=toc href=index.htm>return</a>'))
<p id=ft>&copy; 2019</p>