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