a custom link macro for TeX makes this so much better

notes/linklist.mk

@@ -55,6 +55,7 @@ exec <linklist.dat
 exec 4>linklist.htm
 exec 5>linklist.tex
 cat linklist.hdr >&4
+print -ru5 -- '\newcommand{\myLink}[2]{\href{#1}{#2}\Hair\footnote{\texttt{[\url{#1}]}}}%'
 print -ru5 -- '\begin{otherlanguage*}{british}'
 print -ru5
 
@@ -119,7 +120,7 @@ function getpc {
 
 init=0
 inpq=0
-inao=
+inao=0
 nline=0
 xnl=
 tnl=
@@ -190,18 +191,18 @@ while IFS= read -r line; do
 		getpc
 		print -nru4 -- "$xnl<a href=\"${|tohtm "$cw";}\">${|tohtm "$line";}</a>$pc"
 		xnl=$nli
-		print -nru5 -- "$tnl\\href{${|totex "$cw";}}{%"
+		print -nru5 -- "$tnl\\myLink{${|totex "$cw";}}{%"
 		print -nru5 -- "$nlt ${|totex "$line";}%"
-		print -nru5 -- "$nlt"'}\Hair\footnote{\texttt{[\url{'"${|totex "$cw";}}]}}$pc"
+		print -nru5 -- "$nlt}$pc"
 		tnl=$nlt
 		;;
 	(ao)
-		[[ -z $inao ]] || die already in a .ao
+		(( inao )) && die already in a .ao
 		(( inpq <<= 1 ))
-		inao=${|totex "$line";}
+		inao=1
 		print -nru4 -- "$xnl<a href=\"${|tohtm "$line";}\">"
 		xnl=
-		print -nru5 -- "$tnl\\href{$inao}{%"
+		print -nru5 -- "$tnl\\myLink{${|totex "$line";}}{%"
 		nlt+=' '
 		tnl=$nlt
 		;;
@@ -211,8 +212,8 @@ while IFS= read -r line; do
 		(( inpq >>= 1 ))
 		getpc
 		print -nru4 -- "</a>$pc"
-		print -nru5 -- "%$nlt}\\Hair\\footnote{\\texttt{[\\url{$inao}]}}$pc"
-		inao=
+		print -nru5 -- "%$nlt}$pc"
+		inao=0
 		;;
 	(Em)
 		xmlcmd=em ltxcmd=emph
@@ -248,7 +249,7 @@ while IFS= read -r line; do
 done
 (( init )) && die still in .It at EOF
 (( inpq )) && die still in .Pq at EOF: $inpq
-[[ -n $inao ]] && die still in .ao at EOF
+(( inao )) && die still in .ao at EOF
 
 cat linklist.ftr >&4
 print -ru5 -- '\end{otherlanguage*}'