diff options
Diffstat (limited to 'gnu/packages/xfce.scm')
| -rw-r--r-- | gnu/packages/xfce.scm | 28 |
1 files changed, 20 insertions, 8 deletions
diff --git a/gnu/packages/xfce.scm b/gnu/packages/xfce.scm index 3ec081133a..a08f004119 100644 --- a/gnu/packages/xfce.scm +++ b/gnu/packages/xfce.scm @@ -1,6 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2014 Sou Bunnbu <iyzsong@gmail.com> -;;; Copyright © 2014 Mark H Weaver <mhw@netris.org> +;;; Copyright © 2014, 2015 Sou Bunnbu <iyzsong@gmail.com> +;;; Copyright © 2014, 2015 Mark H Weaver <mhw@netris.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -43,14 +43,15 @@ (define-public gtk-xfce-engine (package (name "gtk-xfce-engine") - (version "3.0.0") + (version "2.10.1") (source (origin (method url-fetch) - (uri (string-append "http://archive.xfce.org/xfce/4.10/src/" + (uri (string-append "http://archive.xfce.org/src/xfce/" + name "/" (version-major+minor version) "/" name "-" version ".tar.bz2")) (sha256 (base32 - "13c3ajfqkdr6jlqjyhcp4nls0ddanypr83q9qib2ciffik78zq4h")))) + "0g86ywkx0ghzhhn96k88p67bbzlm1aqckly85izp07w80l1934ja")))) (build-system gnu-build-system) (native-inputs `(("pkg-config" ,pkg-config) @@ -89,7 +90,7 @@ Xfce Desktop Environment.") (define-public xfconf (package (name "xfconf") - (version "4.10.0") + (version "4.12.0") (source (origin (method url-fetch) (uri (string-append "http://archive.xfce.org/xfce/" @@ -97,9 +98,20 @@ Xfce Desktop Environment.") "/src/" name "-" version ".tar.bz2")) (sha256 (base32 - "0xh520z0qh0ib0ijgnyrgii9h5d4pc53n6mx1chhyzfc86j1jlhp")))) + "0mmi0g30aln3x98y5p507g17pipq0dj0bwypshan8cq5hkmfl44r")))) (build-system gnu-build-system) - (arguments '(#:parallel-tests? #f)) ; parallel tests failed + (arguments + '(#:phases + ;; Run check after install phase to test dbus activation. + (alist-cons-after + 'install 'check + (lambda _ + (setenv "HOME" (getenv "TMPDIR")) ; xfconfd requires a writable HOME + ;; Run test-suite under a dbus session. + (setenv "XDG_DATA_DIRS" ; for finding org.xfce.Xfconf.service + (string-append %output "/share")) + (zero? (system* "dbus-launch" "make" "check"))) + (alist-delete 'check %standard-phases)))) (native-inputs `(("pkg-config" ,pkg-config) ("intltool" ,intltool))) |