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