gnu/packages/mate.scm

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