seasharp/Rosenthal
1
0
Fork 0
mirror of https://codeberg.org/hako/Rosenthal.git synced 2025-11-16 09:24:58 +00:00
Code Issues Packages Projects Releases Wiki Activity

Compare commits

base: seasharp:5172fac369025bc98cbfb925b728b2cae20ac2c5
Branches Tags
seasharp:trunk
seasharp:keyring
...
compare: seasharp:55e4d889a6121b302902feba1a7765b4d356ee2c
Branches Tags
seasharp:trunk
seasharp:keyring

2 Commits
5172fac369 ... 55e4d889a6

Author SHA1 Message Date
Hilton Chain
55e4d889a6
rosenthal: xwayland-satellite: Disable tests. 
* rosenthal/packages/xorg.scm (xwayland-satellite)[arguments]<#:tests?>:
Disable.
 2025-04-01 16:56:03 +08:00
Hilton Chain
fbcf6a1d7d
services: Add home-keyboard-service-type from RDE. 
* rosenthal/services/keyboard.scm: New file.
 2025-04-01 15:28:41 +08:00
2 changed files with 30 additions and 4 deletions
Show Stats Expand all files Collapse all files

6
rosenthal/packages/xorg.scm
View File

@ -29,6 +29,7 @@
(build-system cargo-build-system) (build-system cargo-build-system)
(arguments (arguments
(list #:install-source? #f (list #:install-source? #f
#:tests? #f ;Requires running display server.
#:phases #:phases
#~(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'fix-paths (add-after 'unpack 'fix-paths
@ -36,10 +37,7 @@
(substitute* "src/lib.rs" (substitute* "src/lib.rs"
(("\"Xwayland\"") (("\"Xwayland\"")
(format #f "\"~a\"" (format #f "\"~a\""
(search-input-file inputs "bin/Xwayland")))))) (search-input-file inputs "bin/Xwayland")))))))))
(add-before 'check 'prepare-for-tests
(lambda _
(setenv "XDG_RUNTIME_DIR" "/tmp"))))))
(native-inputs (list pkg-config)) (native-inputs (list pkg-config))
(inputs (inputs
(cons* clang (cons* clang

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)}.")))