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

65 lines
2.1 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)
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"))
(define* (mixed-executable-file name #:key guile #:rest text)
"Return an object representing store file NAME containing TEXT. TEXT is a
sequence of strings and file-like objects, as in:
(mixed-text-file \"profile\"
\"export PATH=\" coreutils \"/bin:\" grep \"/bin\")
This is the declarative counterpart of 'text-file*'."
(define build
(let ((text (if guile (drop text 2) text)))
(gexp (call-with-output-file (ungexp output "out")
(lambda (port)
(set-port-encoding! port "UTF-8")
(display (string-append (ungexp-splicing text)) port)
(chmod port #o555))))))
(computed-file name build #:guile guile))
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