ryuslash/dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity
dotfiles/oni/home/services/xsession.scm

48 lines
1.4 KiB
Scheme
Raw Normal View History

Add xsession configuration
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)
Centralize definition of ‘mixed-executable-file’
2022-04-16 07:13:33 +02:00
#:use-module (oni gexp)
Add herbstluftwm configuration with xsession extension The herbstluftwm configuration isn't complete yet, it's only the package so far, but it does extend the xsession service to include a line in xsession to execute the window manager in a bit of a hacky way. This also adds a ‘mixed-executable-file’ function which is the same as the ‘mixed-text-file’ except that it also sets the executable bit for the computed file.
2022-04-14 10:39:25 +02:00
#:use-module (srfi srfi-1)
Add xsession configuration
2022-04-05 10:30:08 +02:00
#:export (home-xsession-service-type
Add herbstluftwm configuration with xsession extension The herbstluftwm configuration isn't complete yet, it's only the package so far, but it does extend the xsession service to include a line in xsession to execute the window manager in a bit of a hacky way. This also adds a ‘mixed-executable-file’ function which is the same as the ‘mixed-text-file’ except that it also sets the executable bit for the computed file.
2022-04-14 10:39:25 +02:00
home-xsession-configuration
home-xsession-extension))
Add xsession configuration
2022-04-05 10:30:08 +02:00
Add herbstluftwm configuration with xsession extension The herbstluftwm configuration isn't complete yet, it's only the package so far, but it does extend the xsession service to include a line in xsession to execute the window manager in a bit of a hacky way. This also adds a ‘mixed-executable-file’ function which is the same as the ‘mixed-text-file’ except that it also sets the executable bit for the computed file.
2022-04-14 10:39:25 +02:00
(define-configuration home-xsession-configuration
Add xsession configuration
2022-04-05 10:30:08 +02:00
(configuration
(text-config '())
"Configuration"))
Add herbstluftwm configuration with xsession extension The herbstluftwm configuration isn't complete yet, it's only the package so far, but it does extend the xsession service to include a line in xsession to execute the window manager in a bit of a hacky way. This also adds a ‘mixed-executable-file’ function which is the same as the ‘mixed-text-file’ except that it also sets the executable bit for the computed file.
2022-04-14 10:39:25 +02:00
(define-configuration/no-serialization home-xsession-extension
(wm
(text-config '())
"String"))
Add xsession configuration
2022-04-05 10:30:08 +02:00
(define (xsession-home-files config)
Add herbstluftwm configuration with xsession extension The herbstluftwm configuration isn't complete yet, it's only the package so far, but it does extend the xsession service to include a line in xsession to execute the window manager in a bit of a hacky way. This also adds a ‘mixed-executable-file’ function which is the same as the ‘mixed-text-file’ except that it also sets the executable bit for the computed file.
2022-04-14 10:39:25 +02:00
`((".xsession"
,(mixed-executable-file
Add xsession configuration
2022-04-05 10:30:08 +02:00
"xsession"
Add herbstluftwm configuration with xsession extension The herbstluftwm configuration isn't complete yet, it's only the package so far, but it does extend the xsession service to include a line in xsession to execute the window manager in a bit of a hacky way. This also adds a ‘mixed-executable-file’ function which is the same as the ‘mixed-text-file’ except that it also sets the executable bit for the computed file.
2022-04-14 10:39:25 +02:00
(serialize-text-config 'configuration (home-xsession-configuration-configuration config))))))
(define (home-xsession-extensions original-config extension-configs)
(home-xsession-configuration
(inherit original-config)
(configuration
(append (home-xsession-configuration-configuration original-config)
(home-xsession-extension-wm (last extension-configs))))))
Add xsession configuration
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)
Add herbstluftwm configuration with xsession extension The herbstluftwm configuration isn't complete yet, it's only the package so far, but it does extend the xsession service to include a line in xsession to execute the window manager in a bit of a hacky way. This also adds a ‘mixed-executable-file’ function which is the same as the ‘mixed-text-file’ except that it also sets the executable bit for the computed file.
2022-04-14 10:39:25 +02:00
(extend home-xsession-extensions)
Add xsession configuration
2022-04-05 10:30:08 +02:00
(default-value (home-xsession-configuration))
(description "Configure xsession.")))
Reference in a new issue Copy permalink