From 18082c3bdd42edfb6afc97f96a80744874c27986 Mon Sep 17 00:00:00 2001 From: BonfaceKilz Date: Wed, 2 Dec 2020 00:03:09 +0300 Subject: gn: python3-genenetwork2: Generate static dependencies file * gn/packages/genenetwork.scm (python3-genenetwork2): [arguments]{generate-dependency-file}: Add new phase after "install" that generates a "DEPENDENCY.md" file which will be displayed in the gn2 web interface. --- gn/packages/genenetwork.scm | 35 ++++++++++++++++++++++++++++++++--- 1 file changed, 32 insertions(+), 3 deletions(-) diff --git a/gn/packages/genenetwork.scm b/gn/packages/genenetwork.scm index 1e15cbb..24e3732 100644 --- a/gn/packages/genenetwork.scm +++ b/gn/packages/genenetwork.scm @@ -495,9 +495,38 @@ Graphical Fragment Assembly} files and related formats.") (("grep") (which "grep")) (("rm") (which "rm")) (("which") (which "which"))) - #t)))) - )) - )))) + #t)) + (add-after 'install 'generate-dependency-file + (lambda* (#:key inputs outputs #:allow-other-keys) + (call-with-output-file + (string-append + (assoc-ref outputs "out") + "/lib/python3.8/site-packages" + "/wqflask/DEPENDENCIES.md") + (lambda (port) + (format + port " +#### System Inputs (generated from ~a package ~a) +|Name | Description | +|-----|-------------| +~a +" + ,(package-name this-package) + ,(package-version this-package) + ,(apply + string-append + (map + (lambda (input) + (let* ((pkg (cadr input)) + (name (package-name pkg)) + (version (package-version pkg)) + (home-page (package-home-page pkg)) + (description (package-synopsis pkg))) + (string-append + "| **[" name "](" home-page ")** v" + version"| " + description " |\n"))) + (package-propagated-inputs this-package)))))))))))))))) ;; ./pre-inst-env guix download http://files.genenetwork.org/raw_database/db_webqtl_s.zip ;; 0sscjh0wml2lx0mb43vf4chg9gpbfi7abpjxb34n3kyny9ll557x -- cgit v1.2.3