More idiomatic fill and stroke - fns {with,current}-{fill,stroke}