etc/guix/home.scm: Add finished "abuild" package and WIP "apk-tools" package

1 files changed, 105 insertions, 0 deletions

diff --git a/etc/guix/home.scm b/etc/guix/home.scm
index 7ccb5bd..41c7855 100644
--- a/etc/guix/home.scm
+++ b/etc/guix/home.scm
@@ -9,21 +9,124 @@
   (gnu home services shells)
   (gnu home services shepherd)
   (gnu home services xdg)
+  (guix build-system gnu)
   (guix build-system trivial)
   (guix download)
   (guix git-download)
   (guix packages)
   (guix utils))
 (use-package-modules
+  busybox
+  compression
   curl
   dunst
   freedesktop
   hunspell
+  man
+  pkg-config
   tls
   xdisorg)
 (heredoc:enable-syntax)
 
 
+(define-public abuild
+  (package
+    (name "abuild")
+    (version "3.10.0")
+    (source
+      (origin
+        (method url-fetch)
+        (uri
+          (string-append
+           "https://gitlab.alpinelinux.org/alpine/abuild/-/archive/"
+           version
+           "/abuild-"
+           version
+           ".tar.gz"))
+        (sha256
+          (base32 "0c272fvca2l18vm441db9s6hs70b5w1wcxk0l5aj3h1zvycwgbap"))))
+    (build-system gnu-build-system)
+    (arguments
+      (list
+       #:tests? #f ;; depends on Kyua, which depends on ATF
+       #:make-flags
+       #~(list
+          "CC=gcc"
+          (string-append "prefix=" #$output)
+          (string-append "sysconfdir=" #$output "/etc"))
+       #:phases
+       #~(modify-phases %standard-phases
+           (delete 'configure))))
+    (inputs
+      (list
+       busybox
+       openssl
+       zlib))
+    (native-inputs
+      (list
+       pkg-config
+       scdoc))
+    (synopsis "Alpine Linux build tools")
+    (description
+     "abuild is the main tool used in Alpine Linux to build, update and maintain
+\".apk\" packages.")
+    (home-page "https://gitlab.alpinelinux.org/alpine/abuild")
+    (license licenses:gpl2+)))
+
+(define-public apk-tools
+  (package
+    (name "apk-tools")
+    (version "2.12.11")
+    (source
+      (origin
+        (method url-fetch)
+        (uri
+          (string-append
+           "https://gitlab.alpinelinux.org/alpine/apk-tools/-/archive/v"
+           version
+           "/apk-tools-v"
+           version
+           ".tar.gz"))
+        (sha256
+          (base32 "1iani00slrv3lpva8p1k7aivrd8pfgf8xw36j1h2k9qmsn6wvhic"))))
+    (build-system gnu-build-system)
+    (arguments
+      (list
+       ;; #:strip-binaries? #f
+       ;; #:validate-runpath? #f
+       #:make-flags
+       #~(list
+          "LUA=no"
+          "VERBOSE=1"
+          (string-append "DOCDIR="       #$output "/share/doc/apk")
+          (string-append "INCLUDEDIR="   #$output "/include")
+          (string-append "LIBDIR="       #$output "/lib")
+          (string-append "MANDIR="       #$output "/share/man")
+          (string-append "PKGCONFIGDIR=" #$output "/lib/pkgconfig")
+          (string-append "SBINDIR="      #$output "/sbin"))
+       #:phases
+       #~(modify-phases %standard-phases
+           (delete 'configure)
+           (add-after 'build 'ldd
+             (lambda _
+               (invoke "ldd" "src/libapk.so.3.12.0")
+               (invoke "ldd" "src/apk"))))))
+    (inputs
+      (list
+       openssl
+       zlib))
+    (native-inputs
+      (list
+       pkg-config
+       scdoc))
+    (synopsis "Alpine package manager")
+    (description
+     "Alpine Package Keeper (apk) is a package manager originally built for
+Alpine Linux, but now used by several other distributions as well.")
+    (home-page "https://gitlab.alpinelinux.org/alpine/apk-tools")
+    (license licenses:gpl2)))
+
+
 ;; Sent upstream as:
 ;; https://issues.guix.gnu.org/61823
 (define-public tmux-plugin-continuum
@@ -588,6 +691,8 @@ left it off the last time it was used.")
             icedove
             firefox))
      (list ;; cmucl
+           abuild
+           ;; apk-tools
            tmux-plugin-continuum
            hunspell-iconv
            (hunspell-dictionary-utf8 "en")