seasharp/Rosenthal
1
0
Fork 0
mirror of https://codeberg.org/hako/Rosenthal.git synced 2025-09-18 12:44:37 +00:00
Code Issues Packages Projects Releases Wiki Activity

services: Add %rosenthal-set-keymap.

Browse Source 
* modules/rosenthal/services/desktop.scm (%rosenthal-set-keymap): New variable.
(%rosenthal-set-keymap-script): Unexport.
This commit is contained in:
Hilton Chain 2025-06-27 23:10:30 +08:00
parent 8c1b2e9c61
commit a47d340a20
No known key found for this signature in database
GPG Key ID: ACC66D09CA528292
1 changed files with 23 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
modules/rosenthal/services/desktop.scm
View File

@ -5,11 +5,14 @@
(define-module (rosenthal services desktop) (define-module (rosenthal services desktop)
#:use-module (guix gexp) #:use-module (guix gexp)
#:use-module (guix modules) #:use-module (guix modules)
#:use-module (guix packages)
#:use-module (guix records) #:use-module (guix records)
#:use-module (guix utils) #:use-module (guix utils)
#:use-module (rosenthal utils file) #:use-module (rosenthal utils file)
#:use-module (rosenthal utils packages) #:use-module (rosenthal utils packages)
#:use-module (guix build-system copy)
#:use-module (gnu system) #:use-module (gnu system)
#:use-module (gnu system shadow) #:use-module (gnu system shadow)
@ -56,7 +59,7 @@
home-waybar-configuration home-waybar-configuration
home-waybar-service-type home-waybar-service-type
%rosenthal-set-keymap-script %rosenthal-set-keymap
%rosenthal-skeletons %rosenthal-skeletons
%rosenthal-desktop-services %rosenthal-desktop-services
%rosenthal-desktop-home-services)) %rosenthal-desktop-home-services))
@ -553,6 +556,25 @@ set-keymap us dvorak -o ctrl:nocaps\n")
(_ (_
(show-help-and-exit)))))))) (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 (define %rosenthal-skeletons
`((".config/emacs/fonts.el" `((".config/emacs/fonts.el"
,(local-file "../examples/emacs/fonts.el")) ,(local-file "../examples/emacs/fonts.el"))