(:around (fn &rest args) in-other-window)
"Show the buffer in a bottom side window and switch to it."
(let (buf ret)
(setq buf (save-window-excursion
(setq ret (apply fn args))
(display-buffer-in-side-window buf '((side . bottom)))
(select-window (get-buffer-window buf))
"I appreciate SDF but it's a general-purpose server and the name doesn't make it obvious that it's about art." - Eugen Rochko