(defvar *application-bindings*
  (let ((m (make-sparse-keymap)))
    (define-key m (kbd "b") "exec gtk-launch app.zen_browser.zen")
    (define-key m (kbd "s") "exec gtk-launch com.slack.Slack")
    (define-key m (kbd "t") "exec gtk-launch org.wezfurlong.wezterm")
    m))

(define-key *top-map* (kbd "s-a") '*application-bindings*)