diff options
| author | 宋文武 <iyzsong@gmail.com> | 2016-02-29 14:57:56 +0800 |
|---|---|---|
| committer | 宋文武 <iyzsong@gmail.com> | 2016-03-02 08:32:47 +0800 |
| commit | 6150b5c780d1578bba596ebab51d1c7731d60bfd (patch) | |
| tree | e25ae3e2a7ed386e1ffaed2c98bf1859b956cfb5 /gnu/packages | |
| parent | 5e8276dcf4e3a05f69176dca816f00616e7f0593 (diff) | |
| download | gnu-guix-6150b5c780d1578bba596ebab51d1c7731d60bfd.tar gnu-guix-6150b5c780d1578bba596ebab51d1c7731d60bfd.tar.gz | |
gnu: xfce: Don't wrap 'startxfce4'.
The necessary environment variables are set by 'etc/profile' now.
* gnu/packages/xfce.scm (xfce)[build-system]: Use 'trivial-build-system'.
[arguments]: Simplify.
Diffstat (limited to 'gnu/packages')
| -rw-r--r-- | gnu/packages/xfce.scm | 27 |
1 files changed, 3 insertions, 24 deletions
diff --git a/gnu/packages/xfce.scm b/gnu/packages/xfce.scm index 0729b1ab67..b62739622d 100644 --- a/gnu/packages/xfce.scm +++ b/gnu/packages/xfce.scm @@ -24,7 +24,7 @@ #:use-module (guix download) #:use-module (guix utils) #:use-module (guix build-system gnu) - #:use-module (guix build-system glib-or-gtk) + #:use-module (guix build-system trivial) #:use-module (gnu packages) #:use-module (gnu packages pkg-config) #:use-module (gnu packages glib) @@ -690,29 +690,8 @@ on your desktop.") (name "xfce") (version (package-version xfce4-session)) (source #f) - (build-system glib-or-gtk-build-system) - (arguments - '(#:modules ((guix build gnu-build-system) - (guix build glib-or-gtk-build-system) - (guix build utils) - (srfi srfi-26)) - #:phases - (alist-replace - 'install - (lambda* (#:key outputs #:allow-other-keys) - (let* ((out (assoc-ref outputs "out")) - (bin (string-append out "/bin")) - (prog (string-append bin "/startxfce4"))) - (mkdir-p bin) - (symlink (string-append - (assoc-ref %build-inputs "xfce4-session") - "/bin/startxfce4") - prog) - (wrap-program prog - ;; For xfce4-panel plugins. - `("X_XFCE4_LIB_DIRS" = ,(list (getenv "X_XFCE4_LIB_DIRS")))))) - (map (cut assq <> %standard-phases) - '(set-paths install glib-or-gtk-wrap))))) + (build-system trivial-build-system) + (arguments '(#:builder (mkdir %output))) (propagated-inputs `(("exo" ,exo) ("garcon" ,garcon) |