efraim pushed a commit to branch master
in repository guix.
commit d67a3beb522f62720bbcaa1edbdab35514b9509e
Author: Efraim Flashner <[email protected]>
AuthorDate: Mon Sep 14 10:25:34 2020 +0300
gnu: sxiv: Install desktop file.
* gnu/packages/image-viewers.scm (sxiv)[arguments]: Add custom
'install-desktop-file phase to install desktop file.
---
gnu/packages/image-viewers.scm | 10 ++++++++--
1 file changed, 8 insertions(+), 2 deletions(-)
diff --git a/gnu/packages/image-viewers.scm b/gnu/packages/image-viewers.scm
index 16040e4..1889be3 100644
--- a/gnu/packages/image-viewers.scm
+++ b/gnu/packages/image-viewers.scm
@@ -2,7 +2,7 @@
;;; Copyright © 2013, 2017, 2018, 2019, 2020 Ludovic Courtès <[email protected]>
;;; Copyright © 2014 Ian Denhardt <[email protected]>
;;; Copyright © 2015, 2016 Alex Kost <[email protected]>
-;;; Copyright © 2016, 2017, 2018, 2019 Efraim Flashner <[email protected]>
+;;; Copyright © 2016, 2017, 2018, 2019, 2020 Efraim Flashner
<[email protected]>
;;; Copyright © 2017 Alex Griffin <[email protected]>
;;; Copyright © 2017 Nikita <[email protected]>
;;; Copyright © 2017 Mathieu Othacehe <[email protected]>
@@ -212,7 +212,13 @@ It is the default image viewer on LXDE desktop
environment.")
"V=1")
#:phases
(modify-phases %standard-phases
- (delete 'configure)))) ; no configure script
+ (delete 'configure) ; no configure script
+ (add-after 'install 'install-desktop-file
+ (lambda* (#:key outputs #:allow-other-keys)
+ (install-file "sxiv.desktop"
+ (string-append (assoc-ref outputs "out")
+ "/share/applications"))
+ #t)))))
(inputs
`(("freetype" ,freetype)
("giflib" ,giflib)
