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