diff options
Diffstat (limited to 'gnu/packages/mate.scm')
| -rw-r--r-- | gnu/packages/mate.scm | 527 |
1 files changed, 325 insertions, 202 deletions
diff --git a/gnu/packages/mate.scm b/gnu/packages/mate.scm index b0e9322b76..5d772ade97 100644 --- a/gnu/packages/mate.scm +++ b/gnu/packages/mate.scm @@ -27,13 +27,13 @@ (define-module (gnu packages mate) #:use-module ((guix licenses) #:prefix license:) - #:use-module (guix packages) + #:use-module (guix build-system glib-or-gtk) + #:use-module (guix build-system gnu) + #:use-module (guix build-system trivial) #:use-module (guix download) #:use-module (guix gexp) + #:use-module (guix packages) #:use-module (guix utils) - #:use-module (guix build-system gnu) - #:use-module (guix build-system glib-or-gtk) - #:use-module (guix build-system trivial) #:use-module (gnu packages) #:use-module (gnu packages attr) #:use-module (gnu packages autotools) @@ -61,12 +61,12 @@ #:use-module (gnu packages javascript) #:use-module (gnu packages libcanberra) #:use-module (gnu packages linux) - #:use-module (gnu packages multiprecision) #:use-module (gnu packages messaging) + #:use-module (gnu packages multiprecision) #:use-module (gnu packages nss) - #:use-module (gnu packages pkg-config) #:use-module (gnu packages pdf) #:use-module (gnu packages photo) + #:use-module (gnu packages pkg-config) #:use-module (gnu packages polkit) #:use-module (gnu packages pulseaudio) #:use-module (gnu packages python) @@ -74,8 +74,8 @@ #:use-module (gnu packages tex) #:use-module (gnu packages webkit) #:use-module (gnu packages xdisorg) - #:use-module (gnu packages xml) #:use-module (gnu packages xdisorg) + #:use-module (gnu packages xml) #:use-module (gnu packages xorg)) (define-public mate-common @@ -167,37 +167,42 @@ actions.") (source (origin (method url-fetch) - (uri (string-append "mirror://mate/" (version-major+minor version) "/" - name "-" version ".tar.xz")) + (uri (string-append "mirror://mate/" + (version-major+minor version) + "/" + name + "-" + version + ".tar.xz")) (sha256 - (base32 - "000vr9cnbl2qlysf2gyg1lsjirqdzmwrnh6d3hyrsfc0r2vh4wna")))) + (base32 "000vr9cnbl2qlysf2gyg1lsjirqdzmwrnh6d3hyrsfc0r2vh4wna")))) (build-system gnu-build-system) (arguments - `(#:phases - (modify-phases %standard-phases - (add-after 'unpack 'autoconf - (lambda _ - (setenv "SHELL" (which "sh")) - (setenv "CONFIG_SHELL" (which "sh")) - (invoke "sh" "autogen.sh")))))) + (list + #:phases + #~(modify-phases %standard-phases + (add-after 'unpack 'autoconf + (lambda _ + (setenv "SHELL" (which "sh")) + (setenv "CONFIG_SHELL" (which "sh")) + (invoke "sh" "autogen.sh")))))) (native-inputs ;; autoconf-wrapper is required due to the non-standard ;; 'autoconf phase. - `(("autoconf" ,autoconf-wrapper) - ("automake" ,automake) - ("intltool" ,intltool) - ("icon-naming-utils" ,icon-naming-utils) - ("libtool" ,libtool) - ("mate-common" ,mate-common) - ("pkg-config" ,pkg-config) - ("which" ,which))) + (list autoconf-wrapper + automake + intltool + icon-naming-utils + libtool + mate-common + pkg-config + which)) (home-page "https://mate-desktop.org/") (synopsis "MATE desktop environment icon theme faenza") (description - "Icon theme using Faenza and Faience icon themes and some -customized icons for MATE. Furthermore it includes some icons -from Mint-X-F and Faenza-Fresh icon packs.") + "Icon theme using Faenza and Faience icon themes and some customized +icons for MATE. Furthermore it includes some icons from Mint-X-F and +Faenza-Fresh icon packs.") (license license:gpl2+))) (define-public mate-themes @@ -262,39 +267,48 @@ desktop and the mate-about program.") (source (origin (method url-fetch) - (uri (string-append "mirror://mate/" (version-major+minor version) "/" - "libmateweather-" version ".tar.xz")) + (uri (string-append "mirror://mate/" + (version-major+minor version) + "/" + name + "-" + version + ".tar.xz")) (sha256 (base32 "1dfj68q3x9camd7h94pcwv8a5969cv5d4p979gcbk4xknpg76hsm")))) (build-system gnu-build-system) (arguments - '(#:configure-flags - (list (string-append "--with-zoneinfo-dir=/var/empty")) - #:phases - (modify-phases %standard-phases - (add-before 'check 'fix-tzdata-location - (lambda* (#:key inputs #:allow-other-keys) - (setenv "TZDIR" (search-input-directory inputs "/share/zoneinfo")) - (substitute* "data/check-timezones.sh" - (("/usr/share/zoneinfo/zone.tab") - (search-input-file inputs "/share/zoneinfo/zone.tab")) - ;; XXX: Ignore this test for now, which requires tzdata-2023c. - (("exit 1") "exit 0"))))))) + (list + #:configure-flags #~(list "--with-zoneinfo-dir=/var/empty") + #:phases + #~(modify-phases %standard-phases + (add-before 'check 'fix-tzdata-location + (lambda* (#:key inputs #:allow-other-keys) + (setenv "TZDIR" + (search-input-directory inputs "/share/zoneinfo")) + (substitute* "data/check-timezones.sh" + (("/usr/share/zoneinfo/zone.tab") + (search-input-file inputs "/share/zoneinfo/zone.tab")) + ;; XXX: Ignore this test for now, which requires tzdata-2023c. + (("exit 1") + "exit 0"))))))) (native-inputs - `(("pkg-config" ,pkg-config) - ("intltool" ,intltool) - ("dconf" ,dconf) - ("glib:bin" ,glib "bin"))) + (list dconf + (list glib "bin") + intltool + pkg-config)) (inputs - (list gtk+ tzdata-for-tests)) + (list gtk+ + tzdata-for-tests)) (propagated-inputs - ;; both of these are requires.private in mateweather.pc - (list libsoup-minimal-2 libxml2)) + ;; both of these are requires.private in mateweather.pc + (list libsoup-minimal-2 + libxml2)) (home-page "https://mate-desktop.org/") (synopsis "MATE library for weather information from the Internet") (description - "This library provides access to weather information from the internet for -the MATE desktop environment.") + "This library provides access to weather information from the internet +for the MATE desktop environment.") (license license:lgpl2.1+))) (define-public mate-terminal @@ -524,7 +538,6 @@ assorted menu related utility programs.") intltool libxslt yelp-tools - scrollkeeper gettext-minimal docbook-xml gobject-introspection)) @@ -581,6 +594,59 @@ Interactive Weather Information Network (IWIN). @end enumerate\n") (license (list license:gpl2+ license:lgpl2.0+ license:gpl3+)))) +(define-public mate-sensors-applet + (package + (name "mate-sensors-applet") + (version "1.28.0") + (source + (origin + (method url-fetch) + (uri (string-append "mirror://mate/" + (version-major+minor version) + "/" + "mate-sensors-applet-" + version + ".tar.xz")) + (sha256 + (base32 "10as64102wbgmi8ak3ya2zyvc3dpx24rfg18323fp3xgh9k3crfl")))) + (build-system glib-or-gtk-build-system) + (arguments + (list + #:configure-flags + #~(list "--enable-in-process"))) + (native-inputs (list pkg-config + intltool + itstool + yelp-tools + gettext-minimal + gobject-introspection)) + (inputs (list at-spi2-core + dbus + dbus-glib + glib + gtk+ + libnotify + lm-sensors + libx11 + libxml2 + libxslt + libatasmart + libwnck + mate-desktop + mate-menus + mate-panel + pango + polkit ;either polkit or setuid + upower + wireless-tools)) + (home-page "https://mate-desktop.org/") + (synopsis "MATE panel applet for hardware monitoring") + (description + "MATE Sensors Applet displays readings from hardware sensors in the MATE +panel, these include CPU temperature, fan speeds and voltage reading under +GNU plus Linux distributions.") + (license license:gpl2+))) + (define-public mate-media (package (name "mate-media") @@ -613,17 +679,49 @@ Interactive Weather Information Network (IWIN). mate-volume-control, a MATE volume control application and applet.") (license (list license:gpl2+ license:lgpl2.0+ license:fdl1.1+)))) +(define-public mate-notification-daemon + (package + (name "mate-notification-daemon") + (version "1.28.3") + (source + (origin + (method url-fetch) + (uri (string-append "mirror://mate/" + (version-major+minor version) + "/" + "mate-notification-daemon-" + version + ".tar.xz")) + (sha256 + (base32 "04zlmli3kv80h7fpf0xlxm0hkf238gj5hib4qb6bjxczzyqyq370")))) + (build-system glib-or-gtk-build-system) + (native-inputs (list pkg-config gettext-minimal libxml2)) + (inputs (list gtk+ + dbus-glib + libwnck + libnotify + libcanberra + mate-desktop + mate-panel + hicolor-icon-theme)) + (home-page "https://mate-desktop.org/") + (synopsis "Notification daemon for MATE") + (description + "This MATE Desktop component is meant to run on the background and +deliver notifications to the user.") + (license license:gpl2+))) + (define-public mate-panel (package (name "mate-panel") - (version "1.28.2") + (version "1.28.4") (source (origin (method url-fetch) (uri (string-append "mirror://mate/" (version-major+minor version) "/" name "-" version ".tar.xz")) (sha256 - (base32 "0cxsmp92cpvlvqfjxzc0bmzg0v4hpccxzz84894ih9xa6zl472k7")))) + (base32 "0x48jqm2axzxp2hc7mh3znds7nqwaw59b2ghnsbw2ajc66q9xw02")))) (build-system glib-or-gtk-build-system) (arguments `(#:configure-flags @@ -675,6 +773,14 @@ mate-volume-control, a MATE volume control application and applet.") pango tzdata wayland)) + (native-search-paths + (list + (search-path-specification + (variable "MATE_PANEL_APPLETS_DIR") + (files '("share/mate-panel/applets"))) + (search-path-specification + (variable "MATE_PANEL_EXTRA_MODULES") + (files '("lib/mate-panel/modules"))))) (home-page "https://mate-desktop.org/") (synopsis "Panel for MATE") (description @@ -687,7 +793,7 @@ infamous 'Wanda the Fish'.") (define-public atril (package (name "atril") - (version "1.28.0") + (version "1.28.1") (source (origin (method url-fetch) @@ -695,42 +801,41 @@ infamous 'Wanda the Fish'.") name "-" version ".tar.xz")) (sha256 (base32 - "0qji6nsf0r3rp5x7mah8pafx42dyqcygqsv7cgmc8wcvdrgp5m6f")))) + "0ghrx1nhjjs016swj0qy88azgmvas1478xi3xwnxbspkg4lz9i3l")))) (build-system glib-or-gtk-build-system) (arguments - `(#:configure-flags (list (string-append "--with-openjpeg=" - (assoc-ref %build-inputs "openjpeg")) - "--enable-introspection" - "--disable-schemas-compile" - ;; FIXME: Enable build of Caja extensions. - "--disable-caja") - #:tests? #f - #:phases - (modify-phases %standard-phases - (add-after 'unpack 'fix-mathjax-path - (lambda _ - (let* ((mathjax (assoc-ref %build-inputs "js-mathjax")) - (mathjax-path (string-append mathjax - "/share/javascript/mathjax"))) - (substitute* "backend/epub/epub-document.c" - (("/usr/share/javascript/mathjax") - mathjax-path))) - #t)) - (add-after 'unpack 'fix-introspection-install-dir - (lambda* (#:key outputs #:allow-other-keys) - (let ((out (assoc-ref outputs "out"))) - (substitute* '("configure") - (("\\$\\(\\$PKG_CONFIG --variable=girdir gobject-introspection-1.0\\)") - (string-append "\"" out "/share/gir-1.0/\"")) - (("\\$\\(\\$PKG_CONFIG --variable=typelibdir gobject-introspection-1.0\\)") - (string-append out "/lib/girepository-1.0/"))) - #t))) - (add-before 'install 'skip-gtk-update-icon-cache - ;; Don't create 'icon-theme.cache'. - (lambda _ - (substitute* "data/Makefile" - (("gtk-update-icon-cache") "true")) - #t))))) + (list + #:configure-flags + #~(list "--enable-introspection" "--disable-schemas-compile" + ;; FIXME: Enable build of Caja extensions. + "--disable-caja" + (string-append "--with-openjpeg=" + #$(this-package-input "openjpeg"))) + #:tests? #f + #:phases + #~(modify-phases %standard-phases + (add-after 'unpack 'fix-mathjax-path + (lambda _ + (let* ((mathjax (assoc-ref %build-inputs "js-mathjax")) + (mathjax-path (string-append mathjax + "/share/javascript/mathjax"))) + (substitute* "backend/epub/epub-document.c" + (("/usr/share/javascript/mathjax") + mathjax-path))) #t)) + (add-after 'unpack 'fix-introspection-install-dir + (lambda _ + (substitute* '("configure") + (("\\$\\(\\$PKG_CONFIG --variable=girdir gobject-introspection-1.0\\)") + (string-append "\"" + #$output "/share/gir-1.0/\"")) + (("\\$\\(\\$PKG_CONFIG --variable=typelibdir gobject-introspection-1.0\\)") + (string-append #$output "/lib/girepository-1.0/"))))) + (add-before 'install 'skip-gtk-update-icon-cache + ;; Don't create 'icon-theme.cache'. + (lambda _ + (substitute* "data/Makefile" + (("gtk-update-icon-cache") + "true")) #t))))) (native-inputs (list pkg-config intltool @@ -807,24 +912,24 @@ hypertext navigation, and table-of-contents bookmarks.") "0ylm46wgg7linppid6pdfaixhdb8zgyrxl3lxz17x0am2k718c0y")))) (build-system glib-or-gtk-build-system) (arguments - `(#:configure-flags '("--disable-update-mimedb") - #:tests? #f ; tests fail even with display set - #:phases - (modify-phases %standard-phases - (add-before 'check 'pre-check - (lambda _ - ;; Tests require a running X server. - (system "Xvfb :1 &") - (setenv "DISPLAY" ":1") - ;; For the missing /etc/machine-id. - (setenv "DBUS_FATAL_WARNINGS" "0") - #t))))) + (list + #:tests? #f ; tests fail even with display set + #:configure-flags #~(list "--disable-update-mimedb") + #:phases + #~(modify-phases %standard-phases + (add-before 'check 'pre-check + (lambda _ + ;; Tests require a running X server. + (system "Xvfb :1 &") + (setenv "DISPLAY" ":1") + ;; For the missing /etc/machine-id. + (setenv "DBUS_FATAL_WARNINGS" "0")))))) (native-inputs - `(("pkg-config" ,pkg-config) - ("intltool" ,intltool) - ("glib:bin" ,glib "bin") - ("xorg-server" ,xorg-server) - ("gobject-introspection" ,gobject-introspection))) + (list pkg-config + intltool + (list glib "bin") + xorg-server + gobject-introspection)) (inputs (list exempi gtk+ @@ -837,8 +942,8 @@ hypertext navigation, and table-of-contents bookmarks.") startup-notification)) (native-search-paths (list (search-path-specification - (variable "CAJA_EXTENSIONDIR") - (files (list "lib/caja/extensions-2.0/**"))))) + (variable "CAJA_EXTENSIONDIR") + (files (list "lib/caja/extensions-2.0/**"))))) (home-page "https://mate-desktop.org/") (synopsis "File manager for the MATE desktop") (description @@ -914,6 +1019,44 @@ applications associated with them. Caja is also responsible for handling the icons on the MATE desktop. It works on local and remote file systems.") (license license:gpl2+))) +(define-public python-caja + (package + (name "python-caja") + (version "1.28.0") + (source + (origin + (method url-fetch) + (uri (string-append "mirror://mate/" + (version-major+minor version) + "/" + name + "-" + version + ".tar.xz")) + (sha256 + (base32 "1ml0yrkbly1mz5gmz1wynn3zff5900szncc4rk83xqyzvcww4mmh")))) + (build-system glib-or-gtk-build-system) + (arguments + (list + #:configure-flags + #~(list (string-append "--with-cajadir=" + #$output + "/lib/caja/extensions-2.0/")))) + (native-inputs + (list pkg-config + gettext-minimal + python-wrapper)) + (inputs + (list caja + gtk+ + python-pygobject)) + (home-page "https://mate-desktop.org/") + (synopsis "Python bindings for Caja components") + (description + "This package provides Python bindings to Caja, a file manager for the +MATE desktop.") + (license license:gpl2+))) + (define-public mate-control-center (package (name "mate-control-center") @@ -927,22 +1070,22 @@ icons on the MATE desktop. It works on local and remote file systems.") (base32 "1g0lg4x3idilaxhwq1s90pajkvv9i012kzrnk0pxqj2jzl2cgwpb")))) (build-system glib-or-gtk-build-system) (arguments - '(#:phases (modify-phases %standard-phases - (add-before 'configure 'use-elogind-as-systemd - (lambda _ - (substitute* "configure" - (("systemd") "libelogind")))) - (add-before 'build 'fix-polkit-action - (lambda* (#:key outputs #:allow-other-keys) - ;; Make sure the polkit file refers to the right - ;; executable. - (let ((out (assoc-ref outputs "out"))) - (substitute* - '("capplets/display/org.mate.randr.policy.in" - "capplets/display/org.mate.randr.policy") - (("/usr/sbin") - (string-append out "/sbin"))) - #t)))))) + (list + #:phases + #~(modify-phases %standard-phases + (add-before 'configure 'use-elogind-as-systemd + (lambda _ + (substitute* "configure" + (("systemd") "libelogind")))) + (add-before 'build 'fix-polkit-action + (lambda _ + ;; Make sure the polkit file refers to the right + ;; executable. + (substitute* + '("capplets/display/org.mate.randr.policy.in" + "capplets/display/org.mate.randr.policy") + (("/usr/sbin") + (string-append #$output "/sbin")))))))) (native-inputs (list pkg-config intltool @@ -1267,7 +1410,6 @@ can be used as backgrounds in the MATE Desktop environment.") libice libsm pkg-config - scrollkeeper xorgproto yelp-tools)) (inputs @@ -1353,53 +1495,54 @@ can be used as backgrounds in the MATE Desktop environment.") (define-public engrampa (package (name "engrampa") - (version "1.28.1") + (version "1.28.2") (source (origin (method url-fetch) - (uri (string-append "mirror://mate/" (version-major+minor version) "/" - "engrampa-" version ".tar.xz")) + (uri (string-append "mirror://mate/" + (version-major+minor version) + "/" + "engrampa-" + version + ".tar.xz")) (sha256 - (base32 "0siqhm6vh0lwx0qh7v4asn4m15ac9g93hm97iymfw24brydlqp4w")))) + (base32 "1vq9mi87c0agfwysrbki155835xgv5qm2cbzld1qigs56z17g68y")))) (build-system glib-or-gtk-build-system) (arguments - `(#:configure-flags (list "--disable-schemas-compile" - "--disable-run-in-place" - "--enable-magic" - "--enable-packagekit" - (string-append "--with-cajadir=" - (assoc-ref %outputs "out") - "/lib/caja/extensions-2.0/")) - #:phases - (modify-phases %standard-phases - (add-before 'install 'skip-gtk-update-icon-cache - ;; Don't create 'icon-theme.cache'. - (lambda _ - (substitute* "data/Makefile" - (("gtk-update-icon-cache") "true")) - #t))))) + (list + #:configure-flags + #~(list "--disable-schemas-compile" "--disable-run-in-place" + "--enable-magic" "--enable-packagekit" + (string-append "--with-cajadir=" + #$output "/lib/caja/extensions-2.0/")) + #:phases + #~(modify-phases %standard-phases + (add-before 'install 'skip-gtk-update-icon-cache + ;; Don't create 'icon-theme.cache'. + (lambda _ + (substitute* "data/Makefile" + (("gtk-update-icon-cache") + "true")) #t))))) (native-inputs - `(("gettext" ,gettext-minimal) - ("gtk-doc" ,gtk-doc/stable) - ("intltool" ,intltool) - ("pkg-config" ,pkg-config) - ("yelp-tools" ,yelp-tools))) - (inputs - (list caja - file - glib - gtk+ - (librsvg-for-system) - json-glib - libcanberra - libx11 - libsm - packagekit - pango)) + (list gettext-minimal + gtk-doc/stable + intltool + pkg-config + yelp-tools)) + (inputs (list caja + file + glib + gtk+ + (librsvg-for-system) + json-glib + libcanberra + libx11 + libsm + packagekit + pango)) (home-page "https://mate-desktop.org/") (synopsis "Archive Manager for MATE") - (description - "Engrampa is the archive manager for the MATE Desktop.") + (description "Engrampa is the archive manager for the MATE Desktop.") (license license:gpl2))) (define-public pluma @@ -1445,7 +1588,6 @@ can be used as backgrounds in the MATE Desktop environment.") packagekit pango python - scrollkeeper startup-notification)) (home-page "https://mate-desktop.org/") (synopsis "Text Editor for MATE") @@ -1503,6 +1645,18 @@ MATE Desktop to monitor your system resources and usage.") (base32 "1s2ac2p5smiwr7lf4snciyb9waclychjmzrw32f2qspdm381s2im")))) (build-system glib-or-gtk-build-system) + (arguments + (list + #:phases + #~(modify-phases %standard-phases + (add-after 'install 'enable-autostart-for-xfce + (lambda _ + ;; We also use mate-polkit in Xfce. + (substitute* (string-append + #$output + "/etc/xdg/autostart/" + "polkit-mate-authentication-agent-1.desktop") + (("OnlyShowIn=MATE;") "OnlyShowIn=MATE;XFCE;"))))))) (native-inputs (list gettext-minimal gtk-doc/stable intltool libtool pkg-config)) (inputs @@ -1519,24 +1673,6 @@ MATE Desktop to monitor your system resources and usage.") used to bring up authentication dialogs.") (license license:lgpl2.1))) -(define-public mate-polkit-for-xfce - (package/inherit mate-polkit - (arguments - `(#:phases - (modify-phases %standard-phases - (add-after 'install 'patch-desktop - (lambda* (#:key outputs #:allow-other-keys) - (let* ((common (string-append - (assoc-ref outputs "out") "/etc/xdg/autostart/" - "polkit-mate-authentication-agent-")) - (old (string-append common "1.desktop")) - (new (string-append common "for-xfce-1.desktop"))) - (substitute* old (("MATE;") "XFCE;")) - ;; To avoid a conflict if both MATE and XFCE are installed. - (rename-file old new))))))) - (properties `((hidden? . #t))))) - - (define-public mozo (package (name "mozo") @@ -1586,19 +1722,8 @@ menu specification.") (version (package-version mate-desktop)) (source #f) (build-system trivial-build-system) - (arguments - `(#:modules ((guix build union)) - #:builder - (begin - (use-modules (ice-9 match) - (guix build union)) - (match %build-inputs - (((names . directories) ...) - (union-build (assoc-ref %outputs "out") - directories) - #t))))) - (native-inputs (list desktop-file-utils)) - (inputs + (arguments '(#:builder (mkdir %output))) + (propagated-inputs ;; TODO: Add more packages (append (if (or (%current-target-system) (supported-package? gnome-keyring)) @@ -1610,15 +1735,14 @@ menu specification.") dbus dconf dconf-editor + desktop-file-utils engrampa eom font-abattis-cantarell + font-dejavu ;default font glib-networking gvfs hicolor-icon-theme - libmatekbd - libmateweather - libmatemixer marco mate-session-manager mate-settings-daemon @@ -1628,10 +1752,12 @@ menu specification.") mate-icon-theme mate-power-manager mate-menus + mate-notification-daemon mate-panel mate-control-center mate-media mate-applets + mate-sensors-applet mate-user-guide mate-calc mate-backgrounds @@ -1646,9 +1772,6 @@ menu specification.") shared-mime-info yelp zenity))) - (propagated-inputs - ;; Default font that applications such as IceCat require. - (list font-dejavu)) (synopsis "The MATE desktop environment") (home-page "https://mate-desktop.org/") (description |