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