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