blob: 950a370559b3eaa7879a48024479d8ad62c8d059 (
plain)
1
2
3
4
5
6
7
8
|
(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*)
|
