#!/bin/sh
ls -1 | grep target || mkdir target
wc paper.ms
cat paper.ms|\
    sed "s/}\./}\REMOVEME./g" |\
    sed "s/}\,/}\REMOVEME,/g" |\
    sed "s/^{/.[\n/g" |\
    sed "s/}{/\n.]\n.[\n/g" |\
    sed "s/{/\n.[\n/g" | sed "s/\}\ /\n.]\n/g" | sed "s/\}/\n.]\n/g" |\
    refer -C -Ss -p refer |\
    grep -v "^\.lf" |\
    sed "s/\ \ (/ (/g"|\
    sed "s/)(?!.*\.)/) /g" |\
    perl -0pe 's/\nREMOVEME//g' |\
    tr "^" " "> target/temp
#sed -E "s|([^\"\'\>=])(http[s]?://[^[:space:]]*)|\1\n.pdfhref W -D \"\2\" -A -- \2\n|g" |\
#sed -E "s|([^\"\'\>=])(http[s]?://[^[:space:]]*)|\1\n.pdfhref W \2\n|g" 
# awk '{printf "%s%s", $0, (/)$/ ? "" : ORS)}' |\
cat formatting.ms target/temp |\
    groff -Eket -Tpdf -ms -P-pa4 > target/paper.pdf
groff -E -Thtml -ms target/temp |\
    sed -E "s|([^\"\'\>=])(http[s]?://[^[:space:]]*)|\1<a href=\2>\2</a>|g" |\
    sed -E "s|^(http[s]?://[^[:space:]]*)|<a href=\1>\1</a>|g" |\
    sed "1,6d" > target/temp2
cat header.html target/temp2 |\
    sed -E '35 i <a href="./paper.pdf">See this document as a pdf</a><br>'> target/paper.html