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