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