diff options
| author | 宋文武 <iyzsong@gmail.com> | 2016-10-14 22:57:53 +0800 |
|---|---|---|
| committer | 宋文武 <iyzsong@gmail.com> | 2016-10-15 09:39:14 +0800 |
| commit | 4c8c2b0f54233ad75dbc1a161176c1f7233b5e03 (patch) | |
| tree | 565ba60cdb37fca19e17aece2f0c38024045b184 | |
| parent | 470613f962dc93999c3505a2e84d3ab8016ffd8e (diff) | |
| download | guix-4c8c2b0f54233ad75dbc1a161176c1f7233b5e03.tar.gz | |
gnu: gtk+: Move desktop files into "bin" output.
* gnu/packages/gtk.scm (gtk+)[arguments]: Add 'move-desktop-files' phase.
| -rw-r--r-- | gnu/packages/gtk.scm | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/gnu/packages/gtk.scm b/gnu/packages/gtk.scm index 183989b784..0de1409406 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") |