dotfiles/oni/home/services/xsession.scm

34 lines
974 B
Scheme
Raw Permalink Normal View History

2022-04-05 10:30:08 +02:00
(define-module (oni home services xsession)
#:use-module (gnu services configuration)
#:use-module (gnu home services)
#:use-module (gnu home services utils)
#:use-module (guix packages)
#:use-module (guix gexp)
#:use-module (oni gexp)
#:use-module (srfi srfi-1)
2022-04-05 10:30:08 +02:00
#:export (home-xsession-service-type
home-xsession-configuration))
2022-04-05 10:30:08 +02:00
(define-configuration home-xsession-configuration
2022-04-05 10:30:08 +02:00
(configuration
(text-config '())
"Configuration"))
(define (xsession-home-files config)
`((".xsession"
,(mixed-executable-file
2022-04-05 10:30:08 +02:00
"xsession"
(serialize-text-config 'configuration (home-xsession-configuration-configuration config))))))
2022-04-05 10:30:08 +02:00
(define home-xsession-service-type
(service-type
(name 'home-xsession)
(extensions
(list (service-extension
home-files-service-type
xsession-home-files)))
(compose identity)
(default-value (home-xsession-configuration))
(description "Configure xsession.")))