From 96eaffe8853132609d07bd7d9266d761c12a994e Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Mon, 27 Jan 2025 16:32:30 -0800 Subject: [PATCH] pop-os: Set up stumpwm --- oni/home/config/pop-os.scm | 29 +++++++++++++++++++++++++++-- 1 file changed, 27 insertions(+), 2 deletions(-) diff --git a/oni/home/config/pop-os.scm b/oni/home/config/pop-os.scm index 753e6a8..85a7877 100644 --- a/oni/home/config/pop-os.scm +++ b/oni/home/config/pop-os.scm @@ -25,6 +25,13 @@ home-emacs-org-journal-service-type)) #:use-module ((oni home services environment) #:select (home-environment-service)) + #:use-module ((oni home services stumpwm) + #:select (home-stumpwm-service-type + home-stumpwm-configuration + home-stumpwm-gaps-service-type + home-stumpwm-gaps-configuration + home-stumpwm-stumptray-service-type + home-stumpwm-stumptray-configuration)) #:use-module (oni home services zsh) #:use-module ((oni packages emacs) #:select (emacs-php-ts-mode)) @@ -55,7 +62,9 @@ emacs-oni-tramp emacs-oni-web-mode emacs-oni-yaml - emacs-oni-lua))) + emacs-oni-lua)) + #:use-module ((oni packages stumpwm) + #:select (stumpwm+swank))) (home-environment (packages (list (specification->package+output "glibc-locales") @@ -118,4 +127,20 @@ ;; configuration last. (service home-zsh-syntax-highlighting-service-type) (service home-zsh-autosuggestions-service-type) - (service home-zsh-contextual-abbrevs-service-type)))) + (service home-zsh-contextual-abbrevs-service-type) + + (service home-stumpwm-service-type + (home-stumpwm-configuration + (package stumpwm+swank) + (configurations + (list (local-file "../services/stumpwm/config"))))) + (service home-stumpwm-gaps-service-type + (home-stumpwm-gaps-configuration + (configurations + (list (local-file "../services/stumpwm/config-gaps"))))) + (service home-stumpwm-stumptray-service-type + (home-stumpwm-stumptray-configuration + (configurations + (list (mixed-text-file "config-stumptray" + "(require 'stumptray)\n" + "(stumptray::stumptray)\n"))))))))