(defprogram-shortcut emacs
  :key (kbd "s-e")
  :command "emacs"
  :props '(:class "Emacs")
  :pullp t
  :pull-key (kbd "s-E"))