New art, plus minor tweak

Two possible changes here:

1. Add a hypnotoad option.  Of course, hypnotoad will refuse to say anything except tell you to give it glory.
2. `eval(parse(text=by))` can be replaced by `get(by)`, especially because the options list is already sanitised by `match.arg`.