From 8a50b883d8e24179618a4f155fab02c60995de36 Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Thu, 13 Feb 2025 22:22:18 -0800 Subject: [PATCH] pop-os: Add application launcher menu for stumpwm --- oni/home/config/pop-os.scm | 3 ++- oni/home/services/stumpwm/pop-os-config.lisp | 8 ++++++++ 2 files changed, 10 insertions(+), 1 deletion(-) create mode 100644 oni/home/services/stumpwm/pop-os-config.lisp 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*)