Hi Mitch—the abbreviated form is what I stated above. Are you looking for a way to convert what you've written into that abbreviated form? If so, I'm not sure that there's a "native" way to do that, but you also shouldn't need to do that because these are functions that you write from scratch anyway, so you would just choose the format you wanted when writing them for the first time.
Here's a hacky solution that I've come up with; I can't guarantee that it works in 100% of cases:
converter[func_] := (Evaluate[func[[2]] /. func[[1]] -> #]) &
It extracts the "function" part of the Function, then replaces the "variable" part with a Slot[1] (#). The "Evaluate" is to make this operation actually evaluate, because by default it's taking the right-hand side as a pure function per se and thus not evaluating it. Then, I put a & at the end of this replaced version to close off the newly-made pure anonymous function.
