(mapc (lambda (keys command)
    (stumpwm:define-key stumpwm:*root-map* (stumpwm:kbd keys) command))
      '(
    '("C-M-c" "exec urxvt")
    '("C-M-w" "exec firefox")
    '("C-M-m" "exec thunderbird")
    '("C-M-SPC" "exec cmus-remote -u")
    '("C-M-h" "gprev")
    '("C-M-g" "gnext")
    ))