diff options
| author | pjotrp | 2026-03-22 09:03:45 +0100 |
|---|---|---|
| committer | pjotrp | 2026-03-22 09:03:45 +0100 |
| commit | a53736983170f28909a7a6d6e7d370a8825e95ef (patch) | |
| tree | dc14fa43e6cf2d49dc5aae4aabb068938772af05 | |
| parent | 70454ae1b52955913f4bb998b4ce3db05a4a631d (diff) | |
| download | guix-bioinformatics-a53736983170f28909a7a6d6e7d370a8825e95ef.tar.gz | |
Moving (genenetwork1, lisp) packages to guix-bioinformatics-past repo
| -rw-r--r-- | gn/packages/lisp.scm | 259 | ||||
| -rw-r--r-- | gn/past/genenetwork1.scm | 295 |
2 files changed, 0 insertions, 554 deletions
diff --git a/gn/packages/lisp.scm b/gn/packages/lisp.scm deleted file mode 100644 index 111ee52..0000000 --- a/gn/packages/lisp.scm +++ /dev/null @@ -1,259 +0,0 @@ -(define-module (gn packages lisp) - #:use-module (gnu packages) - #:use-module ((guix licenses) #:prefix license:) - #:use-module (guix packages) - #:use-module (gnu packages lisp-xyz) - #:use-module (gnu packages lisp-check) - #:use-module (guix download) - #:use-module (guix git-download) - #:use-module (guix utils) - #:use-module (guix build-system asdf) - #:use-module (srfi srfi-1) - #:use-module (srfi srfi-19)) - -(define-public sbcl-rollbar - (let ((commit "fbaf644e3a0b077f6853d25874de6a5827b4094c") - (revision "0")) - (package - (name "sbcl-rollbar") - (version "0.0.2") - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/adventuring/rollbar.lisp") - (commit commit))) - (sha256 - (base32 "01lax9qkb4xcd56ck88ickgpisw30zwg0s3y7rm6cnxv4qgamhzg")) - (file-name (git-file-name name version)))) - (build-system asdf-build-system/source) ; FIXME? - (inputs - (list sbcl-alexandria - sbcl-drakma - sbcl-jonathan - sbcl-trivial-backtrace)) - (home-page "https://github.com/adventuring/rollbar.lisp") - (synopsis "Rollbar.com interface for Common Lisp") - (description - "Rollbar.com is a service for collecting automated telemetry (ie, bug - reports, mostly) through their web service.") - (license license:bsd-3)))) - -(define-public sbcl-defstar - (let ((commit "132829dac9f84fa7202a0c5793aa6accb8d2662a") - (revision "0")) - (package - (name "sbcl-defstar") - (version "0.4.2") - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/lisp-maintainers/defstar") - (commit commit))) - (sha256 - (base32 "0n6m3aqvdfnsrhlhqjcy72d1i55lbkjg13ij5c7vw003p1n78wxi")) - (file-name (git-file-name name commit)))) - (build-system asdf-build-system/sbcl) - (home-page "https://github.com/lisp-maintainers/defstar") - (synopsis "Type declarations for defun et all") - (description -"@code{defstar} is a collection of Common Lisp macros that can be used in -place of @code{defun}, @code{defmethod}, @code{defgeneric}, @code{defvar}, -@code{defparameter}, @code{flet}, @code{labels}, @code{let}* and -@code{lambda}. Each macro has the same name as the form it replaces, -with a star added at the end.") - (license license:gpl3)))) - -(define-public cl-defstar - (sbcl-package->cl-source-package sbcl-defstar)) - -(define-public ecl-defstar - (sbcl-package->ecl-package sbcl-defstar)) - -(define-public sbcl-2am - (let ((commit "1d2fd21bbd8f26ec91b962705cab098dd7b5f11c") - (revision "0")) - (package - (name "sbcl-2am") - (version "0.4.2") - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://gitlab.common-lisp.net/dkochmanski/2am") - (commit commit))) - (sha256 - (base32 "0zgx4ymyzvfg44z36yr4l87cd9mprajd7sycr2zc67ab6330rynf")) - (file-name (git-file-name name commit)))) - (build-system asdf-build-system/sbcl) - (home-page "https://gitlab.common-lisp.net/dkochmanski/2am") - (synopsis "Small testing framework based on 1am") - (description -"Small testing framework for Common Lisp. The entire API consists of: -@code{test}, @code{is}, @code{signals}, @code{finishes}, @code{run}, -suite and @code{setf} suite.") - (license license:expat)))) - -(define-public cl-2am - (sbcl-package->cl-source-package sbcl-2am)) - -(define-public ecl-2am - (sbcl-package->ecl-package sbcl-2am)) - -(define-public sbcl-fwoar-lisputils - (let ((commit "7093110d43e91bc1685ad430da99785d9ec61dae") - (revision "0")) - (package - (name "sbcl-fwoar-lisputils") - (version "0.4.2") - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/fiddlerwoaroof/fwoar.lisputils") - (commit commit))) - (sha256 - (base32 "0wfy4k2xpnadzy6yfn5iavc8hv1m688942sc1yp8xkdm7pk0mvvi")) - (file-name (git-file-name name commit)))) - (build-system asdf-build-system/source) ; FIXME - (home-page "https://github.com/fiddlerwoaroof/fwoar.lisputils") - (synopsis "Hodgepodge of useful Lisp snippets") - (description "A hodgepodge of useful Lisp snippets.") - (license license:expat)))) - -(define-public sbcl-lorem-ipsum - (let ((commit "04a1839a03b53c954e799b9cf570ac915b032ce8") - (revision "0")) - (package - (name "sbcl-lorem-ipsum") - (version "0.4.2") - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/phoe/lorem-ipsum") - (commit commit))) - (sha256 - (base32 "1530qq0bk3xr25m77q96pbi1idnxdkax8cwmvq4ch03rfjy34j7n")) - (file-name (git-file-name name commit)))) - (build-system asdf-build-system/sbcl) - (home-page "https://github.com/phoe/lorem-ipsum") - (synopsis "Lorem ipsum generator in portable Common Lisp") - (description -"Lorem ipsum dolor sit amet, consectetur adipiscing elit erat, id eget -tellus et turpis, incididunt. Purus mollis penatibus, odio facilisis -sit. Quisque sagittis quisque. Incididunt commodo mi non. Lectus facilisi -suscipit duis ultricies sem quis. Lorem massa volutpat quis suspendisse -turpis, netus hac elementum. At do. Ac integer metus potenti scelerisque -fringilla labore. Tellus penatibus arcu ligula nisi.") - (license license:expat)))) - -(define-public cl-lorem-ipsum - (sbcl-package->cl-source-package sbcl-lorem-ipsum)) - -(define-public ecl-lorem-ipsum - (sbcl-package->ecl-package sbcl-lorem-ipsum)) - -(define-public sbcl-fare-memoization - (let ((commit "8b43ac6bcc0057d1a92052e39b6d34c05c2eb7e4") - (revision "0")) - (package - (name "sbcl-fare-memoization") - (version "0.4.2") - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://gitlab.common-lisp.net/frideau/fare-memoization") - (commit commit))) - (sha256 - (base32 "1blmrb4c9gsxj87scz74z1s8w9d1w2r48fyxj0y1sw3vr6bsbb8f")) - (file-name (git-file-name name commit)))) - (build-system asdf-build-system/sbcl) - (native-inputs - (list sbcl-hu.dwim.stefil)) - (inputs - (list sbcl-named-readtables)) - (home-page "https://gitlab.common-lisp.net/frideau/fare-memoization") - (synopsis "Memoization library for common-lisp") - (description -"The @code{fare-memoization} library builds on an age-old idea: -dynamically memoizing Lisp functions. A memoized function remembers -results from previous computations, and returns cached results when called -with the same arguments again, rather than re-doing the computation.") - (license license:expat)))) - -(define-public cl-fare-memoization - (sbcl-package->cl-source-package sbcl-fare-memoization)) - -(define-public ecl-fare-memoization - (sbcl-package->ecl-package sbcl-fare-memoization)) - -(define-public sbcl-meta - (let ((commit "74faea662139fbbfb9c99341aaed989f5b0e9da3") - (revision "0")) - (package - (name "sbcl-meta") - (version "0.4.2") - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://gitlab.common-lisp.net/frideau/meta") - (commit commit))) - (sha256 - (base32 "08s53zj3mcx82kszp1bg2vsb4kydvkc70kj4hpq9h1l5a1wh44cy")) - (file-name (git-file-name name commit)))) - (build-system asdf-build-system/sbcl) - (inputs - (list sbcl-named-readtables)) - (home-page "https://gitlab.common-lisp.net/frideau/meta") - (synopsis "Recursive-descent parser DSL for common-lisp") - (description -"Recursive-descent parser DSL that is a simpler alternative to parser -generators.") - (license license:bsd-3)))) - -(define-public cl-meta - (sbcl-package->cl-source-package sbcl-meta)) - -(define-public ecl-meta - (sbcl-package->ecl-package sbcl-meta)) - -(define-public sbcl-scribble - (let ((commit "4e5369bec6d5e4eed4f99c3dc009fce3e3427cd3") - (revision "0")) - (package - (name "sbcl-scribble") - (version "0.4.2") - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://gitlab.common-lisp.net/frideau/scribble") - (commit commit))) - (sha256 - (base32 "056qi6vw9bk19s42mapyg55mimhhvhlwgny080v9mhv4fhnqi196")) - (file-name (git-file-name name commit)))) - (build-system asdf-build-system/sbcl) - (native-inputs - (list sbcl-babel)) - (inputs - (list sbcl-fare-utils - ;; sbcl-fare-matcher - sbcl-fare-memoization - sbcl-fare-quasiquote - sbcl-meta - sbcl-named-readtables)) - (home-page "https://gitlab.common-lisp.net/frideau/scribble") - (synopsis "SCRibe-like reader extension for Common Lisp") - (description "SCRibe-like reader extension for Common Lisp.") - (license license:llgpl)))) - -(define-public cl-scribble - (sbcl-package->cl-source-package sbcl-scribble)) - -(define-public ecl-scribble - (sbcl-package->ecl-package sbcl-scribble)) - diff --git a/gn/past/genenetwork1.scm b/gn/past/genenetwork1.scm deleted file mode 100644 index ff5c7a4..0000000 --- a/gn/past/genenetwork1.scm +++ /dev/null @@ -1,295 +0,0 @@ -;; Bioinformatics module - -(define-module (gn past genenetwork1) - #:use-module ((guix licenses) #:prefix license:) - #:use-module (guix packages) - #:use-module (guix utils) - #:use-module (guix download) - #:use-module (guix git-download) - #:use-module (guix build-system cargo) - #:use-module (guix build-system gnu) - #:use-module (guix build-system python) - #:use-module (guix build-system trivial) - #:use-module (guix graph) - #:use-module (guix scripts graph) - #:use-module (guix store) - #:use-module (guix gexp) - #:use-module (gnu packages) - #:use-module (gnu packages base) - #:use-module (gnu packages bioconductor) - #:use-module (gnu packages bioinformatics) - #:use-module (gnu packages bootstrap) - #:use-module (gnu packages check) - #:use-module (gnu packages cran) - #:use-module (past-crates packages crates-io) - #:use-module (gnu packages compression) - #:use-module (gnu packages databases) - #:use-module (gnu packages ghostscript) - #:use-module (gnu packages graphviz) - #:use-module (gnu packages parallel) - #:use-module (gnu packages python) - #:use-module (gnu packages python-check) - #:use-module (gnu packages python-crypto) - #:use-module (gnu packages python-science) - #:use-module (gnu packages python-web) - #:use-module (gnu packages python-xyz) - #:use-module (gnu packages rdf) - #:use-module (gnu packages scheme) - #:use-module (gnu packages statistics) - #:use-module (gnu packages version-control) - #:use-module (gnu packages vim) - #:use-module (gnu packages web) - #:use-module (gnu packages wget) - #:use-module (gnu packages xml) - #:use-module (past packages python) - #:use-module (past packages web) - #:use-module (gn packages bioinformatics) - #:use-module (gn packages databases) - #:use-module (gn packages elixir) - #:use-module (gn packages gemma) - #:use-module (gn packages javascript) - #:use-module (gn packages phewas) - #:use-module (gn packages python) - #:use-module (gn packages python24) - #:use-module (gn packages statistics) - #:use-module (gn packages web) - #:use-module (srfi srfi-1)) - - -(define-public python2-qtlreaper - (let ((commit "442c217b90393380a8634ff8636b44992f5c53dd")) - (package - (name "python2-qtlreaper") - (version (string-append "1.11-gn2-" (string-take commit 7) )) - (source (origin - (method git-fetch) - (uri (git-reference - ;; (url "https://github.com/genenetwork/genenetwork2.git") - (url "https://github.com/pjotrp/QTLreaper.git") - (commit commit))) - (file-name (string-append name "-" (string-take commit 7))) - (sha256 - (base32 - "1rrbm1ap2zzyjxmrs9aa1d18sgiba5dhj1fmkl7wmab06jv3j1hm")))) - (build-system python-build-system) - (arguments - `(#:python ,python-2 - #:tests? #f)) ; no 'setup.py test' really! - (home-page "http://qtlreaper.sourceforge.net/") - (synopsis "Scan expression data for QTLs") - (description - "Batch-oriented version of WebQTL. It requires, as input, -expression data from members of a set of recombinant inbred lines and -genotype information for the same lines. It searches for an -association between each expression trait and all genotypes and -evaluates that association by a permutation test. For the permutation -test, it performs only as many permutations as are necessary to define -the empirical P-value to a reasonable precision. It also performs -bootstrap resampling to estimate the confidence region for the -location of a putative QTL.") - (license license:gpl2+)))) - -(define-public python24-qtlreaper - (let ((commit "442c217b90393380a8634ff8636b44992f5c53dd")) - (package - (name "python24-qtlreaper") - (version (git-version "1.11" "gn1" commit)) - (source (origin - (method git-fetch) - (uri (git-reference - ;; (url "https://github.com/genenetwork/genenetwork2.git") - (url "https://github.com/pjotrp/QTLreaper.git") - (commit commit))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "1rrbm1ap2zzyjxmrs9aa1d18sgiba5dhj1fmkl7wmab06jv3j1hm")))) - (build-system python-build-system) - (arguments - `(#:python ,python-2.4 - #:phases - (modify-phases %standard-phases - (replace 'add-install-to-pythonpath - (lambda* (#:key inputs outputs #:allow-other-keys) - (setenv "PYTHONPATH" - (string-append (site-packages inputs outputs) ":" - (getenv "PYTHONPATH"))))) - (delete 'sanity-check) ; Not applicable to python-2.4 - (add-after 'unpack 'make-max-markername-size-larger - (lambda _ - (substitute* "Src/dataset.c" - (("512") "2048")))) - (replace 'check - (lambda* (#:key tests? inputs outputs #:allow-other-keys) - (when tests? - (setenv "PYTHONPATH" (string-append (site-packages inputs outputs) ":" - (getenv "PYTHONPATH"))) - (invoke "python" "test/runtest.py"))))))) - (native-inputs - `(("python24-setuptools" ,python24-setuptools))) - (home-page "http://qtlreaper.sourceforge.net/") - (synopsis "Scan expression data for QTLs") - (description - "Batch-oriented version of WebQTL. It requires, as input, -expression data from members of a set of recombinant inbred lines and -genotype information for the same lines. It searches for an -association between each expression trait and all genotypes and -evaluates that association by a permutation test. For the permutation -test, it performs only as many permutations as are necessary to define -the empirical P-value to a reasonable precision. It also performs -bootstrap resampling to estimate the confidence region for the -location of a putative QTL.") - (license license:gpl2+)))) - -(define-public genenetwork1 - (let ((commit "acf65ac9ae4be395c07c1629758f7408bf4eab5f") ; June 3, 2020 - (revision "2")) - (package - (name "genenetwork1") - (version (git-version "0.0.0" revision commit)) - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/genenetwork/genenetwork1.git") - (commit commit))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "0xmmmjyvh80yd8b0cjrwpdmxl8k9zj5ly65r2g9aygx74njsp4fi")))) - (build-system gnu-build-system) - (native-inputs - `(("ghostscript" ,ghostscript) - ("graphviz" ,graphviz) - ("wget" ,wget))) - (propagated-inputs - `(("python" ,python-2.4) - ("httpd-with-mod-python" ,httpd22-with-mod-python) - ("python-direct" ,python24-direct-gn) - ("python-htmlgen-GN1" ,python24-htmlgen-GN1) - ("python-json-GN1" ,python24-json-GN1) - ("python-mysqlclient" ,python24-mysqlclient) - ("python-numarray" ,python24-numarray) - ("python-piddle" ,python24-piddle) - ("python-pp-GN1" ,python24-pp-GN1) - ("python-pyx" ,python24-pyx) - ("python-pyxlwriter" ,python24-pyxlwriter) - ("python-qtlreaper" ,python24-qtlreaper) - ("python-rpy2" ,python24-rpy2) - ("python-svg-GN1" ,python24-svg-GN1))) - (arguments - `(#:tests? #f ; no tests - #:phases - (modify-phases %standard-phases - (delete 'configure) - (delete 'build) - (add-after 'patch-generated-file-shebangs 'patch-more-files - (lambda* (#:key inputs #:allow-other-keys) - (let ((piddle (assoc-ref inputs "python-piddle"))) - (substitute* "web/webqtl/networkGraph/networkGraphUtils.py" - (("/usr/local/bin/neato") (which "neato")) - (("/usr/local/bin/circo") (which "circo")) - (("/usr/local/bin/twopi") (which "twopi")) - (("/usr/local/bin/fdp") (which "fdp")) - (("ps2pdf") (which "ps2pdf"))) - (substitute* "web/webqtl/maintainance/addRif.py" - (("rm ") (string-append (which "rm") " ")) - (("wget ") (string-append (which "wget") " ")) - (("gunzip") (which "gunzip"))) - (substitute* "web/webqtl/misc/editHtmlPage.py" - (("/bin/cp") (which "cp"))) - (substitute* "web/webqtl/geneWiki/AddGeneRIFPage.py" - (("touch") (which "touch"))) - (substitute* '("web/webqtl/maintainance/addRif.py" - "web/webqtl/networkGraph/networkGraphPage.py" - "web/webqtl/utility/svg.py") - (("/usr/bin/(env )?python") (which "python"))) - (substitute* "web/webqtl/base/webqtlConfigLocal.py" - (("PythonPath.*") - (string-append "PythonPath = '" (which "python") "'\n")) - (("PIDDLE_FONT_PATH.*/lib") - (string-append "PIDDLE_FONT_PATH = '" piddle "/lib")))) - #t)) - (add-after 'patch-generated-file-shebangs 'changes-for-deployed-service - (lambda* (#:key outputs #:allow-other-keys) - (let ((out (assoc-ref outputs "out"))) - (substitute* "web/webqtl/base/webqtlConfigLocal.py" - ;; Where GN1 is located: (GNROOT) - (("/gnshare/gn") out) - ;; Where the database is located: (sql_host) - (("tux01.uthsc.edu") "127.0.0.1")) - (substitute* '("web/webqtl/maintainance/QTL_Reaper_cal_lrs.py") - (("128\\.169\\.5\\.59") "localhost")) - ;; This directory (TMPDIR) is expected to be writable by apache. - ;; /tmp is private inside the container. - (symlink "/tmp" "web/tmp") - ;; IMGDIR is expected to be writable. - (symlink "/tmp" "web/image") - (system "chmod 0777 web/tmp") - ;; More writable locations: - (substitute* (list "web/webqtl/collection/ExportSelectionDetailInfoPage.py" - "web/webqtl/pairScan/DirectPlotPage.py" - "web/webqtl/updateTrait/DataUpdatePage.py" - "web/webqtl/utility/Plot.py") - (("/gnshare/gn/web/debug_file.txt") "/tmp/debug_file.txt")) - ;; We mount the genotypes folder (GENODIR) in the OS-config and - ;; provide the symlink to that location from the package. - ;; And now the directory is magically available! - (symlink "/gnshare/gn/web/genotypes" "web/genotypes") - (substitute* "web/webqtl/base/webqtlConfig.py" - (("http://www.genenetwork.org") "http://gn1-test.genenetwork.org")) - ;; Inside the gn1 container, there's some conflict when - ;; importing the user module, therefore, as a hack, rename - ;; user to useralt - (mkdir "web/webqtl/useralt") - (copy-recursively "web/webqtl/user" "web/webqtl/useralt") - (substitute* '("web/webqtl/main.py") - (("from user import") "from useralt import")) - #t))) - (add-after 'unpack 'use-local-links - (lambda _ - (substitute* '("web/javascript/menu_items.js" - "web/webqtl/maintainance/updateMenuJS.py") - (("http://(www|gn1).genenetwork.org") "")) - - ;; Move this file out of the way while patching files. - (rename-file "web/infoshare/manager/MDB-Free/index.html" - "web/infoshare/manager/MDB-Free/index.htm") - (substitute* (cons* - "web/webqtl/base/indexBody.py" - "web/webqtl/submitTrait/BatchSubmitPage.py" - (find-files "web" "\\.html")) - ((".*base href.*") "") - (("(HREF|href)=\\\"http://(www.)?genenetwork.org") - "href=\"")) - ;; Move this file back to its original location. - (rename-file "web/infoshare/manager/MDB-Free/index.htm" - "web/infoshare/manager/MDB-Free/index.html") - - (substitute* (cons* - "web/humanCross.html" - "web/webqtl/base/indexBody.py" - "web/whats_new.html" - (find-files "web/dbdoc" "\\.html")) - (("src=\\\"http://www.genenetwork.org") "src=\"")) - #t)) - (replace 'install - (lambda* (#:key outputs #:allow-other-keys) - (copy-recursively "." (assoc-ref outputs "out")) - #t))))) - (home-page "http://www.genenetwork.org/webqtl/main.py") - (synopsis - "Combined database and data analysis software resource for systems genetics") - (description "GeneNetwork is a group of linked data sets and tools used to -study complex networks of genes, molecules, and higher order gene function and -phenotypes. GeneNetwork combines more than 25 years of legacy data generated by -hundreds of scientists together with sequence data (SNPs) and massive -transcriptome data sets (expression genetic or eQTL data sets). The -@dfn{quantitative trait locus} (QTL) mapping module that is built into GN is -optimized for fast on-line analysis of traits that are controlled by -combinations of gene -variants and environmental factors. GeneNetwork can be used to study humans, -mice (BXD, AXB, LXS, etc.), rats (HXB), Drosophila, and plant species (barley -and Arabidopsis). Most of these population data sets are linked with dense -genetic maps (genotypes) that can be used to locate the genetic modifiers that -cause differences in expression and phenotypes, including disease susceptibility.") - (license license:agpl3+)))) |
