| Message ID | 20200823091740.3451-1-mjbecze@riseup.net |
|---|---|
| State | Accepted |
| Headers | show |
| Series | [bug#42975] v2 gnu: akku: Add akku. | expand |
| Context | Check | Description |
|---|---|---|
| cbaines/applying patch | fail | View Laminar job |
The above fixes some lint errors On 8/23/20 4:17 AM, Martin Becze wrote: > * gnu/packages/package-management.scm (akku): New variable. > --- > gnu/packages/package-management.scm | 50 +++++++++++++++++++++++++++++ > 1 file changed, 50 insertions(+) > > diff --git a/gnu/packages/package-management.scm b/gnu/packages/package-management.scm > index d1fe0e2210..f1951c3218 100644 > --- a/gnu/packages/package-management.scm > +++ b/gnu/packages/package-management.scm > @@ -15,6 +15,7 @@ > ;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org> > ;;; Copyright © 2020 Giacomo Leidi <goodoldpaul@autistici.org> > ;;; Copyright © 2020 Jesse Gibbons <jgibbons2357+guix@gmail.com> > +;;; Copyright © 2020 Martin Becze <mjbecze@riseup.net> > ;;; > ;;; This file is part of GNU Guix. > ;;; > @@ -1268,3 +1269,52 @@ applications") > (description "Flatpak is a system for building, distributing, and running > sandboxed desktop applications on GNU/Linux.") > (license license:lgpl2.1+))) > + > +(define-public akku > + (package > + (name "akku") > + (version "1.0.1") > + (source (origin > + (method git-fetch) > + (uri (git-reference > + (url "https://gitlab.com/akkuscm/akku.git") > + (commit (string-append "v" version)))) > + (sha256 (base32 "1dm32ws3nshnnscd7k75zswxxs1pp25y2q4k8j5ms241hz47by3c")))) > + (build-system gnu-build-system) > + (arguments > + '(#:phases (modify-phases %standard-phases > + (replace 'bootstrap > + (lambda* (#:key outputs #:allow-other-keys) > + (for-each patch-shebang > + '("bootstrap" > + ".akku/env")) > + (let* ((home "/tmp") > + (datadir (string-append home "/.local/share/akku/"))) > + (mkdir-p datadir) > + (invoke "touch" (string-append datadir "index.db")) > + (setenv "HOME" home)) > + (invoke "./bootstrap") > + #t)) > + (add-after 'install 'wrap-executables > + (lambda* (#:key outputs inputs #:allow-other-keys) > + (let ((out (assoc-ref outputs "out")) > + (curl (assoc-ref inputs "curl"))) > + (wrap-program (string-append out "/bin/akku") > + `("LD_LIBRARY_PATH" ":" prefix (,(string-append curl "/lib")))) > + #t)))))) > + (native-inputs > + `(("which" ,which) > + ("autoconf" ,autoconf) > + ("automake" ,automake) > + ("pkg-config" ,pkg-config))) > + (inputs > + `(("guile" ,guile-2.2) > + ("curl" ,curl))) > + (home-page "https://akkuscm.org/") > + (synopsis "Akku.scm is a language package manager for Scheme") > + (description > + "Akku.scm is a project-based language package manager for R6RS and R7RS Scheme. > +It is mainly meant for programmers who develop portable programs or libraries in Scheme, > +but could potentially work for end-users of those programs. It also has a translator > +from R7RS, which allows most R7RS code to run on R6RS implementations.") > + (license license:gpl3))) >
diff --git a/gnu/packages/package-management.scm b/gnu/packages/package-management.scm index d1fe0e2210..f1951c3218 100644 --- a/gnu/packages/package-management.scm +++ b/gnu/packages/package-management.scm @@ -15,6 +15,7 @@ ;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2020 Giacomo Leidi <goodoldpaul@autistici.org> ;;; Copyright © 2020 Jesse Gibbons <jgibbons2357+guix@gmail.com> +;;; Copyright © 2020 Martin Becze <mjbecze@riseup.net> ;;; ;;; This file is part of GNU Guix. ;;; @@ -1268,3 +1269,52 @@ applications") (description "Flatpak is a system for building, distributing, and running sandboxed desktop applications on GNU/Linux.") (license license:lgpl2.1+))) + +(define-public akku + (package + (name "akku") + (version "1.0.1") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://gitlab.com/akkuscm/akku.git") + (commit (string-append "v" version)))) + (sha256 (base32 "1dm32ws3nshnnscd7k75zswxxs1pp25y2q4k8j5ms241hz47by3c")))) + (build-system gnu-build-system) + (arguments + '(#:phases (modify-phases %standard-phases + (replace 'bootstrap + (lambda* (#:key outputs #:allow-other-keys) + (for-each patch-shebang + '("bootstrap" + ".akku/env")) + (let* ((home "/tmp") + (datadir (string-append home "/.local/share/akku/"))) + (mkdir-p datadir) + (invoke "touch" (string-append datadir "index.db")) + (setenv "HOME" home)) + (invoke "./bootstrap") + #t)) + (add-after 'install 'wrap-executables + (lambda* (#:key outputs inputs #:allow-other-keys) + (let ((out (assoc-ref outputs "out")) + (curl (assoc-ref inputs "curl"))) + (wrap-program (string-append out "/bin/akku") + `("LD_LIBRARY_PATH" ":" prefix (,(string-append curl "/lib")))) + #t)))))) + (native-inputs + `(("which" ,which) + ("autoconf" ,autoconf) + ("automake" ,automake) + ("pkg-config" ,pkg-config))) + (inputs + `(("guile" ,guile-2.2) + ("curl" ,curl))) + (home-page "https://akkuscm.org/") + (synopsis "Akku.scm is a language package manager for Scheme") + (description + "Akku.scm is a project-based language package manager for R6RS and R7RS Scheme. +It is mainly meant for programmers who develop portable programs or libraries in Scheme, +but could potentially work for end-users of those programs. It also has a translator +from R7RS, which allows most R7RS code to run on R6RS implementations.") + (license license:gpl3)))