1 files changed, 32 insertions, 0 deletions
diff --git a/px/packages/atril-thumbnailer.scm b/px/packages/atril-thumbnailer.scm
new file mode 100644
index 0000000..3efbdee
--- /dev/null
+++ b/px/packages/atril-thumbnailer.scm
@@ -0,0 +1,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)))))))))