gnu: k3b: Remove references to '%outputs' and '%build-inputs'.

* gnu/packages/kde-multimedia.scm (k3b)[arguments]: Remove references to
'%build-inputs' and '%outputs'.
This commit is contained in:
Ludovic Courtès 2021-11-27 11:25:21 +01:00
parent c108602c33
commit 71e47839ba
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -308,11 +308,11 @@ (define-public k3b
`(#:phases `(#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'set-absolute-library-paths (add-after 'unpack 'set-absolute-library-paths
(lambda _ (lambda* (#:key inputs #:allow-other-keys)
;; Set absolute paths for dlopened libraries. We cant use k3bs ;; Set absolute paths for dlopened libraries. We cant use k3bs
;; runpath as they are loaded by the Qt library. ;; runpath as they are loaded by the Qt library.
(let ((libcdio-paranoia (assoc-ref %build-inputs "libcdio-paranoia")) (let ((libcdio-paranoia (assoc-ref inputs "libcdio-paranoia"))
(libdvdcss (assoc-ref %build-inputs "libdvdcss"))) (libdvdcss (assoc-ref inputs "libdvdcss")))
(substitute* "libk3b/tools/k3bcdparanoialib.cpp" (substitute* "libk3b/tools/k3bcdparanoialib.cpp"
(("\"(cdio_cdda|cdio_paranoia)\"" _ library) (("\"(cdio_cdda|cdio_paranoia)\"" _ library)
(string-append "\"" libcdio-paranoia "/lib/" library "\""))) (string-append "\"" libcdio-paranoia "/lib/" library "\"")))
@ -321,12 +321,12 @@ (define-public k3b
(string-append "\"" libdvdcss "/lib/" library "\"")))) (string-append "\"" libdvdcss "/lib/" library "\""))))
#t)) #t))
(add-after 'qt-wrap 'wrap-path (add-after 'qt-wrap 'wrap-path
(lambda _ (lambda* (#:key inputs outputs #:allow-other-keys)
;; Set paths to backend programs. ;; Set paths to backend programs.
(wrap-program (string-append (assoc-ref %outputs "out") "/bin/k3b") (wrap-program (string-append (assoc-ref outputs "out") "/bin/k3b")
`("PATH" ":" prefix `("PATH" ":" prefix
,(map (lambda (input) ,(map (lambda (input)
(string-append (assoc-ref %build-inputs input) "/bin")) (string-append (assoc-ref inputs input) "/bin"))
'("cdrdao" "dvd+rw-tools" "libburn" "sox")))) '("cdrdao" "dvd+rw-tools" "libburn" "sox"))))
#t))))) #t)))))
(native-inputs (native-inputs