rewrite: apply guix-reference formatting; cleanup some module imports

1 files changed, 29 insertions, 25 deletions

diff --git a/px/packages/atril-thumbnailer.scm b/px/packages/atril-thumbnailer.scm
index 3efbdee..24ac1ac 100644
--- a/px/packages/atril-thumbnailer.scm
+++ b/px/packages/atril-thumbnailer.scm
@@ -5,28 +5,32 @@
 
 (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)))))))))
+    (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)))))))))