1 ;;; GNU Guix --- Functional package management for GNU
2 ;;; Copyright © 2014 Sou Bunnbu <iyzsong@gmail.com>
3 ;;; Copyright © 2014 Mark H Weaver <mhw@netris.org>
5 ;;; This file is part of GNU Guix.
7 ;;; GNU Guix is free software; you can redistribute it and/or modify it
8 ;;; under the terms of the GNU General Public License as published by
9 ;;; the Free Software Foundation; either version 3 of the License, or (at
10 ;;; your option) any later version.
12 ;;; GNU Guix is distributed in the hope that it will be useful, but
13 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
14 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 ;;; GNU General Public License for more details.
17 ;;; You should have received a copy of the GNU General Public License
18 ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
20 (define-module (gnu packages xfce)
21 #:use-module ((guix licenses) #:hide (freetype))
22 #:use-module (guix packages)
23 #:use-module (guix download)
24 #:use-module (guix utils)
25 #:use-module (guix build-system gnu)
26 #:use-module (guix build-system glib-or-gtk)
27 #:use-module (gnu packages)
28 #:use-module (gnu packages pkg-config)
29 #:use-module (gnu packages glib)
30 #:use-module (gnu packages gtk)
31 #:use-module (gnu packages xorg)
32 #:use-module (gnu packages xdisorg)
33 #:use-module (gnu packages web)
34 #:use-module (gnu packages fontutils)
35 #:use-module (gnu packages image)
36 #:use-module (gnu packages gnome)
37 #:use-module (gnu packages pdf)
38 #:use-module (gnu packages gstreamer)
39 #:use-module (gnu packages linux)
40 #:use-module (gnu packages photo)
41 #:use-module (gnu packages pcre))
43 (define-public gtk-xfce-engine
45 (name "gtk-xfce-engine")
49 (uri (string-append "http://archive.xfce.org/xfce/4.10/src/"
50 name "-" version ".tar.bz2"))
53 "13c3ajfqkdr6jlqjyhcp4nls0ddanypr83q9qib2ciffik78zq4h"))))
54 (build-system gnu-build-system)
56 `(("pkg-config" ,pkg-config)
57 ("intltool" ,intltool)))
58 (inputs `(("gtk+" ,gtk+-2)))
59 (home-page "http://www.xfce.org/")
60 (synopsis "GTK+ theme engine for Xfce")
62 "Default GTK+ engine and themes for Xfce Desktop Environment.")
65 (define-public libxfce4util
71 (uri (string-append "http://archive.xfce.org/xfce/"
72 (version-major+minor version)
73 "/src/" name "-" version ".tar.bz2"))
76 "07c8r3xwx5is298zk77m3r784gmr5y4mh8bbca5zdjqk5vxdwsw7"))))
77 (build-system gnu-build-system)
79 `(("pkg-config" ,pkg-config)
80 ("intltool" ,intltool)))
81 (propagated-inputs `(("glib" ,glib))) ; required by libxfce4util-1.0.pc
82 (home-page "http://www.xfce.org/")
83 (synopsis "Basic utility library for Xfce")
85 "A general-purpose utility library with core application support for the
86 Xfce Desktop Environment.")
95 (uri (string-append "http://archive.xfce.org/xfce/"
96 (version-major+minor version)
97 "/src/" name "-" version ".tar.bz2"))
100 "0xh520z0qh0ib0ijgnyrgii9h5d4pc53n6mx1chhyzfc86j1jlhp"))))
101 (build-system gnu-build-system)
102 (arguments '(#:parallel-tests? #f)) ; parallel tests failed
104 `(("pkg-config" ,pkg-config)
105 ("intltool" ,intltool)))
107 ;; libxfconf-0.pc refers to all these.
110 ("dbus-glib" ,dbus-glib)))
112 `(("libxfce4util" ,libxfce4util)))
113 (home-page "http://www.xfce.org/")
114 (synopsis "Configuration storage and query system for Xfce")
116 "Settings daemon for Xfce, implemented as a D-Bus-based configuration
120 (define-public libxfce4ui
126 (uri (string-append "http://archive.xfce.org/xfce/"
127 (version-major+minor version)
128 "/src/" name "-" version ".tar.bz2"))
131 "11rrhqxnfwx5jls3nlg9s2x8saag9f2zqk9cdm6hr3bs6cr9a781"))))
132 (build-system gnu-build-system)
134 `(("pkg-config" ,pkg-config)
135 ("intltool" ,intltool)))
137 ;; libxfce4kbd-private-2.pc refers to all these.
139 ("libxfce4util" ,libxfce4util)
141 (inputs `(("libsm" ,libsm)
143 ("startup-notification" ,startup-notification)))
144 (home-page "http://www.xfce.org/")
145 (synopsis "Widgets library for Xfce")
147 "Libxfce4ui is the replacement of the old libxfcegui4 library. It is used
148 to share commonly used Xfce widgets amoung the Xfce applications.")
157 (uri (string-append "http://archive.xfce.org/xfce/4.12/src/"
158 name "-" version ".tar.bz2"))
161 "1g9651ra395v2fmzb943l68b9pg0rfxc19x97a62crchxwa4nw4m"))))
162 (build-system gnu-build-system)
164 `(("pkg-config" ,pkg-config)
165 ("intltool" ,intltool)))
167 ;; exo-1.pc refers to all these.
169 ("libxfce4util" ,libxfce4util)))
171 `(("libxfce4ui" ,libxfce4ui)
172 ("perl-uri" ,perl-uri)))
173 (home-page "http://www.xfce.org/")
174 (synopsis "Extension library for Xfce")
176 "An extension library to Xfce. While Xfce comes with quite a few libraries
177 that are targeted at desktop development, libexo is targeted at application
179 ;; Libraries are under LGPLv2+, and programs under GPLv2+.
180 (license (list gpl2+ lgpl2.1+))))
182 (define-public garcon
188 (uri (string-append "http://archive.xfce.org/xfce/4.12/src/"
189 name "-" version ".tar.bz2"))
192 "0wm9pjbwq53s3n3nwvsyf0q8lbmhiy2ln3bn5ncihr9vf5cwhzbq"))))
193 (build-system gnu-build-system)
195 `(("pkg-config" ,pkg-config)
196 ("intltool" ,intltool)
197 ("glib:bin" ,glib "bin")))
199 `(("libxfce4ui" ,libxfce4ui))) ; required by garcon-gtk2-1.pc
200 (home-page "http://www.xfce.org/")
201 (synopsis "Implementation of the freedesktop.org menu specification")
203 "Garcon is a freedesktop.org compliant menu implementation based on
204 GLib and GIO. It was started as a complete rewrite of the former Xfce menu
205 library called libxfce4menu, which, in contrast to garcon, was lacking menu
206 merging features essential for loading menus modified with menu editors.")
209 (define-public tumbler
215 (uri (string-append "http://archive.xfce.org/src/xfce/tumbler/0.1/"
216 name "-" version ".tar.bz2"))
219 "0wvip28gm2w061hn84zp2q4dv947ihylrppahn4cjspzff935zfh"))))
220 (build-system gnu-build-system)
222 `(("pkg-config" ,pkg-config)
223 ("intltool" ,intltool)
224 ("glib:bin" ,glib "bin") ; need glib-genmarshal
225 ("dbus-glib" ,dbus-glib))) ; need dbus-binding-tool
227 `(("glib" ,glib))) ; required by tumbler-1.pc
230 ("gdk-pixbuf" ,gdk-pixbuf)
231 ("freetype" ,freetype)
235 ("gstreamer" ,gstreamer)))
236 (home-page "http://www.xfce.org/")
237 (synopsis "D-Bus service for applications to request thumbnails")
239 "Tumbler is a D-Bus service for applications to request thumbnails for
240 various URI schemes and MIME types. It is an implementation of the thumbnail
241 management D-Bus specification.")
244 (define-public xfce4-panel
250 (uri (string-append "http://archive.xfce.org/xfce/"
251 (version-major+minor version)
252 "/src/" name "-" version ".tar.bz2"))
255 "1c4p3ckghvsad1sj5v8wmar5mh9cbhail9mmhad2f9pwwb10z4ih"))
256 (patches (list (search-patch "xfce4-panel-plugins.patch")))))
257 (build-system gnu-build-system)
259 `(("pkg-config" ,pkg-config)
260 ("intltool" ,intltool)))
262 `(("libxfce4util" ,libxfce4util))) ; required by libxfce4panel-1.0.pc
266 ("libwnck" ,libwnck-1)
267 ("libxfce4ui" ,libxfce4ui)))
269 (list (search-path-specification
270 (variable "X_XFCE4_LIB_DIRS")
271 (files '("lib/xfce4")))))
272 (home-page "http://www.xfce.org/")
273 (synopsis "Xfce desktop panel")
275 "Desktop panel for Xfce, which contains program launchers, window buttons,
276 applications menu, workspace switcher and more.")
277 ;; Libraries are under LGPLv2.1+, and programs under GPLv2+.
278 (license (list gpl2+ lgpl2.1+))))
280 (define-public xfce4-battery-plugin
282 (name "xfce4-battery-plugin")
286 (uri (string-append "http://archive.xfce.org/src/panel-plugins/"
287 name "/" (version-major+minor version) "/"
288 name "-" version ".tar.bz2"))
291 "04gbplcj8z4vg5xbks8cc2jjf62mmf9sdymg90scjwmb82pv2ngn"))))
292 (build-system gnu-build-system)
293 (native-inputs `(("pkg-config" ,pkg-config)
294 ("intltool" ,intltool)))
295 (inputs `(("glib" ,glib)
297 ("libxfce4util" ,libxfce4util)
298 ("libxfce4ui" ,libxfce4ui)
299 ("xfce4-panel" ,xfce4-panel)))
301 "http://goodies.xfce.org/projects/panel-plugins/xfce4-battery-plugin")
302 (synopsis "Battery monitor panel plugin for Xfce4")
304 "A battery monitor panel plugin for Xfce4, compatible with APM and ACPI.")
305 ;; The main plugin code is covered by gpl2+, but the files containing code
306 ;; to read the battery state via ACPI or APM are covered by lgpl2.0+.
307 (license (list gpl2+ lgpl2.0+))))
309 (define-public xfce4-appfinder
311 (name "xfce4-appfinder")
315 (uri (string-append "http://archive.xfce.org/xfce/"
316 (version-major+minor version)
317 "/src/" name "-" version ".tar.bz2"))
320 "0ry5hin8xhgnkmm9vs7jq8blk1cnbyr0s18nm1j6nsm7360abm1a"))))
321 (build-system gnu-build-system)
323 `(("pkg-config" ,pkg-config)
324 ("intltool" ,intltool)))
327 ("libxfce4ui" ,libxfce4ui)))
328 (home-page "http://www.xfce.org/")
329 (synopsis "Xfce application finder")
331 "Application finder for Xfce, it will show the applications installed on
332 your system in categories, so you can quickly find and launch them.")
335 (define-public xfce4-session
337 (name "xfce4-session")
341 (uri (string-append "http://archive.xfce.org/xfce/"
342 (version-major+minor version)
343 "/src/" name "-" version ".tar.bz2"))
346 "1kj65jkjhd0ysf0yxsf88wzpyv6n8i8qgd3gb502hf1x9jksk2mv"))))
347 (build-system gnu-build-system)
350 (list (string-append "--with-xsession-prefix=" %output))))
352 `(("pkg-config" ,pkg-config)
353 ("intltool" ,intltool)))
355 `(("iceauth" ,iceauth)
357 ("libwnck" ,libwnck-1)
358 ("libxfce4ui" ,libxfce4ui)))
359 (home-page "http://www.xfce.org/")
360 (synopsis "Xfce session manager")
362 "Session manager for Xfce, it will restore your session on startup and
363 allows you to shutdown the computer from Xfce.")
366 (define-public xfce4-settings
368 (name "xfce4-settings")
372 (uri (string-append "http://archive.xfce.org/xfce/"
373 (version-major+minor version)
374 "/src/" name "-" version ".tar.bz2"))
377 "0zppq747z9lrxyv5zrrvpalq7hb3gfhy9p7qbldisgv7m6dz0hq8"))))
378 (build-system gnu-build-system)
380 `(("pkg-config" ,pkg-config)
381 ("intltool" ,intltool)))
385 ("libnotify" ,libnotify)
386 ("libxcursor", libxcursor)
388 ("libxrandr" ,libxrandr)
389 ("libxfce4ui" ,libxfce4ui)))
390 (home-page "http://www.xfce.org/")
391 (synopsis "Xfce settings manager")
393 "Settings manager for Xfce, it can control various aspects of the desktop
394 like appearance, display, keyboard and mouse settings.")
397 (define-public thunar
403 (uri (string-append "http://archive.xfce.org/xfce/4.10/src/"
404 "Thunar-" version ".tar.bz2"))
407 "1fn8wjzkfvnx2giv3rrg2cyrr2c96f9mskgvcji0ixyfcjga249c"))))
408 (build-system gnu-build-system)
410 `(("pkg-config" ,pkg-config)
411 ("intltool" ,intltool)))
416 ("libnotify" ,libnotify)
417 ("libxfce4ui" ,libxfce4ui)
419 ("xfce4-panel" ,xfce4-panel)
420 ("startup-notification" ,startup-notification)))
421 (home-page "http://www.xfce.org/")
422 (synopsis "Xfce file manager")
424 "A modern file manager for graphical desktop, aiming to be easy-to-use and
428 (define-public thunar-volman
430 (name "thunar-volman")
434 (uri (string-append "http://archive.xfce.org/xfce/4.10/src/"
435 name "-" version ".tar.bz2"))
438 "1sxw09fwyn5sr6ipxk7r8gqjyf41c2v7vkgl0l6mhy5mcb48f27z"))))
439 (build-system gnu-build-system)
441 `(("pkg-config" ,pkg-config)
442 ("intltool" ,intltool)))
446 ("libnotify" ,libnotify)
447 ("libxfce4ui" ,libxfce4ui)))
448 (home-page "http://www.xfce.org/")
449 (synopsis "Removable media manager for Thunar")
451 "Thunar-volman is an extension for the Thunar File Manager, which enables
452 automatic management of removable drives and media. For example, if
453 thunar-volman is installed and configured properly, and you plug in your
454 digitcal camera, it will automatically spawn your preferred photo application
455 and import the new pictures from your camera.")
464 (uri (string-append "http://archive.xfce.org/xfce/"
465 (version-major+minor version)
466 "/src/" name "-" version ".tar.bz2"))
469 "170zzs7adj47srsi2cl723w9pl8k8awd7w1bpzxby7hj92zmf8s9"))))
470 (build-system gnu-build-system)
472 `(("pkg-config" ,pkg-config)
473 ("intltool" ,intltool)))
475 `(("libwnck", libwnck-1)
476 ("libxfce4ui" ,libxfce4ui)
477 ("libxrandr" ,libxrandr)
478 ("libxcomposite" ,libxcomposite)))
479 (home-page "http://www.xfce.org/")
480 (synopsis "Xfce window manager")
482 "Window manager for Xfce, it handles the placement of windows
486 (define-public xfdesktop
492 (uri (string-append "http://archive.xfce.org/xfce/"
493 (version-major+minor version)
494 "/src/" name "-" version ".tar.bz2"))
497 "0yrddj1lgk3xn4w340y89z7x2isks72ia36pka08kk2x8gpfcyl9"))))
498 (build-system gnu-build-system)
500 `(("pkg-config" ,pkg-config)
501 ("intltool" ,intltool)))
505 ("libnotify" ,libnotify)
506 ("libwnck" ,libwnck-1)
507 ("libxfce4ui" ,libxfce4ui)
509 (home-page "http://www.xfce.org/")
510 (synopsis "Xfce desktop manager")
512 "Desktop manager for Xfce, it sets the background color or image with
513 optional application menu or icons for minimized applications or launchers,
514 devices and folders.")
517 (define-public xfce4-terminal
519 (name "xfce4-terminal")
523 (uri (string-append "http://archive.xfce.org/src/apps/" name "/"
524 (version-major+minor version) "/"
525 name "-" version ".tar.bz2"))
528 "023y0lkfijifh05yz8grimxadqpi98mrivr00sl18nirq8b4fbwi"))))
529 (build-system gnu-build-system)
531 `(("pkg-config" ,pkg-config)
532 ("intltool" ,intltool)))
534 `(("libxfce4ui" ,libxfce4ui)
535 ("vte" ,vte/gtk+-2)))
536 (home-page "http://www.xfce.org/")
537 (synopsis "Xfce terminal emulator")
539 "A lightweight and easy to use terminal emulator for Xfce. Features
540 include a simple configuration interface, the ability to use multiple tabs
541 with terminals within a single window, the possibility to have a
542 pseudo-transparent terminal background, and a compact mode (where both the
543 menubar and the window decorations are hidden) that helps you to save space
550 (version (package-version xfce4-session))
552 (build-system glib-or-gtk-build-system)
554 '(#:modules ((guix build gnu-build-system)
555 (guix build glib-or-gtk-build-system)
558 #:imported-modules ((guix build gnu-build-system)
559 (guix build glib-or-gtk-build-system)
564 (lambda* (#:key outputs #:allow-other-keys)
565 (let* ((out (assoc-ref outputs "out"))
566 (bin (string-append out "/bin"))
567 (prog (string-append bin "/startxfce4")))
569 (symlink (string-append
570 (assoc-ref %build-inputs "xfce4-session")
574 ;; For xfce4-panel plugins.
575 `("X_XFCE4_LIB_DIRS" = ,(list (getenv "X_XFCE4_LIB_DIRS"))))))
576 (map (cut assq <> %standard-phases)
577 '(set-paths install glib-or-gtk-wrap)))))
581 ("gnome-icon-theme" ,gnome-icon-theme)
582 ("gtk-xfce-engine" ,gtk-xfce-engine)
583 ("hicolor-icon-theme" ,hicolor-icon-theme)
584 ("shared-mime-info" ,shared-mime-info)
586 ("thunar-volman" ,thunar-volman)
588 ("xfce4-appfinder" ,xfce4-appfinder)
589 ("xfce4-battery-plugin" ,xfce4-battery-plugin)
590 ("xfce4-panel" ,xfce4-panel)
591 ("xfce4-session" ,xfce4-session)
592 ("xfce4-settings" ,xfce4-settings)
593 ("xfce4-terminal" ,xfce4-terminal)
595 ("xfdesktop" ,xfdesktop)
597 (home-page "http://www.xfce.org/")
598 (synopsis "Desktop environment (meta-package)")
600 "Xfce is a lightweight desktop environment. It aims to be fast and low on
601 system resources, while still being visually appealing and user friendly.")