2022-04-02 09:29:25 +02:00
|
|
|
(define-module (oni home services xmodmap)
|
|
|
|
|
#:use-module (gnu services configuration)
|
|
|
|
|
#:use-module (gnu packages xorg)
|
|
|
|
|
#:use-module (gnu home services)
|
|
|
|
|
#:use-module (gnu home services utils)
|
|
|
|
|
#:use-module (guix packages)
|
|
|
|
|
#:use-module (guix gexp)
|
|
|
|
|
|
|
|
|
|
#:export (home-xmodmap-service-type
|
|
|
|
|
home-xmodmap-configuration))
|
|
|
|
|
|
|
|
|
|
(define-configuration/no-serialization home-xmodmap-configuration
|
|
|
|
|
(package
|
|
|
|
|
(package xmodmap)
|
|
|
|
|
"Package to use for setting Xmodmap")
|
|
|
|
|
(pointer
|
|
|
|
|
(list '())
|
|
|
|
|
"List of numbers indicating the order of numbers")
|
|
|
|
|
(extra
|
|
|
|
|
(text-config '())
|
|
|
|
|
"Any other configuration settings."))
|
|
|
|
|
|
|
|
|
|
(define (serialize-xmodmap-config config)
|
|
|
|
|
(let ((pointer (home-xmodmap-configuration-pointer config)))
|
|
|
|
|
(string-append
|
|
|
|
|
(if pointer
|
|
|
|
|
(string-append "pointer = " (string-join (map number->string pointer) " ") "\n\n")
|
|
|
|
|
"")
|
|
|
|
|
(string-join (home-xmodmap-configuration-extra config) "\n" 'suffix))))
|
|
|
|
|
|
|
|
|
|
(define (xmodmap-home-files config)
|
|
|
|
|
`(("Xmodmap" ,(mixed-text-file
|
|
|
|
|
"Xmodmap"
|
|
|
|
|
(serialize-xmodmap-config config)))))
|
|
|
|
|
|
2022-04-05 09:59:59 +02:00
|
|
|
(define (add-xmodmap-packages config)
|
|
|
|
|
(list (home-xmodmap-configuration-package config)))
|
|
|
|
|
|
2022-04-02 09:29:25 +02:00
|
|
|
(define home-xmodmap-service-type
|
|
|
|
|
(service-type
|
|
|
|
|
(name 'home-xmodmap)
|
|
|
|
|
(extensions
|
|
|
|
|
(list (service-extension
|
|
|
|
|
home-files-service-type
|
2022-04-05 09:59:59 +02:00
|
|
|
xmodmap-home-files)
|
|
|
|
|
(service-extension
|
|
|
|
|
home-profile-service-type
|
|
|
|
|
add-xmodmap-packages)))
|
2022-04-02 09:29:25 +02:00
|
|
|
(compose identity)
|
|
|
|
|
(default-value (home-xmodmap-configuration))
|
|
|
|
|
(description "Install and configure Xmodmap.")))
|
