gnu/packages/mate.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2016 Fabian Harfert <fhmgufs@web.de>
   3 ;;; Copyright © 2016, 2017 Efraim Flashner <efraim@flashner.co.il>
   4 ;;; Copyright © 2017 ng0 <ng0@n0.is>
   5 ;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
   6 ;;;
   7 ;;; This file is part of GNU Guix.
   8 ;;;
   9 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  10 ;;; under the terms of the GNU General Public License as published by
  11 ;;; the Free Software Foundation; either version 3 of the License, or (at
  12 ;;; your option) any later version.
  13 ;;;
  14 ;;; GNU Guix is distributed in the hope that it will be useful, but
  15 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  16 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17 ;;; GNU General Public License for more details.
  18 ;;;
  19 ;;; You should have received a copy of the GNU General Public License
  20 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  21
  22 (define-module (gnu packages mate)
  23   #:use-module ((guix licenses) #:prefix license:)
  24   #:use-module (guix packages)
  25   #:use-module (guix download)
  26   #:use-module (guix utils)
  27   #:use-module (guix build-system gnu)
  28   #:use-module (guix build-system glib-or-gtk)
  29   #:use-module (guix build-system trivial)
  30   #:use-module (gnu packages)
  31   #:use-module (gnu packages attr)
  32   #:use-module (gnu packages autotools)
  33   #:use-module (gnu packages backup)
  34   #:use-module (gnu packages base)
  35   #:use-module (gnu packages compression)
  36   #:use-module (gnu packages djvu)
  37   #:use-module (gnu packages docbook)
  38   #:use-module (gnu packages documentation)
  39   #:use-module (gnu packages enchant)
  40   #:use-module (gnu packages file)
  41   #:use-module (gnu packages fonts)
  42   #:use-module (gnu packages fontutils)
  43   #:use-module (gnu packages freedesktop)
  44   #:use-module (gnu packages gettext)
  45   #:use-module (gnu packages ghostscript)
  46   #:use-module (gnu packages glib)
  47   #:use-module (gnu packages gnome)
  48   #:use-module (gnu packages gnupg)
  49   #:use-module (gnu packages gnuzilla)
  50   #:use-module (gnu packages gtk)
  51   #:use-module (gnu packages image)
  52   #:use-module (gnu packages imagemagick)
  53   #:use-module (gnu packages iso-codes)
  54   #:use-module (gnu packages javascript)
  55   #:use-module (gnu packages libcanberra)
  56   #:use-module (gnu packages linux)
  57   #:use-module (gnu packages messaging)
  58   #:use-module (gnu packages nettle)
  59   #:use-module (gnu packages pkg-config)
  60   #:use-module (gnu packages pdf)
  61   #:use-module (gnu packages photo)
  62   #:use-module (gnu packages polkit)
  63   #:use-module (gnu packages pulseaudio)
  64   #:use-module (gnu packages python)
  65   #:use-module (gnu packages python-xyz)
  66   #:use-module (gnu packages tex)
  67   #:use-module (gnu packages webkit)
  68   #:use-module (gnu packages xdisorg)
  69   #:use-module (gnu packages xml)
  70   #:use-module (gnu packages xdisorg)
  71   #:use-module (gnu packages xorg))
  72
  73 (define-public mate-common
  74   (package
  75     (name "mate-common")
  76     (version "1.22.0")
  77     (source
  78      (origin
  79        (method url-fetch)
  80        (uri (string-append "https://pub.mate-desktop.org/releases/"
  81                            (version-major+minor version) "/"
  82                            name "-" version ".tar.xz"))
  83        (sha256
  84         (base32
  85          "11lwckndizawbq993ws8lqp59vsc873zri0m8s1i5zyc4qx9f69z"))))
  86     (build-system gnu-build-system)
  87     (home-page "https://mate-desktop.org/")
  88     (synopsis "Common files for development of MATE packages")
  89     (description
  90      "Mate Common includes common files and macros used by
  91 MATE applications.")
  92     (license license:gpl3+)))
  93
  94 (define-public mate-icon-theme
  95   (package
  96     (name "mate-icon-theme")
  97     (version "1.22.0")
  98     (source (origin
  99               (method url-fetch)
 100               (uri (string-append "https://pub.mate-desktop.org/releases/"
 101                                   (version-major+minor version) "/"
 102                                   name "-" version ".tar.xz"))
 103               (sha256
 104                (base32
 105                 "090vfxpn1b1wwvkilv1j3cx4swdm4z0s7xyvhvqhdzj58zsf2000"))))
 106     (build-system gnu-build-system)
 107     (native-inputs
 108      `(("pkg-config" ,pkg-config)
 109        ("intltool" ,intltool)
 110        ("icon-naming-utils" ,icon-naming-utils)))
 111     (home-page "https://mate-desktop.org/")
 112     (synopsis "The MATE desktop environment icon theme")
 113     (description
 114      "This package contains the default icon theme used by the MATE desktop.")
 115     (license license:lgpl3+)))
 116
 117 (define-public mate-icon-theme-faenza
 118   (package
 119     (name "mate-icon-theme-faenza")
 120     (version "1.18.1")
 121     (source (origin
 122               (method url-fetch)
 123               (uri (string-append "https://pub.mate-desktop.org/releases/"
 124                                   (version-major+minor version) "/"
 125                                   name "-" version ".tar.xz"))
 126               (sha256
 127                (base32
 128                 "0vc3wg9l5yrxm0xmligz4lw2g3nqj1dz8fwv90xvym8pbjds2849"))))
 129     (build-system gnu-build-system)
 130     (arguments
 131      `(#:phases
 132        (modify-phases %standard-phases
 133          (add-after 'unpack 'autoconf
 134            (lambda _
 135              (setenv "SHELL" (which "sh"))
 136              (setenv "CONFIG_SHELL" (which "sh"))
 137              (invoke "sh" "autogen.sh"))))))
 138     (native-inputs
 139      `(("autoconf" ,autoconf-wrapper)
 140        ("automake" ,automake)
 141        ("intltool" ,intltool)
 142        ("icon-naming-utils" ,icon-naming-utils)
 143        ("libtool" ,libtool)
 144        ("mate-common" ,mate-common)
 145        ("pkg-config" ,pkg-config)
 146        ("which" ,which)))
 147     (home-page "https://mate-desktop.org/")
 148     (synopsis "MATE desktop environment icon theme faenza")
 149     (description
 150      "Icon theme using Faenza and Faience icon themes and some
 151 customized icons for MATE.  Furthermore it includes some icons
 152 from Mint-X-F and Faenza-Fresh icon packs.")
 153     (license license:gpl2+)))
 154
 155 (define-public mate-themes
 156   (package
 157     (name "mate-themes")
 158     (version "3.22.19")
 159     (source (origin
 160               (method url-fetch)
 161               (uri (string-append "https://pub.mate-desktop.org/releases/themes/"
 162                                   (version-major+minor version) "/mate-themes-"
 163                                   version ".tar.xz"))
 164               (sha256
 165                (base32
 166                 "1ycb8b8r0s8d1h1477135mynr53s5781gdb2ap8xlvj2g58492wq"))))
 167     (build-system gnu-build-system)
 168     (native-inputs
 169      `(("pkg-config" ,pkg-config)
 170        ("intltool" ,intltool)
 171        ("gdk-pixbuf" ,gdk-pixbuf) ; gdk-pixbuf+svg isn't needed
 172        ("gtk" ,gtk+-2)))
 173     (home-page "https://mate-desktop.org/")
 174     (synopsis
 175      "Official themes for the MATE desktop")
 176     (description
 177      "This package includes the standard themes for the MATE desktop, for
 178 example Menta, TraditionalOk, GreenLaguna or BlackMate.  This package has
 179 themes for both gtk+-2 and gtk+-3.")
 180     (license (list license:lgpl2.1+ license:cc-by-sa3.0 license:gpl3+
 181                    license:gpl2+))))
 182
 183 (define-public mate-desktop
 184   (package
 185     (name "mate-desktop")
 186     (version "1.22.0")
 187     (source (origin
 188               (method url-fetch)
 189               (uri (string-append "https://pub.mate-desktop.org/releases/"
 190                                   (version-major+minor version) "/"
 191                                   name "-" version ".tar.xz"))
 192               (sha256
 193                (base32
 194                 "09gn840p6qds21kxab4pidjd53g76s76i7178fdibrz462mda217"))))
 195     (build-system gnu-build-system)
 196     (native-inputs
 197      `(("pkg-config" ,pkg-config)
 198        ("intltool" ,intltool)
 199        ("glib:bin" ,glib "bin")
 200        ("gobject-introspection" ,gobject-introspection)
 201        ("yelp-tools" ,yelp-tools)
 202        ("gtk-doc" ,gtk-doc)))
 203     (inputs
 204      `(("gtk+" ,gtk+)
 205        ("libxrandr" ,libxrandr)
 206        ("iso-codes" ,iso-codes)
 207        ("startup-notification" ,startup-notification)))
 208     (propagated-inputs
 209      `(("dconf" ,dconf))) ; mate-desktop-2.0.pc
 210     (home-page "https://mate-desktop.org/")
 211     (synopsis "Library with common API for various MATE modules")
 212     (description
 213      "This package contains a public API shared by several applications on the
 214 desktop and the mate-about program.")
 215     (license (list license:gpl2+ license:lgpl2.0+ license:fdl1.1+))))
 216
 217 (define-public libmateweather
 218   (package
 219     (name "libmateweather")
 220     (version "1.22.0")
 221     (source (origin
 222               (method url-fetch)
 223               (uri (string-append "https://pub.mate-desktop.org/releases/"
 224                                   (version-major+minor version) "/"
 225                                   name "-" version ".tar.xz"))
 226               (sha256
 227                (base32
 228                 "1ribgcwl4ncfbcf9bkcbxrgc7yzajdnxg12837psngymkqswlp6a"))))
 229     (build-system gnu-build-system)
 230     (arguments
 231      '(#:configure-flags
 232        (list (string-append "--with-zoneinfo-dir="
 233                             (assoc-ref %build-inputs "tzdata")
 234                             "/share/zoneinfo"))
 235        #:phases
 236        (modify-phases %standard-phases
 237          (add-before 'check 'fix-tzdata-location
 238           (lambda* (#:key inputs #:allow-other-keys)
 239             (substitute* "data/check-timezones.sh"
 240               (("/usr/share/zoneinfo/zone.tab")
 241                (string-append (assoc-ref inputs "tzdata")
 242                               "/share/zoneinfo/zone.tab")))
 243             #t)))))
 244     (native-inputs
 245      `(("pkg-config" ,pkg-config)
 246        ("intltool" ,intltool)
 247        ("dconf" ,dconf)
 248        ("glib:bin" ,glib "bin")))
 249     (inputs
 250      `(("gtk+" ,gtk+)
 251        ("tzdata" ,tzdata)))
 252     (propagated-inputs
 253       ;; both of these are requires.private in mateweather.pc
 254      `(("libsoup" ,libsoup)
 255        ("libxml2" ,libxml2)))
 256     (home-page "https://mate-desktop.org/")
 257     (synopsis "MATE library for weather information from the Internet")
 258     (description
 259      "This library provides access to weather information from the internet for
 260 the MATE desktop environment.")
 261     (license license:lgpl2.1+)))
 262
 263 (define-public mate-terminal
 264   (package
 265     (name "mate-terminal")
 266     (version "1.22.0")
 267     (source
 268      (origin
 269        (method url-fetch)
 270        (uri (string-append "https://pub.mate-desktop.org/releases/"
 271                            (version-major+minor version) "/"
 272                            name "-" version ".tar.xz"))
 273        (sha256
 274         (base32
 275          "16r492s34la2fs2cj1xr0r93wkjglwy77jyrc66i2ahs9gnivj4g"))))
 276     (build-system glib-or-gtk-build-system)
 277     (native-inputs
 278      `(("pkg-config" ,pkg-config)
 279        ("intltool" ,intltool)
 280        ("itstool" ,itstool)
 281        ("gobject-introspection" ,gobject-introspection)
 282        ("libxml2" ,libxml2)
 283        ("yelp-tools" ,yelp-tools)))
 284     (inputs
 285      `(("dconf" ,dconf)
 286        ("gtk+" ,gtk+)
 287        ("libice" ,libice)
 288        ("libsm" ,libsm)
 289        ("libx11" ,libx11)
 290        ("mate-desktop" ,mate-desktop)
 291        ("pango" ,pango)
 292        ("vte" ,vte)))
 293     (home-page "https://mate-desktop.org/")
 294     (synopsis "MATE Terminal Emulator")
 295     (description
 296      "MATE Terminal is a terminal emulation application that you can
 297 use to access a shell.  With it, you can run any application that
 298 is designed to run on VT102, VT220, and xterm terminals.
 299 MATE Terminal also has the ability to use multiple terminals
 300 in a single window (tabs) and supports management of different
 301 configurations (profiles).")
 302     (license license:gpl3)))
 303
 304 (define-public mate-session-manager
 305   (package
 306     (name "mate-session-manager")
 307     (version "1.22.0")
 308     (source
 309      (origin
 310        (method url-fetch)
 311        (uri (string-append "https://pub.mate-desktop.org/releases/"
 312                            (version-major+minor version) "/"
 313                            name "-" version ".tar.xz"))
 314        (sha256
 315         (base32
 316          "1kpfmgay01gm74paaxccs3lim4jfb4hsm7i85jfdypr51985pwyj"))))
 317     (build-system glib-or-gtk-build-system)
 318     (arguments
 319      `(#:configure-flags (list "--enable-elogind"
 320                                "--disable-schemas-compile")
 321        #:phases
 322        (modify-phases %standard-phases
 323          (add-before 'configure 'pre-configure
 324            (lambda* (#:key outputs #:allow-other-keys)
 325              ;; Use elogind instead of systemd.
 326              (substitute* "configure"
 327                (("libsystemd-login")
 328                 "libelogind")
 329                (("systemd") "elogind"))
 330              (substitute* "mate-session/gsm-systemd.c"
 331                (("#include <systemd/sd-login.h>")
 332                 "#include <elogind/sd-login.h>"))
 333              ;; Remove uses of the systemd journal.
 334              (substitute* "mate-session/main.c"
 335                (("#ifdef HAVE_SYSTEMD") "#if 0"))
 336              (substitute* "mate-session/gsm-manager.c"
 337                (("#ifdef HAVE_SYSTEMD") "#if 0"))
 338              (substitute* "mate-session/gsm-autostart-app.c"
 339                (("#ifdef HAVE_SYSTEMD") "#if 0"))
 340              #t)))))
 341     (native-inputs
 342      `(("pkg-config" ,pkg-config)
 343        ("intltool" ,intltool)
 344        ("xtrans" ,xtrans)
 345        ("gobject-introspection" ,gobject-introspection)))
 346     (inputs
 347      `(("gtk+" ,gtk+)
 348        ("dbus-glib" ,dbus-glib)
 349        ("elogind" ,elogind)
 350        ("libsm" ,libsm)
 351        ("mate-desktop" ,mate-desktop)))
 352     (home-page "https://mate-desktop.org/")
 353     (synopsis "Session manager for MATE")
 354     (description
 355      "Mate-session contains the MATE session manager, as well as a
 356 configuration program to choose applications starting on login.")
 357     (license license:gpl2)))
 358
 359 (define-public mate-settings-daemon
 360   (package
 361     (name "mate-settings-daemon")
 362     (version "1.22.0")
 363     (source
 364      (origin
 365        (method url-fetch)
 366        (uri (string-append "https://pub.mate-desktop.org/releases/"
 367                            (version-major+minor version) "/"
 368                            name "-" version ".tar.xz"))
 369        (sha256
 370         (base32
 371          "0yr5v6b9hdk20j29smbw1k4fkyg82i5vlflmgly0vi5whgc74gym"))))
 372     (build-system glib-or-gtk-build-system)
 373     (native-inputs
 374      `(("pkg-config" ,pkg-config)
 375        ("intltool" ,intltool)
 376        ("gobject-introspection" ,gobject-introspection)))
 377     (inputs
 378      `(("cairo" ,cairo)
 379        ("dbus" ,dbus)
 380        ("dbus-glib" ,dbus-glib)
 381        ("dconf" ,dconf)
 382        ("fontconfig" ,fontconfig)
 383        ("gtk+" ,gtk+)
 384        ("libcanberra" ,libcanberra)
 385        ("libmatekbd" ,libmatekbd)
 386        ("libmatemixer" ,libmatemixer)
 387        ("libnotify" ,libnotify)
 388        ("libx11" ,libx11)
 389        ("libxext" ,libxext)
 390        ("libxi" ,libxi)
 391        ("libxklavier" ,libxklavier)
 392        ("mate-desktop" ,mate-desktop)
 393        ("nss" ,nss)
 394        ("polkit" ,polkit)
 395        ("startup-notification" ,startup-notification)))
 396     (home-page "https://mate-desktop.org/")
 397     (synopsis "Settings Daemon for MATE")
 398     (description
 399      "Mate-settings-daemon is a fork of gnome-settings-daemon.")
 400     (license (list license:lgpl2.1 license:gpl2))))
 401
 402 (define-public libmatemixer
 403   (package
 404     (name "libmatemixer")
 405     (version "1.22.0")
 406     (source
 407      (origin
 408        (method url-fetch)
 409        (uri (string-append "https://pub.mate-desktop.org/releases/"
 410                            (version-major+minor version) "/"
 411                            name "-" version ".tar.xz"))
 412        (sha256
 413         (base32
 414          "1v0gpr55gj4mj8hzxbhgzrmhaxvs2inxhsmirvjw39sc7iplvrh9"))))
 415     (build-system glib-or-gtk-build-system)
 416     (native-inputs
 417      `(("pkg-config" ,pkg-config)
 418        ("intltool" ,intltool)
 419        ("gobject-introspection" ,gobject-introspection)))
 420     (inputs
 421      `(("glib" ,glib)
 422        ("pulseaudio" ,pulseaudio)
 423        ("alsa-lib" ,alsa-lib)))
 424     (home-page "https://mate-desktop.org/")
 425     (synopsis "Mixer library for the MATE desktop")
 426     (description
 427      "Libmatemixer is a mixer library for MATE desktop.  It provides an abstract
 428 API allowing access to mixer functionality available in the PulseAudio and ALSA
 429 sound systems.")
 430     (license license:lgpl2.1)))
 431
 432 (define-public libmatekbd
 433   (package
 434     (name "libmatekbd")
 435     (version "1.22.0")
 436     (source
 437      (origin
 438        (method url-fetch)
 439        (uri (string-append "https://pub.mate-desktop.org/releases/"
 440                            (version-major+minor version) "/"
 441                            name "-" version ".tar.xz"))
 442        (sha256
 443         (base32
 444          "1dsr7618c92mhwabwhgxqsfp7gnf9zrz2z790jc5g085dxhg13y8"))))
 445     (build-system glib-or-gtk-build-system)
 446     (native-inputs
 447      `(("pkg-config" ,pkg-config)
 448        ("intltool" ,intltool)
 449        ("gobject-introspection" ,gobject-introspection)))
 450     (inputs
 451      `(("cairo" ,cairo)
 452        ("gdk-pixbuf" ,gdk-pixbuf+svg)
 453        ("glib" ,glib)
 454        ("gtk+" ,gtk+)
 455        ("libx11" ,libx11)
 456        ("libxklavier" ,libxklavier)))
 457     (home-page "https://mate-desktop.org/")
 458     (synopsis "MATE keyboard configuration library")
 459     (description
 460      "Libmatekbd is a keyboard configuration library for the
 461 MATE desktop environment.")
 462     (license license:lgpl2.1)))
 463
 464 (define-public mate-menus
 465   (package
 466     (name "mate-menus")
 467     (version "1.22.0")
 468     (source (origin
 469               (method url-fetch)
 470               (uri (string-append "https://pub.mate-desktop.org/releases/"
 471                                   (version-major+minor version) "/"
 472                                   name "-" version ".tar.xz"))
 473               (sha256
 474                (base32
 475                 "1lkakbf2f1815c146z4xp5f0h4lim6jzr02681wbvzalc6k97v5c"))))
 476     (build-system gnu-build-system)
 477     (arguments
 478      `(#:phases
 479        (modify-phases %standard-phases
 480          (add-after
 481           'unpack 'fix-introspection-install-dir
 482           (lambda* (#:key outputs #:allow-other-keys)
 483             (let ((out (assoc-ref outputs "out")))
 484               (substitute* '("configure")
 485                 (("`\\$PKG_CONFIG --variable=girdir gobject-introspection-1.0`")
 486                  (string-append "\"" out "/share/gir-1.0/\""))
 487                 (("\\$\\(\\$PKG_CONFIG --variable=typelibdir gobject-introspection-1.0\\)")
 488                  (string-append out "/lib/girepository-1.0/")))
 489               #t))))))
 490     (native-inputs
 491      `(("pkg-config" ,pkg-config)
 492        ("intltool" ,intltool)
 493        ("gobject-introspection" ,gobject-introspection)))
 494     (inputs
 495      `(("glib" ,glib)
 496        ("python" ,python-2)))
 497     (home-page "https://mate-desktop.org/")
 498     (synopsis "Freedesktop menu specification implementation for MATE")
 499     (description
 500      "The package contains an implementation of the freedesktop menu
 501 specification, the MATE menu layout configuration files, .directory files and
 502 assorted menu related utility programs.")
 503     (license (list license:gpl2+ license:lgpl2.0+))))
 504
 505 (define-public mate-applets
 506   (package
 507     (name "mate-applets")
 508     (version "1.22.0")
 509     (source
 510      (origin
 511        (method url-fetch)
 512        (uri (string-append "https://pub.mate-desktop.org/releases/"
 513                            (version-major+minor version) "/"
 514                            name "-" version ".tar.xz"))
 515        (sha256
 516         (base32
 517          "0f5ym6z7awi0kw6i1sdkj2qly88sl692j5r1zhklihyz1z9a6j0h"))))
 518     (build-system glib-or-gtk-build-system)
 519     (native-inputs
 520      `(("pkg-config" ,pkg-config)
 521        ("intltool" ,intltool)
 522        ("libxslt" ,libxslt)
 523        ("yelp-tools" ,yelp-tools)
 524        ("scrollkeeper" ,scrollkeeper)
 525        ("gettext" ,gettext-minimal)
 526        ("docbook-xml" ,docbook-xml)
 527        ("gobject-introspection" ,gobject-introspection)))
 528     (inputs
 529      `(("atk" ,atk)
 530        ("dbus" ,dbus)
 531        ("dbus-glib" ,dbus-glib)
 532        ("glib" ,glib)
 533        ("gucharmap" ,gucharmap)
 534        ("gtk+" ,gtk+)
 535        ("gtksourceview" ,gtksourceview)
 536        ("libgtop" ,libgtop)
 537        ("libmateweather" ,libmateweather)
 538        ("libnotify" ,libnotify)
 539        ("libx11" ,libx11)
 540        ("libxml2" ,libxml2)
 541        ("libwnck" ,libwnck)
 542        ("mate-panel" ,mate-panel)
 543        ("pango" ,pango)
 544        ("polkit" ,polkit) ; either polkit or setuid
 545        ("python" ,python-2)
 546        ("upower" ,upower)
 547        ("wireless-tools" ,wireless-tools)))
 548     (propagated-inputs
 549      `(("python-pygobject" ,python-pygobject)))
 550     (home-page "https://mate-desktop.org/")
 551     (synopsis "Various applets for the MATE Panel")
 552     (description
 553      "Mate-applets includes various small applications for Mate-panel:
 554
 555 @enumerate
 556 @item accessx-status: indicates keyboard accessibility settings,
 557 including the current state of the keyboard, if those features are in use.
 558 @item Battstat: monitors the power subsystem on a laptop.
 559 @item Character palette: provides a convenient way to access
 560 non-standard characters, such as accented characters,
 561 mathematical symbols, special symbols, and punctuation marks.
 562 @item MATE CPUFreq Applet: CPU frequency scaling monitor
 563 @item Drivemount: lets you mount and unmount drives and file systems.
 564 @item Geyes: pair of eyes which follow the mouse pointer around the screen.
 565 @item Keyboard layout switcher: lets you assign different keyboard
 566 layouts for different locales.
 567 @item Modem Monitor: monitors the modem.
 568 @item Invest: downloads current stock quotes from the Internet and
 569 displays the quotes in a scrolling display in the applet. The
 570 applet downloads the stock information from Yahoo! Finance.
 571 @item System monitor: CPU, memory, network, swap file and resource.
 572 @item Trash: lets you drag items to the trash folder.
 573 @item Weather report: downloads weather information from the
 574 U.S National Weather Service (NWS) servers, including the
 575 Interactive Weather Information Network (IWIN).
 576 @end enumerate\n")
 577     (license (list license:gpl2+ license:lgpl2.0+ license:gpl3+))))
 578
 579 (define-public mate-media
 580   (package
 581     (name "mate-media")
 582     (version "1.22.0")
 583     (source
 584      (origin
 585        (method url-fetch)
 586        (uri (string-append "https://pub.mate-desktop.org/releases/"
 587                            (version-major+minor version) "/"
 588                            name "-" version ".tar.xz"))
 589        (sha256
 590         (base32
 591          "0jrxbz00vjas0yp3ixvyzfsdby2ac3p3bds9yd7q1437mmhf71mj"))))
 592     (build-system glib-or-gtk-build-system)
 593     (native-inputs
 594      `(("pkg-config" ,pkg-config)
 595        ("intltool" ,intltool)
 596        ("gettext" ,gettext-minimal)
 597        ("gobject-introspection" ,gobject-introspection)))
 598     (inputs
 599      `(("cairo" ,cairo)
 600        ("gtk+" ,gtk+)
 601        ("libcanberra" ,libcanberra)
 602        ("libmatemixer" ,libmatemixer)
 603        ("libxml2" ,libxml2)
 604        ("mate-applets" ,mate-applets)
 605        ("mate-desktop" ,mate-desktop)
 606        ("mate-panel" ,mate-panel)
 607        ("pango" ,pango)
 608        ("startup-notification" ,startup-notification)))
 609     (home-page "https://mate-desktop.org/")
 610     (synopsis "Multimedia related programs for the MATE desktop")
 611     (description
 612      "Mate-media includes the MATE media tools for MATE, including
 613 mate-volume-control, a MATE volume control application and applet.")
 614     (license (list license:gpl2+ license:lgpl2.0+ license:fdl1.1+))))
 615
 616 (define-public mate-panel
 617   (package
 618     (name "mate-panel")
 619     (version "1.22.0")
 620     (source
 621      (origin
 622        (method url-fetch)
 623        (uri (string-append "https://pub.mate-desktop.org/releases/"
 624                            (version-major+minor version) "/"
 625                            name "-" version ".tar.xz"))
 626        (sha256
 627         (base32
 628          "17l4ryy71bkszr6shm9dm31zcsd7m0digi1mmvdlib5hqzvc7li7"))))
 629     (build-system glib-or-gtk-build-system)
 630     (arguments
 631      `(#:configure-flags
 632        (list (string-append "--with-zoneinfo-dir="
 633                             (assoc-ref %build-inputs "tzdata")
 634                             "/share/zoneinfo")
 635              "--with-in-process-applets=all")
 636        #:phases
 637        (modify-phases %standard-phases
 638          (add-before 'configure 'fix-timezone-path
 639            (lambda* (#:key inputs #:allow-other-keys)
 640              (let* ((tzdata (assoc-ref inputs "tzdata")))
 641                (substitute* "applets/clock/system-timezone.h"
 642                  (("/usr/share/lib/zoneinfo/tab")
 643                   (string-append tzdata "/share/zoneinfo/zone.tab"))
 644                  (("/usr/share/zoneinfo")
 645                   (string-append tzdata "/share/zoneinfo"))))
 646              #t))
 647          (add-after 'unpack 'fix-introspection-install-dir
 648            (lambda* (#:key outputs #:allow-other-keys)
 649              (let ((out (assoc-ref outputs "out")))
 650                (substitute* '("configure")
 651                  (("`\\$PKG_CONFIG --variable=girdir gobject-introspection-1.0`")
 652                   (string-append "\"" out "/share/gir-1.0/\""))
 653                  (("\\$\\(\\$PKG_CONFIG --variable=typelibdir gobject-introspection-1.0\\)")
 654                   (string-append out "/lib/girepository-1.0/")))
 655                #t))))))
 656     (native-inputs
 657      `(("pkg-config" ,pkg-config)
 658        ("intltool" ,intltool)
 659        ("itstool" ,itstool)
 660        ("xtrans" ,xtrans)
 661        ("gobject-introspection" ,gobject-introspection)))
 662     (inputs
 663      `(("dconf" ,dconf)
 664        ("cairo" ,cairo)
 665        ("dbus-glib" ,dbus-glib)
 666        ("gtk+" ,gtk+)
 667        ("libcanberra" ,libcanberra)
 668        ("libice" ,libice)
 669        ("libmateweather" ,libmateweather)
 670        ("librsvg" ,librsvg)
 671        ("libsm" ,libsm)
 672        ("libx11" ,libx11)
 673        ("libxau" ,libxau)
 674        ("libxml2" ,libxml2)
 675        ("libxrandr" ,libxrandr)
 676        ("libwnck" ,libwnck)
 677        ("mate-desktop" ,mate-desktop)
 678        ("mate-menus" ,mate-menus)
 679        ("pango" ,pango)
 680        ("tzdata" ,tzdata)))
 681     (home-page "https://mate-desktop.org/")
 682     (synopsis "Panel for MATE")
 683     (description
 684      "Mate-panel contains the MATE panel, the libmate-panel-applet library and
 685 several applets.  The applets supplied here include the Workspace Switcher,
 686 the Window List, the Window Selector, the Notification Area, the Clock and the
 687 infamous 'Wanda the Fish'.")
 688     (license (list license:gpl2+ license:lgpl2.0+))))
 689
 690 (define-public atril
 691   (package
 692     (name "atril")
 693     (version "1.22.0")
 694     (source
 695      (origin
 696        (method url-fetch)
 697        (uri (string-append "https://pub.mate-desktop.org/releases/"
 698                            (version-major+minor version) "/"
 699                            name "-" version ".tar.xz"))
 700        (sha256
 701         (base32
 702          "1xd49j4qwrlg2nh2zvspf91yk033dp8a58dy9azqg2yz4bcvywxb"))))
 703     (build-system glib-or-gtk-build-system)
 704     (arguments
 705      `(#:configure-flags (list (string-append "--with-openjpeg="
 706                                               (assoc-ref %build-inputs "openjpeg"))
 707                                "--enable-introspection"
 708                                "--disable-schemas-compile"
 709                                ;; FIXME: Enable build of Caja extensions.
 710                                "--disable-caja")
 711        #:tests? #f
 712        #:phases
 713        (modify-phases %standard-phases
 714          (add-after 'unpack 'fix-mathjax-path
 715            (lambda _
 716              (let* ((mathjax (assoc-ref %build-inputs "js-mathjax"))
 717                     (mathjax-path (string-append mathjax
 718                                                  "/share/javascript/mathjax")))
 719                (substitute* "backend/epub/epub-document.c"
 720                  (("/usr/share/javascript/mathjax")
 721                   mathjax-path)))
 722              #t))
 723          (add-after 'unpack 'fix-introspection-install-dir
 724            (lambda* (#:key outputs #:allow-other-keys)
 725              (let ((out (assoc-ref outputs "out")))
 726                (substitute* '("configure")
 727                  (("\\$\\(\\$PKG_CONFIG --variable=girdir gobject-introspection-1.0\\)")
 728                   (string-append "\"" out "/share/gir-1.0/\""))
 729                  (("\\$\\(\\$PKG_CONFIG --variable=typelibdir gobject-introspection-1.0\\)")
 730                   (string-append out "/lib/girepository-1.0/")))
 731                #t)))
 732          (add-before 'install 'skip-gtk-update-icon-cache
 733            ;; Don't create 'icon-theme.cache'.
 734            (lambda _
 735              (substitute* "data/Makefile"
 736                (("gtk-update-icon-cache") "true"))
 737              #t)))))
 738     (native-inputs
 739      `(("pkg-config" ,pkg-config)
 740        ("intltool" ,intltool)
 741        ("itstool" ,itstool)
 742        ("yelp-tools" ,yelp-tools)
 743        ("glib:bin" ,glib "bin")
 744        ("gobject-introspection" ,gobject-introspection)
 745        ("gtk-doc" ,gtk-doc)
 746        ("xmllint" ,libxml2)
 747        ("zlib" ,zlib)))
 748     (inputs
 749      `(("atk" ,atk)
 750        ("cairo" ,cairo)
 751        ("caja" ,caja)
 752        ("dconf" ,dconf)
 753        ("dbus" ,dbus)
 754        ("dbus-glib" ,dbus-glib)
 755        ("djvulibre" ,djvulibre)
 756        ("fontconfig" ,fontconfig)
 757        ("freetype" ,freetype)
 758        ("ghostscript" ,ghostscript)
 759        ("glib" ,glib)
 760        ("gtk+" ,gtk+)
 761        ("js-mathjax" ,js-mathjax)
 762        ("libcanberra" ,libcanberra)
 763        ("libsecret" ,libsecret)
 764        ("libspectre" ,libspectre)
 765        ("libtiff" ,libtiff)
 766        ("libx11" ,libx11)
 767        ("libice" ,libice)
 768        ("libsm" ,libsm)
 769        ("libgxps" ,libgxps)
 770        ("libjpeg" ,libjpeg)
 771        ("libxml2" ,libxml2)
 772        ("dogtail" ,python2-dogtail)
 773        ("shared-mime-info" ,shared-mime-info)
 774        ("gdk-pixbuf" ,gdk-pixbuf)
 775        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
 776        ("libgnome-keyring" ,libgnome-keyring)
 777        ("libarchive" ,libarchive)
 778        ("marco" ,marco)
 779        ("nettle" ,nettle)
 780        ("openjpeg" ,openjpeg-1)
 781        ("pango" ,pango)
 782        ;;("texlive" ,texlive)
 783        ;; TODO:
 784        ;;   Build libkpathsea as a shared library for DVI support.
 785        ;; ("libkpathsea" ,texlive-bin)
 786        ("poppler" ,poppler)
 787        ("webkitgtk" ,webkitgtk)))
 788     (home-page "https://mate-desktop.org")
 789     (synopsis "Document viewer for Mate")
 790     (description
 791      "Document viewer for Mate")
 792     (license license:gpl2)))
 793
 794 (define-public caja
 795   (package
 796     (name "caja")
 797     (version "1.22.0")
 798     (source
 799      (origin
 800        (method url-fetch)
 801        (uri (string-append "https://pub.mate-desktop.org/releases/"
 802                            (version-major+minor version) "/"
 803                            name "-" version ".tar.xz"))
 804        (sha256
 805         (base32
 806          "14x9n9q7vip5zp4mdgccj1p1dm4xn429g0bjw2v8iz7zmjb7vcgl"))))
 807     (build-system glib-or-gtk-build-system)
 808     (arguments
 809      `(#:configure-flags '("--disable-update-mimedb")
 810        #:tests? #f ; tests fail even with display set
 811        #:phases
 812        (modify-phases %standard-phases
 813          (add-before 'check 'pre-check
 814            (lambda _
 815              ;; Tests require a running X server.
 816              (system "Xvfb :1 &")
 817              (setenv "DISPLAY" ":1")
 818              ;; For the missing /etc/machine-id.
 819              (setenv "DBUS_FATAL_WARNINGS" "0")
 820              #t)))))
 821     (native-inputs
 822      `(("pkg-config" ,pkg-config)
 823        ("intltool" ,intltool)
 824        ("glib:bin" ,glib "bin")
 825        ("xorg-server" ,xorg-server)
 826        ("gobject-introspection" ,gobject-introspection)))
 827     (inputs
 828      `(("exempi" ,exempi)
 829        ("gtk+" ,gtk+)
 830        ("gvfs" ,gvfs)
 831        ("libexif" ,libexif)
 832        ("libnotify" ,libnotify)
 833        ("libsm" ,libsm)
 834        ("libxml2" ,libxml2)
 835        ("mate-desktop" ,mate-desktop)
 836        ("startup-notification" ,startup-notification)))
 837     (native-search-paths
 838      (list (search-path-specification
 839             (variable "CAJA_EXTENSIONDIR")
 840             (files (list "lib/caja/extensions-2.0/**")))))
 841     (home-page "https://mate-desktop.org/")
 842     (synopsis "File manager for the MATE desktop")
 843     (description
 844      "Caja is the official file manager for the MATE desktop.
 845 It allows for browsing directories, as well as previewing files and launching
 846 applications associated with them.  Caja is also responsible for handling the
 847 icons on the MATE desktop.  It works on local and remote file systems.")
 848     ;; There is a note about a TRADEMARKS_NOTICE file in COPYING which
 849     ;; does not exist. It is safe to assume that this is of no concern
 850     ;; for us.
 851     (license license:gpl2+)))
 852
 853 (define-public caja-extensions
 854   (package
 855     (name "caja-extensions")
 856     (version "1.22.0")
 857     (source
 858      (origin
 859        (method url-fetch)
 860        (uri (string-append "https://pub.mate-desktop.org/releases/"
 861                            (version-major+minor version) "/"
 862                            name "-" version ".tar.xz"))
 863        (sha256
 864         (base32
 865          "1h866jmdd3qpjzi7wjj11krwiaadnlf21844g1zqfb4jgrzj773p"))))
 866     (build-system glib-or-gtk-build-system)
 867     (arguments
 868      `(#:configure-flags (list "--enable-sendto"
 869                                ;; TODO: package "gupnp" to enable 'upnp', package
 870                                ;; "gksu" to enable 'gksu'.
 871                                (string-append "--with-sendto-plugins=removable-devices,"
 872                                               "caja-burn,emailclient,pidgin,gajim")
 873                                "--enable-image-converter"
 874                                "--enable-open-terminal" "--enable-share"
 875                                "--enable-wallpaper" "--enable-xattr-tags"
 876                                (string-append "--with-cajadir="
 877                                               (assoc-ref %outputs "out")
 878                                               "/lib/caja/extensions-2.0/"))))
 879     (native-inputs
 880      `(("intltool" ,intltool)
 881        ("gettext" ,gettext-minimal)
 882        ("glib:bin" ,glib "bin")
 883        ("gobject-introspection" ,gobject-introspection)
 884        ("gtk-doc" ,gtk-doc)
 885        ("pkg-config" ,pkg-config)))
 886     (inputs
 887      `(("attr" ,attr)
 888        ("brasero" ,brasero)
 889        ("caja" ,caja)
 890        ("dbus" ,dbus)
 891        ("dbus-glib" ,dbus-glib)
 892        ("gajim" ,gajim) ;runtime only?
 893        ("gtk+" ,gtk+)
 894        ("imagemagick" ,imagemagick)
 895        ("graphicsmagick" ,graphicsmagick)
 896        ("mate-desktop" ,mate-desktop)
 897        ("pidgin" ,pidgin) ;runtime only?
 898        ("startup-notification" ,startup-notification)))
 899     (home-page "https://mate-desktop.org/")
 900     (synopsis "Extensions for the File manager Caja")
 901     (description
 902      "Caja is the official file manager for the MATE desktop.
 903 It allows for browsing directories, as well as previewing files and launching
 904 applications associated with them.  Caja is also responsible for handling the
 905 icons on the MATE desktop.  It works on local and remote file systems.")
 906     (license license:gpl2+)))
 907
 908 (define-public mate-control-center
 909   (package
 910     (name "mate-control-center")
 911     (version "1.22.0")
 912     (source
 913      (origin
 914        (method url-fetch)
 915        (uri (string-append "https://pub.mate-desktop.org/releases/"
 916                            (version-major+minor version) "/"
 917                            name "-" version ".tar.xz"))
 918        (sha256
 919         (base32
 920          "06wpfsxsiv7w3dl7p395r5vcxqbjlllydqbnvbr6yn0lrac15i71"))))
 921     (build-system glib-or-gtk-build-system)
 922     (native-inputs
 923      `(("pkg-config" ,pkg-config)
 924        ("intltool" ,intltool)
 925        ("yelp-tools" ,yelp-tools)
 926        ("desktop-file-utils" ,desktop-file-utils)
 927        ("xorgproto" ,xorgproto)
 928        ("xmodmap" ,xmodmap)
 929        ("gobject-introspection" ,gobject-introspection)))
 930     (inputs
 931      `(("atk" ,atk)
 932        ("cairo" ,cairo)
 933        ("caja" ,caja)
 934        ("dconf" ,dconf)
 935        ("dbus" ,dbus)
 936        ("dbus-glib" ,dbus-glib)
 937        ("fontconfig" ,fontconfig)
 938        ("freetype" ,freetype)
 939        ("glib" ,glib)
 940        ("gtk+" ,gtk+)
 941        ("libcanberra" ,libcanberra)
 942        ("libmatekbd" ,libmatekbd)
 943        ("libx11" ,libx11)
 944        ("libxcursor" ,libxcursor)
 945        ("libxext" ,libxext)
 946        ("libxi" ,libxi)
 947        ("libxklavier" ,libxklavier)
 948        ("libxml2" ,libxml2)
 949        ("libxrandr" ,libxrandr)
 950        ("libxrender" ,libxrender)
 951        ("libxscrnsaver" ,libxscrnsaver)
 952        ("marco" ,marco)
 953        ("mate-desktop" ,mate-desktop)
 954        ("mate-menus" ,mate-menus)
 955        ("mate-settings-daemon" ,mate-settings-daemon)
 956        ("pango" ,pango)
 957        ("startup-notification" ,startup-notification)))
 958     (propagated-inputs
 959      `(("gdk-pixbuf" ,gdk-pixbuf+svg) ; mate-slab.pc
 960        ("librsvg" ,librsvg))) ; mate-slab.pc
 961     (home-page "https://mate-desktop.org/")
 962     (synopsis "MATE Desktop configuration tool")
 963     (description
 964      "MATE control center is MATE's main interface for configuration
 965 of various aspects of your desktop.")
 966     (license license:gpl2+)))
 967
 968 (define-public marco
 969   (package
 970     (name "marco")
 971     (version "1.22.0")
 972     (source
 973      (origin
 974        (method url-fetch)
 975        (uri (string-append "https://pub.mate-desktop.org/releases/"
 976                            (version-major+minor version) "/"
 977                            name "-" version ".tar.xz"))
 978        (sha256
 979         (base32
 980          "1i1pi1z9mrb6564mxcwb93jqpdppfv58c2viwmicsixis62hv5wx"))))
 981     (build-system glib-or-gtk-build-system)
 982     (native-inputs
 983      `(("pkg-config" ,pkg-config)
 984        ("intltool" ,intltool)
 985        ("itstool" ,itstool)
 986        ("glib" ,glib)
 987        ("gobject-introspection" ,gobject-introspection)
 988        ("libxft" ,libxft)
 989        ("libxml2" ,libxml2)
 990        ("zenity" ,zenity)))
 991     (inputs
 992      `(("gtk+" ,gtk+)
 993        ("libcanberra" ,libcanberra)
 994        ("libgtop" ,libgtop)
 995        ("libice" ,libice)
 996        ("libsm" ,libsm)
 997        ("libx11" ,libx11)
 998        ("libxcomposite" ,libxcomposite)
 999        ("libxcursor" ,libxcursor)
1000        ("libxdamage" ,libxdamage)
1001        ("libxext" ,libxext)
1002        ("libxfixes" ,libxfixes)
1003        ("libxinerama" ,libxinerama)
1004        ("libxrandr" ,libxrandr)
1005        ("libxrender" ,libxrender)
1006        ("mate-desktop" ,mate-desktop)
1007        ("pango" ,pango)
1008        ("startup-notification" ,startup-notification)))
1009     (home-page "https://mate-desktop.org/")
1010     (synopsis "Window manager for the MATE desktop")
1011     (description
1012      "Marco is a minimal X window manager that uses GTK+ for drawing
1013 window frames.  It is aimed at non-technical users and is designed to integrate
1014 well with the MATE desktop.  It lacks some features that may be expected by
1015 some users; these users may want to investigate other available window managers
1016 for use with MATE or as a standalone window manager.")
1017     (license license:gpl2+)))
1018
1019 (define-public mate-user-guide
1020   (package
1021     (name "mate-user-guide")
1022     (version "1.22.0")
1023     (source
1024      (origin
1025        (method url-fetch)
1026        (uri (string-append "https://pub.mate-desktop.org/releases/"
1027                            (version-major+minor version) "/"
1028                            name "-" version ".tar.xz"))
1029        (sha256
1030         (base32
1031          "0ckn7h7l0qdgdx440dwx1h8i601s22sxlf5a7179hfirk9016j0z"))))
1032     (build-system gnu-build-system)
1033     (arguments
1034      `(#:phases
1035        (modify-phases %standard-phases
1036          (add-after 'unpack 'adjust-desktop-file
1037            (lambda* (#:key inputs #:allow-other-keys)
1038              (let* ((yelp (assoc-ref inputs "yelp")))
1039                (substitute* "mate-user-guide.desktop.in.in"
1040                  (("yelp")
1041                   (string-append yelp "/bin/yelp"))))
1042              #t)))))
1043     (native-inputs
1044      `(("pkg-config" ,pkg-config)
1045        ("intltool" ,intltool)
1046        ("gettext" ,gettext-minimal)
1047        ("yelp-tools" ,yelp-tools)
1048        ("yelp-xsl" ,yelp-xsl)))
1049     (inputs
1050      `(("yelp" ,yelp)))
1051     (home-page "https://mate-desktop.org/")
1052     (synopsis "User Documentation for Mate software")
1053     (description
1054      "MATE User Guide is a collection of documentation which details
1055 general use of the MATE Desktop environment.  Topics covered include
1056 sessions, panels, menus, file management, and preferences.")
1057     (license (list license:fdl1.1+ license:gpl2+))))
1058
1059 (define-public mate-calc
1060   (package
1061     (name "mate-calc")
1062     (version "1.22.0")
1063     (source
1064      (origin
1065        (method url-fetch)
1066        (uri (string-append "https://pub.mate-desktop.org/releases/"
1067                            (version-major+minor version) "/"
1068                            name "-" version ".tar.xz"))
1069        (sha256
1070         (base32
1071          "1njk6v7z3969ikvcrabr1lw5f5572vb14w064zm3mydj8cc5inlr"))))
1072     (build-system glib-or-gtk-build-system)
1073     (native-inputs
1074      `(("gettext" ,gettext-minimal)
1075        ("intltool" ,intltool)
1076        ("pkg-config" ,pkg-config)
1077        ("yelp-tools" ,yelp-tools)))
1078     (inputs
1079      `(("atk" ,atk)
1080        ("glib" ,glib)
1081        ("gtk+" ,gtk+)
1082        ("libxml2" ,libxml2)
1083        ("libcanberra" ,libcanberra)
1084        ("pango" ,pango)))
1085     (home-page "https://mate-desktop.org/")
1086     (synopsis "Calculator for MATE")
1087     (description
1088      "Mate Calc is the GTK+ calculator application for the MATE Desktop.")
1089     (license license:gpl2+)))
1090
1091 (define-public mate-backgrounds
1092   (package
1093     (name "mate-backgrounds")
1094     (version "1.18.0")
1095     (source
1096      (origin
1097        (method url-fetch)
1098        (uri (string-append "https://pub.mate-desktop.org/releases/"
1099                            (version-major+minor version) "/"
1100                            name "-" version ".tar.xz"))
1101        (sha256
1102         (base32
1103          "06q8ksjisijps2wn959arywsimhzd3j35mqkr048c26ck24d60zi"))))
1104     (build-system glib-or-gtk-build-system)
1105     (native-inputs
1106      `(("intltool" ,intltool)))
1107     (home-page "https://mate-desktop.org/")
1108     (synopsis "Calculator for MATE")
1109     (description
1110      "This package contains a collection of graphics files which
1111 can be used as backgrounds in the MATE Desktop environment.")
1112     (license license:gpl2+)))
1113
1114 (define-public mate-netbook
1115   (package
1116     (name "mate-netbook")
1117     (version "1.18.1")
1118     (source
1119      (origin
1120        (method url-fetch)
1121        (uri (string-append "https://pub.mate-desktop.org/releases/"
1122                            (version-major+minor version) "/"
1123                            name "-" version ".tar.xz"))
1124        (sha256
1125         (base32
1126          "0zj4x9qis8dw0irxzb4va1189k8bqbvymxq3h7phnjwvr1m983gf"))))
1127     (build-system glib-or-gtk-build-system)
1128     (native-inputs
1129      `(("gettext" ,gettext-minimal)
1130        ("intltool" ,intltool)
1131        ("pkg-config" ,pkg-config)))
1132     (inputs
1133      `(("cairo" ,cairo)
1134        ("glib" ,glib)
1135        ("gtk+" ,gtk+)
1136        ("libfakekey" ,libfakekey)
1137        ("libwnck" ,libwnck)
1138        ("libxtst" ,libxtst)
1139        ("libx11" ,libx11)
1140        ("mate-panel" ,mate-panel)
1141        ("xorgproto" ,xorgproto)))
1142     (home-page "https://mate-desktop.org/")
1143     (synopsis "Tool for MATE on Netbooks")
1144     (description
1145      "Mate Netbook is a simple window management tool which:
1146
1147 @enumerate
1148 @item Allows you to set basic rules for a window type, such as maximise|undecorate
1149 @item Allows exceptions to the rules, based on string matching for window name
1150 and window class.
1151 @item Allows @code{reversing} of rules when the user manually changes something:
1152 Re-decorates windows on un-maximise.
1153 @end enumerate\n")
1154     (license license:gpl3+)))
1155
1156 (define-public mate-screensaver
1157   (package
1158     (name "mate-screensaver")
1159     (version "1.18.1")
1160     (source
1161      (origin
1162        (method url-fetch)
1163        (uri (string-append "https://pub.mate-desktop.org/releases/"
1164                            (version-major+minor version) "/"
1165                            name "-" version ".tar.xz"))
1166        (sha256
1167         (base32
1168          "0dfi10faf1fnvrm7c7wnfqg35ygq09ws1vjyv8394jlf0nn39g9j"))))
1169     (build-system glib-or-gtk-build-system)
1170     (arguments
1171      `(#:configure-flags
1172        ;; FIXME: There is a permissions problem with screen locking
1173        ;; which effectively locks you out completely. Enable locking
1174        ;; once this has been fixed.
1175        (list "--enable-locking" "--with-kbd-layout-indicator"
1176              "--with-xf86gamma-ext" "--enable-pam"
1177              "--disable-schemas-compile" "--without-console-kit")
1178        #:phases
1179        (modify-phases %standard-phases
1180          (add-after 'unpack 'autoconf
1181            (lambda* (#:key outputs #:allow-other-keys)
1182              (let* ((out (assoc-ref outputs "out"))
1183                     (dbus-dir (string-append out "/share/dbus-1/services")))
1184              (setenv "SHELL" (which "sh"))
1185              (setenv "CONFIG_SHELL" (which "sh"))
1186              (substitute* "configure"
1187                (("dbus-1") ""))))))))
1188     (native-inputs
1189      `(("automake" ,automake)
1190        ("autoconf" ,autoconf-wrapper)
1191        ("gettext" ,gettext-minimal)
1192        ("intltool" ,intltool)
1193        ("mate-common" ,mate-common)
1194        ("pkg-config" ,pkg-config)
1195        ("which" ,which)
1196        ("xorgproto" ,xorgproto)))
1197     (inputs
1198      `(("cairo" ,cairo)
1199        ("dconf" ,dconf)
1200        ("dbus" ,dbus)
1201        ("dbus-glib" ,dbus-glib)
1202        ("glib" ,glib)
1203        ("gtk+" ,gtk+)
1204        ("gdk-pixbuf" ,gdk-pixbuf+svg)
1205        ("libcanberra" ,libcanberra)
1206        ("libglade" ,libglade)
1207        ("libmatekbd" ,libmatekbd)
1208        ("libnotify" ,libnotify)
1209        ("libx11" ,libx11)
1210        ("libxext" ,libxext)
1211        ("libxklavier" ,libxklavier)
1212        ("libxrandr" ,libxrandr)
1213        ("libxrender" ,libxrender)
1214        ("libxscrnsaver" ,libxscrnsaver)
1215        ("libxxf86vm" ,libxxf86vm)
1216        ("linux-pam" ,linux-pam)
1217        ("mate-desktop" ,mate-desktop)
1218        ("mate-menus" ,mate-menus)
1219        ("pango" ,pango)
1220        ("startup-notification" ,startup-notification)))
1221     (home-page "https://mate-desktop.org/")
1222     (synopsis "Screensaver for MATE")
1223     (description
1224      "MATE backgrounds package contains a collection of graphics files which
1225 can be used as backgrounds in the MATE Desktop environment.")
1226     (license license:gpl2+)))
1227
1228 (define-public mate-utils
1229   (package
1230     (name "mate-utils")
1231     (version "1.18.2")
1232     (source
1233      (origin
1234        (method url-fetch)
1235        (uri (string-append "https://pub.mate-desktop.org/releases/"
1236                            (version-major+minor version) "/"
1237                            name "-" version ".tar.xz"))
1238        (sha256
1239         (base32
1240          "0wr395dqfigj19ps0d76ycgwfljl9xxgs1a1g5wx6kcz5mvhzn5v"))))
1241     (build-system glib-or-gtk-build-system)
1242     (native-inputs
1243      `(("gettext" ,gettext-minimal)
1244        ("gtk-doc" ,gtk-doc)
1245        ("intltool" ,intltool)
1246        ("libice" ,libice)
1247        ("libsm" ,libsm)
1248        ("pkg-config" ,pkg-config)
1249        ("scrollkeeper" ,scrollkeeper)
1250        ("xorgproto" ,xorgproto)
1251        ("yelp-tools" ,yelp-tools)))
1252     (inputs
1253      `(("atk" ,atk)
1254        ("cairo" ,cairo)
1255        ("glib" ,glib)
1256        ("gtk+" ,gtk+)
1257        ("gdk-pixbuf" ,gdk-pixbuf+svg)
1258        ("libcanberra" ,libcanberra)
1259        ("libgtop" ,libgtop)
1260        ("libx11" ,libx11)
1261        ("libxext" ,libxext)
1262        ("mate-panel" ,mate-panel)
1263        ("pango" ,pango)
1264        ("zlib" ,zlib)))
1265     (home-page "https://mate-desktop.org/")
1266     (synopsis "Utilities for the MATE Desktop")
1267     (description
1268      "Mate Utilities for the MATE Desktop containing:
1269
1270 @enumerate
1271 @item mate-system-log
1272 @item mate-search-tool
1273 @item mate-dictionary
1274 @item mate-screenshot
1275 @item mate-disk-usage-analyzer
1276 @end enumerate\n")
1277     (license (list license:gpl2
1278                    license:fdl1.1+
1279                    license:lgpl2.1))))
1280
1281 (define-public eom
1282   (package
1283     (name "eom")
1284     (version "1.18.2")
1285     (source
1286      (origin
1287        (method url-fetch)
1288        (uri (string-append "https://pub.mate-desktop.org/releases/"
1289                            (version-major+minor version) "/"
1290                            name "-" version ".tar.xz"))
1291        (sha256
1292         (base32
1293          "00ns7g7qykakc89lijrw2vwy9x9ijqiyvmnd4sw0j6py90zs8m87"))))
1294     (build-system glib-or-gtk-build-system)
1295     (native-inputs
1296      `(("gettext" ,gettext-minimal)
1297        ("gtk-doc" ,gtk-doc)
1298        ("gobject-introspection" ,gobject-introspection)
1299        ("intltool" ,intltool)
1300        ("pkg-config" ,pkg-config)
1301        ("yelp-tools" ,yelp-tools)))
1302     (inputs
1303      `(("atk" ,atk)
1304        ("cairo" ,cairo)
1305        ("dconf" ,dconf)
1306        ("dbus" ,dbus)
1307        ("dbus-glib" ,dbus-glib)
1308        ("exempi" ,exempi)
1309        ("glib" ,glib)
1310        ("gtk+" ,gtk+)
1311        ("gdk-pixbuf" ,gdk-pixbuf+svg)
1312        ("libcanberra" ,libcanberra)
1313        ("libx11" ,libx11)
1314        ("libxext" ,libxext)
1315        ("libpeas" ,libpeas)
1316        ("libxml2" ,libxml2)
1317        ("libexif" ,libexif)
1318        ("libjpeg" ,libjpeg)
1319        ("librsvg" ,librsvg)
1320        ("lcms" ,lcms)
1321        ("mate-desktop" ,mate-desktop)
1322        ("pango" ,pango)
1323        ("shared-mime-info" ,shared-mime-info)
1324        ("startup-notification" ,startup-notification)
1325        ("zlib" ,zlib)))
1326     (home-page "https://mate-desktop.org/")
1327     (synopsis "Eye of MATE")
1328     (description
1329      "Eye of MATE is the Image viewer for the MATE Desktop.")
1330     (license (list license:gpl2))))
1331
1332 (define-public engrampa
1333   (package
1334     (name "engrampa")
1335     (version "1.18.2")
1336     (source
1337      (origin
1338        (method url-fetch)
1339        (uri (string-append "https://pub.mate-desktop.org/releases/"
1340                            (version-major+minor version) "/"
1341                            name "-" version ".tar.xz"))
1342        (sha256
1343         (base32
1344          "0d98zhqqc7qdnxcf0195kd04xmhijc0w2qrn6q61zd0daiswnv98"))))
1345     (build-system glib-or-gtk-build-system)
1346     (arguments
1347      `(#:configure-flags (list "--disable-schemas-compile"
1348                                "--disable-run-in-place"
1349                                "--enable-magic"
1350                                "--enable-packagekit"
1351                                (string-append "--with-cajadir="
1352                                               (assoc-ref %outputs "out")
1353                                               "/lib/caja/extensions-2.0/"))
1354        #:phases
1355        (modify-phases %standard-phases
1356          (add-before 'install 'skip-gtk-update-icon-cache
1357            ;; Don't create 'icon-theme.cache'.
1358            (lambda _
1359              (substitute* "data/Makefile"
1360                (("gtk-update-icon-cache") "true"))
1361              #t)))))
1362     (native-inputs
1363      `(("gettext" ,gettext-minimal)
1364        ("gtk-doc" ,gtk-doc)
1365        ("intltool" ,intltool)
1366        ("pkg-config" ,pkg-config)
1367        ("yelp-tools" ,yelp-tools)))
1368     (inputs
1369      `(("caja" ,caja)
1370        ("file" ,file)
1371        ("glib" ,glib)
1372        ("gtk+" ,gtk+)
1373        ("gdk-pixbuf" ,gdk-pixbuf+svg)
1374        ("json-glib" ,json-glib)
1375        ("libcanberra" ,libcanberra)
1376        ("libx11" ,libx11)
1377        ("libsm" ,libsm)
1378        ("packagekit" ,packagekit)
1379        ("pango" ,pango)))
1380     (home-page "https://mate-desktop.org/")
1381     (synopsis "Archive Manager for MATE")
1382     (description
1383      "Engrampa is the archive manager for the MATE Desktop.")
1384     (license license:gpl2)))
1385
1386 (define-public pluma
1387   (package
1388     (name "pluma")
1389     (version "1.18.2")
1390     (source
1391      (origin
1392        (method url-fetch)
1393        (uri (string-append "https://pub.mate-desktop.org/releases/"
1394                            (version-major+minor version) "/"
1395                            name "-" version ".tar.xz"))
1396        (sha256
1397         (base32
1398          "1z0938yiygxipj2a77n9dv8v4253snrc5gbbnarcnim9xba2j3zz"))))
1399     (build-system glib-or-gtk-build-system)
1400     (arguments
1401      `(; Tests can not succeed.
1402        ;; https://github.com/mate-desktop/mate-text-editor/issues/33
1403        #:tests? #f))
1404     (native-inputs
1405      `(("gettext" ,gettext-minimal)
1406        ("gtk-doc" ,gtk-doc)
1407        ("gobject-introspection" ,gobject-introspection)
1408        ("intltool" ,intltool)
1409        ("libtool" ,libtool)
1410        ("pkg-config" ,pkg-config)
1411        ("yelp-tools" ,yelp-tools)))
1412     (inputs
1413      `(("atk" ,atk)
1414        ("cairo" ,cairo)
1415        ("enchant" ,enchant-1.6)
1416        ("glib" ,glib)
1417        ("gtk+" ,gtk+)
1418        ("gtksourceview" ,gtksourceview)
1419        ("gdk-pixbuf" ,gdk-pixbuf)
1420        ("iso-codes" ,iso-codes)
1421        ("libcanberra" ,libcanberra)
1422        ("libx11" ,libx11)
1423        ("libsm" ,libsm)
1424        ("libpeas" ,libpeas)
1425        ("libxml2" ,libxml2)
1426        ("libice" ,libice)
1427        ("packagekit" ,packagekit)
1428        ("pango" ,pango)
1429        ("python-2" ,python-2)
1430        ("scrollkeeper" ,scrollkeeper)))
1431     (home-page "https://mate-desktop.org/")
1432     (synopsis "Text Editor for MATE")
1433     (description
1434      "Pluma is the text editor for the MATE Desktop.")
1435     (license license:gpl2)))
1436
1437 (define-public mate-system-monitor
1438   (package
1439     (name "mate-system-monitor")
1440     (version "1.18.0")
1441     (source
1442      (origin
1443        (method url-fetch)
1444        (uri (string-append "https://pub.mate-desktop.org/releases/"
1445                            (version-major+minor version) "/"
1446                            name "-" version ".tar.xz"))
1447        (sha256
1448         (base32
1449          "1wcvrl4lfnjkhywb311p29prf1qiab6iynb6q1fgfsl6za8hsz48"))))
1450     (build-system glib-or-gtk-build-system)
1451     (native-inputs
1452      `(("autoconf" ,autoconf)
1453        ("gettext" ,gettext-minimal)
1454        ("intltool" ,intltool)
1455        ("pkg-config" ,pkg-config)
1456        ("yelp-tools" ,yelp-tools)))
1457     (inputs
1458      `(("cairo" ,cairo)
1459        ("glib" ,glib)
1460        ("glibmm" ,glibmm)
1461        ("gtkmm" ,gtkmm)
1462        ("gtk+" ,gtk+)
1463        ("gdk-pixbuf" ,gdk-pixbuf)
1464        ("libsigc++" ,libsigc++)
1465        ("libcanberra" ,libcanberra)
1466        ("libxml2" ,libxml2)
1467        ("libwnck" ,libwnck)
1468        ("libgtop" ,libgtop)
1469        ("librsvg" ,librsvg)
1470        ("polkit" ,polkit)))
1471     (home-page "https://mate-desktop.org/")
1472     (synopsis "System Monitor for MATE")
1473     (description
1474      "Mate System Monitor provides a tool for for the
1475 MATE Desktop to monitor your system resources and usage.")
1476     (license license:gpl2)))
1477
1478 (define-public mate-polkit
1479   (package
1480     (name "mate-polkit")
1481     (version "1.18.1")
1482     (source
1483      (origin
1484        (method url-fetch)
1485        (uri (string-append "https://pub.mate-desktop.org/releases/"
1486                            (version-major+minor version) "/"
1487                            name "-" version ".tar.xz"))
1488        (sha256
1489         (base32
1490          "15vf2hnyjg8zsw3iiwjwi497yygkmvpnn6w1hik7dfw4a621w0gc"))))
1491     (build-system glib-or-gtk-build-system)
1492     (native-inputs
1493      `(("gettext" ,gettext-minimal)
1494        ("gtk-doc" ,gtk-doc)
1495        ("intltool" ,intltool)
1496        ("libtool" ,libtool)
1497        ("pkg-config" ,pkg-config)))
1498     (inputs
1499      `(("accountsservice" ,accountsservice)
1500        ("glib" ,glib)
1501        ("gobject-introspection" ,gobject-introspection)
1502        ("gtk+" ,gtk+)
1503        ("gdk-pixbuf" ,gdk-pixbuf)
1504        ("polkit" ,polkit)))
1505     (home-page "https://mate-desktop.org/")
1506     (synopsis "DBus specific service for MATE")
1507     (description
1508      "MATE Polkit is a MATE specific DBUS service that is
1509 used to bring up authentication dialogs.")
1510     (license license:lgpl2.1)))
1511
1512 (define-public mate
1513   (package
1514     (name "mate")
1515     (version (package-version mate-desktop))
1516     (source #f)
1517     (build-system trivial-build-system)
1518     (arguments
1519      `(#:modules ((guix build union))
1520        #:builder
1521        (begin
1522          (use-modules (ice-9 match)
1523                       (guix build union))
1524          (match %build-inputs
1525            (((names . directories) ...)
1526             (union-build (assoc-ref %outputs "out")
1527                          directories)
1528             #t)))))
1529     (inputs
1530      ;; TODO: Add more packages
1531      `(("at-spi2-core"              ,at-spi2-core)
1532        ("atril"                     ,atril)
1533        ("caja"                      ,caja)
1534        ("dbus"                      ,dbus)
1535        ("dconf"                     ,dconf)
1536        ("desktop-file-utils"        ,desktop-file-utils)
1537        ("engrampa"                  ,engrampa)
1538        ("eom"                       ,eom)
1539        ("font-cantarell"            ,font-cantarell)
1540        ("glib-networking"           ,glib-networking)
1541        ("gnome-keyring"             ,gnome-keyring)
1542        ("gvfs"                      ,gvfs)
1543        ("hicolor-icon-theme"        ,hicolor-icon-theme)
1544        ("libmatekbd"                ,libmatekbd)
1545        ("libmateweather"            ,libmateweather)
1546        ("libmatemixer"              ,libmatemixer)
1547        ("marco"                     ,marco)
1548        ("mate-session-manager"      ,mate-session-manager)
1549        ("mate-settings-daemon"      ,mate-settings-daemon)
1550        ("mate-desktop"              ,mate-desktop)
1551        ("mate-terminal"             ,mate-terminal)
1552        ("mate-themes"               ,mate-themes)
1553        ("mate-icon-theme"           ,mate-icon-theme)
1554        ("mate-menu"                 ,mate-menus)
1555        ("mate-panel"                ,mate-panel)
1556        ("mate-control-center"       ,mate-control-center)
1557        ("mate-media"                ,mate-media)
1558        ("mate-applets"              ,mate-applets)
1559        ("mate-user-guide"           ,mate-user-guide)
1560        ("mate-calc"                 ,mate-calc)
1561        ("mate-backgrounds"          ,mate-backgrounds)
1562        ("mate-netbook"              ,mate-netbook)
1563        ("mate-utils"                ,mate-utils)
1564        ("mate-polkit"               ,mate-polkit)
1565        ("mate-system-monitor"       ,mate-system-monitor)
1566        ("mate-utils"                ,mate-utils)
1567        ("pluma"                     ,pluma)
1568        ("pinentry-gnome3"           ,pinentry-gnome3)
1569        ("pulseaudio"                ,pulseaudio)
1570        ("shared-mime-info"          ,shared-mime-info)
1571        ("yelp"                      ,yelp)
1572        ("zenity"                    ,zenity)))
1573     (synopsis "The MATE desktop environment")
1574     (home-page "https://mate-desktop.org/")
1575     (description
1576      "The MATE Desktop Environment is the continuation of GNOME 2.  It provides
1577 an intuitive and attractive desktop environment using traditional metaphors for
1578 GNU/Linux systems.  MATE is under active development to add support for new
1579 technologies while preserving a traditional desktop experience.")
1580     (license license:gpl2+)))