about summary refs log tree commit diff
diff options
context:
space:
mode:
authorMunyoki Kilyungi2025-07-21 09:12:25 +0300
committerMunyoki Kilyungi2025-07-21 09:12:25 +0300
commitdf89c86b842a7aba5507b7910340d322ada78484 (patch)
treec903b546ef0436e9ebd704fee089c6e6aa9b2424
parentf17f262a145b02820be483a0897a445b66836964 (diff)
downloadguix-bioinformatics-df89c86b842a7aba5507b7910340d322ada78484.tar.gz
gn-guile: Add dev variant of launcher script in gn-guile.
* gn/packages/guile.scm (gn-guile)[arguments]: Install gn-guile-dev
script.

Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
-rw-r--r--gn/packages/guile.scm12
1 files changed, 12 insertions, 0 deletions
diff --git a/gn/packages/guile.scm b/gn/packages/guile.scm
index 3587b00..012b7cc 100644
--- a/gn/packages/guile.scm
+++ b/gn/packages/guile.scm
@@ -207,15 +207,21 @@ for MySQL.")
 			     (cons* out guile-inputs))))
 		  (mkdir-p "bin")
 		  (copy-file "gn-guile.sh" "bin/gn-guile")
+		  (copy-file "gn-guile.sh" "bin/gn-guile-dev")
 		  (copy-file "scripts/lmdb-publishdata-export.scm"
 			     "bin/lmdb-publishdata-export")
 		  (substitute* "bin/gn-guile"
 			       (("@SHELL@") bash)
 			       (("guile") guile)
 			       (("web/webserver.scm") webserver))
+		  (substitute* "bin/gn-guile-dev"
+			       (("@SHELL@") bash)
+			       (("guile") guile))
 		  (chmod "bin/gn-guile" #o755)
+		  (chmod "bin/gn-guile-dev" #o755)
 		  (chmod "bin/lmdb-publishdata-export" #o755)
 		  (install-file "bin/gn-guile" bin)
+		  (install-file "bin/gn-guile-dev" bin)
 		  (install-file "bin/lmdb-publishdata-export" bin)
 		  (wrap-script
 		   (string-append out "/bin/gn-guile")
@@ -223,6 +229,12 @@ for MySQL.")
                    `("GUILE_AUTO_COMPILE" ":" = ("0"))
                    `("GUILE_LOAD_PATH" ":" prefix ,scm-path)
                    `("GUILE_LOAD_COMPILED_PATH" ":" prefix ,go-path))
+		  (wrap-script
+		   (string-append out "/bin/gn-guile-dev")
+                   `("PATH" ":" prefix ,path)
+                   `("GUILE_AUTO_COMPILE" ":" = ("0"))
+                   `("GUILE_LOAD_PATH" ":" prefix ,scm-path)
+                   `("GUILE_LOAD_COMPILED_PATH" ":" prefix ,go-path))
 		  (wrap-program
 		   (string-append out "/bin/lmdb-publishdata-export")
                    `("PATH" ":" prefix ,path)