diff options
author | 宋文武 <iyzsong@gmail.com> | 2015-02-05 19:13:56 +0800 |
---|---|---|
committer | 宋文武 <iyzsong@gmail.com> | 2015-02-05 19:23:54 +0800 |
commit | 0ca0ce53a801702f6f56d68289675d4b448e026a (patch) | |
tree | 8404457793af87472b298403e921531767f8a5ff | |
parent | 122ddc595e22a933dbffaad1153876cc7ea2203b (diff) | |
download | patches-0ca0ce53a801702f6f56d68289675d4b448e026a.tar patches-0ca0ce53a801702f6f56d68289675d4b448e026a.tar.gz |
gnu: Add xfce.
* gnu/packages/xfce.scm (xfce): New variable.
-rw-r--r-- | gnu/packages/xfce.scm | 58 |
1 files changed, 58 insertions, 0 deletions
diff --git a/gnu/packages/xfce.scm b/gnu/packages/xfce.scm index 17b2b4d9f7..089a11fb14 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,60 @@ 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 + ;; 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))))) + (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 "Desktop environment (meta-package)") + (description + "Xfce is a lightweight desktop environment. It aims to be fast and low on +system resources, while still being visually appealing and user friendly.") + (license gpl2+))) |