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