etc/guix/home.scm: addremove packages

1 files changed, 66 insertions, 4 deletions

diff --git a/etc/guix/home.scm b/etc/guix/home.scm
index 3cfa20c4..9089959e 100644
--- a/etc/guix/home.scm
+++ b/etc/guix/home.scm
@@ -108,6 +108,65 @@
 (define (xdg path)
   (string-append xdg-prefix "/" path))
 
+(define libuv-static
+  (let ((pkg (specification->package "libuv")))
+    (package
+      (inherit pkg)
+      (name "libuv-static")
+      (arguments
+        (substitute-keyword-arguments (package-arguments pkg)
+          ((#:configure-flags flags)
+           `(cons "--enable-static"
+                  (delete "--disable-static" ,flags))))))))
+
+(define pax
+  (package
+    (name "pax")
+    (version "20240817")
+    (source
+      (origin
+        (method url-fetch)
+        (uri
+          (string-append
+           "http://www.mirbsd.org/MirOS/dist/mir/cpio/paxmirabilis-"
+           version
+           ".tgz"))
+        (sha256
+          (base32 "0srf31yrlm4c71pynhpima1i139yp1crlfj67w5dxblpmz9xamg9"))))
+    (build-system gnu-build-system)
+    (arguments
+     (list
+      #:tests? #f
+      #:phases
+      #~(modify-phases %standard-phases
+          (delete 'configure)
+          (replace 'build
+            (lambda _
+              (setenv "CC" #$(cc-for-target))
+              (invoke "sh" "Build.sh" "-r" "-tpax")))
+          (replace 'install
+            (lambda _
+              (let ((bin (string-append #$output "/bin"))
+                    (man (string-append #$output "/share/man/man1")))
+                (install-file "pax" bin)
+                (chmod (string-append bin "/pax")
+                       #o555)
+                (symlink "pax"
+                         (string-append bin "/paxcpio"))
+                (symlink "pax"
+                         (string-append bin "/paxtar"))
+                (for-each
+                  (lambda (m)
+                    (install-file (string-append "mans/" m)
+                                  man))
+                  '("pax.1" "paxcpio.1" "paxtar.1"))))))))
+    (home-page "https://www.mirbsd.org/pax.htm")
+    (synopsis "POSIX standard archive tool from MirBSD")
+    (description "MirBSD's portable implementation of @command{pax}, the
+POSIX standard archiver, which also provides @command{cpio} and
+@command{tar} interfaces.")
+    (license licenses:bsd-3)))
+
 (home-environment
   (packages
     (append
@@ -148,7 +207,7 @@
             git-lfs
             mercurial
             fossil
-            darcs
+            ; darcs ; broken
             cssc
             rcs
             cvs
@@ -341,7 +400,6 @@
             perf-tools
             scdoc
             rpm
-            pax-utils
             dpkg
             fakeroot
             cpio
@@ -354,6 +412,8 @@
             inotify-tools
             tidy-html:out
             tidy-html:static
+            libxml2
+            kubo
 
             cryptsetup
             btrfs-progs
@@ -413,7 +473,7 @@
             gcc-toolchain:out
             gcc-toolchain:debug
             gcc-toolchain:static
-            musl
+            ; musl
             cppcheck
             clang
             tcc
@@ -514,7 +574,9 @@
      (list
       ((transformations:options->transformation
        '((with-latest . "yt-dlp")))
-       yt-dlp))
+       yt-dlp)
+      libuv-static
+      pax)
      (list
       (script "cronjob"
               (slurp (string-append (getenv "HOME")