diff --git a/oni/home/config/pop-os.scm b/oni/home/config/pop-os.scm index 9283c34..167b00c 100644 --- a/oni/home/config/pop-os.scm +++ b/oni/home/config/pop-os.scm @@ -148,7 +148,8 @@ (home-stumpwm-configuration (package stumpwm+swank) (configurations - (list (local-file "../services/stumpwm/config"))))) + (list (local-file "../services/stumpwm/config") + (local-file "../services/stumpwm/pop-os-config.lisp"))))) (service home-stumpwm-gaps-service-type (home-stumpwm-gaps-configuration (configurations diff --git a/oni/home/services/stumpwm/pop-os-config.lisp b/oni/home/services/stumpwm/pop-os-config.lisp new file mode 100644 index 0000000..950a370 --- /dev/null +++ b/oni/home/services/stumpwm/pop-os-config.lisp @@ -0,0 +1,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*)