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