view bin/whoops @ 11999:64fb792e12e8 draft

<wib_jonas> `` perl -pi -e \'s/^(url\\(1hackeso\\) -) .*/$1 print URL for a file in the hackenv hg repository and web access of the repository/; print\' share/whatis
author HackEso <hackeso@esolangs.org>
date Mon, 04 Nov 2019 12:20:27 +0000
parents ad82afc321ca
children 8ec9cd952dd5
line wrap: on
line source

OLD="wisdom/$1"; [ -z "$1" ] && OLD="$(lastfiles)"; NEW="${OLD}s"; if [ -f "$NEW" ]; then echo "«${NEW}» already exists"; exit 1; fi; mv "$OLD" "$NEW" && echo "«${OLD}» -> «${NEW}»"