From mboxrd@z Thu Jan 1 00:00:00 1970 From: =?UTF-8?q?=E5=AE=8B=E6=96=87=E6=AD=A6?= Subject: [PATCH] gnu: Add xfce (meta-package). Date: Tue, 27 Jan 2015 17:07:08 +0800 Message-ID: <1422349628-29902-1-git-send-email-iyzsong@gmail.com> Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:39577) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YG26z-0008EL-O7 for guix-devel@gnu.org; Tue, 27 Jan 2015 04:07:07 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1YG26u-0000Nd-Pb for guix-devel@gnu.org; Tue, 27 Jan 2015 04:07:05 -0500 Received: from mail-pa0-x22c.google.com ([2607:f8b0:400e:c03::22c]:41241) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YG26u-0000NV-Hx for guix-devel@gnu.org; Tue, 27 Jan 2015 04:07:00 -0500 Received: by mail-pa0-f44.google.com with SMTP id rd3so17314508pab.3 for ; Tue, 27 Jan 2015 01:06:59 -0800 (PST) List-Id: "Development of GNU Guix and the GNU System distribution." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org Sender: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org To: guix-devel@gnu.org * gnu/packages/xfce.scm (xfce): New variable. --- gnu/packages/xfce.scm | 59 +++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 59 insertions(+) diff --git a/gnu/packages/xfce.scm b/gnu/packages/xfce.scm index 17b2b4d..9762b2c 100644 --- a/gnu/packages/xfce.scm +++ b/gnu/packages/xfce.scm @@ -23,6 +23,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 (gnu packages) #:use-module (gnu packages pkg-config) #:use-module (gnu packages glib) @@ -542,3 +543,61 @@ pseudo-transparent terminal background, and a compact mode (where both the menubar and the window decorations are hidden) that helps you to save space on your desktop.") (license gpl2+))) + +(define-public xfce + (package + (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)) + #:imported-modules ((guix build gnu-build-system) + (guix build glib-or-gtk-build-system) + (guix build utils)) + #: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 + `("X_XFCE4_LIB_DIRS" = ,(list (getenv "X_XFCE4_LIB_DIRS")))))) + (map (cut assq <> %standard-phases) + '(set-paths install glib-or-gtk-wrap))))) + (propagated-inputs + `(("exo" ,exo) + ("garcon" ,garcon) + ("gnome-icon-theme" ,gnome-icon-theme) + ("gtk-xfce-engine" ,gtk-xfce-engine) + ("hicolor-icon-theme" ,hicolor-icon-theme) + ("shared-mime-info" ,shared-mime-info) + ("thunar" ,thunar) + ("thunar-volman" ,thunar-volman) + ("tumlber" ,tumbler) + ("xfce4-appfinder" ,xfce4-appfinder) + ("xfce4-battery-plugin" ,xfce4-battery-plugin) + ("xfce4-panel" ,xfce4-panel) + ("xfce4-session" ,xfce4-session) + ("xfce4-settings" ,xfce4-settings) + ("xfce4-terminal" ,xfce4-terminal) + ("xfconf" ,xfconf) + ("xfdesktop" ,xfdesktop) + ("xfwm4" ,xfwm4))) + (home-page "http://www.xfce.org/") + (synopsis "Xfce desktop environment (meta-package)") + (description + "Xfce is a lightweight desktop environment for unix-like operating systems. +It aims to be fast and low on system resources, while still being visually +appealing and user friendly.") + (license gpl2+))) -- 2.1.2