Subject: bug#42975: closed (Re: [bug#42975] [PATCH v3] gnu: Add akku.)

From: [email-masked] (GNU bug Tracking System)
Date: Sun, 23 Aug 2020 21:19:02 +0000

Your bug report

#42975: [PATCH] gnu: akku: Add akku.

which was filed against the guix-patches package, has been closed.

The explanation is attached below, along with your original report.
If you require more details, please reply to [email-masked].

-- 
42975: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=42975
GNU Bug Tracking System
Contact [email-masked] with problems

Subject: Re: [bug#42975] [PATCH v3] gnu: Add akku.
From: Leo Famulari <[email-masked]>
To: Martin Becze <[email-masked]>
Cc: [email-masked]
Date: Sun, 23 Aug 2020 17:18:14 -0400
List-Id: <debbugs-submit.debbugs.gnu.org>

On Sun, Aug 23, 2020 at 01:21:18PM -0500, Martin Becze wrote:
> * gnu/packages/package-management.scm (akku): New variable.

Thank you!

I pushed as e343816dcb11f0150fa3b14589142c418dfbb0d8 with the following
changes:

> +    (synopsis "A language package manager for Scheme")

To satisfy the linter's complaint "no article allowed at the beginning
of the synopsis", I removed the first word of the synopsis.

The common English articles are the words A, An, and The. We consider
them unecessary in this context.

> +    (license license:gpl3)))

I changed this to gpl3+.

I made that decision based on the COPYING file, and the license headers
of the files in the bin and lib directories, which consistently include
the text "(at your option) any later version".

Subject: [PATCH] gnu: akku: Add akku.
From: Martin Becze <[email-masked]>
To: [email-masked]
Cc: Martin Becze <[email-masked]>
Date: Fri, 21 Aug 2020 14:24:33 -0500
List-Id: <debbugs-submit.debbugs.gnu.org>

* 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 <[email-masked]>
 ;;; Copyright © 2020 Giacomo Leidi <[email-masked]>
 ;;; Copyright © 2020 Jesse Gibbons <[email-masked]>
+;;; Copyright © 2020 Martin Becze <[email-masked]>
 ;;;
 ;;; 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)))
-- 
2.28.0