gnu/packages/mate.scm

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