infra/nonguix
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
* 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
1 changed files with 2 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
nongnu/packages/messaging.scm
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