unofficial mirror of guix-devel@gnu.org 
 help / color / mirror / code / Atom feed
* [PATCH] Add MAFFT.
@ 2015-07-23 12:43 Ben Woodcroft
  2015-07-25 19:26 ` Ricardo Wurmus
  0 siblings, 1 reply; 13+ messages in thread
From: Ben Woodcroft @ 2015-07-23 12:43 UTC (permalink / raw)
  To: guix-devel@gnu.org

[-- Attachment #1: Type: text/plain, Size: 110 bytes --]

Note that the "extensions" listed on the website are research/non-profit 
only, and so not fit for inclusion.

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 0001-gnu-Add-mafft.patch --]
[-- Type: text/x-patch; name="0001-gnu-Add-mafft.patch", Size: 3797 bytes --]

From b966b0c8ab9b194bbb7089cc4b4e3a9727862691 Mon Sep 17 00:00:00 2001
From: Ben Woodcroft <donttrustben@gmail.com>
Date: Thu, 23 Jul 2015 22:42:17 +1000
Subject: [PATCH] gnu: Add mafft.

* gnu/packages/bioinformatics.scm (mafft): New variable
---
 gnu/packages/bioinformatics.scm | 57 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 57 insertions(+)

diff --git a/gnu/packages/bioinformatics.scm b/gnu/packages/bioinformatics.scm
index 78cd3ce..a09b89e 100644
--- a/gnu/packages/bioinformatics.scm
+++ b/gnu/packages/bioinformatics.scm
@@ -1394,6 +1394,63 @@ resolution of binding sites through combining the information of both
 sequencing tag position and orientation.")
     (license license:bsd-3)))
 
+(define-public mafft
+  (package
+    (name "mafft")
+    (version "7.221")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "http://mafft.cbrc.jp/alignment/software/mafft-" version
+                    "-without-extensions-src.tgz"))
+              (file-name (string-append name "-" version ".tgz"))
+              (sha256
+               (base32
+                "0xi7klbsgi049vsrk6jiwh9wfj3b770gz3c8c7zwij448v0dr73d"))))
+    (build-system gnu-build-system)
+    (arguments
+     `(#:tests? #f ; no automated tests, though there are tests in the readme
+       #:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
+                          (string-append "BINDIR=" (string-append
+                                                    (assoc-ref %outputs "out")
+                                                    "/bin")))
+       #:phases
+       (modify-phases %standard-phases
+         (add-after 'unpack 'enter-dir
+                    (lambda _ (chdir "core") #t))
+         ;; on advice from the MAFFT authors, do not distribute mafft-profile,
+         ;; mafft-distance mafft-homologs.rb
+         (add-after 'enter-dir 'patch-makefile
+                    (lambda _
+                      (substitute* "Makefile"
+                        (("^SCRIPTS = mafft mafft-homologs.rb")
+                         "SCRIPTS = mafft")
+                        (((string-append "^PROGS = dvtditr dndfast7 dndblast"
+                                         " sextet5 mafft-distance"))
+                         "PROGS = dvtditr dndfast7 dndblast sextet5")
+                        (((string-append "splittbfast disttbfast tbfast "
+                                         "mafft-profile f2cl mccaskillwrap"))
+                         "splittbfast disttbfast tbfast f2cl mccaskillwrap")
+                        (("^rm -f mafft-profile mafft-profile.exe") "#")
+                        (("^rm -f mafft-distance mafft-distance.exe") ")#")
+                        ;; do not install MAN pages in libexec folder
+                        (((string-append "^\t\\$\\(INSTALL\\) -m 644 \\$\\("
+                                         "MANPAGES\\) \\$\\(DESTDIR\\)\\$"
+                                         "\\(LIBDIR\\)")) "#"))
+                      #t))
+         (delete 'configure))))
+    (inputs
+     `(("perl" ,perl)))
+    (home-page "http://mafft.cbrc.jp/alignment/software/")
+    (synopsis
+     "Multiple sequence alignment program for unix-like operating systems")
+    (description
+     "MAFFT offers a range of multiple alignment methods for nucleotide and
+protein sequences.  For instance, it offers L-INS-i (accurate; for alignment
+of <∼200 sequences) and FFT-NS-2 (fast; for alignment of <∼30,000
+sequences).")
+   (license (license:non-copyleft "file://license"
+                                  "See license in the distribution."))))
 
 (define-public metabat
   (package
-- 
2.4.3


^ permalink raw reply related	[flat|nested] 13+ messages in thread
end of thread, other threads:[~2015-09-16 21:10 UTC | newest]

Thread overview: 13+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2015-07-23 12:43 [PATCH] Add MAFFT Ben Woodcroft
2015-07-25 19:26 ` Ricardo Wurmus
2015-07-26  3:10   ` Ben Woodcroft
2015-07-26  9:43     ` Andreas Enge
2015-07-26 10:16       ` Ricardo Wurmus
2015-07-26 10:29       ` Andreas Enge
2015-07-31 22:42         ` Ben Woodcroft
2015-08-25 20:58           ` Ludovic Courtès
2015-09-07  8:55             ` Andreas Enge
2015-09-07  9:07               ` Ricardo Wurmus
2015-09-12 12:20               ` Ben Woodcroft
2015-09-16 20:19                 ` Ludovic Courtès
2015-09-16 21:09                   ` Ricardo Wurmus

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/guix.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).