binary-build: delete binary-unpack & format with guix-devel-mode

This commit is contained in:
Pavel Korytov 2023-12-31 00:13:38 +03:00
parent 9c0e6d9524
commit b47ea056ec
9 changed files with 124 additions and 113 deletions

View file

@ -34,6 +34,7 @@
("aw-watcher-window/aw-watcher-window" ("zlib"))) ("aw-watcher-window/aw-watcher-window" ("zlib")))
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(delete 'binary-unpack)
(add-after 'install 'install-symlink (add-after 'install 'install-symlink
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let ((out (string-append (assoc-ref outputs "out")))) (let ((out (string-append (assoc-ref outputs "out"))))

View file

@ -25,6 +25,7 @@
(arguments (arguments
`(#:phases `(#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(delete 'binary-unpack)
(replace 'unpack (replace 'unpack
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(invoke "tar" "xvzf" (assoc-ref inputs "source"))))) (invoke "tar" "xvzf" (assoc-ref inputs "source")))))

View file

@ -33,6 +33,7 @@
(arguments (arguments
`(#:phases `(#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(delete 'binary-unpack)
(replace 'unpack (replace 'unpack
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(invoke "tar" "xvzf" (assoc-ref inputs "source"))))) (invoke "tar" "xvzf" (assoc-ref inputs "source")))))

View file

@ -38,6 +38,7 @@
`(("hugo" ("libgccjit" "libstdc++"))) `(("hugo" ("libgccjit" "libstdc++")))
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(delete 'binary-unpack)
(replace 'unpack (replace 'unpack
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(invoke "tar" "-xvzf" (assoc-ref inputs "source"))))))) (invoke "tar" "-xvzf" (assoc-ref inputs "source")))))))

View file

@ -24,7 +24,10 @@
"0fb9f66qc8shrsv1lffsdq78hc9cb6bddhml5zhv5bcm9pds7q2l")))) "0fb9f66qc8shrsv1lffsdq78hc9cb6bddhml5zhv5bcm9pds7q2l"))))
(build-system binary-build-system) (build-system binary-build-system)
(arguments (arguments
`(#:install-plan `(#:phases
(modify-phases %standard-phases
(delete 'binary-unpack))
#:install-plan
`(("jless" "/bin/")) `(("jless" "/bin/"))
#:patchelf-plan #:patchelf-plan
`(("jless" ("glibc" "libxcb" "libgccjit"))))) `(("jless" ("glibc" "libxcb" "libgccjit")))))

View file

@ -30,6 +30,7 @@
`(("bin/micromamba" ("glibc"))) `(("bin/micromamba" ("glibc")))
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(delete 'binary-unpack)
(replace 'unpack (replace 'unpack
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(invoke "tar" "-xvf" (assoc-ref inputs "source"))))))) (invoke "tar" "-xvf" (assoc-ref inputs "source")))))))

View file

@ -29,6 +29,7 @@
(arguments (arguments
`(#:phases `(#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(delete 'binary-unpack)
(replace 'unpack (replace 'unpack
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(mkdir-p "nushell") (mkdir-p "nushell")

View file

@ -29,6 +29,7 @@
`(("starship" ("libgccjit" "glibc"))) `(("starship" ("libgccjit" "glibc")))
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(delete 'binary-unpack)
(replace 'unpack (replace 'unpack
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(invoke "tar" "-xvzf" (assoc-ref inputs "source"))))))) (invoke "tar" "-xvzf" (assoc-ref inputs "source")))))))

View file

@ -28,6 +28,7 @@
`(("texlab" ("libgccjit"))) `(("texlab" ("libgccjit")))
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(delete 'binary-unpack)
(replace 'unpack (replace 'unpack
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(invoke "tar" "-xvzf" (assoc-ref inputs "source"))))))) (invoke "tar" "-xvzf" (assoc-ref inputs "source")))))))