gnu/packages/mate.scm

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