~ruther/guix-local

357db1f91de9b3eb14be52a98cc804cdfd284f6d — Ludovic Courtès 9 years ago ae763b5
system: More 'file-append' instead of #~(string-append #$thing …).

* gnu/system/shadow.scm (<user-account>)[shell]: Use 'file-append'.
(%base-user-accounts): Likewise.
* gnu/system/grub.scm (%background-image): Likewise.
2 files changed, 4 insertions(+), 4 deletions(-)

M gnu/system/grub.scm
M gnu/system/shadow.scm
M gnu/system/grub.scm => gnu/system/grub.scm +2 -2
@@ 94,8 94,8 @@ denoting a file name."
(define %background-image
  (grub-image
   (aspect-ratio 4/3)
   (file #~(string-append #$%artwork-repository
                          "/grub/GuixSD-fully-black-4-3.svg"))))
   (file (file-append %artwork-repository
                      "/grub/GuixSD-fully-black-4-3.svg"))))

(define %default-theme
  ;; Default theme contributed by Felipe López.

M gnu/system/shadow.scm => gnu/system/shadow.scm +2 -2
@@ 84,7 84,7 @@
  (create-home-directory? user-account-create-home-directory? ;Boolean
                          (default #t))
  (shell          user-account-shell              ; gexp
                  (default #~(string-append #$bash "/bin/bash")))
                  (default (file-append bash "/bin/bash")))
  (system?        user-account-system?            ; Boolean
                  (default #f)))



@@ 131,7 131,7 @@
         (name "nobody")
         (uid 65534)
         (group "nogroup")
         (shell #~(string-append #$shadow "/sbin/nologin"))
         (shell (file-append shadow "/sbin/nologin"))
         (home-directory "/nonexistent")
         (create-home-directory? #f)
         (system? #t))))