gnu/packages/mate.scm

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