diff options
author | Tom Willemse | 2022-04-15 22:13:33 -0700 |
---|---|---|
committer | Tom Willemse | 2022-04-15 22:13:33 -0700 |
commit | b157ecf8ff48188850d250a0bee798a671fd4330 (patch) | |
tree | 37bdff4a0d14a49efa2098e411f9e31d24e42c88 /oni/home/services/xsession.scm | |
parent | af4c5b3ffdbceface86441c8c4e19e52040ae7c7 (diff) | |
download | new-dotfiles-b157ecf8ff48188850d250a0bee798a671fd4330.tar.gz new-dotfiles-b157ecf8ff48188850d250a0bee798a671fd4330.zip |
Centralize definition of ‘mixed-executable-file’
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 |