I personally created this little helper to keep things a bit more concise:
(defn cast [type vals] (mapv #(honey/call :cast (name %) type) vals))
:where [:in :role (db/cast :user_role [:teacher :parent])]