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        ("graphicsmagick" ,graphicsmagick)
 907        ("mate-desktop" ,mate-desktop)
 908        ("pidgin" ,pidgin) ;runtime only?
 909        ("startup-notification" ,startup-notification)))
 910     (home-page "https://mate-desktop.org/")
 911     (synopsis "Extensions for the File manager Caja")
 912     (description
 913      "Caja is the official file manager for the MATE desktop.
 914 It allows for browsing directories, as well as previewing files and launching
 915 applications associated with them.  Caja is also responsible for handling the
 916 icons on the MATE desktop.  It works on local and remote file systems.")
 917     (license license:gpl2+)))
 918
 919 (define-public mate-control-center
 920   (package
 921     (name "mate-control-center")
 922     (version "1.24.1")
 923     (source
 924      (origin
 925        (method url-fetch)
 926        (uri (string-append "mirror://mate/" (version-major+minor version) "/"
 927                            "mate-control-center-" version ".tar.xz"))
 928        (sha256
 929         (base32 "08bai47fsmbxlw2lhig9n6c8sxr24ixkd1spq3j0635yzcqighb0"))))
 930     (build-system glib-or-gtk-build-system)
 931     (arguments
 932      '(#:phases (modify-phases %standard-phases
 933                   (add-before 'build 'fix-polkit-action
 934                     (lambda* (#:key outputs #:allow-other-keys)
 935                       ;; Make sure the polkit file refers to the right
 936                       ;; executable.
 937                       (let ((out (assoc-ref outputs "out")))
 938                         (substitute*
 939                             '("capplets/display/org.mate.randr.policy.in"
 940                               "capplets/display/org.mate.randr.policy")
 941                           (("/usr/sbin")
 942                            (string-append out "/sbin")))
 943                         #t))))))
 944     (native-inputs
 945      `(("pkg-config" ,pkg-config)
 946        ("intltool" ,intltool)
 947        ("yelp-tools" ,yelp-tools)
 948        ("desktop-file-utils" ,desktop-file-utils)
 949        ("xorgproto" ,xorgproto)
 950        ("xmodmap" ,xmodmap)
 951        ("gobject-introspection" ,gobject-introspection)))
 952     (inputs
 953      `(("atk" ,atk)
 954        ("cairo" ,cairo)
 955        ("caja" ,caja)
 956        ("dconf" ,dconf)
 957        ("dbus" ,dbus)
 958        ("dbus-glib" ,dbus-glib)
 959        ("fontconfig" ,fontconfig)
 960        ("freetype" ,freetype)
 961        ("glib" ,glib)
 962        ("gtk+" ,gtk+)
 963        ("libcanberra" ,libcanberra)
 964        ("libmatekbd" ,libmatekbd)
 965        ("libx11" ,libx11)
 966        ("libxcursor" ,libxcursor)
 967        ("libxext" ,libxext)
 968        ("libxi" ,libxi)
 969        ("libxklavier" ,libxklavier)
 970        ("libxml2" ,libxml2)
 971        ("libxrandr" ,libxrandr)
 972        ("libxrender" ,libxrender)
 973        ("libxscrnsaver" ,libxscrnsaver)
 974        ("marco" ,marco)
 975        ("mate-desktop" ,mate-desktop)
 976        ("mate-menus" ,mate-menus)
 977        ("mate-settings-daemon" ,mate-settings-daemon)
 978        ("pango" ,pango)
 979        ("polkit" ,polkit)
 980        ("startup-notification" ,startup-notification)))
 981     (propagated-inputs
 982      `(("gdk-pixbuf" ,gdk-pixbuf+svg) ; mate-slab.pc
 983        ("librsvg" ,librsvg))) ; mate-slab.pc
 984     (home-page "https://mate-desktop.org/")
 985     (synopsis "MATE Desktop configuration tool")
 986     (description
 987      "MATE control center is MATE's main interface for configuration
 988 of various aspects of your desktop.")
 989     (license license:gpl2+)))
 990
 991 (define-public marco
 992   (package
 993     (name "marco")
 994     (version "1.24.1")
 995     (source
 996      (origin
 997        (method url-fetch)
 998        (uri (string-append "mirror://mate/" (version-major+minor version) "/"
 999                            name "-" version ".tar.xz"))
1000        (sha256
1001         (base32 "109b41pjrc1b4slw6sx1lakdhrc46x829vczzk4bz3j15kcszg54"))))
1002     (build-system glib-or-gtk-build-system)
1003     (native-inputs
1004      `(("pkg-config" ,pkg-config)
1005        ("intltool" ,intltool)
1006        ("itstool" ,itstool)
1007        ("glib" ,glib)
1008        ("gobject-introspection" ,gobject-introspection)
1009        ("libxft" ,libxft)
1010        ("libxml2" ,libxml2)
1011        ("zenity" ,zenity)))
1012     (inputs
1013      `(("gtk+" ,gtk+)
1014        ("libcanberra" ,libcanberra)
1015        ("libgtop" ,libgtop)
1016        ("libice" ,libice)
1017        ("libsm" ,libsm)
1018        ("libx11" ,libx11)
1019        ("libxcomposite" ,libxcomposite)
1020        ("libxcursor" ,libxcursor)
1021        ("libxdamage" ,libxdamage)
1022        ("libxext" ,libxext)
1023        ("libxfixes" ,libxfixes)
1024        ("libxinerama" ,libxinerama)
1025        ("libxrandr" ,libxrandr)
1026        ("libxrender" ,libxrender)
1027        ("mate-desktop" ,mate-desktop)
1028        ("pango" ,pango)
1029        ("startup-notification" ,startup-notification)))
1030     (home-page "https://mate-desktop.org/")
1031     (synopsis "Window manager for the MATE desktop")
1032     (description
1033      "Marco is a minimal X window manager that uses GTK+ for drawing
1034 window frames.  It is aimed at non-technical users and is designed to integrate
1035 well with the MATE desktop.  It lacks some features that may be expected by
1036 some users; these users may want to investigate other available window managers
1037 for use with MATE or as a standalone window manager.")
1038     (license license:gpl2+)))
1039
1040 (define-public mate-user-guide
1041   (package
1042     (name "mate-user-guide")
1043     (version "1.24.0")
1044     (source
1045      (origin
1046        (method url-fetch)
1047        (uri (string-append "mirror://mate/" (version-major+minor version) "/"
1048                            name "-" version ".tar.xz"))
1049        (sha256
1050         (base32
1051          "0ddxya84iydvy85dbqls0wmz2rph87wri3rsdhv4rkbhh5g4sd7f"))))
1052     (build-system gnu-build-system)
1053     (arguments
1054      `(#:phases
1055        (modify-phases %standard-phases
1056          (add-after 'unpack 'adjust-desktop-file
1057            (lambda* (#:key inputs #:allow-other-keys)
1058              (let* ((yelp (assoc-ref inputs "yelp")))
1059                (substitute* "mate-user-guide.desktop.in.in"
1060                  (("yelp")
1061                   (string-append yelp "/bin/yelp"))))
1062              #t)))))
1063     (native-inputs
1064      `(("pkg-config" ,pkg-config)
1065        ("intltool" ,intltool)
1066        ("gettext" ,gettext-minimal)
1067        ("yelp-tools" ,yelp-tools)
1068        ("yelp-xsl" ,yelp-xsl)))
1069     (inputs
1070      `(("yelp" ,yelp)))
1071     (home-page "https://mate-desktop.org/")
1072     (synopsis "User Documentation for Mate software")
1073     (description
1074      "MATE User Guide is a collection of documentation which details
1075 general use of the MATE Desktop environment.  Topics covered include
1076 sessions, panels, menus, file management, and preferences.")
1077     (license (list license:fdl1.1+ license:gpl2+))))
1078
1079 (define-public mate-calc
1080   (package
1081     (name "mate-calc")
1082     (version "1.24.1")
1083     (source
1084      (origin
1085        (method url-fetch)
1086        (uri (string-append "mirror://mate/" (version-major+minor version) "/"
1087                            "mate-calc-" version ".tar.xz"))
1088        (sha256
1089         (base32 "0imdimq5d5rjq8mkjcrsd683a2bn9acmhc0lmvyw71y0040inbaw"))))
1090     (build-system glib-or-gtk-build-system)
1091     (native-inputs
1092      `(("gettext" ,gettext-minimal)
1093        ("intltool" ,intltool)
1094        ("pkg-config" ,pkg-config)
1095        ("yelp-tools" ,yelp-tools)))
1096     (inputs
1097      `(("atk" ,atk)
1098        ("glib" ,glib)
1099        ("gtk+" ,gtk+)
1100        ("libxml2" ,libxml2)
1101        ("libcanberra" ,libcanberra)
1102        ("pango" ,pango)))
1103     (home-page "https://mate-desktop.org/")
1104     (synopsis "Calculator for MATE")
1105     (description
1106      "Mate Calc is the GTK+ calculator application for the MATE Desktop.")
1107     (license license:gpl2+)))
1108
1109 (define-public mate-backgrounds
1110   (package
1111     (name "mate-backgrounds")
1112     (version "1.24.1")
1113     (source
1114      (origin
1115        (method url-fetch)
1116        (uri (string-append "mirror://mate/" (version-major+minor version) "/"
1117                            name "-" version ".tar.xz"))
1118        (sha256
1119         (base32
1120          "0b9yx68p9l867bqsl9z2g4wrs8p396ls673jgaliys5snmk8n8dn"))))
1121     (build-system glib-or-gtk-build-system)
1122     (native-inputs
1123      `(("intltool" ,intltool)))
1124     (home-page "https://mate-desktop.org/")
1125     (synopsis "Calculator for MATE")
1126     (description
1127      "This package contains a collection of graphics files which
1128 can be used as backgrounds in the MATE Desktop environment.")
1129     (license license:gpl2+)))
1130
1131 (define-public mate-netbook
1132   (package
1133     (name "mate-netbook")
1134     (version "1.24.0")
1135     (source
1136      (origin
1137        (method url-fetch)
1138        (uri (string-append "mirror://mate/" (version-major+minor version) "/"
1139                            name "-" version ".tar.xz"))
1140        (sha256
1141         (base32
1142          "1bmk9gq5gcqkvfppa7i1hqfph8sajc3xs189s4ha97g0ifwd98a8"))))
1143     (build-system glib-or-gtk-build-system)
1144     (native-inputs
1145      `(("gettext" ,gettext-minimal)
1146        ("intltool" ,intltool)
1147        ("pkg-config" ,pkg-config)))
1148     (inputs
1149      `(("cairo" ,cairo)
1150        ("glib" ,glib)
1151        ("gtk+" ,gtk+)
1152        ("libfakekey" ,libfakekey)
1153        ("libwnck" ,libwnck)
1154        ("libxtst" ,libxtst)
1155        ("libx11" ,libx11)
1156        ("mate-panel" ,mate-panel)
1157        ("xorgproto" ,xorgproto)))
1158     (home-page "https://mate-desktop.org/")
1159     (synopsis "Tool for MATE on Netbooks")
1160     (description
1161      "Mate Netbook is a simple window management tool which:
1162
1163 @enumerate
1164 @item Allows you to set basic rules for a window type, such as maximise|undecorate
1165 @item Allows exceptions to the rules, based on string matching for window name
1166 and window class.
1167 @item Allows @code{reversing} of rules when the user manually changes something:
1168 Re-decorates windows on un-maximise.
1169 @end enumerate\n")
1170     (license license:gpl3+)))
1171
1172 (define-public mate-screensaver
1173   (package
1174     (name "mate-screensaver")
1175     (version "1.24.1")
1176     (source
1177      (origin
1178        (method url-fetch)
1179        (uri (string-append "mirror://mate/" (version-major+minor version) "/"
1180                            "mate-screensaver-" version ".tar.xz"))
1181        (sha256
1182         (base32 "0imb1z2yvz1h95dzq396c569kkxys9mb2dyc6qxxxcnc5w02a2dw"))))
1183     (build-system glib-or-gtk-build-system)
1184     (arguments
1185      `(#:configure-flags
1186        ;; FIXME: There is a permissions problem with screen locking
1187        ;; which effectively locks you out completely. Enable locking
1188        ;; once this has been fixed.
1189        (list "--enable-locking" "--with-kbd-layout-indicator"
1190              "--with-xf86gamma-ext" "--enable-pam"
1191              "--disable-schemas-compile" "--without-console-kit")
1192        #:phases
1193        (modify-phases %standard-phases
1194          (add-after 'unpack 'autoconf
1195            (lambda* (#:key outputs #:allow-other-keys)
1196              (let* ((out (assoc-ref outputs "out"))
1197                     (dbus-dir (string-append out "/share/dbus-1/services")))
1198              (setenv "SHELL" (which "sh"))
1199              (setenv "CONFIG_SHELL" (which "sh"))
1200              (substitute* "configure"
1201                (("dbus-1") ""))))))))
1202     (native-inputs
1203      `(("automake" ,automake)
1204        ("autoconf" ,autoconf-wrapper)
1205        ("gettext" ,gettext-minimal)
1206        ("intltool" ,intltool)
1207        ("mate-common" ,mate-common)
1208        ("pkg-config" ,pkg-config)
1209        ("which" ,which)
1210        ("xorgproto" ,xorgproto)))
1211     (inputs
1212      `(("cairo" ,cairo)
1213        ("dconf" ,dconf)
1214        ("dbus" ,dbus)
1215        ("dbus-glib" ,dbus-glib)
1216        ("glib" ,glib)
1217        ("gtk+" ,gtk+)
1218        ("gdk-pixbuf" ,gdk-pixbuf+svg)
1219        ("libcanberra" ,libcanberra)
1220        ("libglade" ,libglade)
1221        ("libmatekbd" ,libmatekbd)
1222        ("libnotify" ,libnotify)
1223        ("libx11" ,libx11)
1224        ("libxext" ,libxext)
1225        ("libxklavier" ,libxklavier)
1226        ("libxrandr" ,libxrandr)
1227        ("libxrender" ,libxrender)
1228        ("libxscrnsaver" ,libxscrnsaver)
1229        ("libxxf86vm" ,libxxf86vm)
1230        ("linux-pam" ,linux-pam)
1231        ("mate-desktop" ,mate-desktop)
1232        ("mate-menus" ,mate-menus)
1233        ("pango" ,pango)
1234        ("startup-notification" ,startup-notification)))
1235     (home-page "https://mate-desktop.org/")
1236     (synopsis "Screensaver for MATE")
1237     (description
1238      "MATE backgrounds package contains a collection of graphics files which
1239 can be used as backgrounds in the MATE Desktop environment.")
1240     (license license:gpl2+)))
1241
1242 (define-public mate-utils
1243   (package
1244     (name "mate-utils")
1245     (version "1.24.0")
1246     (source
1247      (origin
1248        (method url-fetch)
1249        (uri (string-append "mirror://mate/" (version-major+minor version) "/"
1250                            name "-" version ".tar.xz"))
1251        (sha256
1252         (base32
1253          "1b16n1628gcsym5mph6lr9x5xm4rgkxsa8xwr2wlx8g2gw2775i1"))))
1254     (build-system glib-or-gtk-build-system)
1255     (native-inputs
1256      `(("gettext" ,gettext-minimal)
1257        ("gtk-doc" ,gtk-doc)
1258        ("intltool" ,intltool)
1259        ("libice" ,libice)
1260        ("libsm" ,libsm)
1261        ("pkg-config" ,pkg-config)
1262        ("scrollkeeper" ,scrollkeeper)
1263        ("xorgproto" ,xorgproto)
1264        ("yelp-tools" ,yelp-tools)))
1265     (inputs
1266      `(("atk" ,atk)
1267        ("cairo" ,cairo)
1268        ("glib" ,glib)
1269        ("gtk+" ,gtk+)
1270        ("gdk-pixbuf" ,gdk-pixbuf+svg)
1271        ("libcanberra" ,libcanberra)
1272        ("libgtop" ,libgtop)
1273        ("libx11" ,libx11)
1274        ("libxext" ,libxext)
1275        ("mate-panel" ,mate-panel)
1276        ("pango" ,pango)
1277        ("udisks" ,udisks)
1278        ("zlib" ,zlib)))
1279     (home-page "https://mate-desktop.org/")
1280     (synopsis "Utilities for the MATE Desktop")
1281     (description
1282      "Mate Utilities for the MATE Desktop containing:
1283
1284 @enumerate
1285 @item mate-system-log
1286 @item mate-search-tool
1287 @item mate-dictionary
1288 @item mate-screenshot
1289 @item mate-disk-usage-analyzer
1290 @end enumerate\n")
1291     (license (list license:gpl2
1292                    license:fdl1.1+
1293                    license:lgpl2.1))))
1294
1295 (define-public eom
1296   (package
1297     (name "eom")
1298     (version "1.24.1")
1299     (source
1300      (origin
1301        (method url-fetch)
1302        (uri (string-append "mirror://mate/" (version-major+minor version) "/"
1303                            "eom-" version ".tar.xz"))
1304        (sha256
1305         (base32 "0dralsc0dvs0l38cysdhx6kiaiqlb8qi6g9xz2cm6mjqyq3d3f9f"))))
1306     (build-system glib-or-gtk-build-system)
1307     (native-inputs
1308      `(("gettext" ,gettext-minimal)
1309        ("gtk-doc" ,gtk-doc)
1310        ("gobject-introspection" ,gobject-introspection)
1311        ("intltool" ,intltool)
1312        ("pkg-config" ,pkg-config)
1313        ("yelp-tools" ,yelp-tools)))
1314     (inputs
1315      `(("atk" ,atk)
1316        ("cairo" ,cairo)
1317        ("dconf" ,dconf)
1318        ("dbus" ,dbus)
1319        ("dbus-glib" ,dbus-glib)
1320        ("exempi" ,exempi)
1321        ("glib" ,glib)
1322        ("gtk+" ,gtk+)
1323        ("gdk-pixbuf" ,gdk-pixbuf+svg)
1324        ("libcanberra" ,libcanberra)
1325        ("libx11" ,libx11)
1326        ("libxext" ,libxext)
1327        ("libpeas" ,libpeas)
1328        ("libxml2" ,libxml2)
1329        ("libexif" ,libexif)
1330        ("libjpeg" ,libjpeg-turbo)
1331        ("librsvg" ,librsvg)
1332        ("lcms" ,lcms)
1333        ("mate-desktop" ,mate-desktop)
1334        ("pango" ,pango)
1335        ("shared-mime-info" ,shared-mime-info)
1336        ("startup-notification" ,startup-notification)
1337        ("zlib" ,zlib)))
1338     (home-page "https://mate-desktop.org/")
1339     (synopsis "Eye of MATE")
1340     (description
1341      "Eye of MATE is the Image viewer for the MATE Desktop.")
1342     (license (list license:gpl2))))
1343
1344 (define-public engrampa
1345   (package
1346     (name "engrampa")
1347     (version "1.24.1")
1348     (source
1349      (origin
1350        (method url-fetch)
1351        (uri (string-append "mirror://mate/" (version-major+minor version) "/"
1352                            "engrampa-" version ".tar.xz"))
1353        (sha256
1354         (base32 "0akjnz85qkpiqgj1ccn41rzbfid4l3r3nsm4s9s779ilzd7f097y"))))
1355     (build-system glib-or-gtk-build-system)
1356     (arguments
1357      `(#:configure-flags (list "--disable-schemas-compile"
1358                                "--disable-run-in-place"
1359                                "--enable-magic"
1360                                "--enable-packagekit"
1361                                (string-append "--with-cajadir="
1362                                               (assoc-ref %outputs "out")
1363                                               "/lib/caja/extensions-2.0/"))
1364        #:phases
1365        (modify-phases %standard-phases
1366          (add-before 'install 'skip-gtk-update-icon-cache
1367            ;; Don't create 'icon-theme.cache'.
1368            (lambda _
1369              (substitute* "data/Makefile"
1370                (("gtk-update-icon-cache") "true"))
1371              #t)))))
1372     (native-inputs
1373      `(("gettext" ,gettext-minimal)
1374        ("gtk-doc" ,gtk-doc)
1375        ("intltool" ,intltool)
1376        ("pkg-config" ,pkg-config)
1377        ("yelp-tools" ,yelp-tools)))
1378     (inputs
1379      `(("caja" ,caja)
1380        ("file" ,file)
1381        ("glib" ,glib)
1382        ("gtk+" ,gtk+)
1383        ("gdk-pixbuf" ,gdk-pixbuf+svg)
1384        ("json-glib" ,json-glib)
1385        ("libcanberra" ,libcanberra)
1386        ("libx11" ,libx11)
1387        ("libsm" ,libsm)
1388        ("packagekit" ,packagekit)
1389        ("pango" ,pango)))
1390     (home-page "https://mate-desktop.org/")
1391     (synopsis "Archive Manager for MATE")
1392     (description
1393      "Engrampa is the archive manager for the MATE Desktop.")
1394     (license license:gpl2)))
1395
1396 (define-public pluma
1397   (package
1398     (name "pluma")
1399     (version "1.24.1")
1400     (source
1401      (origin
1402        (method url-fetch)
1403        (uri (string-append "mirror://mate/" (version-major+minor version) "/"
1404                            name "-" version ".tar.xz"))
1405        (sha256
1406         (base32 "1sgc5f480icr2ans6gd3akvcax58mr4jp3zjk3xn7bx1mw9i299f"))))
1407     (build-system glib-or-gtk-build-system)
1408     (arguments
1409      `(; Tests can not succeed.
1410        ;; https://github.com/mate-desktop/mate-text-editor/issues/33
1411        #:tests? #f))
1412     (native-inputs
1413      `(("gettext" ,gettext-minimal)
1414        ("gtk-doc" ,gtk-doc)
1415        ("gobject-introspection" ,gobject-introspection)
1416        ("intltool" ,intltool)
1417        ("libtool" ,libtool)
1418        ("pkg-config" ,pkg-config)
1419        ("yelp-tools" ,yelp-tools)))
1420     (inputs
1421      `(("atk" ,atk)
1422        ("cairo" ,cairo)
1423        ("enchant" ,enchant-1.6)
1424        ("glib" ,glib)
1425        ("gtk+" ,gtk+)
1426        ("gtksourceview" ,gtksourceview-3)
1427        ("gdk-pixbuf" ,gdk-pixbuf)
1428        ("iso-codes" ,iso-codes)
1429        ("libcanberra" ,libcanberra)
1430        ("libx11" ,libx11)
1431        ("libsm" ,libsm)
1432        ("libpeas" ,libpeas)
1433        ("libxml2" ,libxml2)
1434        ("libice" ,libice)
1435        ("packagekit" ,packagekit)
1436        ("pango" ,pango)
1437        ("python" ,python)
1438        ("scrollkeeper" ,scrollkeeper)))
1439     (home-page "https://mate-desktop.org/")
1440     (synopsis "Text Editor for MATE")
1441     (description
1442      "Pluma is the text editor for the MATE Desktop.")
1443     (license license:gpl2)))
1444
1445 (define-public mate-system-monitor
1446   (package
1447     (name "mate-system-monitor")
1448     (version "1.24.1")
1449     (source
1450      (origin
1451        (method url-fetch)
1452        (uri (string-append "mirror://mate/" (version-major+minor version) "/"
1453                            "mate-system-monitor-" version ".tar.xz"))
1454        (sha256
1455         (base32 "1i2r4lw6xsk972yp15g5hm8p8xx9pp6jmcvvzbdq80xyx3x898qz"))))
1456     (build-system glib-or-gtk-build-system)
1457     (native-inputs
1458      `(("autoconf" ,autoconf)
1459        ("gettext" ,gettext-minimal)
1460        ("intltool" ,intltool)
1461        ("pkg-config" ,pkg-config)
1462        ("yelp-tools" ,yelp-tools)))
1463     (inputs
1464      `(("cairo" ,cairo)
1465        ("glib" ,glib)
1466        ("glibmm" ,glibmm)
1467        ("gtkmm" ,gtkmm)
1468        ("gtk+" ,gtk+)
1469        ("gdk-pixbuf" ,gdk-pixbuf)
1470        ("libsigc++" ,libsigc++)
1471        ("libcanberra" ,libcanberra)
1472        ("libxml2" ,libxml2)
1473        ("libwnck" ,libwnck)
1474        ("libgtop" ,libgtop)
1475        ("librsvg" ,librsvg)
1476        ("polkit" ,polkit)))
1477     (home-page "https://mate-desktop.org/")
1478     (synopsis "System Monitor for MATE")
1479     (description
1480      "Mate System Monitor provides a tool for for the
1481 MATE Desktop to monitor your system resources and usage.")
1482     (license license:gpl2)))
1483
1484 (define-public mate-polkit
1485   (package
1486     (name "mate-polkit")
1487     (version "1.24.0")
1488     (source
1489      (origin
1490        (method url-fetch)
1491        (uri (string-append "mirror://mate/" (version-major+minor version) "/"
1492                            name "-" version ".tar.xz"))
1493        (sha256
1494         (base32
1495          "1450bqzlnvwy3xa98lj102j2cf7piqbxcd1cy2zp41rdl8ri3gvn"))))
1496     (build-system glib-or-gtk-build-system)
1497     (native-inputs
1498      `(("gettext" ,gettext-minimal)
1499        ("gtk-doc" ,gtk-doc)
1500        ("intltool" ,intltool)
1501        ("libtool" ,libtool)
1502        ("pkg-config" ,pkg-config)))
1503     (inputs
1504      `(("accountsservice" ,accountsservice)
1505        ("glib" ,glib)
1506        ("gobject-introspection" ,gobject-introspection)
1507        ("gtk+" ,gtk+)
1508        ("gdk-pixbuf" ,gdk-pixbuf)
1509        ("polkit" ,polkit)))
1510     (home-page "https://mate-desktop.org/")
1511     (synopsis "DBus specific service for MATE")
1512     (description
1513      "MATE Polkit is a MATE specific DBUS service that is
1514 used to bring up authentication dialogs.")
1515     (license license:lgpl2.1)))
1516
1517 (define-public mate
1518   (package
1519     (name "mate")
1520     (version (package-version mate-desktop))
1521     (source #f)
1522     (build-system trivial-build-system)
1523     (arguments
1524      `(#:modules ((guix build union))
1525        #:builder
1526        (begin
1527          (use-modules (ice-9 match)
1528                       (guix build union))
1529          (match %build-inputs
1530            (((names . directories) ...)
1531             (union-build (assoc-ref %outputs "out")
1532                          directories)
1533             #t)))))
1534     (native-inputs `(("desktop-file-utils" ,desktop-file-utils)))
1535     (inputs
1536      ;; TODO: Add more packages
1537      `(("at-spi2-core"              ,at-spi2-core)
1538        ("atril"                     ,atril)
1539        ("caja"                      ,caja)
1540        ("dbus"                      ,dbus)
1541        ("dconf"                     ,dconf)
1542        ("engrampa"                  ,engrampa)
1543        ("eom"                       ,eom)
1544        ("font-cantarell"            ,font-cantarell)
1545        ("glib-networking"           ,glib-networking)
1546        ("gnome-keyring"             ,gnome-keyring)
1547        ("gvfs"                      ,gvfs)
1548        ("hicolor-icon-theme"        ,hicolor-icon-theme)
1549        ("libmatekbd"                ,libmatekbd)
1550        ("libmateweather"            ,libmateweather)
1551        ("libmatemixer"              ,libmatemixer)
1552        ("marco"                     ,marco)
1553        ("mate-session-manager"      ,mate-session-manager)
1554        ("mate-settings-daemon"      ,mate-settings-daemon)
1555        ("mate-desktop"              ,mate-desktop)
1556        ("mate-terminal"             ,mate-terminal)
1557        ("mate-themes"               ,mate-themes)
1558        ("mate-icon-theme"           ,mate-icon-theme)
1559        ("mate-power-manager"        ,mate-power-manager)
1560        ("mate-menu"                 ,mate-menus)
1561        ("mate-panel"                ,mate-panel)
1562        ("mate-control-center"       ,mate-control-center)
1563        ("mate-media"                ,mate-media)
1564        ("mate-applets"              ,mate-applets)
1565        ("mate-user-guide"           ,mate-user-guide)
1566        ("mate-calc"                 ,mate-calc)
1567        ("mate-backgrounds"          ,mate-backgrounds)
1568        ("mate-netbook"              ,mate-netbook)
1569        ("mate-utils"                ,mate-utils)
1570        ("mate-polkit"               ,mate-polkit)
1571        ("mate-system-monitor"       ,mate-system-monitor)
1572        ("mate-utils"                ,mate-utils)
1573        ("pluma"                     ,pluma)
1574        ("pinentry-gnome3"           ,pinentry-gnome3)
1575        ("pulseaudio"                ,pulseaudio)
1576        ("shared-mime-info"          ,shared-mime-info)
1577        ("yelp"                      ,yelp)
1578        ("zenity"                    ,zenity)))
1579     (synopsis "The MATE desktop environment")
1580     (home-page "https://mate-desktop.org/")
1581     (description
1582      "The MATE Desktop Environment is the continuation of GNOME 2.  It provides
1583 an intuitive and attractive desktop environment using traditional metaphors for
1584 GNU/Linux systems.  MATE is under active development to add support for new
1585 technologies while preserving a traditional desktop experience.")
1586     (license license:gpl2+)))