services: %rosenthal-set-keymap-script: Use mkstemp.

tmpnam is deprecated.

* modules/rosenthal/services/desktop.scm (%rosenthal-set-keymap-script):
Replace tmpnam with mkstemp.
This commit is contained in:
Hilton Chain 2026-01-14 11:30:59 +08:00
parent f549c7604c
commit 4eab99447f
No known key found for this signature in database
GPG Key ID: ACC66D09CA528292

View File

@ -504,7 +504,9 @@ gtk-key-theme-name = ~a~%"
(dump-port pipe output))))
(define* (set-keyboard-layout layout #:optional variant #:key model options)
(define file-name (tmpnam))
(define file-name
(port-filename
(mkstemp "/tmp/console-keymap.XXXXXX")))
(build-keyboard-layout file-name layout variant #:model model #:options options)
(invoke "sudo" #$(file-append (spec->pkg "kbd") "/bin/loadkeys") file-name)
(false-if-exception