;; Printable ASCII except space
(dolist (c (number-sequence 33 126))
  (keymap-set key-translation-map
              (format "s-%c" c)
              (format "C-M-%c" c)))

;; Handle space explicitly
(keymap-set key-translation-map "s-SPC" "C-M-SPC")