me
/
guix
Archived
1
0
Fork 0
Code

guix home: import: Don’t use 'slurp-file-gexp'. 

‘slurp-file-gexp’ is not a bound procedure.

* guix/scripts/home/import.scm (generate-bash-configuration+modules): Don’t
  use ‘slurp-file-gexp’.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
master
Xinglu Chen 2021-10-30 12:42:35 +02:00 committed by Ludovic Courtès
parent 3be1a982f3
commit e12e8aad35
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 3 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
guix/scripts/home/import.scm
View File

@ -47,24 +47,19 @@
(home-bash-configuration (home-bash-configuration
,@(if (file-exists? rc) ,@(if (file-exists? rc)
`((bashrc `((bashrc
(list (slurp-file-gexp (list (local-file ,rc))))
(local-file ,rc)))))
'()) '())
,@(if (file-exists? profile) ,@(if (file-exists? profile)
`((bash-profile `((bash-profile
(list (slurp-file-gexp (list (local-file ,profile))))
(local-file ,profile)))))
'()) '())
,@(if (file-exists? logout) ,@(if (file-exists? logout)
`((bash-logout `((bash-logout
(list (slurp-file-gexp (list (local-file ,logout))))
(local-file ,logout)))))
'()))) '())))
(guix gexp) (guix gexp)
(gnu home services shells)))) (gnu home services shells))))
(define %files+configurations-alist (define %files+configurations-alist
`((".bashrc" . ,generate-bash-configuration+modules) `((".bashrc" . ,generate-bash-configuration+modules)
(".bash_profile" . ,generate-bash-configuration+modules) (".bash_profile" . ,generate-bash-configuration+modules)