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.16")
 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                 "1k8qp2arjv4vj8kyjhjgyj5h46jy0darlfh48l5h25623z1firdj"))))
 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        ("xorgproto" ,xorgproto)
 927        ("xmodmap" ,xmodmap)
 928        ("gobject-introspection" ,gobject-introspection)))
 929     (inputs
 930      `(("atk" ,atk)
 931        ("cairo" ,cairo)
 932        ("caja" ,caja)
 933        ("dconf" ,dconf)
 934        ("dbus" ,dbus)
 935        ("dbus-glib" ,dbus-glib)
 936        ("fontconfig" ,fontconfig)
 937        ("freetype" ,freetype)
 938        ("glib" ,glib)
 939        ("gtk+" ,gtk+)
 940        ("libcanberra" ,libcanberra)
 941        ("libmatekbd" ,libmatekbd)
 942        ("libx11" ,libx11)
 943        ("libxcursor" ,libxcursor)
 944        ("libxext" ,libxext)
 945        ("libxi" ,libxi)
 946        ("libxklavier" ,libxklavier)
 947        ("libxml2" ,libxml2)
 948        ("libxrandr" ,libxrandr)
 949        ("libxrender" ,libxrender)
 950        ("libxscrnsaver" ,libxscrnsaver)
 951        ("marco" ,marco)
 952        ("mate-desktop" ,mate-desktop)
 953        ("mate-menus" ,mate-menus)
 954        ("mate-settings-daemon" ,mate-settings-daemon)
 955        ("pango" ,pango)
 956        ("startup-notification" ,startup-notification)))
 957     (propagated-inputs
 958      `(("gdk-pixbuf" ,gdk-pixbuf+svg) ; mate-slab.pc
 959        ("librsvg" ,librsvg))) ; mate-slab.pc
 960     (home-page "https://mate-desktop.org/")
 961     (synopsis "MATE Desktop configuration tool")
 962     (description
 963      "MATE control center is MATE's main interface for configuration
 964 of various aspects of your desktop.")
 965     (license license:gpl2+)))
 966
 967 (define-public marco
 968   (package
 969     (name "marco")
 970     (version "1.18.1")
 971     (source
 972      (origin
 973        (method url-fetch)
 974        (uri (string-append "https://pub.mate-desktop.org/releases/"
 975                            (version-major+minor version) "/"
 976                            name "-" version ".tar.xz"))
 977        (sha256
 978         (base32
 979          "0lwbp9wyd66hl5d7g272l8g3k1pb9s4s2p9fb04750a58w87d8k5"))))
 980     (build-system glib-or-gtk-build-system)
 981     (native-inputs
 982      `(("pkg-config" ,pkg-config)
 983        ("intltool" ,intltool)
 984        ("itstool" ,itstool)
 985        ("glib" ,glib)
 986        ("gobject-introspection" ,gobject-introspection)
 987        ("libxft" ,libxft)
 988        ("libxml2" ,libxml2)
 989        ("zenity" ,zenity)))
 990     (inputs
 991      `(("gtk+" ,gtk+)
 992        ("libcanberra" ,libcanberra)
 993        ("libgtop" ,libgtop)
 994        ("libice" ,libice)
 995        ("libsm" ,libsm)
 996        ("libx11" ,libx11)
 997        ("libxcomposite" ,libxcomposite)
 998        ("libxcursor" ,libxcursor)
 999        ("libxdamage" ,libxdamage)
1000        ("libxext" ,libxext)
1001        ("libxfixes" ,libxfixes)
1002        ("libxinerama" ,libxinerama)
1003        ("libxrandr" ,libxrandr)
1004        ("libxrender" ,libxrender)
1005        ("mate-desktop" ,mate-desktop)
1006        ("pango" ,pango)
1007        ("startup-notification" ,startup-notification)))
1008     (home-page "https://mate-desktop.org/")
1009     (synopsis "Window manager for the MATE desktop")
1010     (description
1011      "Marco is a minimal X window manager that uses GTK+ for drawing
1012 window frames.  It is aimed at non-technical users and is designed to integrate
1013 well with the MATE desktop.  It lacks some features that may be expected by
1014 some users; these users may want to investigate other available window managers
1015 for use with MATE or as a standalone window manager.")
1016     (license license:gpl2+)))
1017
1018 (define-public mate-user-guide
1019   (package
1020     (name "mate-user-guide")
1021     (version "1.18.0")
1022     (source
1023      (origin
1024        (method url-fetch)
1025        (uri (string-append "https://pub.mate-desktop.org/releases/"
1026                            (version-major+minor version) "/"
1027                            name "-" version ".tar.xz"))
1028        (sha256
1029         (base32
1030          "0f3b46r9a3cywm7rpj08xlkfnlfr9db58xfcpix8i33qp50fxqmb"))))
1031     (build-system gnu-build-system)
1032     (arguments
1033      `(#:phases
1034        (modify-phases %standard-phases
1035          (add-after 'unpack 'adjust-desktop-file
1036            (lambda* (#:key inputs #:allow-other-keys)
1037              (let* ((yelp (assoc-ref inputs "yelp")))
1038                (substitute* "mate-user-guide.desktop.in.in"
1039                  (("yelp")
1040                   (string-append yelp "/bin/yelp"))))
1041              #t)))))
1042     (native-inputs
1043      `(("pkg-config" ,pkg-config)
1044        ("intltool" ,intltool)
1045        ("gettext" ,gettext-minimal)
1046        ("yelp-tools" ,yelp-tools)
1047        ("yelp-xsl" ,yelp-xsl)))
1048     (inputs
1049      `(("yelp" ,yelp)))
1050     (home-page "https://mate-desktop.org/")
1051     (synopsis "User Documentation for Mate software")
1052     (description
1053      "MATE User Guide is a collection of documentation which details
1054 general use of the MATE Desktop environment.  Topics covered include
1055 sessions, panels, menus, file management, and preferences.")
1056     (license (list license:fdl1.1+ license:gpl2+))))
1057
1058 (define-public mate-calc
1059   (package
1060     (name "mate-calc")
1061     (version "1.18.0")
1062     (source
1063      (origin
1064        (method url-fetch)
1065        (uri (string-append "https://pub.mate-desktop.org/releases/"
1066                            (version-major+minor version) "/"
1067                            name "-" version ".tar.xz"))
1068        (sha256
1069         (base32
1070          "0qfs6kx2nymbn6j3mnzgvk8p54ghc78jslsf4wjqsdq021qyl0ly"))))
1071     (build-system glib-or-gtk-build-system)
1072     (native-inputs
1073      `(("gettext" ,gettext-minimal)
1074        ("intltool" ,intltool)
1075        ("pkg-config" ,pkg-config)
1076        ("yelp-tools" ,yelp-tools)))
1077     (inputs
1078      `(("atk" ,atk)
1079        ("glib" ,glib)
1080        ("gtk+" ,gtk+)
1081        ("libxml2" ,libxml2)
1082        ("libcanberra" ,libcanberra)
1083        ("pango" ,pango)))
1084     (home-page "https://mate-desktop.org/")
1085     (synopsis "Calculator for MATE")
1086     (description
1087      "Mate Calc is the GTK+ calculator application for the MATE Desktop.")
1088     (license license:gpl2+)))
1089
1090 (define-public mate-backgrounds
1091   (package
1092     (name "mate-backgrounds")
1093     (version "1.18.0")
1094     (source
1095      (origin
1096        (method url-fetch)
1097        (uri (string-append "https://pub.mate-desktop.org/releases/"
1098                            (version-major+minor version) "/"
1099                            name "-" version ".tar.xz"))
1100        (sha256
1101         (base32
1102          "06q8ksjisijps2wn959arywsimhzd3j35mqkr048c26ck24d60zi"))))
1103     (build-system glib-or-gtk-build-system)
1104     (native-inputs
1105      `(("intltool" ,intltool)))
1106     (home-page "https://mate-desktop.org/")
1107     (synopsis "Calculator for MATE")
1108     (description
1109      "This package contains a collection of graphics files which
1110 can be used as backgrounds in the MATE Desktop environment.")
1111     (license license:gpl2+)))
1112
1113 (define-public mate-netbook
1114   (package
1115     (name "mate-netbook")
1116     (version "1.18.1")
1117     (source
1118      (origin
1119        (method url-fetch)
1120        (uri (string-append "https://pub.mate-desktop.org/releases/"
1121                            (version-major+minor version) "/"
1122                            name "-" version ".tar.xz"))
1123        (sha256
1124         (base32
1125          "0zj4x9qis8dw0irxzb4va1189k8bqbvymxq3h7phnjwvr1m983gf"))))
1126     (build-system glib-or-gtk-build-system)
1127     (native-inputs
1128      `(("gettext" ,gettext-minimal)
1129        ("intltool" ,intltool)
1130        ("pkg-config" ,pkg-config)))
1131     (inputs
1132      `(("cairo" ,cairo)
1133        ("glib" ,glib)
1134        ("gtk+" ,gtk+)
1135        ("libfakekey" ,libfakekey)
1136        ("libwnck" ,libwnck)
1137        ("libxtst" ,libxtst)
1138        ("libx11" ,libx11)
1139        ("mate-panel" ,mate-panel)
1140        ("xorgproto" ,xorgproto)))
1141     (home-page "https://mate-desktop.org/")
1142     (synopsis "Tool for MATE on Netbooks")
1143     (description
1144      "Mate Netbook is a simple window management tool which:
1145
1146 @enumerate
1147 @item Allows you to set basic rules for a window type, such as maximise|undecorate
1148 @item Allows exceptions to the rules, based on string matching for window name
1149 and window class.
1150 @item Allows 'reversing' of rules when the user manually changes something:
1151 Re-decorates windows on un-maximise.
1152 @end enumerate\n")
1153     (license license:gpl3+)))
1154
1155 (define-public mate-screensaver
1156   (package
1157     (name "mate-screensaver")
1158     (version "1.18.1")
1159     (source
1160      (origin
1161        (method url-fetch)
1162        (uri (string-append "https://pub.mate-desktop.org/releases/"
1163                            (version-major+minor version) "/"
1164                            name "-" version ".tar.xz"))
1165        (sha256
1166         (base32
1167          "0dfi10faf1fnvrm7c7wnfqg35ygq09ws1vjyv8394jlf0nn39g9j"))))
1168     (build-system glib-or-gtk-build-system)
1169     (arguments
1170      `(#:configure-flags
1171        ;; FIXME: There is a permissions problem with screen locking
1172        ;; which effectively locks you out completely. Enable locking
1173        ;; once this has been fixed.
1174        (list "--enable-locking" "--with-kbd-layout-indicator"
1175              "--with-xf86gamma-ext" "--enable-pam"
1176              "--disable-schemas-compile" "--without-console-kit")
1177        #:phases
1178        (modify-phases %standard-phases
1179          (add-after 'unpack 'autoconf
1180            (lambda* (#:key outputs #:allow-other-keys)
1181              (let* ((out (assoc-ref outputs "out"))
1182                     (dbus-dir (string-append out "/share/dbus-1/services")))
1183              (setenv "SHELL" (which "sh"))
1184              (setenv "CONFIG_SHELL" (which "sh"))
1185              (substitute* "configure"
1186                (("dbus-1") ""))))))))
1187     (native-inputs
1188      `(("automake" ,automake)
1189        ("autoconf" ,autoconf-wrapper)
1190        ("gettext" ,gettext-minimal)
1191        ("intltool" ,intltool)
1192        ("mate-common" ,mate-common)
1193        ("pkg-config" ,pkg-config)
1194        ("which" ,which)
1195        ("xorgproto" ,xorgproto)))
1196     (inputs
1197      `(("cairo" ,cairo)
1198        ("dconf" ,dconf)
1199        ("dbus" ,dbus)
1200        ("dbus-glib" ,dbus-glib)
1201        ("glib" ,glib)
1202        ("gtk+" ,gtk+)
1203        ("gdk-pixbuf" ,gdk-pixbuf+svg)
1204        ("libcanberra" ,libcanberra)
1205        ("libglade" ,libglade)
1206        ("libmatekbd" ,libmatekbd)
1207        ("libnotify" ,libnotify)
1208        ("libx11" ,libx11)
1209        ("libxext" ,libxext)
1210        ("libxklavier" ,libxklavier)
1211        ("libxrandr" ,libxrandr)
1212        ("libxrender" ,libxrender)
1213        ("libxscrnsaver" ,libxscrnsaver)
1214        ("libxxf86vm" ,libxxf86vm)
1215        ("linux-pam" ,linux-pam)
1216        ("mate-desktop" ,mate-desktop)
1217        ("mate-menus" ,mate-menus)
1218        ("pango" ,pango)
1219        ("startup-notification" ,startup-notification)))
1220     (home-page "https://mate-desktop.org/")
1221     (synopsis "Screensaver for MATE")
1222     (description
1223      "MATE backgrounds package contains a collection of graphics files which
1224 can be used as backgrounds in the MATE Desktop environment.")
1225     (license license:gpl2+)))
1226
1227 (define-public mate-utils
1228   (package
1229     (name "mate-utils")
1230     (version "1.18.2")
1231     (source
1232      (origin
1233        (method url-fetch)
1234        (uri (string-append "https://pub.mate-desktop.org/releases/"
1235                            (version-major+minor version) "/"
1236                            name "-" version ".tar.xz"))
1237        (sha256
1238         (base32
1239          "0wr395dqfigj19ps0d76ycgwfljl9xxgs1a1g5wx6kcz5mvhzn5v"))))
1240     (build-system glib-or-gtk-build-system)
1241     (native-inputs
1242      `(("gettext" ,gettext-minimal)
1243        ("gtk-doc" ,gtk-doc)
1244        ("intltool" ,intltool)
1245        ("libice" ,libice)
1246        ("libsm" ,libsm)
1247        ("pkg-config" ,pkg-config)
1248        ("scrollkeeper" ,scrollkeeper)
1249        ("xorgproto" ,xorgproto)
1250        ("yelp-tools" ,yelp-tools)))
1251     (inputs
1252      `(("atk" ,atk)
1253        ("cairo" ,cairo)
1254        ("glib" ,glib)
1255        ("gtk+" ,gtk+)
1256        ("gdk-pixbuf" ,gdk-pixbuf+svg)
1257        ("libcanberra" ,libcanberra)
1258        ("libgtop" ,libgtop)
1259        ("libx11" ,libx11)
1260        ("libxext" ,libxext)
1261        ("mate-panel" ,mate-panel)
1262        ("pango" ,pango)
1263        ("zlib" ,zlib)))
1264     (home-page "https://mate-desktop.org/")
1265     (synopsis "Utilities for the MATE Desktop")
1266     (description
1267      "Mate Utilities for the MATE Desktop containing:
1268
1269 @enumerate
1270 @item mate-system-log
1271 @item mate-search-tool
1272 @item mate-dictionary
1273 @item mate-screenshot
1274 @item mate-disk-usage-analyzer
1275 @end enumerate\n")
1276     (license (list license:gpl2
1277                    license:fdl1.1+
1278                    license:lgpl2.1))))
1279
1280 (define-public eom
1281   (package
1282     (name "eom")
1283     (version "1.18.2")
1284     (source
1285      (origin
1286        (method url-fetch)
1287        (uri (string-append "https://pub.mate-desktop.org/releases/"
1288                            (version-major+minor version) "/"
1289                            name "-" version ".tar.xz"))
1290        (sha256
1291         (base32
1292          "00ns7g7qykakc89lijrw2vwy9x9ijqiyvmnd4sw0j6py90zs8m87"))))
1293     (build-system glib-or-gtk-build-system)
1294     (native-inputs
1295      `(("gettext" ,gettext-minimal)
1296        ("gtk-doc" ,gtk-doc)
1297        ("gobject-introspection" ,gobject-introspection)
1298        ("intltool" ,intltool)
1299        ("pkg-config" ,pkg-config)
1300        ("yelp-tools" ,yelp-tools)))
1301     (inputs
1302      `(("atk" ,atk)
1303        ("cairo" ,cairo)
1304        ("dconf" ,dconf)
1305        ("dbus" ,dbus)
1306        ("dbus-glib" ,dbus-glib)
1307        ("exempi" ,exempi)
1308        ("glib" ,glib)
1309        ("gtk+" ,gtk+)
1310        ("gdk-pixbuf" ,gdk-pixbuf+svg)
1311        ("libcanberra" ,libcanberra)
1312        ("libx11" ,libx11)
1313        ("libxext" ,libxext)
1314        ("libpeas" ,libpeas)
1315        ("libxml2" ,libxml2)
1316        ("libexif" ,libexif)
1317        ("libjpeg" ,libjpeg)
1318        ("librsvg" ,librsvg)
1319        ("lcms" ,lcms)
1320        ("mate-desktop" ,mate-desktop)
1321        ("pango" ,pango)
1322        ("shared-mime-info" ,shared-mime-info)
1323        ("startup-notification" ,startup-notification)
1324        ("zlib" ,zlib)))
1325     (home-page "https://mate-desktop.org/")
1326     (synopsis "Eye of MATE")
1327     (description
1328      "Eye of MATE is the Image viewer for the MATE Desktop.")
1329     (license (list license:gpl2))))
1330
1331 (define-public engrampa
1332   (package
1333     (name "engrampa")
1334     (version "1.18.2")
1335     (source
1336      (origin
1337        (method url-fetch)
1338        (uri (string-append "https://pub.mate-desktop.org/releases/"
1339                            (version-major+minor version) "/"
1340                            name "-" version ".tar.xz"))
1341        (sha256
1342         (base32
1343          "0d98zhqqc7qdnxcf0195kd04xmhijc0w2qrn6q61zd0daiswnv98"))))
1344     (build-system glib-or-gtk-build-system)
1345     (arguments
1346      `(#:configure-flags (list "--disable-schemas-compile"
1347                                "--disable-run-in-place"
1348                                "--enable-magic"
1349                                "--enable-packagekit"
1350                                (string-append "--with-cajadir="
1351                                               (assoc-ref %outputs "out")
1352                                               "/lib/caja/extensions-2.0/"))
1353        #:phases
1354        (modify-phases %standard-phases
1355          (add-before 'install 'skip-gtk-update-icon-cache
1356            ;; Don't create 'icon-theme.cache'.
1357            (lambda _
1358              (substitute* "data/Makefile"
1359                (("gtk-update-icon-cache") "true"))
1360              #t)))))
1361     (native-inputs
1362      `(("gettext" ,gettext-minimal)
1363        ("gtk-doc" ,gtk-doc)
1364        ("intltool" ,intltool)
1365        ("pkg-config" ,pkg-config)
1366        ("yelp-tools" ,yelp-tools)))
1367     (inputs
1368      `(("caja" ,caja)
1369        ("file" ,file)
1370        ("glib" ,glib)
1371        ("gtk+" ,gtk+)
1372        ("gdk-pixbuf" ,gdk-pixbuf+svg)
1373        ("json-glib" ,json-glib)
1374        ("libcanberra" ,libcanberra)
1375        ("libx11" ,libx11)
1376        ("libsm" ,libsm)
1377        ("packagekit" ,packagekit)
1378        ("pango" ,pango)))
1379     (home-page "https://mate-desktop.org/")
1380     (synopsis "Archive Manager for MATE")
1381     (description
1382      "Engrampa is the archive manager for the MATE Desktop.")
1383     (license license:gpl2)))
1384
1385 (define-public pluma
1386   (package
1387     (name "pluma")
1388     (version "1.18.2")
1389     (source
1390      (origin
1391        (method url-fetch)
1392        (uri (string-append "https://pub.mate-desktop.org/releases/"
1393                            (version-major+minor version) "/"
1394                            name "-" version ".tar.xz"))
1395        (sha256
1396         (base32
1397          "1z0938yiygxipj2a77n9dv8v4253snrc5gbbnarcnim9xba2j3zz"))))
1398     (build-system glib-or-gtk-build-system)
1399     (arguments
1400      `(; Tests can not succeed.
1401        ;; https://github.com/mate-desktop/mate-text-editor/issues/33
1402        #:tests? #f))
1403     (native-inputs
1404      `(("gettext" ,gettext-minimal)
1405        ("gtk-doc" ,gtk-doc)
1406        ("gobject-introspection" ,gobject-introspection)
1407        ("intltool" ,intltool)
1408        ("libtool" ,libtool)
1409        ("pkg-config" ,pkg-config)
1410        ("yelp-tools" ,yelp-tools)))
1411     (inputs
1412      `(("atk" ,atk)
1413        ("cairo" ,cairo)
1414        ("enchant" ,enchant)
1415        ("glib" ,glib)
1416        ("gtk+" ,gtk+)
1417        ("gtksourceview" ,gtksourceview)
1418        ("gdk-pixbuf" ,gdk-pixbuf)
1419        ("iso-codes" ,iso-codes)
1420        ("libcanberra" ,libcanberra)
1421        ("libx11" ,libx11)
1422        ("libsm" ,libsm)
1423        ("libpeas" ,libpeas)
1424        ("libxml2" ,libxml2)
1425        ("libice" ,libice)
1426        ("packagekit" ,packagekit)
1427        ("pango" ,pango)
1428        ("python-2" ,python-2)
1429        ("scrollkeeper" ,scrollkeeper)))
1430     (home-page "https://mate-desktop.org/")
1431     (synopsis "Text Editor for MATE")
1432     (description
1433      "Pluma is the text editor for the MATE Desktop.")
1434     (license license:gpl2)))
1435
1436 (define-public mate-system-monitor
1437   (package
1438     (name "mate-system-monitor")
1439     (version "1.18.0")
1440     (source
1441      (origin
1442        (method url-fetch)
1443        (uri (string-append "https://pub.mate-desktop.org/releases/"
1444                            (version-major+minor version) "/"
1445                            name "-" version ".tar.xz"))
1446        (sha256
1447         (base32
1448          "1wcvrl4lfnjkhywb311p29prf1qiab6iynb6q1fgfsl6za8hsz48"))))
1449     (build-system glib-or-gtk-build-system)
1450     (native-inputs
1451      `(("autoconf" ,autoconf)
1452        ("gettext" ,gettext-minimal)
1453        ("intltool" ,intltool)
1454        ("pkg-config" ,pkg-config)
1455        ("yelp-tools" ,yelp-tools)))
1456     (inputs
1457      `(("cairo" ,cairo)
1458        ("glib" ,glib)
1459        ("glibmm" ,glibmm)
1460        ("gtkmm" ,gtkmm)
1461        ("gtk+" ,gtk+)
1462        ("gdk-pixbuf" ,gdk-pixbuf)
1463        ("libsigc++" ,libsigc++)
1464        ("libcanberra" ,libcanberra)
1465        ("libxml2" ,libxml2)
1466        ("libwnck" ,libwnck)
1467        ("libgtop" ,libgtop)
1468        ("librsvg" ,librsvg)
1469        ("polkit" ,polkit)))
1470     (home-page "https://mate-desktop.org/")
1471     (synopsis "System Monitor for MATE")
1472     (description
1473      "Mate System Monitor provides a tool for for the
1474 MATE Desktop to monitor your system resources and usage.")
1475     (license license:gpl2)))
1476
1477 (define-public mate-polkit
1478   (package
1479     (name "mate-polkit")
1480     (version "1.18.1")
1481     (source
1482      (origin
1483        (method url-fetch)
1484        (uri (string-append "https://pub.mate-desktop.org/releases/"
1485                            (version-major+minor version) "/"
1486                            name "-" version ".tar.xz"))
1487        (sha256
1488         (base32
1489          "15vf2hnyjg8zsw3iiwjwi497yygkmvpnn6w1hik7dfw4a621w0gc"))))
1490     (build-system glib-or-gtk-build-system)
1491     (native-inputs
1492      `(("gettext" ,gettext-minimal)
1493        ("gtk-doc" ,gtk-doc)
1494        ("intltool" ,intltool)
1495        ("libtool" ,libtool)
1496        ("pkg-config" ,pkg-config)))
1497     (inputs
1498      `(("accountsservice" ,accountsservice)
1499        ("glib" ,glib)
1500        ("gobject-introspection" ,gobject-introspection)
1501        ("gtk+" ,gtk+)
1502        ("gdk-pixbuf" ,gdk-pixbuf)
1503        ("polkit" ,polkit)))
1504     (home-page "https://mate-desktop.org/")
1505     (synopsis "DBus specific service for MATE")
1506     (description
1507      "MATE Polkit is a MATE specific DBUS service that is
1508 used to bring up authentication dialogs.")
1509     (license license:lgpl2.1)))
1510
1511 (define-public mate
1512   (package
1513     (name "mate")
1514     (version (package-version mate-desktop))
1515     (source #f)
1516     (build-system trivial-build-system)
1517     (arguments
1518      `(#:modules ((guix build union))
1519        #:builder
1520        (begin
1521          (use-modules (ice-9 match)
1522                       (guix build union))
1523          (match %build-inputs
1524            (((names . directories) ...)
1525             (union-build (assoc-ref %outputs "out")
1526                          directories)
1527             #t)))))
1528     (inputs
1529      ;; TODO: Add more packages
1530      `(("at-spi2-core"              ,at-spi2-core)
1531        ("atril"                     ,atril)
1532        ("caja"                      ,caja)
1533        ("dbus"                      ,dbus)
1534        ("dconf"                     ,dconf)
1535        ("desktop-file-utils"        ,desktop-file-utils)
1536        ("engrampa"                  ,engrampa)
1537        ("eom"                       ,eom)
1538        ("font-cantarell"            ,font-cantarell)
1539        ("glib-networking"           ,glib-networking)
1540        ("gnome-keyring"             ,gnome-keyring)
1541        ("gvfs"                      ,gvfs)
1542        ("hicolor-icon-theme"        ,hicolor-icon-theme)
1543        ("libmatekbd"                ,libmatekbd)
1544        ("libmateweather"            ,libmateweather)
1545        ("libmatemixer"              ,libmatemixer)
1546        ("marco"                     ,marco)
1547        ("mate-session-manager"      ,mate-session-manager)
1548        ("mate-settings-daemon"      ,mate-settings-daemon)
1549        ("mate-desktop"              ,mate-desktop)
1550        ("mate-terminal"             ,mate-terminal)
1551        ("mate-themes"               ,mate-themes)
1552        ("mate-icon-theme"           ,mate-icon-theme)
1553        ("mate-menu"                 ,mate-menus)
1554        ("mate-panel"                ,mate-panel)
1555        ("mate-control-center"       ,mate-control-center)
1556        ("mate-media"                ,mate-media)
1557        ("mate-applets"              ,mate-applets)
1558        ("mate-user-guide"           ,mate-user-guide)
1559        ("mate-calc"                 ,mate-calc)
1560        ("mate-backgrounds"          ,mate-backgrounds)
1561        ("mate-netbook"              ,mate-netbook)
1562        ("mate-utils"                ,mate-utils)
1563        ("mate-polkit"               ,mate-polkit)
1564        ("mate-system-monitor"       ,mate-system-monitor)
1565        ("mate-utils"                ,mate-utils)
1566        ("pluma"                     ,pluma)
1567        ("pinentry-gnome3"           ,pinentry-gnome3)
1568        ("pulseaudio"                ,pulseaudio)
1569        ("shared-mime-info"          ,shared-mime-info)
1570        ("yelp"                      ,yelp)
1571        ("zenity"                    ,zenity)))
1572     (synopsis "The MATE desktop environment")
1573     (home-page "https://mate-desktop.org/")
1574     (description
1575      "The MATE Desktop Environment is the continuation of GNOME 2.  It provides
1576 an intuitive and attractive desktop environment using traditional metaphors for
1577 GNU/Linux systems.  MATE is under active development to add support for new
1578 technologies while preserving a traditional desktop experience.")
1579     (license license:gpl2+)))