(defun rcd-async-shell-command (cmd &optional args)
  (interactive)
  (let* ((buf (concat "RCD Async: " (format-time-string "%T")) )
         (last-buf buf) )
    (switch-to-buffer last-buf)
    (async-shell-command cmd args) ))

(global-set-key
 "\M-&"
 (lambda () (interactive) (rcd-async-shell-command "gimp")) )