seasharp/Rosenthal
1
0
Fork 0
mirror of https://codeberg.org/hako/Rosenthal.git synced 2025-05-19 18:55:03 +00:00
Code Issues Packages Projects Releases Wiki Activity

services: Add home-keyboard-service-type from RDE.

Browse Source 
* rosenthal/services/keyboard.scm: New file.
This commit is contained in:
Hilton Chain 2025-04-01 15:28:41 +08:00
parent 5172fac369
commit fbcf6a1d7d
No known key found for this signature in database
GPG Key ID: ACC66D09CA528292
1 changed files with 28 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
rosenthal/services/keyboard.scm Normal file
View File

@ -0,0 +1,28 @@
;;; SPDX-FileCopyrightText: 2021 Andrew Tropin <andrew@trop.in>
;;;
;;; SPDX-License-Identifier: GPL-3.0-or-later
(define-module (rosenthal services keyboard)
#:use-module (gnu system keyboard)
#:use-module (gnu home services)
#:export (home-keyboard-service-type))
(define (set-xkb-variables layout)
(if layout
`(("XKB_DEFAULT_LAYOUT" . ,(keyboard-layout-name layout))
("XKB_DEFAULT_VARIANT" . ,(keyboard-layout-variant layout))
("XKB_DEFAULT_OPTIONS" . ,(string-join
(keyboard-layout-options layout) ","))
("XKB_DEFAULT_MODEL" . ,(keyboard-layout-model layout)))
'()))
(define home-keyboard-service-type
(service-type (name 'home-keyboard)
(extensions
(list (service-extension
home-environment-variables-service-type
set-xkb-variables)))
(default-value #f)
(description "Set layouts by configuring XKB_*
environment variables. Service accepts an instance of
@code{keyboard-layout} from @code{(gnu system keyboard)}.")))