TakeV/guix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

gnu: guix: Wrap 'guix' so GUILE_LOAD_PATH includes the dependencies.

Browse source 
* gnu/packages/package-management.scm (guix-0.8.2)[arguments]: Add
  'wrap-program' phase.
This commit is contained in:
Ludovic Courtès 2015-06-13 19:31:24 +02:00
parent 02c2cf43ce
commit 932e7204af
1 changed files with 16 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
gnu/packages/package-management.scm
View file

@ -99,7 +99,22 @@ (define (copy arch)
(copy "x86_64") (copy "x86_64")
(copy "mips64el") (copy "mips64el")
(copy "armhf") (copy "armhf")
#t))))) #t))
(add-after
'install 'wrap-program
(lambda* (#:key inputs outputs #:allow-other-keys)
;; Make sure the 'guix' command finds GnuTLS and
;; Guile-JSON automatically.
(let* ((out (assoc-ref outputs "out"))
(json (assoc-ref inputs "guile-json"))
(gnutls (assoc-ref inputs "gnutls"))
(path (string-append
json "/share/guile/site/2.0:"
gnutls "/share/guile/site/2.0")))
(wrap-program (string-append out "/bin/guix")
`("GUILE_LOAD_PATH" ":" prefix (,path))
`("GUILE_LOAD_COMPILED_PATH" ":" prefix (,path)))
#t))))))
(native-inputs `(("pkg-config" ,pkg-config) (native-inputs `(("pkg-config" ,pkg-config)
("emacs" ,emacs-no-x))) ;for guix.el ("emacs" ,emacs-no-x))) ;for guix.el
(inputs (inputs