Applying functions to some columns in a Dataset and keeping only those

The following expression might not qualify as elegant, but perhaps it can be scored as less clumsy?

data[All, <| "a" -> "a" /* f, "b" -> "b" /* h |>]

I don't find @kglr solution inelegant, but perhaps a little prettier with

data[All, {"a" -> f, "b" -> h}] // KeyDrop["c"]