8 lines
333 B
Common Lisp
8 lines
333 B
Common Lisp
(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*)
|