From 7bb2c2def7de0844b12f6a3ff1bfb0250d8ccb23 Mon Sep 17 00:00:00 2001 From: "Collin J. Doering" Date: Mon, 25 Dec 2023 11:38:48 -0500 Subject: [PATCH] home: Correct 53ca043; xinitrc needs to retain executable bits * .guix/rekahsoft/guix-config/home.scm: As originally discovered in https://issues.guix.gnu.org/52807, as well as described in documentation in regards to usage of local-file: -- Scheme Procedure: local-file FILE [NAME] [#:recursive? #f] [#:select? (const #t)] When RECURSIVE? is true, the contents of FILE are added recursively; if FILE designates a flat file and RECURSIVE? is true, its contents are added, and its permission bits are kept. --- .guix/rekahsoft/guix-config/home.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/.guix/rekahsoft/guix-config/home.scm b/.guix/rekahsoft/guix-config/home.scm index f226db4..04cadc2 100644 --- a/.guix/rekahsoft/guix-config/home.scm +++ b/.guix/rekahsoft/guix-config/home.scm @@ -473,7 +473,7 @@ single certifcate used for local development with caddy.") (".racketrc" ,(local-file "../../../user-config/racket/.racketrc" "racketrc")) (".guile" ,(local-file "../../../user-config/guile/.guile" "guilerc")) (".ghci" ,(local-file "../../../user-config/haskell/.ghci" "ghci")) - (".xinitrc" ,(local-file "../../../user-config/xorg/.xinitrc" "xinitrc")) + (".xinitrc" ,(local-file "../../../user-config/xorg/.xinitrc" "xinitrc" #:recursive? #t)) (".Xresources" ,(local-file "../../../user-config/xorg/.Xresources" "xresources")))) (simple-service