aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEfraim Flashner2019-07-22 04:11:30 -0500
committerEfraim Flashner2019-07-22 04:11:30 -0500
commit25f545fc897b3e7573c55e9e3a167e3a3a189888 (patch)
tree7d9d03826885edd8e847962f10cea4f0e62754ac
parent93d768f1e63f7ba0da1f38e14205acc30778094f (diff)
downloadguix-bioinformatics-25f545fc897b3e7573c55e9e3a167e3a3a189888.tar.gz
gn: bnw: Patch '/usr/bin/dot' references.
* gn/packages/bnw.scm (bnw): Add substitute* to patch '/usr/bin/dot' calls with store graphviz references.
-rw-r--r--gn/packages/bnw.scm42
1 files changed, 20 insertions, 22 deletions
diff --git a/gn/packages/bnw.scm b/gn/packages/bnw.scm
index e6c9d46..e09a9a3 100644
--- a/gn/packages/bnw.scm
+++ b/gn/packages/bnw.scm
@@ -13,7 +13,7 @@
(revision "1"))
(package
(name "bnw")
- (version (git-version "1.22" revision commit))
+ (version (git-version "1.22" revision commit)) ; June 28, 2019
(source (origin
(method git-fetch)
(uri (git-reference
@@ -27,29 +27,27 @@
(arguments
`(#:modules ((guix build utils))
#:builder
- (let* ((out (assoc-ref %outputs "out"))
- (source (assoc-ref %build-inputs "source"))
- (bash (assoc-ref %build-inputs "bash"))
- (graphviz (assoc-ref %build-inputs "graphviz"))
- (octave (assoc-ref %build-inputs "octave"))
- (python (assoc-ref %build-inputs "python")))
(begin
(use-modules (guix build utils))
- (copy-recursively source out)
- (for-each (lambda (file)
- (patch-shebang file
- (list
- (string-append bash "/bin")
- (string-append octave "/bin")
- (string-append python "/bin")
- )))
- (find-files out ".*"))
- ;(with-directory-excursion out
- ; (substitute* '("home.php"
- ; (find-files "sourcecodes" ".php")
- ; (find-files "sourcecodes/run_scripts" ".*"))
- ; (("/usr/bin/dot") (string-append graphviz "/bin/dot"))))
- ))))
+ (let* ((out (assoc-ref %outputs "out"))
+ (source (assoc-ref %build-inputs "source"))
+ (bash (assoc-ref %build-inputs "bash"))
+ (graphviz (assoc-ref %build-inputs "graphviz"))
+ (octave (assoc-ref %build-inputs "octave"))
+ (python (assoc-ref %build-inputs "python")))
+ (copy-recursively source out)
+ (for-each (lambda (file)
+ (patch-shebang file
+ (list (string-append bash "/bin")
+ (string-append octave "/bin")
+ (string-append python "/bin"))))
+ (find-files out ".*"))
+ (with-directory-excursion out
+ (substitute*
+ (append '("home.php")
+ (find-files "sourcecodes" ".php")
+ (find-files "sourcecodes/run_scripts" ".*"))
+ (("/usr/bin/dot") (string-append graphviz "/bin/dot"))))))))
(native-inputs `(("source" ,source)))
(inputs
`(("bash" ,bash-minimal)