gnu/packages/mate.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2016 Fabian Harfert <fhmgufs@web.de>
   3 ;;; Copyright © 2016, 2017 Efraim Flashner <efraim@flashner.co.il>
   4 ;;; Copyright © 2017 ng0 <ng0@n0.is>
   5 ;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
   6 ;;; 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 nettle)
  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.22.0")
  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          "03c09h41qfz83wmjfvwzkq4xqc54aswmki4h034qcxbgfnyfmk1i"))))
 107     (build-system gnu-build-system)
 108     (native-inputs
 109      `(("pkg-config" ,pkg-config)
 110        ("intltool" ,intltool)
 111        ("yelp-tools" ,yelp-tools)
 112        ("glib" ,glib "bin") ; glib-gettextize
 113        ("libtool" ,libtool)))
 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.22.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          "090vfxpn1b1wwvkilv1j3cx4swdm4z0s7xyvhvqhdzj58zsf2000"))))
 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.19")
 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
 206                 "1ycb8b8r0s8d1h1477135mynr53s5781gdb2ap8xlvj2g58492wq"))))
 207     (build-system gnu-build-system)
 208     (native-inputs
 209      `(("pkg-config" ,pkg-config)
 210        ("intltool" ,intltool)
 211        ("gdk-pixbuf" ,gdk-pixbuf) ; gdk-pixbuf+svg isn't needed
 212        ("gtk" ,gtk+-2)))
 213     (home-page "https://mate-desktop.org/")
 214     (synopsis
 215      "Official themes for the MATE desktop")
 216     (description
 217      "This package includes the standard themes for the MATE desktop, for
 218 example Menta, TraditionalOk, GreenLaguna or BlackMate.  This package has
 219 themes for both gtk+-2 and gtk+-3.")
 220     (license (list license:lgpl2.1+ license:cc-by-sa3.0 license:gpl3+
 221                    license:gpl2+))))
 222
 223 (define-public mate-desktop
 224   (package
 225     (name "mate-desktop")
 226     (version "1.22.0")
 227     (source
 228      (origin
 229        (method url-fetch)
 230        (uri (string-append "mirror://mate/" (version-major+minor version) "/"
 231                            name "-" version ".tar.xz"))
 232        (sha256
 233         (base32
 234          "09gn840p6qds21kxab4pidjd53g76s76i7178fdibrz462mda217"))))
 235     (build-system gnu-build-system)
 236     (native-inputs
 237      `(("pkg-config" ,pkg-config)
 238        ("intltool" ,intltool)
 239        ("glib:bin" ,glib "bin")
 240        ("gobject-introspection" ,gobject-introspection)
 241        ("yelp-tools" ,yelp-tools)
 242        ("gtk-doc" ,gtk-doc)))
 243     (inputs
 244      `(("gtk+" ,gtk+)
 245        ("libxrandr" ,libxrandr)
 246        ("iso-codes" ,iso-codes)
 247        ("startup-notification" ,startup-notification)))
 248     (propagated-inputs
 249      `(("dconf" ,dconf))) ; mate-desktop-2.0.pc
 250     (home-page "https://mate-desktop.org/")
 251     (synopsis "Library with common API for various MATE modules")
 252     (description
 253      "This package contains a public API shared by several applications on the
 254 desktop and the mate-about program.")
 255     (license (list license:gpl2+ license:lgpl2.0+ license:fdl1.1+))))
 256
 257 (define-public libmateweather
 258   (package
 259     (name "libmateweather")
 260     (version "1.22.0")
 261     (source
 262      (origin
 263        (method url-fetch)
 264        (uri (string-append "mirror://mate/" (version-major+minor version) "/"
 265                            name "-" version ".tar.xz"))
 266        (sha256
 267         (base32
 268          "1ribgcwl4ncfbcf9bkcbxrgc7yzajdnxg12837psngymkqswlp6a"))))
 269     (build-system gnu-build-system)
 270     (arguments
 271      '(#:configure-flags
 272        (list (string-append "--with-zoneinfo-dir="
 273                             (assoc-ref %build-inputs "tzdata")
 274                             "/share/zoneinfo"))
 275        #:phases
 276        (modify-phases %standard-phases
 277          (add-before 'check 'fix-tzdata-location
 278           (lambda* (#:key inputs #:allow-other-keys)
 279             (substitute* "data/check-timezones.sh"
 280               (("/usr/share/zoneinfo/zone.tab")
 281                (string-append (assoc-ref inputs "tzdata")
 282                               "/share/zoneinfo/zone.tab")))
 283             #t)))))
 284     (native-inputs
 285      `(("pkg-config" ,pkg-config)
 286        ("intltool" ,intltool)
 287        ("dconf" ,dconf)
 288        ("glib:bin" ,glib "bin")))
 289     (inputs
 290      `(("gtk+" ,gtk+)
 291        ("tzdata" ,tzdata)))
 292     (propagated-inputs
 293       ;; both of these are requires.private in mateweather.pc
 294      `(("libsoup" ,libsoup)
 295        ("libxml2" ,libxml2)))
 296     (home-page "https://mate-desktop.org/")
 297     (synopsis "MATE library for weather information from the Internet")
 298     (description
 299      "This library provides access to weather information from the internet for
 300 the MATE desktop environment.")
 301     (license license:lgpl2.1+)))
 302
 303 (define-public mate-terminal
 304   (package
 305     (name "mate-terminal")
 306     (version "1.22.0")
 307     (source
 308      (origin
 309        (method url-fetch)
 310        (uri (string-append "mirror://mate/" (version-major+minor version) "/"
 311                            name "-" version ".tar.xz"))
 312        (sha256
 313         (base32
 314          "16r492s34la2fs2cj1xr0r93wkjglwy77jyrc66i2ahs9gnivj4g"))))
 315     (build-system glib-or-gtk-build-system)
 316     (native-inputs
 317      `(("pkg-config" ,pkg-config)
 318        ("intltool" ,intltool)
 319        ("itstool" ,itstool)
 320        ("gobject-introspection" ,gobject-introspection)
 321        ("libxml2" ,libxml2)
 322        ("yelp-tools" ,yelp-tools)))
 323     (inputs
 324      `(("dconf" ,dconf)
 325        ("gtk+" ,gtk+)
 326        ("libice" ,libice)
 327        ("libsm" ,libsm)
 328        ("libx11" ,libx11)
 329        ("mate-desktop" ,mate-desktop)
 330        ("pango" ,pango)
 331        ("vte" ,vte)))
 332     (home-page "https://mate-desktop.org/")
 333     (synopsis "MATE Terminal Emulator")
 334     (description
 335      "MATE Terminal is a terminal emulation application that you can
 336 use to access a shell.  With it, you can run any application that
 337 is designed to run on VT102, VT220, and xterm terminals.
 338 MATE Terminal also has the ability to use multiple terminals
 339 in a single window (tabs) and supports management of different
 340 configurations (profiles).")
 341     (license license:gpl3)))
 342
 343 (define-public mate-session-manager
 344   (package
 345     (name "mate-session-manager")
 346     (version "1.22.0")
 347     (source
 348      (origin
 349        (method url-fetch)
 350        (uri (string-append "mirror://mate/" (version-major+minor version) "/"
 351                            name "-" version ".tar.xz"))
 352        (sha256
 353         (base32
 354          "1kpfmgay01gm74paaxccs3lim4jfb4hsm7i85jfdypr51985pwyj"))))
 355     (build-system glib-or-gtk-build-system)
 356     (arguments
 357      `(#:configure-flags (list "--enable-elogind"
 358                                "--disable-schemas-compile")
 359        #:phases
 360        (modify-phases %standard-phases
 361          (add-before 'configure 'pre-configure
 362            (lambda* (#:key outputs #:allow-other-keys)
 363              ;; Use elogind instead of systemd.
 364              (substitute* "configure"
 365                (("libsystemd-login")
 366                 "libelogind")
 367                (("systemd") "elogind"))
 368              (substitute* "mate-session/gsm-systemd.c"
 369                (("#include <systemd/sd-login.h>")
 370                 "#include <elogind/sd-login.h>"))
 371              ;; Remove uses of the systemd journal.
 372              (substitute* "mate-session/main.c"
 373                (("#ifdef HAVE_SYSTEMD") "#if 0"))
 374              (substitute* "mate-session/gsm-manager.c"
 375                (("#ifdef HAVE_SYSTEMD") "#if 0"))
 376              (substitute* "mate-session/gsm-autostart-app.c"
 377                (("#ifdef HAVE_SYSTEMD") "#if 0"))
 378              #t))
 379          (add-after 'install 'update-xsession-dot-desktop
 380            (lambda* (#:key outputs #:allow-other-keys)
 381              ;; Record the absolute file name of 'mate-session' in the
 382              ;; '.desktop' file.
 383              (let* ((out (assoc-ref outputs "out"))
 384                     (xsession (string-append
 385                                out "/share/xsessions/mate.desktop")))
 386                (substitute* xsession
 387                  (("^Exec=.*$")
 388                   (string-append "Exec=" out "/bin/mate-session\n"))
 389                  (("^TryExec=.*$")
 390                   (string-append "Exec=" out "/bin/mate-session\n")))
 391                #t))))))
 392     (native-inputs
 393      `(("pkg-config" ,pkg-config)
 394        ("intltool" ,intltool)
 395        ("xtrans" ,xtrans)
 396        ("gobject-introspection" ,gobject-introspection)))
 397     (inputs
 398      `(("gtk+" ,gtk+)
 399        ("dbus-glib" ,dbus-glib)
 400        ("elogind" ,elogind)
 401        ("libsm" ,libsm)
 402        ("mate-desktop" ,mate-desktop)))
 403     (home-page "https://mate-desktop.org/")
 404     (synopsis "Session manager for MATE")
 405     (description
 406      "Mate-session contains the MATE session manager, as well as a
 407 configuration program to choose applications starting on login.")
 408     (license license:gpl2)))
 409
 410 (define-public mate-settings-daemon
 411   (package
 412     (name "mate-settings-daemon")
 413     (version "1.22.0")
 414     (source
 415      (origin
 416        (method url-fetch)
 417        (uri (string-append "mirror://mate/" (version-major+minor version) "/"
 418                            name "-" version ".tar.xz"))
 419        (sha256
 420         (base32
 421          "0yr5v6b9hdk20j29smbw1k4fkyg82i5vlflmgly0vi5whgc74gym"))))
 422     (build-system glib-or-gtk-build-system)
 423     (native-inputs
 424      `(("pkg-config" ,pkg-config)
 425        ("intltool" ,intltool)
 426        ("gobject-introspection" ,gobject-introspection)))
 427     (inputs
 428      `(("cairo" ,cairo)
 429        ("dbus" ,dbus)
 430        ("dbus-glib" ,dbus-glib)
 431        ("dconf" ,dconf)
 432        ("fontconfig" ,fontconfig)
 433        ("gtk+" ,gtk+)
 434        ("libcanberra" ,libcanberra)
 435        ("libmatekbd" ,libmatekbd)
 436        ("libmatemixer" ,libmatemixer)
 437        ("libnotify" ,libnotify)
 438        ("libx11" ,libx11)
 439        ("libxext" ,libxext)
 440        ("libxi" ,libxi)
 441        ("libxklavier" ,libxklavier)
 442        ("mate-desktop" ,mate-desktop)
 443        ("nss" ,nss)
 444        ("polkit" ,polkit)
 445        ("startup-notification" ,startup-notification)))
 446     (home-page "https://mate-desktop.org/")
 447     (synopsis "Settings Daemon for MATE")
 448     (description
 449      "Mate-settings-daemon is a fork of gnome-settings-daemon.")
 450     (license (list license:lgpl2.1 license:gpl2))))
 451
 452 (define-public libmatemixer
 453   (package
 454     (name "libmatemixer")
 455     (version "1.22.0")
 456     (source
 457      (origin
 458        (method url-fetch)
 459        (uri (string-append "mirror://mate/" (version-major+minor version) "/"
 460                            name "-" version ".tar.xz"))
 461        (sha256
 462         (base32
 463          "1v0gpr55gj4mj8hzxbhgzrmhaxvs2inxhsmirvjw39sc7iplvrh9"))))
 464     (build-system glib-or-gtk-build-system)
 465     (native-inputs
 466      `(("pkg-config" ,pkg-config)
 467        ("intltool" ,intltool)
 468        ("gobject-introspection" ,gobject-introspection)))
 469     (inputs
 470      `(("glib" ,glib)
 471        ("pulseaudio" ,pulseaudio)
 472        ("alsa-lib" ,alsa-lib)))
 473     (home-page "https://mate-desktop.org/")
 474     (synopsis "Mixer library for the MATE desktop")
 475     (description
 476      "Libmatemixer is a mixer library for MATE desktop.  It provides an abstract
 477 API allowing access to mixer functionality available in the PulseAudio and ALSA
 478 sound systems.")
 479     (license license:lgpl2.1)))
 480
 481 (define-public libmatekbd
 482   (package
 483     (name "libmatekbd")
 484     (version "1.22.0")
 485     (source
 486      (origin
 487        (method url-fetch)
 488        (uri (string-append "mirror://mate/" (version-major+minor version) "/"
 489                            name "-" version ".tar.xz"))
 490        (sha256
 491         (base32
 492          "1dsr7618c92mhwabwhgxqsfp7gnf9zrz2z790jc5g085dxhg13y8"))))
 493     (build-system glib-or-gtk-build-system)
 494     (native-inputs
 495      `(("pkg-config" ,pkg-config)
 496        ("intltool" ,intltool)
 497        ("gobject-introspection" ,gobject-introspection)))
 498     (inputs
 499      `(("cairo" ,cairo)
 500        ("gdk-pixbuf" ,gdk-pixbuf+svg)
 501        ("glib" ,glib)
 502        ("gtk+" ,gtk+)
 503        ("libx11" ,libx11)
 504        ("libxklavier" ,libxklavier)))
 505     (home-page "https://mate-desktop.org/")
 506     (synopsis "MATE keyboard configuration library")
 507     (description
 508      "Libmatekbd is a keyboard configuration library for the
 509 MATE desktop environment.")
 510     (license license:lgpl2.1)))
 511
 512 (define-public mate-menus
 513   (package
 514     (name "mate-menus")
 515     (version "1.22.0")
 516     (source
 517      (origin
 518        (method url-fetch)
 519        (uri (string-append "mirror://mate/" (version-major+minor version) "/"
 520                            name "-" version ".tar.xz"))
 521        (sha256
 522         (base32
 523          "1lkakbf2f1815c146z4xp5f0h4lim6jzr02681wbvzalc6k97v5c"))))
 524     (build-system gnu-build-system)
 525     (arguments
 526      `(#:phases
 527        (modify-phases %standard-phases
 528          (add-after
 529           'unpack 'fix-introspection-install-dir
 530           (lambda* (#:key outputs #:allow-other-keys)
 531             (let ((out (assoc-ref outputs "out")))
 532               (substitute* '("configure")
 533                 (("`\\$PKG_CONFIG --variable=girdir gobject-introspection-1.0`")
 534                  (string-append "\"" out "/share/gir-1.0/\""))
 535                 (("\\$\\(\\$PKG_CONFIG --variable=typelibdir gobject-introspection-1.0\\)")
 536                  (string-append out "/lib/girepository-1.0/")))
 537               #t))))))
 538     (native-inputs
 539      `(("pkg-config" ,pkg-config)
 540        ("intltool" ,intltool)
 541        ("gobject-introspection" ,gobject-introspection)))
 542     (inputs
 543      `(("glib" ,glib)
 544        ("python" ,python-2)))
 545     (home-page "https://mate-desktop.org/")
 546     (synopsis "Freedesktop menu specification implementation for MATE")
 547     (description
 548      "The package contains an implementation of the freedesktop menu
 549 specification, the MATE menu layout configuration files, .directory files and
 550 assorted menu related utility programs.")
 551     (license (list license:gpl2+ license:lgpl2.0+))))
 552
 553 (define-public mate-applets
 554   (package
 555     (name "mate-applets")
 556     (version "1.22.0")
 557     (source
 558      (origin
 559        (method url-fetch)
 560        (uri (string-append "mirror://mate/" (version-major+minor version) "/"
 561                            name "-" version ".tar.xz"))
 562        (sha256
 563         (base32
 564          "0f5ym6z7awi0kw6i1sdkj2qly88sl692j5r1zhklihyz1z9a6j0h"))))
 565     (build-system glib-or-gtk-build-system)
 566     (native-inputs
 567      `(("pkg-config" ,pkg-config)
 568        ("intltool" ,intltool)
 569        ("libxslt" ,libxslt)
 570        ("yelp-tools" ,yelp-tools)
 571        ("scrollkeeper" ,scrollkeeper)
 572        ("gettext" ,gettext-minimal)
 573        ("docbook-xml" ,docbook-xml)
 574        ("gobject-introspection" ,gobject-introspection)))
 575     (inputs
 576      `(("atk" ,atk)
 577        ("dbus" ,dbus)
 578        ("dbus-glib" ,dbus-glib)
 579        ("glib" ,glib)
 580        ("gucharmap" ,gucharmap)
 581        ("gtk+" ,gtk+)
 582        ("gtksourceview" ,gtksourceview-3)
 583        ("libgtop" ,libgtop)
 584        ("libmateweather" ,libmateweather)
 585        ("libnotify" ,libnotify)
 586        ("libx11" ,libx11)
 587        ("libxml2" ,libxml2)
 588        ("libwnck" ,libwnck)
 589        ("mate-panel" ,mate-panel)
 590        ("pango" ,pango)
 591        ("polkit" ,polkit) ; either polkit or setuid
 592        ("python" ,python-2)
 593        ("upower" ,upower)
 594        ("wireless-tools" ,wireless-tools)))
 595     (propagated-inputs
 596      `(("python-pygobject" ,python-pygobject)))
 597     (home-page "https://mate-desktop.org/")
 598     (synopsis "Various applets for the MATE Panel")
 599     (description
 600      "Mate-applets includes various small applications for Mate-panel:
 601
 602 @enumerate
 603 @item accessx-status: indicates keyboard accessibility settings,
 604 including the current state of the keyboard, if those features are in use.
 605 @item Battstat: monitors the power subsystem on a laptop.
 606 @item Character palette: provides a convenient way to access
 607 non-standard characters, such as accented characters,
 608 mathematical symbols, special symbols, and punctuation marks.
 609 @item MATE CPUFreq Applet: CPU frequency scaling monitor
 610 @item Drivemount: lets you mount and unmount drives and file systems.
 611 @item Geyes: pair of eyes which follow the mouse pointer around the screen.
 612 @item Keyboard layout switcher: lets you assign different keyboard
 613 layouts for different locales.
 614 @item Modem Monitor: monitors the modem.
 615 @item Invest: downloads current stock quotes from the Internet and
 616 displays the quotes in a scrolling display in the applet. The
 617 applet downloads the stock information from Yahoo! Finance.
 618 @item System monitor: CPU, memory, network, swap file and resource.
 619 @item Trash: lets you drag items to the trash folder.
 620 @item Weather report: downloads weather information from the
 621 U.S National Weather Service (NWS) servers, including the
 622 Interactive Weather Information Network (IWIN).
 623 @end enumerate\n")
 624     (license (list license:gpl2+ license:lgpl2.0+ license:gpl3+))))
 625
 626 (define-public mate-media
 627   (package
 628     (name "mate-media")
 629     (version "1.22.0")
 630     (source
 631      (origin
 632        (method url-fetch)
 633        (uri (string-append "mirror://mate/" (version-major+minor version) "/"
 634                            name "-" version ".tar.xz"))
 635        (sha256
 636         (base32
 637          "0jrxbz00vjas0yp3ixvyzfsdby2ac3p3bds9yd7q1437mmhf71mj"))))
 638     (build-system glib-or-gtk-build-system)
 639     (native-inputs
 640      `(("pkg-config" ,pkg-config)
 641        ("intltool" ,intltool)
 642        ("gettext" ,gettext-minimal)
 643        ("gobject-introspection" ,gobject-introspection)))
 644     (inputs
 645      `(("cairo" ,cairo)
 646        ("gtk+" ,gtk+)
 647        ("libcanberra" ,libcanberra)
 648        ("libmatemixer" ,libmatemixer)
 649        ("libxml2" ,libxml2)
 650        ("mate-applets" ,mate-applets)
 651        ("mate-desktop" ,mate-desktop)
 652        ("mate-panel" ,mate-panel)
 653        ("pango" ,pango)
 654        ("startup-notification" ,startup-notification)))
 655     (home-page "https://mate-desktop.org/")
 656     (synopsis "Multimedia related programs for the MATE desktop")
 657     (description
 658      "Mate-media includes the MATE media tools for MATE, including
 659 mate-volume-control, a MATE volume control application and applet.")
 660     (license (list license:gpl2+ license:lgpl2.0+ license:fdl1.1+))))
 661
 662 (define-public mate-panel
 663   (package
 664     (name "mate-panel")
 665     (version "1.22.0")
 666     (source
 667      (origin
 668        (method url-fetch)
 669        (uri (string-append "mirror://mate/" (version-major+minor version) "/"
 670                            name "-" version ".tar.xz"))
 671        (sha256
 672         (base32
 673          "17l4ryy71bkszr6shm9dm31zcsd7m0digi1mmvdlib5hqzvc7li7"))))
 674     (build-system glib-or-gtk-build-system)
 675     (arguments
 676      `(#:configure-flags
 677        (list (string-append "--with-zoneinfo-dir="
 678                             (assoc-ref %build-inputs "tzdata")
 679                             "/share/zoneinfo")
 680              "--with-in-process-applets=all")
 681        #:phases
 682        (modify-phases %standard-phases
 683          (add-before 'configure 'fix-timezone-path
 684            (lambda* (#:key inputs #:allow-other-keys)
 685              (let* ((tzdata (assoc-ref inputs "tzdata")))
 686                (substitute* "applets/clock/system-timezone.h"
 687                  (("/usr/share/lib/zoneinfo/tab")
 688                   (string-append tzdata "/share/zoneinfo/zone.tab"))
 689                  (("/usr/share/zoneinfo")
 690                   (string-append tzdata "/share/zoneinfo"))))
 691              #t))
 692          (add-after 'unpack 'fix-introspection-install-dir
 693            (lambda* (#:key outputs #:allow-other-keys)
 694              (let ((out (assoc-ref outputs "out")))
 695                (substitute* '("configure")
 696                  (("`\\$PKG_CONFIG --variable=girdir gobject-introspection-1.0`")
 697                   (string-append "\"" out "/share/gir-1.0/\""))
 698                  (("\\$\\(\\$PKG_CONFIG --variable=typelibdir gobject-introspection-1.0\\)")
 699                   (string-append out "/lib/girepository-1.0/")))
 700                #t))))))
 701     (native-inputs
 702      `(("pkg-config" ,pkg-config)
 703        ("intltool" ,intltool)
 704        ("itstool" ,itstool)
 705        ("xtrans" ,xtrans)
 706        ("gobject-introspection" ,gobject-introspection)))
 707     (inputs
 708      `(("dconf" ,dconf)
 709        ("cairo" ,cairo)
 710        ("dbus-glib" ,dbus-glib)
 711        ("gtk+" ,gtk+)
 712        ("libcanberra" ,libcanberra)
 713        ("libice" ,libice)
 714        ("libmateweather" ,libmateweather)
 715        ("librsvg" ,librsvg)
 716        ("libsm" ,libsm)
 717        ("libx11" ,libx11)
 718        ("libxau" ,libxau)
 719        ("libxml2" ,libxml2)
 720        ("libxrandr" ,libxrandr)
 721        ("libwnck" ,libwnck)
 722        ("mate-desktop" ,mate-desktop)
 723        ("mate-menus" ,mate-menus)
 724        ("pango" ,pango)
 725        ("tzdata" ,tzdata)))
 726     (home-page "https://mate-desktop.org/")
 727     (synopsis "Panel for MATE")
 728     (description
 729      "Mate-panel contains the MATE panel, the libmate-panel-applet library and
 730 several applets.  The applets supplied here include the Workspace Switcher,
 731 the Window List, the Window Selector, the Notification Area, the Clock and the
 732 infamous 'Wanda the Fish'.")
 733     (license (list license:gpl2+ license:lgpl2.0+))))
 734
 735 (define-public atril
 736   (package
 737     (name "atril")
 738     (version "1.22.0")
 739     (source
 740      (origin
 741        (method url-fetch)
 742        (uri (string-append "mirror://mate/" (version-major+minor version) "/"
 743                            name "-" version ".tar.xz"))
 744        (sha256
 745         (base32
 746          "1xd49j4qwrlg2nh2zvspf91yk033dp8a58dy9azqg2yz4bcvywxb"))))
 747     (build-system glib-or-gtk-build-system)
 748     (arguments
 749      `(#:configure-flags (list (string-append "--with-openjpeg="
 750                                               (assoc-ref %build-inputs "openjpeg"))
 751                                "--enable-introspection"
 752                                "--disable-schemas-compile"
 753                                ;; FIXME: Enable build of Caja extensions.
 754                                "--disable-caja")
 755        #:tests? #f
 756        #:phases
 757        (modify-phases %standard-phases
 758          (add-after 'unpack 'fix-mathjax-path
 759            (lambda _
 760              (let* ((mathjax (assoc-ref %build-inputs "js-mathjax"))
 761                     (mathjax-path (string-append mathjax
 762                                                  "/share/javascript/mathjax")))
 763                (substitute* "backend/epub/epub-document.c"
 764                  (("/usr/share/javascript/mathjax")
 765                   mathjax-path)))
 766              #t))
 767          (add-after 'unpack 'fix-introspection-install-dir
 768            (lambda* (#:key outputs #:allow-other-keys)
 769              (let ((out (assoc-ref outputs "out")))
 770                (substitute* '("configure")
 771                  (("\\$\\(\\$PKG_CONFIG --variable=girdir gobject-introspection-1.0\\)")
 772                   (string-append "\"" out "/share/gir-1.0/\""))
 773                  (("\\$\\(\\$PKG_CONFIG --variable=typelibdir gobject-introspection-1.0\\)")
 774                   (string-append out "/lib/girepository-1.0/")))
 775                #t)))
 776          (add-before 'install 'skip-gtk-update-icon-cache
 777            ;; Don't create 'icon-theme.cache'.
 778            (lambda _
 779              (substitute* "data/Makefile"
 780                (("gtk-update-icon-cache") "true"))
 781              #t)))))
 782     (native-inputs
 783      `(("pkg-config" ,pkg-config)
 784        ("intltool" ,intltool)
 785        ("itstool" ,itstool)
 786        ("yelp-tools" ,yelp-tools)
 787        ("glib:bin" ,glib "bin")
 788        ("gobject-introspection" ,gobject-introspection)
 789        ("gtk-doc" ,gtk-doc)
 790        ("xmllint" ,libxml2)
 791        ("zlib" ,zlib)))
 792     (inputs
 793      `(("atk" ,atk)
 794        ("cairo" ,cairo)
 795        ("caja" ,caja)
 796        ("dconf" ,dconf)
 797        ("dbus" ,dbus)
 798        ("dbus-glib" ,dbus-glib)
 799        ("djvulibre" ,djvulibre)
 800        ("fontconfig" ,fontconfig)
 801        ("freetype" ,freetype)
 802        ("ghostscript" ,ghostscript)
 803        ("glib" ,glib)
 804        ("gtk+" ,gtk+)
 805        ("js-mathjax" ,js-mathjax)
 806        ("libcanberra" ,libcanberra)
 807        ("libsecret" ,libsecret)
 808        ("libspectre" ,libspectre)
 809        ("libtiff" ,libtiff)
 810        ("libx11" ,libx11)
 811        ("libice" ,libice)
 812        ("libsm" ,libsm)
 813        ("libgxps" ,libgxps)
 814        ("libjpeg" ,libjpeg)
 815        ("libxml2" ,libxml2)
 816        ("dogtail" ,python2-dogtail)
 817        ("shared-mime-info" ,shared-mime-info)
 818        ("gdk-pixbuf" ,gdk-pixbuf)
 819        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
 820        ("libgnome-keyring" ,libgnome-keyring)
 821        ("libarchive" ,libarchive)
 822        ("marco" ,marco)
 823        ("nettle" ,nettle)
 824        ("openjpeg" ,openjpeg-1)
 825        ("pango" ,pango)
 826        ;;("texlive" ,texlive)
 827        ;; TODO:
 828        ;;   Build libkpathsea as a shared library for DVI support.
 829        ;; ("libkpathsea" ,texlive-bin)
 830        ("poppler" ,poppler)
 831        ("webkitgtk" ,webkitgtk)))
 832     (home-page "https://mate-desktop.org")
 833     (synopsis "Document viewer for Mate")
 834     (description
 835      "Document viewer for Mate")
 836     (license license:gpl2)))
 837
 838 (define-public caja
 839   (package
 840     (name "caja")
 841     (version "1.22.0")
 842     (source
 843      (origin
 844        (method url-fetch)
 845        (uri (string-append "mirror://mate/" (version-major+minor version) "/"
 846                            name "-" version ".tar.xz"))
 847        (sha256
 848         (base32
 849          "14x9n9q7vip5zp4mdgccj1p1dm4xn429g0bjw2v8iz7zmjb7vcgl"))))
 850     (build-system glib-or-gtk-build-system)
 851     (arguments
 852      `(#:configure-flags '("--disable-update-mimedb")
 853        #:tests? #f ; tests fail even with display set
 854        #:phases
 855        (modify-phases %standard-phases
 856          (add-before 'check 'pre-check
 857            (lambda _
 858              ;; Tests require a running X server.
 859              (system "Xvfb :1 &")
 860              (setenv "DISPLAY" ":1")
 861              ;; For the missing /etc/machine-id.
 862              (setenv "DBUS_FATAL_WARNINGS" "0")
 863              #t)))))
 864     (native-inputs
 865      `(("pkg-config" ,pkg-config)
 866        ("intltool" ,intltool)
 867        ("glib:bin" ,glib "bin")
 868        ("xorg-server" ,xorg-server)
 869        ("gobject-introspection" ,gobject-introspection)))
 870     (inputs
 871      `(("exempi" ,exempi)
 872        ("gtk+" ,gtk+)
 873        ("gvfs" ,gvfs)
 874        ("libexif" ,libexif)
 875        ("libnotify" ,libnotify)
 876        ("libsm" ,libsm)
 877        ("libxml2" ,libxml2)
 878        ("mate-desktop" ,mate-desktop)
 879        ("startup-notification" ,startup-notification)))
 880     (native-search-paths
 881      (list (search-path-specification
 882             (variable "CAJA_EXTENSIONDIR")
 883             (files (list "lib/caja/extensions-2.0/**")))))
 884     (home-page "https://mate-desktop.org/")
 885     (synopsis "File manager for the MATE desktop")
 886     (description
 887      "Caja is the official file manager for the MATE desktop.
 888 It allows for browsing directories, as well as previewing files and launching
 889 applications associated with them.  Caja is also responsible for handling the
 890 icons on the MATE desktop.  It works on local and remote file systems.")
 891     ;; There is a note about a TRADEMARKS_NOTICE file in COPYING which
 892     ;; does not exist. It is safe to assume that this is of no concern
 893     ;; for us.
 894     (license license:gpl2+)))
 895
 896 (define-public caja-extensions
 897   (package
 898     (name "caja-extensions")
 899     (version "1.22.0")
 900     (source
 901      (origin
 902        (method url-fetch)
 903        (uri (string-append "mirror://mate/" (version-major+minor version) "/"
 904                            name "-" version ".tar.xz"))
 905        (sha256
 906         (base32
 907          "1h866jmdd3qpjzi7wjj11krwiaadnlf21844g1zqfb4jgrzj773p"))))
 908     (build-system glib-or-gtk-build-system)
 909     (arguments
 910      `(#:configure-flags (list "--enable-sendto"
 911                                ;; TODO: package "gupnp" to enable 'upnp', package
 912                                ;; "gksu" to enable 'gksu'.
 913                                (string-append "--with-sendto-plugins=removable-devices,"
 914                                               "caja-burn,emailclient,pidgin,gajim")
 915                                "--enable-image-converter"
 916                                "--enable-open-terminal" "--enable-share"
 917                                "--enable-wallpaper" "--enable-xattr-tags"
 918                                (string-append "--with-cajadir="
 919                                               (assoc-ref %outputs "out")
 920                                               "/lib/caja/extensions-2.0/"))))
 921     (native-inputs
 922      `(("intltool" ,intltool)
 923        ("gettext" ,gettext-minimal)
 924        ("glib:bin" ,glib "bin")
 925        ("gobject-introspection" ,gobject-introspection)
 926        ("gtk-doc" ,gtk-doc)
 927        ("pkg-config" ,pkg-config)))
 928     (inputs
 929      `(("attr" ,attr)
 930        ("brasero" ,brasero)
 931        ("caja" ,caja)
 932        ("dbus" ,dbus)
 933        ("dbus-glib" ,dbus-glib)
 934        ("gajim" ,gajim) ;runtime only?
 935        ("gtk+" ,gtk+)
 936        ("imagemagick" ,imagemagick)
 937        ("graphicsmagick" ,graphicsmagick)
 938        ("mate-desktop" ,mate-desktop)
 939        ("pidgin" ,pidgin) ;runtime only?
 940        ("startup-notification" ,startup-notification)))
 941     (home-page "https://mate-desktop.org/")
 942     (synopsis "Extensions for the File manager Caja")
 943     (description
 944      "Caja is the official file manager for the MATE desktop.
 945 It allows for browsing directories, as well as previewing files and launching
 946 applications associated with them.  Caja is also responsible for handling the
 947 icons on the MATE desktop.  It works on local and remote file systems.")
 948     (license license:gpl2+)))
 949
 950 (define-public mate-control-center
 951   (package
 952     (name "mate-control-center")
 953     (version "1.22.0")
 954     (source
 955      (origin
 956        (method url-fetch)
 957        (uri (string-append "mirror://mate/" (version-major+minor version) "/"
 958                            name "-" version ".tar.xz"))
 959        (sha256
 960         (base32
 961          "06wpfsxsiv7w3dl7p395r5vcxqbjlllydqbnvbr6yn0lrac15i71"))))
 962     (build-system glib-or-gtk-build-system)
 963     (native-inputs
 964      `(("pkg-config" ,pkg-config)
 965        ("intltool" ,intltool)
 966        ("yelp-tools" ,yelp-tools)
 967        ("desktop-file-utils" ,desktop-file-utils)
 968        ("xorgproto" ,xorgproto)
 969        ("xmodmap" ,xmodmap)
 970        ("gobject-introspection" ,gobject-introspection)))
 971     (inputs
 972      `(("atk" ,atk)
 973        ("cairo" ,cairo)
 974        ("caja" ,caja)
 975        ("dconf" ,dconf)
 976        ("dbus" ,dbus)
 977        ("dbus-glib" ,dbus-glib)
 978        ("fontconfig" ,fontconfig)
 979        ("freetype" ,freetype)
 980        ("glib" ,glib)
 981        ("gtk+" ,gtk+)
 982        ("libcanberra" ,libcanberra)
 983        ("libmatekbd" ,libmatekbd)
 984        ("libx11" ,libx11)
 985        ("libxcursor" ,libxcursor)
 986        ("libxext" ,libxext)
 987        ("libxi" ,libxi)
 988        ("libxklavier" ,libxklavier)
 989        ("libxml2" ,libxml2)
 990        ("libxrandr" ,libxrandr)
 991        ("libxrender" ,libxrender)
 992        ("libxscrnsaver" ,libxscrnsaver)
 993        ("marco" ,marco)
 994        ("mate-desktop" ,mate-desktop)
 995        ("mate-menus" ,mate-menus)
 996        ("mate-settings-daemon" ,mate-settings-daemon)
 997        ("pango" ,pango)
 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.22.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          "1i1pi1z9mrb6564mxcwb93jqpdppfv58c2viwmicsixis62hv5wx"))))
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.22.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          "0ckn7h7l0qdgdx440dwx1h8i601s22sxlf5a7179hfirk9016j0z"))))
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.22.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          "1njk6v7z3969ikvcrabr1lw5f5572vb14w064zm3mydj8cc5inlr"))))
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.22.0")
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          "1j9ch04qi2q4mdcvb92w667ra9hpfdf2bfpi1dpw0nbph7r6qvj9"))))
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.22.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          "17p1wv9bcr3kvlahnxmxj786vka86nysi90x5xci6ilwyjlaxh0l"))))
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.22.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          "17fxyccsc410wbyxmds1sm7gjqbj6z46x5cjk1791hfzf0sh82sy"))))
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.22.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          "0kz95hicjksgkwaj83fdp2rnaygfgjbj0jsnwy4n0lj5q90j7r28"))))
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)))
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        ("zlib" ,zlib)))
1299     (home-page "https://mate-desktop.org/")
1300     (synopsis "Utilities for the MATE Desktop")
1301     (description
1302      "Mate Utilities for the MATE Desktop containing:
1303
1304 @enumerate
1305 @item mate-system-log
1306 @item mate-search-tool
1307 @item mate-dictionary
1308 @item mate-screenshot
1309 @item mate-disk-usage-analyzer
1310 @end enumerate\n")
1311     (license (list license:gpl2
1312                    license:fdl1.1+
1313                    license:lgpl2.1))))
1314
1315 (define-public eom
1316   (package
1317     (name "eom")
1318     (version "1.22.0")
1319     (source
1320      (origin
1321        (method url-fetch)
1322        (uri (string-append "mirror://mate/" (version-major+minor version) "/"
1323                            name "-" version ".tar.xz"))
1324        (sha256
1325         (base32
1326          "093vbip848bp9y603yasbrg1bcp68m64hma7zhi5m37x2r103r6l"))))
1327     (build-system glib-or-gtk-build-system)
1328     (native-inputs
1329      `(("gettext" ,gettext-minimal)
1330        ("gtk-doc" ,gtk-doc)
1331        ("gobject-introspection" ,gobject-introspection)
1332        ("intltool" ,intltool)
1333        ("pkg-config" ,pkg-config)
1334        ("yelp-tools" ,yelp-tools)))
1335     (inputs
1336      `(("atk" ,atk)
1337        ("cairo" ,cairo)
1338        ("dconf" ,dconf)
1339        ("dbus" ,dbus)
1340        ("dbus-glib" ,dbus-glib)
1341        ("exempi" ,exempi)
1342        ("glib" ,glib)
1343        ("gtk+" ,gtk+)
1344        ("gdk-pixbuf" ,gdk-pixbuf+svg)
1345        ("libcanberra" ,libcanberra)
1346        ("libx11" ,libx11)
1347        ("libxext" ,libxext)
1348        ("libpeas" ,libpeas)
1349        ("libxml2" ,libxml2)
1350        ("libexif" ,libexif)
1351        ("libjpeg" ,libjpeg)
1352        ("librsvg" ,librsvg)
1353        ("lcms" ,lcms)
1354        ("mate-desktop" ,mate-desktop)
1355        ("pango" ,pango)
1356        ("shared-mime-info" ,shared-mime-info)
1357        ("startup-notification" ,startup-notification)
1358        ("zlib" ,zlib)))
1359     (home-page "https://mate-desktop.org/")
1360     (synopsis "Eye of MATE")
1361     (description
1362      "Eye of MATE is the Image viewer for the MATE Desktop.")
1363     (license (list license:gpl2))))
1364
1365 (define-public engrampa
1366   (package
1367     (name "engrampa")
1368     (version "1.22.0")
1369     (source
1370      (origin
1371        (method url-fetch)
1372        (uri (string-append "mirror://mate/" (version-major+minor version) "/"
1373                            name "-" version ".tar.xz"))
1374        (sha256
1375         (base32
1376          "16yjplfl2sqa7n6404hjn0vwkh0xkdch73q7n5czynihmh3azc7p"))))
1377     (build-system glib-or-gtk-build-system)
1378     (arguments
1379      `(#:configure-flags (list "--disable-schemas-compile"
1380                                "--disable-run-in-place"
1381                                "--enable-magic"
1382                                "--enable-packagekit"
1383                                (string-append "--with-cajadir="
1384                                               (assoc-ref %outputs "out")
1385                                               "/lib/caja/extensions-2.0/"))
1386        #:phases
1387        (modify-phases %standard-phases
1388          (add-before 'install 'skip-gtk-update-icon-cache
1389            ;; Don't create 'icon-theme.cache'.
1390            (lambda _
1391              (substitute* "data/Makefile"
1392                (("gtk-update-icon-cache") "true"))
1393              #t)))))
1394     (native-inputs
1395      `(("gettext" ,gettext-minimal)
1396        ("gtk-doc" ,gtk-doc)
1397        ("intltool" ,intltool)
1398        ("pkg-config" ,pkg-config)
1399        ("yelp-tools" ,yelp-tools)))
1400     (inputs
1401      `(("caja" ,caja)
1402        ("file" ,file)
1403        ("glib" ,glib)
1404        ("gtk+" ,gtk+)
1405        ("gdk-pixbuf" ,gdk-pixbuf+svg)
1406        ("json-glib" ,json-glib)
1407        ("libcanberra" ,libcanberra)
1408        ("libx11" ,libx11)
1409        ("libsm" ,libsm)
1410        ("packagekit" ,packagekit)
1411        ("pango" ,pango)))
1412     (home-page "https://mate-desktop.org/")
1413     (synopsis "Archive Manager for MATE")
1414     (description
1415      "Engrampa is the archive manager for the MATE Desktop.")
1416     (license license:gpl2)))
1417
1418 (define-public pluma
1419   (package
1420     (name "pluma")
1421     (version "1.22.0")
1422     (source
1423      (origin
1424        (method url-fetch)
1425        (uri (string-append "mirror://mate/" (version-major+minor version) "/"
1426                            name "-" version ".tar.xz"))
1427        (sha256
1428         (base32
1429          "07rr5asdjr9slmaijp4m8v9vxscihvm36mfrwlp3lv12kry42a05"))))
1430     (build-system glib-or-gtk-build-system)
1431     (arguments
1432      `(; Tests can not succeed.
1433        ;; https://github.com/mate-desktop/mate-text-editor/issues/33
1434        #:tests? #f))
1435     (native-inputs
1436      `(("gettext" ,gettext-minimal)
1437        ("gtk-doc" ,gtk-doc)
1438        ("gobject-introspection" ,gobject-introspection)
1439        ("intltool" ,intltool)
1440        ("libtool" ,libtool)
1441        ("pkg-config" ,pkg-config)
1442        ("yelp-tools" ,yelp-tools)))
1443     (inputs
1444      `(("atk" ,atk)
1445        ("cairo" ,cairo)
1446        ("enchant" ,enchant-1.6)
1447        ("glib" ,glib)
1448        ("gtk+" ,gtk+)
1449        ("gtksourceview" ,gtksourceview-3)
1450        ("gdk-pixbuf" ,gdk-pixbuf)
1451        ("iso-codes" ,iso-codes)
1452        ("libcanberra" ,libcanberra)
1453        ("libx11" ,libx11)
1454        ("libsm" ,libsm)
1455        ("libpeas" ,libpeas)
1456        ("libxml2" ,libxml2)
1457        ("libice" ,libice)
1458        ("packagekit" ,packagekit)
1459        ("pango" ,pango)
1460        ("python-2" ,python-2)
1461        ("scrollkeeper" ,scrollkeeper)))
1462     (home-page "https://mate-desktop.org/")
1463     (synopsis "Text Editor for MATE")
1464     (description
1465      "Pluma is the text editor for the MATE Desktop.")
1466     (license license:gpl2)))
1467
1468 (define-public mate-system-monitor
1469   (package
1470     (name "mate-system-monitor")
1471     (version "1.22.0")
1472     (source
1473      (origin
1474        (method url-fetch)
1475        (uri (string-append "mirror://mate/" (version-major+minor version) "/"
1476                            name "-" version ".tar.xz"))
1477        (sha256
1478         (base32
1479          "0rs0n5ivmvi355fp3ymcp1jj2sz9viw31475aw7zh7s1l7dn969x"))))
1480     (build-system glib-or-gtk-build-system)
1481     (native-inputs
1482      `(("autoconf" ,autoconf)
1483        ("gettext" ,gettext-minimal)
1484        ("intltool" ,intltool)
1485        ("pkg-config" ,pkg-config)
1486        ("yelp-tools" ,yelp-tools)))
1487     (inputs
1488      `(("cairo" ,cairo)
1489        ("glib" ,glib)
1490        ("glibmm" ,glibmm)
1491        ("gtkmm" ,gtkmm)
1492        ("gtk+" ,gtk+)
1493        ("gdk-pixbuf" ,gdk-pixbuf)
1494        ("libsigc++" ,libsigc++)
1495        ("libcanberra" ,libcanberra)
1496        ("libxml2" ,libxml2)
1497        ("libwnck" ,libwnck)
1498        ("libgtop" ,libgtop)
1499        ("librsvg" ,librsvg)
1500        ("polkit" ,polkit)))
1501     (home-page "https://mate-desktop.org/")
1502     (synopsis "System Monitor for MATE")
1503     (description
1504      "Mate System Monitor provides a tool for for the
1505 MATE Desktop to monitor your system resources and usage.")
1506     (license license:gpl2)))
1507
1508 (define-public mate-polkit
1509   (package
1510     (name "mate-polkit")
1511     (version "1.22.0")
1512     (source
1513      (origin
1514        (method url-fetch)
1515        (uri (string-append "mirror://mate/" (version-major+minor version) "/"
1516                            name "-" version ".tar.xz"))
1517        (sha256
1518         (base32
1519          "02r8n71xflhvw2hsf6g4svdahzyg3r4n6xamasyzqfhyn0mqmjy0"))))
1520     (build-system glib-or-gtk-build-system)
1521     (native-inputs
1522      `(("gettext" ,gettext-minimal)
1523        ("gtk-doc" ,gtk-doc)
1524        ("intltool" ,intltool)
1525        ("libtool" ,libtool)
1526        ("pkg-config" ,pkg-config)))
1527     (inputs
1528      `(("accountsservice" ,accountsservice)
1529        ("glib" ,glib)
1530        ("gobject-introspection" ,gobject-introspection)
1531        ("gtk+" ,gtk+)
1532        ("gdk-pixbuf" ,gdk-pixbuf)
1533        ("polkit" ,polkit)))
1534     (home-page "https://mate-desktop.org/")
1535     (synopsis "DBus specific service for MATE")
1536     (description
1537      "MATE Polkit is a MATE specific DBUS service that is
1538 used to bring up authentication dialogs.")
1539     (license license:lgpl2.1)))
1540
1541 (define-public mate
1542   (package
1543     (name "mate")
1544     (version (package-version mate-desktop))
1545     (source #f)
1546     (build-system trivial-build-system)
1547     (arguments
1548      `(#:modules ((guix build union))
1549        #:builder
1550        (begin
1551          (use-modules (ice-9 match)
1552                       (guix build union))
1553          (match %build-inputs
1554            (((names . directories) ...)
1555             (union-build (assoc-ref %outputs "out")
1556                          directories)
1557             #t)))))
1558     (inputs
1559      ;; TODO: Add more packages
1560      `(("at-spi2-core"              ,at-spi2-core)
1561        ("atril"                     ,atril)
1562        ("caja"                      ,caja)
1563        ("dbus"                      ,dbus)
1564        ("dconf"                     ,dconf)
1565        ("desktop-file-utils"        ,desktop-file-utils)
1566        ("engrampa"                  ,engrampa)
1567        ("eom"                       ,eom)
1568        ("font-cantarell"            ,font-cantarell)
1569        ("glib-networking"           ,glib-networking)
1570        ("gnome-keyring"             ,gnome-keyring)
1571        ("gvfs"                      ,gvfs)
1572        ("hicolor-icon-theme"        ,hicolor-icon-theme)
1573        ("libmatekbd"                ,libmatekbd)
1574        ("libmateweather"            ,libmateweather)
1575        ("libmatemixer"              ,libmatemixer)
1576        ("marco"                     ,marco)
1577        ("mate-session-manager"      ,mate-session-manager)
1578        ("mate-settings-daemon"      ,mate-settings-daemon)
1579        ("mate-desktop"              ,mate-desktop)
1580        ("mate-terminal"             ,mate-terminal)
1581        ("mate-themes"               ,mate-themes)
1582        ("mate-icon-theme"           ,mate-icon-theme)
1583        ("mate-power-manager"        ,mate-power-manager)
1584        ("mate-menu"                 ,mate-menus)
1585        ("mate-panel"                ,mate-panel)
1586        ("mate-control-center"       ,mate-control-center)
1587        ("mate-media"                ,mate-media)
1588        ("mate-applets"              ,mate-applets)
1589        ("mate-user-guide"           ,mate-user-guide)
1590        ("mate-calc"                 ,mate-calc)
1591        ("mate-backgrounds"          ,mate-backgrounds)
1592        ("mate-netbook"              ,mate-netbook)
1593        ("mate-utils"                ,mate-utils)
1594        ("mate-polkit"               ,mate-polkit)
1595        ("mate-system-monitor"       ,mate-system-monitor)
1596        ("mate-utils"                ,mate-utils)
1597        ("pluma"                     ,pluma)
1598        ("pinentry-gnome3"           ,pinentry-gnome3)
1599        ("pulseaudio"                ,pulseaudio)
1600        ("shared-mime-info"          ,shared-mime-info)
1601        ("yelp"                      ,yelp)
1602        ("zenity"                    ,zenity)))
1603     (synopsis "The MATE desktop environment")
1604     (home-page "https://mate-desktop.org/")
1605     (description
1606      "The MATE Desktop Environment is the continuation of GNOME 2.  It provides
1607 an intuitive and attractive desktop environment using traditional metaphors for
1608 GNU/Linux systems.  MATE is under active development to add support for new
1609 technologies while preserving a traditional desktop experience.")
1610     (license license:gpl2+)))