#!/bin/sh
ls -1 | grep target || mkdir target
wc paper.ms
cat paper.ms|\
    sed "s/}\./}\REMOVEME.\n/g" |\
    sed "s/}\,/}\REMOVEME,\n/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" |\
    grep -v "^REMOVEME\n" |\
    tr "^" " " |\
    sed "s/^ //" |\
    perl -0pe 's/\nREMOVEME\.\n/. /g' |
    perl -0pe 's/\nREMOVEME,\n/, /g' |
    perl -0pe 's/\nREMOVEME//g' |
    perl -0pe 's/\n\n\n/\n\n/g' |
    cat macros - > target/temp
cat formatting.ms target/temp |\
    tr '~' '-' |\
    groff -Eket -Tpdf -ms -P-pa4 > target/paper.pdf
groff -Eket -Thtml -ms target/temp |\
    sed -E "s|([^\"\'\>=])(http[s]?://[^[:space:]]*)|\1<a href=\2>Available online</a>|g" |\
    sed -E "s|^(http[s]?://[^[:space:]]*)|<a href=\1>Available online</a>|g" |\
    sed 's/.*~~~~.*/<hr>/' |\
    sed "1,6d" > target/temp2
cat header.html target/temp2 |\
    sed -E '41 i <a href="./paper.pdf">See this document as a pdf</a><br>'> target/paper.html