gnu: guile-hall: Update to 0.2.

* gnu/packages/guile-xyz.scm (guile-hall): Update to 0.2.
This commit is contained in:
Alex Sassmannshausen 2019-02-15 16:55:42 +01:00
parent e191e84859
commit 63bf0afdf6
No known key found for this signature in database
GPG Key ID: 8BC4F4476E8A8E00
1 changed files with 64 additions and 51 deletions

View File

@ -1251,65 +1251,78 @@ above command-line parameters.")
(define-public guile-hall (define-public guile-hall
(package (package
(name "guile-hall") (name "guile-hall")
(version "0.1.1") (version "0.2")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
(url "https://gitlab.com/a-sassmannshausen/guile-hall") (url "https://gitlab.com/a-sassmannshausen/guile-hall")
(commit "7d1094a12fe917209ce5b76c681cc8c862d4c65b"))) (commit "54aeeb088ea2f1168090b7cdb95e3e70884f52f3")))
(file-name "guile-hall-0.1.1-checkout") (file-name "guile-hall-0.2-checkout")
(sha256 (sha256 (base32
(base32 "1bkbqgj24xh5b65sw2m98iggpi67b72szx1dsiq3cpzlcxplmgaz"))))
"03kb09cjca98hlbx9mj12mqinzsnnvp6ci6i975n88pjhaxigyp1"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:modules `(#:modules
((ice-9 match) ((ice-9 match)
(ice-9 ftw) (ice-9 ftw)
,@%gnu-build-system-modules) ,@%gnu-build-system-modules)
#:phases #:phases
(modify-phases %standard-phases (modify-phases
(add-after 'install 'hall-wrap-binaries %standard-phases
(lambda* (#:key inputs outputs #:allow-other-keys) (add-after 'install 'hall-wrap-binaries
(let* ((out (assoc-ref outputs "out")) (lambda* (#:key inputs outputs #:allow-other-keys)
(bin (string-append out "/bin/")) (let* ((compiled-dir
(site (string-append out "/share/guile/site")) (lambda (out version)
(config (assoc-ref inputs "guile-config"))) (string-append
(match (scandir site) out "/lib/guile/" version "/site-ccache")))
(("." ".." version) (uncompiled-dir
(let ((modules (string-append site "/" version)) (lambda (out version)
(compiled-modules (string-append (string-append
out "/lib/guile/" version out "/share/guile/site"
"/site-ccache"))) (if (string-null? version) "" "/") version)))
(wrap-program (string-append bin "hall") (dep-path
`("GUILE_LOAD_PATH" ":" prefix (lambda (env modules path)
(,modules (list env ":" 'prefix
,(string-append config (cons modules
"/share/guile/site/" (map (lambda (input)
version))) (string-append
`("GUILE_LOAD_COMPILED_PATH" ":" prefix (assoc-ref inputs input)
(,compiled-modules path))
,(string-append config "/lib/guile/" ,''("guile-config"))))))
version (out (assoc-ref outputs "out"))
"/site-ccache")))) (bin (string-append out "/bin/"))
#t))))))))) (site (uncompiled-dir out "")))
(match (scandir site)
(("." ".." version)
(for-each
(lambda (file)
(wrap-program
(string-append bin file)
(dep-path
"GUILE_LOAD_PATH"
(uncompiled-dir out version)
(uncompiled-dir "" version))
(dep-path
"GUILE_LOAD_COMPILED_PATH"
(compiled-dir out version)
(compiled-dir "" version))))
,''("hall"))
#t))))))))
(native-inputs (native-inputs
`(("autoconf" ,autoconf) `(("autoconf" ,autoconf)
("automake" ,automake) ("automake" ,automake)
("pkg-config" ,pkg-config) ("pkg-config" ,pkg-config)
("texinfo" ,texinfo))) ("texinfo" ,texinfo)))
(inputs `(("guile" ,guile-2.2))) (inputs `(("guile" ,guile-2.2)))
(propagated-inputs (propagated-inputs
`(("guile-config" ,guile-config))) `(("guile-config" ,guile-config "out")))
(synopsis "Guile project tooling") (synopsis "Guile project tooling")
(description (description
"Hall is a command-line application and a set of Guile libraries that "Hall is a command-line application and a set of Guile libraries that allow you to quickly create and publish Guile projects. It allows you to transparently support the GNU build system, manage a project hierarchy & provides tight coupling to Guix.")
allow you to quickly create and publish Guile projects. It allows you to (home-page
transparently support the GNU build system, manage a project hierarchy & "https://gitlab.com/a-sassmannshausen/guile-hall")
provides tight coupling to Guix.") (license gpl3+)))
(home-page "https://gitlab.com/a-sassmannshausen/guile-hall")
(license license:gpl3+)))
(define-public guile-ics (define-public guile-ics
(package (package