nongnu: signal-desktop: Avoid manually unpacking .deb file.

* nongnu/packages/messaging.scm (signal-desktop)[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:34:15 +02:00 committed by Jonathan Brielmaier
parent a33d57ee74
commit a6c27f4d2f
No known key found for this signature in database
GPG Key ID: ECFC83988B4E4B9F

View File

@ -116,26 +116,19 @@ its core.")
#~'("lib/Signal/signal-desktop") #~'("lib/Signal/signal-desktop")
#: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")
(copy-recursively "usr/" ".") (copy-recursively "usr/" ".")
;; Use the more standard lib directory for everything. ;; Use the more standard lib directory for everything.
(rename-file "opt/" "lib") (rename-file "opt/" "lib")
;; Remove unneeded files. ;; Remove unneeded files.
(delete-file-recursively "usr") (delete-file-recursively "usr")
(delete-file "control.tar.gz")
(delete-file "data.tar.xz")
(delete-file "debian-binary")
(delete-file "environment-variables")
;; Fix the .desktop file binary location. ;; Fix the .desktop file binary location.
(substitute* '("share/applications/signal-desktop.desktop") (substitute* '("share/applications/signal-desktop.desktop")
(("/opt/Signal/") (("/opt/Signal/")
(string-append #$output "/bin/"))))) (string-append #$output "/bin/")))))
(add-after 'install 'symlink-binary-file-and-cleanup (add-after 'install '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/Signal/signal-desktop") (symlink (string-append #$output "/lib/Signal/signal-desktop")
(string-append #$output "/bin/signal-desktop")))) (string-append #$output "/bin/signal-desktop"))))
@ -147,7 +140,6 @@ its core.")
(list (list
(string-append #$output "/lib/Signal")) (string-append #$output "/lib/Signal"))
":"))))))))) ":")))))))))
(native-inputs (list tar))
(home-page "https://signal.org/") (home-page "https://signal.org/")
(synopsis "Private messenger using the Signal protocol") (synopsis "Private messenger using the Signal protocol")
(description "Signal Desktop is an Electron application that links with Signal on Android (description "Signal Desktop is an Electron application that links with Signal on Android