diff options
Diffstat (limited to 'oni/home/services/xsession.scm')
| -rw-r--r-- | oni/home/services/xsession.scm | 19 |
1 files changed, 1 insertions, 18 deletions
diff --git a/oni/home/services/xsession.scm b/oni/home/services/xsession.scm index c6f06e7..9208235 100644 --- a/oni/home/services/xsession.scm +++ b/oni/home/services/xsession.scm @@ -4,6 +4,7 @@ #:use-module (gnu home services utils) #:use-module (guix packages) #:use-module (guix gexp) + #:use-module (oni gexp) #:use-module (srfi srfi-1) #:export (home-xsession-service-type @@ -20,24 +21,6 @@ (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)) - (define (xsession-home-files config) `((".xsession" ,(mixed-executable-file |