Something

(require 'menus)
(setq
  hotkey-apps
  '(
    ("_Editor"  (run-or-raise-by-class "Gvim"   "gvim&"))
    ("_Opera"   (run-or-raise-by-class "Opera"  "opera&"))
    ("_Logjam"  (run-or-raise-by-class "Logjam" "logjam&"))
    ("_Console" (run-or-raise-by-class "URxvt"  "urxvtc&"))
    ("T_kabber" (run-or-raise-by-class "Tkabber" "tkabber&"))
    ))

(bind-keys global-keymap "H-r" '(popup-menu hotkey-apps ))