blob: 3efbdeef9e7f1642b8ea4d20065846600fc52dc3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
(define-module (px packages atril-thumbnailer)
#:use-module (guix packages)
#:use-module (guix utils)
#:use-module (gnu packages mate))
(define-public atril-thumbnailer
(package
(inherit atril)
(name "atril-thumbnailer")
(version (package-version atril))
(source
(origin
(inherit (package-source atril))
(uri (string-append "mirror://mate/" (version-major+minor version) "/"
"atril-" version ".tar.xz"))))
(arguments
(substitute-keyword-arguments (package-arguments atril)
((#:phases phases)
`(modify-phases ,phases
(replace 'build
(lambda _
(invoke "make" "thumbnailer")
#t))
(replace 'install
(lambda _
(invoke "make" "install" "thumbnailer")
#t))
(add-after 'install 'remove-desktop-file
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(invoke "rm" (string-append out "/share/applications/atril.desktop"))
#t)))))))))
|
