;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2014, 2015 Sou Bunnbu ;;; Copyright © 2014, 2015 Mark H Weaver ;;; Copyright © 2016 Andreas Enge ;;; Copyright © 2016 Florian Paul Schmidt ;;; Copyright © 2016 Kei Kebreau ;;; Copyright © 2017, 2019 Ricardo Wurmus ;;; Copyright © 2017 Petter ;;; Copyright © 2017 ng0 ;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice ;;; Copyright © 2019 Pkill -9 ;;; ;;; This file is part of GNU Guix. ;;; ;;; GNU Guix is free software; you can redistribute it and/or modify it ;;; under the terms of the GNU General Public License as published by ;;; the Free Software Foundation; either version 3 of the License, or (at ;;; your option) any later version. ;;; ;;; GNU Guix is distributed in the hope that it will be useful, but ;;; WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; ;;; You should have received a copy of the GNU General Public License ;;; along with GNU Guix. If not, see . (define-module (gnu packages xfce) #:use-module ((guix licenses) #:hide (freetype)) #:use-module (guix packages) #:use-module (guix download) #:use-module (guix gexp) #:use-module (guix utils) #:use-module (guix build-system cmake) #:use-module (guix build-system glib-or-gtk) #:use-module (guix build-system gnu) #:use-module (guix build-system trivial) #:use-module (gnu artwork) #:use-module (gnu packages) #:use-module (gnu packages calendar) #:use-module (gnu packages cdrom) #:use-module (gnu packages pkg-config) #:use-module (gnu packages glib) #:use-module (gnu packages gtk) #:use-module (gnu packages imagemagick) #:use-module (gnu packages inkscape) #:use-module (gnu packages xorg) #:use-module (gnu packages xdisorg) #:use-module (gnu packages web) #:use-module (gnu packages fontutils) #:use-module (gnu packages freedesktop) #:use-module (gnu packages image) #:use-module (gnu packages gnome) #:use-module (gnu packages pdf) #:use-module (gnu packages polkit) #:use-module (gnu packages gstreamer) #:use-module (gnu packages linux) #:use-module (gnu packages photo) #:use-module (gnu packages pcre) #:use-module (gnu packages popt) #:use-module (gnu packages pulseaudio)) (define-public gtk-xfce-engine (package (name "gtk-xfce-engine") (version "2.10.1") (source (origin (method url-fetch) (uri (string-append "http://archive.xfce.org/src/xfce/" name "/" (version-major+minor version) "/" name "-" version ".tar.bz2")) (sha256 (base32 "0g86ywkx0ghzhhn96k88p67bbzlm1aqckly85izp07w80l1934ja")))) (build-system gnu-build-system) (native-inputs `(("pkg-config" ,pkg-config) ("intltool" ,intltool))) (inputs `(("gtk+" ,gtk+-2))) (home-page "https://www.xfce.org/") (synopsis "GTK+ theme engine for Xfce") (description "Default GTK+ engine and themes for Xfce Desktop Environment.") (license gpl2+))) (define-public libxfce4util (package (name "libxfce4util") (version "4.12.1") (source (origin (method url-fetch) (uri (string-append "http://archive.xfce.org/xfce/" (version-major+minor version) "/src/" name "-" version ".tar.bz2")) (sha256 (base32 "07c8r3xwx5is298zk77m3r784gmr5y4mh8bbca5zdjqk5vxdwsw7")))) (build-system gnu-build-system) (native-inputs `(("pkg-config" ,pkg-config) ("intltool" ,intltool))) (propagated-inputs `(("glib" ,glib))) ; required by libxfce4util-1.0.pc (home-page "https://www.xfce.org/") (synopsis "Basic utility library for Xfce") (description "A general-purpose utility library with core application support for the Xfce Desktop Environment.") (license lgpl2.0+))) (define-public xfconf (package (name "xfconf") (version "4.12.1") (source (origin (method url-fetch) (uri (string-append "https://archive.xfce.org/src/xfce/" name "/" (version-major+minor version) "/" name "-" version ".tar.bz2")) (sha256 (base32 "0dns190bwb615wy9ma2654sw4vz1d0rcv061zmaalkv9wmj8bx1m")))) (build-system gnu-build-system) (arguments '(#:phases ;; Run check after install phase to test dbus activation. (modify-phases %standard-phases (add-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")) ;; For the missing '/etc/machine-id'. (setenv "DBUS_FATAL_WARNINGS" "0"); (invoke "dbus-launch" "make" "check"))) (delete 'check)))) (native-inputs `(("pkg-config" ,pkg-config) ("intltool" ,intltool))) (propagated-inputs ;; libxfconf-0.pc refers to all these. `(("glib" ,glib) ("dbus" ,dbus) ("dbus-glib" ,dbus-glib))) (inputs `(("libxfce4util" ,libxfce4util))) (home-page "https://www.xfce.org/") (synopsis "Configuration storage and query system for Xfce") (description "Settings daemon for Xfce, implemented as a D-Bus-based configuration storage system.") (license lgpl2.0+))) (define-public libxfce4ui (package (name "libxfce4ui") (version "4.12.1") (source (origin (method url-fetch) (uri (string-append "https://archive.xfce.org/src/xfce/" name "/" (version-major+minor version) "/" name "-" version ".tar.bz2")) (sha256 (base32 "0hzzhiiwmqsrbv17nninhs2x1b8ck0ym85jck2xphx5ypw8rhq9x")))) (build-system gnu-build-system) (native-inputs `(("pkg-config" ,pkg-config) ("intltool" ,intltool))) (propagated-inputs `(("gtk+-3" ,gtk+) ; required by libxfce4ui-2.pc ;; libxfce4kbd-private-2.pc refers to all these. ("libxfce4util" ,libxfce4util) ("xfconf" ,xfconf))) (inputs `(("libsm" ,libsm) ("libice" ,libice) ;; FIXME: required by libxfce4ui-1.pc, so should be propagated, ;; but will lead to a conflict with gtk+. ("gtk+-2" ,gtk+-2) ("startup-notification" ,startup-notification))) (home-page "https://www.xfce.org/") (synopsis "Widgets library for Xfce") (description "Libxfce4ui is the replacement of the old libxfcegui4 library. It is used to share commonly used Xfce widgets among the Xfce applications.") (license lgpl2.0+))) (define-public exo (package (name "exo") (version "0.12.5") (source (origin (method url-fetch) (uri (string-append "https://archive.xfce.org/src/xfce/" "exo/" (version-major+minor version) "/" "exo-" version ".tar.bz2")) (sha256 (base32 "1s23prcgall6r5dpn0qlrdq3zj13p95a5s0l2vflgrka8gb39x78")))) (build-system gnu-build-system) (native-inputs `(("pkg-config" ,pkg-config) ("intltool" ,intltool))) (propagated-inputs ;; exo-1.pc refers to all these. `(("gtk+" ,gtk+-2) ("libxfce4util" ,libxfce4util))) (inputs `(("libxfce4ui" ,libxfce4ui) ("perl-uri" ,perl-uri))) (home-page "https://www.xfce.org/") (synopsis "Extension library for Xfce") (description "An extension library to Xfce. While Xfce comes with quite a few libraries that are targeted at desktop development, libexo is targeted at application development.") ;; Libraries are under LGPLv2+, and programs under GPLv2+. (license (list gpl2+ lgpl2.1+)))) (define-public garcon (package (name "garcon") (version "0.6.2") (source (origin (method url-fetch) (uri (string-append "https://archive.xfce.org/src/xfce/" "garcon/" (version-major+minor version) "/" "garcon-" version ".tar.bz2")) (sha256 (base32 "0z64g6f2vwfjzqsrsn05nbcbs8l6y4cfdgxk4k2la3giixj0jzx8")))) (build-system gnu-build-system) (native-inputs `(("pkg-config" ,pkg-config) ("intltool" ,intltool) ("glib:bin" ,glib "bin"))) (inputs `(("gtk+" ,gtk+-2))) (propagated-inputs `(("libxfce4ui" ,libxfce4ui))) ; required by garcon-gtk2-1.pc (home-page "https://www.xfce.org/") (synopsis "Implementation of the freedesktop.org menu specification") (description "Garcon is a freedesktop.org compliant menu implementation based on GLib and GIO. It was started as a complete rewrite of the former Xfce menu library called libxfce4menu, which, in contrast to garcon, was lacking menu merging features essential for loading menus modified with menu editors.") (license lgpl2.0+))) (define-public tumbler (package (name "tumbler") (version "0.2.4") (source (origin (method url-fetch) (uri (string-append "https://archive.xfce.org/src/xfce/" "tumbler/" (version-major+minor version) "/" "tumbler-" version ".tar.bz2")) (sha256 (base32 "19mnwmcxdhqfqkd9433z8h2y8w49vlc7jw5p5h8j54wz7zhrgx0g")))) (build-system gnu-build-system) (native-inputs `(("pkg-config" ,pkg-config) ("intltool" ,intltool) ("glib:bin" ,glib "bin") ; need glib-genmarshal ("dbus-glib" ,dbus-glib))) ; need dbus-binding-tool (propagated-inputs `(("glib" ,glib))) ; required by tumbler-1.pc (inputs `(("dbus" ,dbus) ("gdk-pixbuf" ,gdk-pixbuf) ("freetype" ,freetype) ("libjpeg" ,libjpeg) ("libgsf" ,libgsf) ("poppler" ,poppler) ("gstreamer" ,gstreamer))) (home-page "https://www.xfce.org/") (synopsis "D-Bus service for applications to request thumbnails") (description "Tumbler is a D-Bus service for applications to request thumbnails for various URI schemes and MIME types. It is an implementation of the thumbnail management D-Bus specification.") (license gpl2+))) (define-public xfce4-panel (package (name "xfce4-panel") (version "4.12.2") (source (origin (method url-fetch) (uri (string-append "https://archive.xfce.org/src/xfce/" name "/" (version-major+minor version) "/" name "-" version ".tar.bz2")) (sha256 (base32 "1s8cvsrgmkmmm84g6mghpj2k4777gm22g5lrsf8pdy5qh6xql1a2")) (patches (search-patches "xfce4-panel-plugins.patch")))) (build-system gnu-build-system) (arguments '(#:configure-flags '("--enable-gtk3"))) (native-inputs `(("pkg-config" ,pkg-config) ("intltool" ,intltool))) (propagated-inputs `(("libxfce4util" ,libxfce4util))) ; required by libxfce4panel-1.0.pc (inputs `(("exo" ,exo) ("garcon" ,garcon) ("libwnck" ,libwnck-2) ("libxfce4ui" ,libxfce4ui))) (native-search-paths (list (search-path-specification (variable "X_XFCE4_LIB_DIRS") (files '("lib/xfce4"))))) (home-page "https://www.xfce.org/") (synopsis "Xfce desktop panel") (description "Desktop panel for Xfce, which contains program launchers, window buttons, applications menu, workspace switcher and more.") ;; Libraries are under LGPLv2.1+, and programs under GPLv2+. (license (list gpl2+ lgpl2.1+)))) (define-public xfce4-battery-plugin (package (name "xfce4-battery-plugin") (version "1.1.2") (source (origin (method url-fetch) (uri (string-append "https://archive.xfce.org/src/panel-plugins/" name "/" (version-major+minor version) "/" name "-" version ".tar.bz2")) (sha256 (base32 "1nypi0zazrcrbbm5vb221yw64zxrk56v4fffkblxlyd9m6gk80fn")))) (build-system gnu-build-system) (native-inputs `(("pkg-config" ,pkg-config) ("intltool" ,intltool))) (inputs `(("glib" ,glib) ("gtk+" ,gtk+-2) ("libxfce4util" ,libxfce4util) ("libxfce4ui" ,libxfce4ui) ("xfce4-panel" ,xfce4-panel))) (home-page "https://goodies.xfce.org/projects/panel-plugins/xfce4-battery-plugin") (synopsis "Battery monitor panel plugin for Xfce4") (description "A battery monitor panel plugin for Xfce4, compatible with APM and ACPI.") ;; The main plugin code is covered by gpl2+, but the files containing code ;; to read the battery state via ACPI or APM are covered by lgpl2.0+. (license (list gpl2+ lgpl2.0+)))) (define-public xfce4-clipman-plugin (package (name "xfce4-clipman-plugin") (version "1.4.3") (source (origin (method url-fetch) (uri (string-append "https://archive.xfce.org/src/panel-plugins/" name "/" (version-major+minor version) "/" name "-" version ".tar.bz2")) (sha256 (base32 "1liacff4wl5mpyf9dzdrfbwxzmhl95y5nsfc0jf5rgalzdgbik99")))) (build-system gnu-build-system) (native-inputs `(("intltool" ,intltool) ("pkg-config" ,pkg-config))) (inputs `(("exo" ,exo) ("libxfce4ui" ,libxfce4ui) ("libxtst" ,libxtst) ("xfce4-panel" ,xfce4-panel))) (home-page "https://goodies.xfce.org/projects/panel-plugins/xfce4-clipman-plugin") (synopsis "Clipboard manager for Xfce") (description "Clipman is a clipboard manager for Xfce. It keeps the clipboard contents around while it is usually lost when you close an application. It is able to handle text and images, and has a feature to execute actions on specific text by matching them against regular expressions.") (license (list gpl2+)))) (define-public xfce4-pulseaudio-plugin (package (name "xfce4-pulseaudio-plugin") (version "0.4.1") (source (origin (method url-fetch) (uri (string-append "https://archive.xfce.org/src/panel-plugins/" name "/" (version-major+minor version) "/" name "-" version ".tar.bz2")) (sha256 (base32 "1w29y0a066y8as12xrkbfqcn7dpdsvx97idzw7028gmcvca87a3c")))) (build-system gnu-build-system) (native-inputs `(("intltool" ,intltool) ("pkg-config" ,pkg-config))) (inputs `(("exo" ,exo) ("libnotify" ,libnotify) ("libxfce4ui" ,libxfce4ui) ("pulseaudio" ,pulseaudio) ("xfce4-panel" ,xfce4-panel))) (home-page "https://git.xfce.org/panel-plugins/xfce4-pulseaudio-plugin/") (synopsis "PulseAudio panel plugin for Xfce") (description "Xfce PulseAudio plugin is a plugin for the Xfce panel which provides a convenient way to adjust the audio volume of the PulseAudio sound system and to an auto mixer tool like pavucontrol. It can optionally handle multimedia keys for controlling the audio volume.") (license gpl2+))) (define-public xfce4-whiskermenu-plugin (package (name "xfce4-whiskermenu-plugin") (version "2.3.1") (source (origin (method url-fetch) (uri (string-append "http://archive.xfce.org/src/panel-plugins/" name "/" (version-major+minor version) "/" name "-" version ".tar.bz2")) (sha256 (base32 "1cnas2x7xi53v6ylq44040narhzd828dc0ysz8yk3qn2mmvp5yr2")))) (build-system cmake-build-system) (native-inputs `(("pkg-config" ,pkg-config) ("intltool" ,intltool))) (inputs `(("xfce4-panel" ,xfce4-panel) ("garcon" ,garcon) ("exo" ,exo) ("gtk+" ,gtk+-2))) (arguments `(#:tests? #f)) ; no tests (home-page "https://goodies.xfce.org/projects/panel-plugins/xfce4-whiskermenu-plugin") (synopsis "Application menu panel plugin for Xfce") (description "This package provides an alternative to the default application menu panel plugin for Xfce4. It uses separate sections to display categories and applications, and includes a search bar to search for applications.") ;; The main plugin code is covered by gpl2, but files in panel-plugin directory ;; are covered by gpl2+. The SVG icon is covered by gpl2. (license (list gpl2 gpl2+)))) (define-public xfce4-xkb-plugin (package (name "xfce4-xkb-plugin") (version "0.7.1") (source (origin (method url-fetch) (uri (string-append "http://archive.xfce.org/src/panel-plugins/" name "/" (version-major+minor version) "/" name "-" version ".tar.bz2")) (sha256 (base32 "10g65j5ia389ahhn3b9hr52ghpp0817fk0m60rfrv4wrzqrjxzk1")))) (build-system gnu-build-system) (native-inputs `(("intltool" ,intltool) ("pkg-config" ,pkg-config))) (inputs `(("garcon" ,garcon) ("librsvg" ,librsvg) ("libwnck" ,libwnck-2) ("libx11" ,libx11) ("libxfce4ui" ,libxfce4ui) ("libxklavier" ,libxklavier) ("xfce4-panel" ,xfce4-panel))) (home-page "https://git.xfce.org/panel-plugins/xfce4-xkb-plugin/") (synopsis "XKB layout switching panel plug-in for Xfce") (description "Xfce XKB plugin makes it possible to set up and use multiple keyboard layouts. One can choose the keyboard model, what key combination to use to switch between the layouts, the actual keyboard layouts, the way in which the current layout is being displayed (country flag image or text) and the layout policy, which is whether to store the layout globally (for all windows), per application or per window.") (license bsd-2))) (define-public xfce4-appfinder (package (name "xfce4-appfinder") (version "4.12.0") (source (origin (method url-fetch) (uri (string-append "http://archive.xfce.org/xfce/" (version-major+minor version) "/src/" name "-" version ".tar.bz2")) (sha256 (base32 "0ry5hin8xhgnkmm9vs7jq8blk1cnbyr0s18nm1j6nsm7360abm1a")))) (build-system gnu-build-system) (native-inputs `(("pkg-config" ,pkg-config) ("intltool" ,intltool))) (inputs `(("garcon" ,garcon) ("gtk+" ,gtk+-2) ("libxfce4ui" ,libxfce4ui))) (home-page "https://www.xfce.org/") (synopsis "Xfce application finder") (description "Application finder for Xfce, it will show the applications installed on your system in categories, so you can quickly find and launch them.") (license gpl2+))) (define-public xfce4-session (package (name "xfce4-session") (version "4.12.1") (source (origin (method url-fetch) (uri (string-append "https://archive.xfce.org/src/xfce/" name "/" (version-major+minor version) "/" name "-" version ".tar.bz2")) (sha256 (base32 "1z88klls3j161n5snpamz4l3p4823q4h87wdnqikczxgs2ig5mwp")) (patches ;; See: https://bugzilla.xfce.org/show_bug.cgi?id=12282 (search-patches "xfce4-session-fix-xflock4.patch")) (modules '((guix build utils))) (snippet '(begin (substitute* "xfsm-shutdown-helper/main.c" (("/sbin/shutdown -h now") "halt") (("/sbin/shutdown -r now") "restart") (("/usr/sbin/pm-suspend") "pm-suspend") (("/usr/sbin/pm-hibernate") "pm-hibernate")) #t)))) (build-system gnu-build-system) (arguments '(#:configure-flags (list (string-append "--with-xsession-prefix=" %output)) ;; Disable icon cache update. #:make-flags '("gtk_update_icon_cache=true"))) (native-inputs `(("pkg-config" ,pkg-config) ("intltool" ,intltool))) (inputs `(("iceauth" ,iceauth) ("upower" ,upower) ("polkit" ,polkit) ("libsm" ,libsm) ("libwnck" ,libwnck-2) ("libxfce4ui" ,libxfce4ui))) (home-page "https://www.xfce.org/") (synopsis "Xfce session manager") (description "Session manager for Xfce, it will restore your session on startup and allows you to shutdown the computer from Xfce.") (license gpl2+))) (define-public xfce4-settings (package (name "xfce4-settings") (version "4.12.4") (source (origin (method url-fetch) (uri (string-append "http://archive.xfce.org/src/xfce/" name "/" (version-major+minor version) "/" name "-" version ".tar.bz2")) (sha256 (base32 "16vgidhhc19dz0p0i6fp5iiwxd53ky143j6h14a9b7mz92nlr872")) (patches (search-patches "xfce4-settings-defaults.patch")))) (build-system gnu-build-system) (native-inputs `(("pkg-config" ,pkg-config) ("intltool" ,intltool))) (inputs `(("exo" ,exo) ("garcon" ,garcon) ("libnotify" ,libnotify) ("libxcursor" ,libxcursor) ("libxi" ,libxi) ("libxklavier" ,libxklavier) ("libxrandr" ,libxrandr) ("libxfce4ui" ,libxfce4ui) ("upower" ,upower) ("xf86-input-libinput" ,xf86-input-libinput))) (home-page "https://www.xfce.org/") (synopsis "Xfce settings manager") (description "Settings manager for Xfce, it can control various aspects of the desktop like appearance, display, keyboard and mouse settings.") (license gpl2+))) (define-public thunar (package (name "thunar") (version "1.8.6") (source (origin (method url-fetch) (uri (string-append "http://archive.xfce.org/src/xfce/" "thunar/" (version-major+minor version) "/" "Thunar-" version ".tar.bz2")) (sha256 (base32 "0apg70dwkh8q89ybzhj4q2gp4yxiybwxfzpbvx0nj0rxis1gprf0")))) (build-system gnu-build-system) (native-inputs `(("pkg-config" ,pkg-config) ("intltool" ,intltool))) (inputs `(("exo" ,exo) ("libexif" ,libexif) ("libgudev" ,libgudev) ("libnotify" ,libnotify) ("libxfce4ui" ,libxfce4ui) ("pcre" ,pcre) ("xfce4-panel" ,xfce4-panel) ("startup-notification" ,startup-notification))) (home-page "https://www.xfce.org/") (synopsis "Xfce file manager") (description "A modern file manager for graphical desktop, aiming to be easy-to-use and fast.") (license gpl2+))) (define-public thunar-volman (package (name "thunar-volman") (version "0.8.1") (source (origin (method url-fetch) (uri (string-append "http://archive.xfce.org/xfce/4.12/src/" name "-" version ".tar.bz2")) (sha256 (base32 "1gf259n1v3y23n1zlkhyr6r0i8j59rnl1cmxvxj6la9cwdfbn22s")))) (build-system gnu-build-system) (native-inputs `(("pkg-config" ,pkg-config) ("intltool" ,intltool))) (inputs `(("exo" ,exo) ("libgudev" ,libgudev) ("libnotify" ,libnotify) ("libxfce4ui" ,libxfce4ui))) (home-page "https://www.xfce.org/") (synopsis "Removable media manager for Thunar") (description "Thunar-volman is an extension for the Thunar File Manager, which enables automatic management of removable drives and media. For example, if thunar-volman is installed and configured properly, and you plug in your digital camera, it will automatically spawn your preferred photo application and import the new pictures from your camera.") (license gpl2+))) (define-public xfwm4 (package (name "xfwm4") (version "4.12.5") (source (origin (method url-fetch) (uri (string-append "https://archive.xfce.org/src/xfce/" name "/" (version-major+minor version) "/" name "-" version ".tar.bz2")) (sha256 (base32 "1jnav0wcqlswl2v7nh61big9czg5hmnyvrvm6812sv362qic0xbp")))) (build-system gnu-build-system) (native-inputs `(("pkg-config" ,pkg-config) ("intltool" ,intltool))) (inputs `(("libdrm" ,libdrm) ("libwnck" ,libwnck-2) ("libxcomposite" ,libxcomposite) ("libxdamage" ,libxdamage) ("libxfce4ui" ,libxfce4ui) ("libxrandr" ,libxrandr))) (home-page "https://www.xfce.org/") (synopsis "Xfce window manager") (description "Window manager for Xfce, it handles the placement of windows on the screen.") (license gpl2+))) (define-public xfdesktop (package (name "xfdesktop") (version "4.12.4") (source (origin (method url-fetch) (uri (string-append "https://archive.xfce.org/src/xfce/" name "/" (version-major+minor version) "/" name "-" version ".tar.bz2")) (sha256 (base32 "1jzi851arljq5lza9inyq4ss513l62lbzbfm64a7x4320m8kb2h9")) (modules '((guix build utils))) (snippet #~(begin (copy-file #$(file-append %artwork-repository "/logo/Guix.svg") "backgrounds/guix-logo.svg") #t)))) (build-system gnu-build-system) (arguments `(#:phases (modify-phases %standard-phases (add-before 'configure 'prepare-background-image (lambda _ ;; Stick a Guix logo in the background image. XXX: It ;; has to go to the center because the image might be ;; truncated on the edges. :-/ (invoke "inkscape" "--export-dpi=120" "--export-png=/tmp/guix.png" "backgrounds/guix-logo.svg") (for-each (lambda (image) (invoke "composite" "-gravity" "center" "/tmp/guix.png" image "/tmp/final.jpg") (copy-file "/tmp/final.jpg" image)) '(;; "backgrounds/xfce-blue.jpg" "backgrounds/xfce-teal.jpg")) #t))) #:disallowed-references (,inkscape ,imagemagick))) (native-inputs `(("pkg-config" ,pkg-config) ("intltool" ,intltool) ("inkscape" ,inkscape) ("imagemagick" ,imagemagick))) (inputs `(("exo" ,exo) ("garcon" ,garcon) ("libnotify" ,libnotify) ("libwnck" ,libwnck-2) ("libxfce4ui" ,libxfce4ui) ("thunar" ,thunar))) (home-page "https://www.xfce.org/") (synopsis "Xfce desktop manager") (description "Desktop manager for Xfce, it sets the background color or image with optional application menu or icons for minimized applications or launchers, devices and folders.") (license gpl2+))) (define-public xfce4-terminal (package (name "xfce4-terminal") (version "0.8.7.4") (source (origin (method url-fetch) (uri (string-append "https://archive.xfce.org/src/apps/" name "/" (version-major+minor version) "/" name "-" version ".tar.bz2")) (sha256 (base32 "1as2dh5ccmv3hdvsbxm4b0xhmv2ky2q18zxxrzr988x79npri3x8")))) (build-system gnu-build-system) (native-inputs `(("pkg-config" ,pkg-config) ("intltool" ,intltool))) (inputs `(("libxfce4ui" ,libxfce4ui) ("vte" ,vte))) (home-page "https://www.xfce.org/") (synopsis "Xfce terminal emulator") (description "A lightweight and easy to use terminal emulator for Xfce. Features include a simple configuration interface, the ability to use multiple tabs with terminals within a single window, the possibility to have a 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 trivial-build-system) (arguments '(#:modules ((guix build union)) #:builder (begin (use-modules (ice-9 match) (guix build union)) (match %build-inputs (((names . directories) ...) (union-build (assoc-ref %outputs "out") directories) #t))))) (inputs `(("exo" ,exo) ("garcon" ,garcon) ("gnome-icon-theme" ,gnome-icon-theme) ("gtk-xfce-engine" ,gtk-xfce-engine) ("hicolor-icon-theme" ,hicolor-icon-theme) ("ristretto" ,ristretto) ("shared-mime-info" ,shared-mime-info) ("thunar" ,thunar) ("thunar-volman" ,thunar-volman) ("tumlber" ,tumbler) ("xfce4-appfinder" ,xfce4-appfinder) ("xfce4-panel" ,xfce4-panel) ("xfce4-power-manager" ,xfce4-power-manager) ("xfce4-session" ,xfce4-session) ("xfce4-settings" ,xfce4-settings) ("xfce4-terminal" ,xfce4-terminal) ("xfconf" ,xfconf) ("xfdesktop" ,xfdesktop) ("xfwm4" ,xfwm4) ;; Panel plugins. ("xfce4-battery-plugin" ,xfce4-battery-plugin) ("xfce4-clipman-plugin" ,xfce4-clipman-plugin) ("xfce4-pulseaudio-plugin" ,xfce4-pulseaudio-plugin) ("xfce4-xkb-plugin" ,xfce4-xkb-plugin))) (native-search-paths ;; For finding panel plugins. (package-native-search-paths xfce4-panel)) (home-page "https://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+))) (define-public xfce4-power-manager (package (name "xfce4-power-manager") (version "1.6.1") (source (origin (method url-fetch) (uri (string-append "https://archive.xfce.org/src/xfce/" name "/" (version-major+minor version) "/" name "-" version ".tar.bz2")) (sha256 (base32 "0sv5927q8jxvdfx7b06f8s7qyq3qa1nqn0b8c1b9bf234d2jba0y")))) (build-system gnu-build-system) (arguments '(#:configure-flags '("--enable-gtk3"))) (native-inputs `(("pkg-config" ,pkg-config) ("intltool" ,intltool))) (inputs `(("lbxrandr" ,libxrandr) ("gtk+" ,gtk+-2) ("upower" ,upower) ("libnotify" ,libnotify) ("libxfce4ui" ,libxfce4ui))) (home-page "https://www.xfce.org/") (synopsis "Xfce Power Manager") (description "This is a power manager for the Xfce desktop. It manages the power sources on the computer and the devices that can be controlled to reduce their power consumption (such as LCD brightness level, monitor sleep, CPU frequency scaling, etc). In addition, xfce4-power-manager provides a set of freedesktop-compliant DBus interfaces to inform other applications about current power level so that they can adjust their power consumption, and it provides the inhibit interface which allows applications to prevent automatic sleep.") (license gpl2+))) (define-public ristretto (package (name "ristretto") (version "0.8.4") (source (origin (method url-fetch) (uri (string-append "http://archive.xfce.org/src/apps/ristretto/" (version-major+minor version) "/" "ristretto-" version ".tar.bz2")) (sha256 (base32 "18nf01djwnbjc91bdlv3p0h6pwcq1kfnjgp6yaxhxv4kdi9f82rs")))) (build-system gnu-build-system) (native-inputs `(("intltool" ,intltool) ("pkg-config" ,pkg-config))) (inputs `(("desktop-file-utils" ,desktop-file-utils) ("gtk+" ,gtk+-2) ("libexif" ,libexif) ("libxfce4ui" ,libxfce4ui) ("librsvg" ,librsvg) ("tumbler" ,tumbler))) (home-page "https://docs.xfce.org/apps/ristretto/start") (synopsis "Fast and lightweight picture-viewer") (description "The Ristretto Image Viewer is an application that can be used to view, and scroll through images. It can be used to run a slideshow of images, open images with other applications like an image-editor or configure an image as the desktop wallpaper.") (license gpl2+))) (define-public xfce4-taskmanager (package (name "xfce4-taskmanager") (version "1.2.2") (source (origin (method url-fetch) (uri (string-append "https://archive.xfce.org/src/apps/" name "/" (version-major+minor version) "/" name "-" version ".tar.bz2")) (sha256 (base32 "04qflazmdrj4ys4r54yg4s5pqcjgk02idrjsls395zd4374636p4")))) (build-system gnu-build-system) (native-inputs `(("intltool" ,intltool) ("pkg-config" ,pkg-config))) (inputs `(("libwnck" ,libwnck-2) ("libxmu" ,libxmu) ("gtk+" ,gtk+) ;; FIXME: Remove libxext and libxt when libxmu propagates them. ("libxext" ,libxext) ("libxt" ,libxt))) (home-page "https://goodies.xfce.org/projects/applications/xfce4-taskmanager") (synopsis "Easy to use task manager") (description "This is a task manager for the Xfce desktop. It displays the CPU and memory usage graphically, and it can display processes as a tree.") (license gpl2+))) (define-public orage (package (name "orage") (version "4.12.1") (source (origin (method url-fetch) (uri (string-append "http://archive.xfce.org/src/apps/" name "/" (version-major+minor version) "/" name "-" version ".tar.bz2")) (sha256 (base32 "0qlhvnl2m33vfxqlbkic2nmfpwyd4mq230jzhs48cg78392amy9w")))) (build-system gnu-build-system) (native-inputs `(("intltool" ,intltool) ("pkg-config" ,pkg-config))) (inputs `(("gtk+" ,gtk+-2) ("libical" ,libical) ("libnotify" ,libnotify) ("popt" ,popt) ("xfce4-panel" ,xfce4-panel))) (home-page "https://www.xfce.org/projects/") (synopsis "Simple calendar application with reminders") (description "This is a simple calendar application for the Xfce desktop. Orage has alarms and uses the iCalendar format, making it compatible with many other calendar applications. It also includes a panel clock plugin and an international clock application capable of simultaneously showing clocks from several different time zones.") (license gpl2+))) (define-public xfce4-notifyd (package (name "xfce4-notifyd") (version "0.4.3") (source (origin (method url-fetch) (uri (string-append "https://archive.xfce.org/src/apps/" name "/" (version-major+minor version) "/" name "-" version ".tar.bz2")) (sha256 (base32 "1h7avj149cafj9dabiza22y14i66vxgp5qj0wxx8i97w9h4dlg99")))) (build-system glib-or-gtk-build-system) (native-inputs `(("intltool" ,intltool) ("pkg-config" ,pkg-config))) (inputs `(("libxfce4ui" ,libxfce4ui) ("libnotify" ,libnotify) ("xfce4-panel" ,xfce4-panel))) (home-page "https://goodies.xfce.org/projects/applications/xfce4-notifyd") (synopsis "Show notification bubbles on Xfce") (description "The Xfce Notify Daemon (xfce4-notifyd for short) is a smallish program that implements the “server-side” portion of the Freedesktop desktop notifications specification. Applications that wish to pop up a notification bubble in a standard way can implicitly make use of xfce4-notifyd to do so by sending standard messages over D-Bus using the @code{org.freedesktop.Notifications} interface.") (license gpl2))) (define-public xfburn (package (name "xfburn") (version "0.5.5") (source (origin (method url-fetch) (uri (string-append "http://archive.xfce.org/src/apps/xfburn/" (version-major+minor version) "/" name "-" version ".tar.bz2")) (sha256 (base32 "1qdd8prnsfilsprg36p95cz3z50ffr9kgvka4d5pm260lsl3l5xa")))) (build-system gnu-build-system) (native-inputs `(("intltool" ,intltool) ("pkg-config" ,pkg-config))) (inputs `(("exo" ,exo) ("gstreamer" ,gstreamer) ("gst-plugins-base" ,gst-plugins-base) ("gst-plugins-good" ,gst-plugins-good) ("gst-plugins-ugly" ,gst-plugins-ugly) ("glib" ,glib) ("gtk+" ,gtk+-2) ("libburn" ,libburn) ("libisofs" ,libisofs) ("libxfce4ui" ,libxfce4ui))) (home-page "https://goodies.xfce.org/projects/applications/xfburn") (synopsis "GTK+ based CD, DVD and Blu-ray burning application") (description "Xfburn is a simple CD, DVD, and Blu-ray burning tool based on the libburnia libraries. It can blank CD/DVD/BD(-RW)s, burn and create iso images, audio CDs, as well as burn personal compositions of data to either CD/DVD/BD.") (license gpl2+))) (define-public mousepad (package (name "mousepad") (version "0.4.1") (source (origin (method url-fetch) (uri (string-append "http://archive.xfce.org/src/apps/mousepad/" (version-major+minor version) "/mousepad-" version ".tar.bz2")) (sha256 (base32 "12si6fvhp68wz4scr339c23jxqq5ywn5nf4w55jld5lxjadkg9rr")))) (build-system gnu-build-system) (arguments '(#:configure-flags '("--enable-gtk3" ;; Use the GSettings keyfile backend rather than ;; DConf. "--enable-keyfile-settings") #:phases (modify-phases %standard-phases (add-after 'install 'wrap-program (lambda* (#:key inputs outputs #:allow-other-keys) (let ((out (assoc-ref outputs "out")) (gtksourceview (assoc-ref inputs "gtksourceview"))) (wrap-program (string-append out "/bin/mousepad") ;; For language-specs. `("XDG_DATA_DIRS" ":" prefix (,(string-append gtksourceview "/share"))))) #t))))) (native-inputs `(("intltool" ,intltool) ("glib" ,glib "bin") ; for glib-compile-schemas. ("pkg-config" ,pkg-config))) (inputs `(("gtk+" ,gtk+) ("gtksourceview" ,gtksourceview-3))) (home-page "https://git.xfce.org/apps/mousepad/") (synopsis "Simple text editor for Xfce") (description "Mousepad is a graphical text editor for Xfce based on Leafpad.") (license gpl2+)))