nongnu: lycheeslicer: Avoid manually unpacking .deb file.

* nongnu/packages/engineering.scm (lycheeslicer)[phases]<unpack>:
Replace with 'setup-cwd;
<symlink-binary-file>: there's no need anymore to care about the
environment-variables file;
[native-inputs]: drop tar.

Signed-off-by: Jonathan Brielmaier <jonathan.brielmaier@web.de>
This commit is contained in:
Giacomo Leidi 2023-09-21 02:42:33 +02:00 committed by Jonathan Brielmaier
parent 9a0253ae89
commit 62d1c7ab6b
No known key found for this signature in database
GPG key ID: ECFC83988B4E4B9F

View file

@ -35,28 +35,22 @@
#~'("lib/LycheeSlicer/lycheeslicer") #~'("lib/LycheeSlicer/lycheeslicer")
#:phases #:phases
#~(modify-phases %standard-phases #~(modify-phases %standard-phases
(replace 'unpack (add-after 'binary-unpack 'setup-cwd
(lambda _ (lambda _
(invoke "ar" "x" #$source)
(invoke "tar" "xvf" "data.tar.xz")
;; Use the more standard lib directory for everything. ;; Use the more standard lib directory for everything.
(rename-file "opt/" "lib") (rename-file "opt/" "lib")
(mkdir-p "share") (mkdir-p "share")
(copy-recursively "usr/share" "share") (copy-recursively "usr/share" "share")
;; Remove unneeded files. ;; Remove unneeded files.
(delete-file-recursively "usr") (delete-file-recursively "usr")))
(delete-file "control.tar.gz") (add-after 'setup-cwd 'fix-desktop-file
(delete-file "data.tar.xz")
(delete-file "debian-binary")))
(add-after 'unpack 'fix-desktop-file
(lambda _ (lambda _
;; Fix the .desktop file binary location. ;; Fix the .desktop file binary location.
(substitute* '("share/applications/lycheeslicer.desktop") (substitute* '("share/applications/lycheeslicer.desktop")
(("/opt/LycheeSlicer") (("/opt/LycheeSlicer")
(string-append #$output "/lib/LycheeSlicer"))))) (string-append #$output "/lib/LycheeSlicer")))))
(add-before 'install-wrapper 'symlink-binary-file-and-cleanup (add-before 'install-wrapper 'symlink-binary-file
(lambda _ (lambda _
(delete-file (string-append #$output "/environment-variables"))
(mkdir-p (string-append #$output "/bin")) (mkdir-p (string-append #$output "/bin"))
(symlink (string-append #$output "/lib/LycheeSlicer/lycheeslicer") (symlink (string-append #$output "/lib/LycheeSlicer/lycheeslicer")
(string-append #$output "/bin/lycheeslicer")))) (string-append #$output "/bin/lycheeslicer"))))
@ -68,7 +62,6 @@
(list (list
(string-append #$output "/lib/LycheeSlicer")) (string-append #$output "/lib/LycheeSlicer"))
":"))))))))) ":")))))))))
(native-inputs (list tar))
(inputs (inputs
(list libxscrnsaver)) (list libxscrnsaver))
(home-page "https://mango3d.io") (home-page "https://mango3d.io")