For #16 - refactor box making to geom.clj.