[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/01: gnu: gtk+: Move desktop files into "bin" output.
From: |
??? |
Subject: |
01/01: gnu: gtk+: Move desktop files into "bin" output. |
Date: |
Sat, 15 Oct 2016 03:48:56 +0000 (UTC) |
iyzsong pushed a commit to branch core-updates
in repository guix.
commit 4c8c2b0f54233ad75dbc1a161176c1f7233b5e03
Author: 宋文武 <address@hidden>
Date: Fri Oct 14 22:57:53 2016 +0800
gnu: gtk+: Move desktop files into "bin" output.
* gnu/packages/gtk.scm (gtk+)[arguments]: Add 'move-desktop-files' phase.
---
gnu/packages/gtk.scm | 11 ++++++++++-
1 file changed, 10 insertions(+), 1 deletion(-)
diff --git a/gnu/packages/gtk.scm b/gnu/packages/gtk.scm
index 183989b..0de1409 100644
--- a/gnu/packages/gtk.scm
+++ b/gnu/packages/gtk.scm
@@ -685,7 +685,16 @@ application suites.")
(substitute* "testsuite/Makefile.in"
(("SUBDIRS = gdk gtk a11y css reftests")
"SUBDIRS = gdk"))
- #t)))))
+ #t))
+ (add-after 'install 'move-desktop-files
+ ;; Move desktop files into 'bin' to avoid cycle references.
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let ((out (assoc-ref outputs "out"))
+ (bin (assoc-ref outputs "bin")))
+ (mkdir-p (string-append bin "/share"))
+ (rename-file (string-append out "/share/applications")
+ (string-append bin "/share/applications"))
+ #t))))))
(native-search-paths
(list (search-path-specification
(variable "GUIX_GTK3_PATH")