me/guix
Archived
1
0
Fork 0
Code Activity

gnu: icedove-wayland: Use gexps.

Browse source 
* gnu/packages/gnuzilla.scm (icedove/wayland)
[inputs]: Set to the empty list.
[arguments]: Use gexps.
This commit is contained in:
Maxim Cournoyer 2022-10-12 12:29:28 +00:00
parent f223f773a4
commit 51d2b76529
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 14 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

35
gnu/packages/gnuzilla.scm
View file

@ -1420,37 +1420,30 @@ Thunderbird. It supports email, news feeds, chat, calendar and contacts.")
(package (package
(inherit icedove) (inherit icedove)
(name "icedove-wayland") (name "icedove-wayland")
(native-inputs '())
(inputs
`(("bash" ,bash-minimal)
("icedove" ,icedove)))
(build-system trivial-build-system) (build-system trivial-build-system)
(arguments (arguments
'(#:modules ((guix build utils)) (list
#:builder #:modules '((guix build utils))
(begin #:builder
#~(begin
(use-modules (guix build utils)) (use-modules (guix build utils))
(let* ((bash (assoc-ref %build-inputs "bash")) (let* ((exe (string-append #$output "/bin/icedove")))
(icedove (assoc-ref %build-inputs "icedove"))
(out (assoc-ref %outputs "out"))
(exe (string-append out "/bin/icedove")))
(mkdir-p (dirname exe)) (mkdir-p (dirname exe))
(call-with-output-file exe (call-with-output-file exe
(lambda (port) (lambda (port)
(format port "#!~a (format port "#!~a
MOZ_ENABLE_WAYLAND=1 exec ~a $@" MOZ_ENABLE_WAYLAND=1 exec ~a $@"
(string-append bash "/bin/bash") #$(file-append bash-minimal "/bin/bash")
(string-append icedove "/bin/icedove")))) #$(file-append icedove "/bin/icedove"))))
(chmod exe #o555) (chmod exe #o555)
;; Provide the manual and .desktop file. ;; Provide the manual and .desktop file.
(copy-recursively (string-append icedove "/share") (copy-recursively (string-append #$icedove "/share")
(string-append out "/share")) (string-append #$output "/share"))
(substitute* (string-append (substitute* (string-append #$output
out "/share/applications/icedove.desktop") "/share/applications/icedove.desktop")
((icedove) out)) ((#$icedove) #$output))))))
#t)))))) (native-inputs '())
(inputs '())))
(define-public firefox-decrypt (define-public firefox-decrypt
(package (package