pop-os: Add application launcher menu for stumpwm
This commit is contained in:
parent
993530e8fb
commit
8a50b883d8
2 changed files with 10 additions and 1 deletions
|
@ -148,7 +148,8 @@
|
||||||
(home-stumpwm-configuration
|
(home-stumpwm-configuration
|
||||||
(package stumpwm+swank)
|
(package stumpwm+swank)
|
||||||
(configurations
|
(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
|
(service home-stumpwm-gaps-service-type
|
||||||
(home-stumpwm-gaps-configuration
|
(home-stumpwm-gaps-configuration
|
||||||
(configurations
|
(configurations
|
||||||
|
|
8
oni/home/services/stumpwm/pop-os-config.lisp
Normal file
8
oni/home/services/stumpwm/pop-os-config.lisp
Normal file
|
@ -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*)
|
Loading…
Add table
Reference in a new issue