From 7182d280779a14c2f7a991f6f229e4c0d123435f Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Mon, 29 Nov 2021 19:01:36 +0530
Subject: guix.scm: Add a wrap phase.

* guix.scm (ccwl)[arguments]: Import target-guile-effective-version
from (guix build guile-build-system). Add a wrap phase.
---
 guix.scm | 20 +++++++++++++++++++-
 1 file changed, 19 insertions(+), 1 deletion(-)

diff --git a/guix.scm b/guix.scm
index 96dc605..9ebe36f 100644
--- a/guix.scm
+++ b/guix.scm
@@ -53,7 +53,25 @@
                         #:select? (git-predicate %source-dir)))
     (build-system gnu-build-system)
     (arguments
-     '(#:make-flags '("GUILE_AUTO_COMPILE=0"))) ; to prevent guild warnings
+     `(#:make-flags '("GUILE_AUTO_COMPILE=0") ; to prevent guild warnings
+       #:modules (((guix build guile-build-system)
+                   #:select (target-guile-effective-version))
+                  ,@%gnu-build-system-modules)
+       #:imported-modules ((guix build guile-build-system)
+                           ,@%gnu-build-system-modules)
+       #:phases
+       (modify-phases %standard-phases
+         (add-after 'install 'wrap
+           (lambda* (#:key inputs outputs #:allow-other-keys)
+             (let ((out (assoc-ref outputs "out"))
+                   (effective-version (target-guile-effective-version)))
+               (wrap-program (string-append out "/bin/ccwl")
+                 `("GUILE_LOAD_PATH" prefix
+                   (,(string-append out "/share/guile/site/" effective-version)
+                    ,(getenv "GUILE_LOAD_PATH")))
+                 `("GUILE_LOAD_COMPILED_PATH" prefix
+                   (,(string-append out "/lib/guile/" effective-version "/site-ccache")
+                    ,(getenv "GUILE_LOAD_COMPILED_PATH"))))))))))
     (inputs
      `(("guile" ,guile-3.0)
        ("guile-libyaml" ,guile-libyaml)))
-- 
cgit v1.2.3