From a47d340a205ac75336eb8028c4dfd936e07f081e Mon Sep 17 00:00:00 2001 From: Hilton Chain Date: Fri, 27 Jun 2025 23:10:30 +0800 Subject: [PATCH] services: Add %rosenthal-set-keymap. * modules/rosenthal/services/desktop.scm (%rosenthal-set-keymap): New variable. (%rosenthal-set-keymap-script): Unexport. --- modules/rosenthal/services/desktop.scm | 24 +++++++++++++++++++++++- 1 file changed, 23 insertions(+), 1 deletion(-) diff --git a/modules/rosenthal/services/desktop.scm b/modules/rosenthal/services/desktop.scm index 3e0e2c8..3264a1d 100644 --- a/modules/rosenthal/services/desktop.scm +++ b/modules/rosenthal/services/desktop.scm @@ -5,11 +5,14 @@ (define-module (rosenthal services desktop) #:use-module (guix gexp) #:use-module (guix modules) + #:use-module (guix packages) #:use-module (guix records) #:use-module (guix utils) #:use-module (rosenthal utils file) #:use-module (rosenthal utils packages) + #:use-module (guix build-system copy) + #:use-module (gnu system) #:use-module (gnu system shadow) @@ -56,7 +59,7 @@ home-waybar-configuration home-waybar-service-type - %rosenthal-set-keymap-script + %rosenthal-set-keymap %rosenthal-skeletons %rosenthal-desktop-services %rosenthal-desktop-home-services)) @@ -553,6 +556,25 @@ set-keymap us dvorak -o ctrl:nocaps\n") (_ (show-help-and-exit)))))))) +(define %rosenthal-set-keymap + (hidden-package + (package + (name "rosenthal-set-keymap") + (version "0.0.0") + (source %rosenthal-set-keymap-script) + (build-system copy-build-system) + (arguments + (list + #:phases + #~(modify-phases %standard-phases + (replace 'install + (lambda _ + (install-file "set-keymap" (in-vicinity #$output "bin"))))))) + (home-page "") + (synopsis "") + (description "") + (license #f)))) + (define %rosenthal-skeletons `((".config/emacs/fonts.el" ,(local-file "../examples/emacs/fonts.el"))