From 2a9a65b876831994cfe25b993b78503cf466a3b9 Mon Sep 17 00:00:00 2001
From: EuAndreh <eu@euandre.org>
Date: Sat, 3 Aug 2024 16:44:04 -0300
Subject: queue.scm: Add "go-full" package

---
 src/org/euandre/queue.scm | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)

diff --git a/src/org/euandre/queue.scm b/src/org/euandre/queue.scm
index 9dd6742..88a1aa7 100644
--- a/src/org/euandre/queue.scm
+++ b/src/org/euandre/queue.scm
@@ -23,6 +23,7 @@
   #:use-module (gnu packages image)
   #:use-module (gnu packages glib)
   #:use-module (gnu packages gnome)
+  #:use-module (gnu packages golang)
   #:use-module (gnu packages mail)
   #:use-module (gnu packages m4)
   #:use-module (gnu packages onc-rpc)
@@ -1699,8 +1700,35 @@ connections correctly.")))
         "readme=:README.md"
         "readme=:README"))))
 
+(define-public go-full
+  (package
+    (inherit go-1.22)
+    (arguments
+      (substitute-keyword-arguments (package-arguments go-1.22)
+        ((#:tests? _) #f)
+        ((#:phases phases)
+         #~(modify-phases #$phases
+             (add-before 'build 'recover-binary-stdlib
+               (lambda _
+                 (define (setenvrc env-var value)
+                   (setenv env-var value)
+                   (format #t
+                           "Environment variable `~a' set to `~a'.~%"
+                           env-var
+                           value))
+                 (setenvrc "GODEBUG" "installgoroot=all")))
+             (add-after 'install 'install-binaries
+               (lambda* (#:key outputs #:allow-other-keys)
+                 (let* ((out (assoc-ref outputs "out"))
+                        (dest (string-append out "/lib/go/pkg")))
+                   (copy-recursively "pkg" dest))))
+             (delete 'strip)))))))
+
+
+
 
 (list
+ go-full
  pax-utils
  hunspell-dict-en-utf8
  hunspell-dict-pt-utf8
-- 
cgit v1.2.3