gnu/packages/mate.scm

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