make op/do-publication interative.

Convert function op/do-publication to an interactive command, then you
can M-x it.