blob: a8161397a88b5c67f026c624a05886cbdadb60d1 (
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
33
34
35
36
37
38
39
|
;;; Package Repository for GNU Guix
;;; Copyright © 2021-2025 Franz Geffke <m@f-a.nz>
(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)))))))))
|
