9834 lines
381 KiB
Scheme
9834 lines
381 KiB
Scheme
;;; GNU Guix --- Functional package management for GNU
|
||
;;; Copyright © 2013, 2015 Andreas Enge <andreas@enge.fr>
|
||
;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org>
|
||
;;; Copyright © 2014 Ian Denhardt <ian@zenhack.net>
|
||
;;; Copyright © 2014, 2016 Eric Bavier <bavier@member.fsf.org>
|
||
;;; Copyright © 2014, 2015 Federico Beffa <beffa@fbengineering.ch>
|
||
;;; Copyright © 2015, 2016 Sou Bunnbu <iyzsong@gmail.com>
|
||
;;; Copyright © 2015 Mathieu Lirzin <mthl@openmailbox.org>
|
||
;;; Copyright © 2015, 2017 Andy Wingo <wingo@igalia.com>
|
||
;;; Copyright © 2015 David Hashe <david.hashe@dhashe.com>
|
||
;;; Copyright © 2015, 2016, 2017, 2018, 2019 Ricardo Wurmus <rekado@elephly.net>
|
||
;;; Copyright © 2015, 2016, 2017, 2018 Mark H Weaver <mhw@netris.org>
|
||
;;; Copyright © 2015 David Thompson <davet@gnu.org>
|
||
;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020 Efraim Flashner <efraim@flashner.co.il>
|
||
;;; Copyright © 2016, 2017, 2018 Rene Saavedra <pacoon@protonmail.com>
|
||
;;; Copyright © 2016 Jochem Raat <jchmrt@riseup.net>
|
||
;;; Copyright © 2016, 2017, 2019 Kei Kebreau <kkebreau@posteo.net>
|
||
;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org>
|
||
;;; Copyright © 2016 Roel Janssen <roel@gnu.org>
|
||
;;; Copyright © 2016, 2018 Leo Famulari <leo@famulari.name>
|
||
;;; Copyright © 2016 Alex Griffin <a@ajgrf.com>
|
||
;;; Copyright © 2016, 2017 ng0 <ng0@n0.is>
|
||
;;; Copyright © 2016 David Craven <david@craven.ch>
|
||
;;; Copyright © 2016, 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
|
||
;;; Copyright © 2017 Thomas Danckaert <post@thomasdanckaert.be>
|
||
;;; Copyright © 2017 Hartmut Goebel <h.goebel@crazy-compilers.com>
|
||
;;; Copyright © 2017, 2018 nee <nee-git@hidamari.blue>
|
||
;;; Copyright © 2017 Chris Marusich <cmmarusich@gmail.com>
|
||
;;; Copyright © 2017 Mohammed Sadiq <sadiq@sadiqpk.org>
|
||
;;; Copyright © 2017 Brendan Tildesley <mail@brendan.scot>
|
||
;;; Copyright © 2017, 2018 Rutger Helling <rhelling@mykolab.com>
|
||
;;; Copyright © 2018 Jovany Leandro G.C <bit4bit@riseup.net>
|
||
;;; Copyright © 2018 Vasile Dumitrascu <va511e@yahoo.com>
|
||
;;; Copyright © 2018 Björn Höfling <bjoern.hoefling@bjoernhoefling.de>
|
||
;;; Copyright © 2018, 2019 Timothy Sample <samplet@ngyro.com>
|
||
;;; Copyright © 2019 Danny Milosavljevic <dannym@scratchpost.org>
|
||
;;; Copyright © 2019, 2020 Marius Bakke <mbakke@fastmail.com>
|
||
;;; Copyright © 2019 Florian Pelz <pelzflorian@pelzflorian.de>
|
||
;;; Copyright © 2019 Giacomo Leidi <goodoldpaul@autistici.org>
|
||
;;; Copyright © 2019 Jelle Licht <jlicht@fsfe.org>
|
||
;;; Copyright © 2019 Jonathan Frederickson <jonathan@terracrypt.net>
|
||
;;; Copyright © 2019, 2020 Maxim Cournoyer <maxim.cournoyer@gmail.com>
|
||
;;; Copyright © 2019, 2020 Martin Becze <mjbecze@riseup.net>
|
||
;;; Copyright © 2019 David Wilson <david@daviwil.com>
|
||
;;; Copyright © 2019, 2020 Raghav Gururajan <raghavgururajan@disroot.org>
|
||
;;; Copyright © 2019 Jonathan Brielmaier <jonathan.brielmaier@web.de>
|
||
;;; Copyright © 2019 Leo Prikler <leo.prikler@student.tugraz.at>
|
||
;;; Copyright © 2020 Oleg Pykhalov <go.wigust@gmail.com>
|
||
;;;
|
||
;;; This file is part of GNU Guix.
|
||
;;;
|
||
;;; GNU Guix is free software; you can redistribute it and/or modify it
|
||
;;; under the terms of the GNU General Public License as published by
|
||
;;; the Free Software Foundation; either version 3 of the License, or (at
|
||
;;; your option) any later version.
|
||
;;;
|
||
;;; GNU Guix is distributed in the hope that it will be useful, but
|
||
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
;;; GNU General Public License for more details.
|
||
;;;
|
||
;;; You should have received a copy of the GNU General Public License
|
||
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
|
||
|
||
(define-module (gnu packages gnome)
|
||
#:use-module (gnu packages)
|
||
#:use-module (gnu packages admin)
|
||
#:use-module (gnu packages aspell)
|
||
#:use-module (gnu packages autotools)
|
||
#:use-module (gnu packages avahi)
|
||
#:use-module (gnu packages backup)
|
||
#:use-module (gnu packages base)
|
||
#:use-module (gnu packages bash)
|
||
#:use-module (gnu packages bison)
|
||
#:use-module (gnu packages boost)
|
||
#:use-module (gnu packages build-tools)
|
||
#:use-module (gnu packages calendar)
|
||
#:use-module (gnu packages cdrom)
|
||
#:use-module (gnu packages check)
|
||
#:use-module (gnu packages cmake)
|
||
#:use-module (gnu packages compression)
|
||
#:use-module (gnu packages crates-io)
|
||
#:use-module (gnu packages cups)
|
||
#:use-module (gnu packages curl)
|
||
#:use-module (gnu packages cyrus-sasl)
|
||
#:use-module (gnu packages databases)
|
||
#:use-module (gnu packages dbm)
|
||
#:use-module (gnu packages djvu)
|
||
#:use-module (gnu packages dns)
|
||
#:use-module (gnu packages docbook)
|
||
#:use-module (gnu packages documentation)
|
||
#:use-module (gnu packages enchant)
|
||
#:use-module (gnu packages flex)
|
||
#:use-module (gnu packages fonts)
|
||
#:use-module (gnu packages file-systems)
|
||
#:use-module (gnu packages fontutils)
|
||
#:use-module (gnu packages freedesktop)
|
||
#:use-module (gnu packages game-development)
|
||
#:use-module (gnu packages gettext)
|
||
#:use-module (gnu packages ghostscript)
|
||
#:use-module (gnu packages gl)
|
||
#:use-module (gnu packages glib)
|
||
#:use-module (gnu packages gnupg)
|
||
#:use-module (gnu packages gnuzilla)
|
||
#:use-module (gnu packages geo)
|
||
#:use-module (gnu packages gperf)
|
||
#:use-module (gnu packages graphviz)
|
||
#:use-module (gnu packages gstreamer)
|
||
#:use-module (gnu packages gtk)
|
||
#:use-module (gnu packages guile)
|
||
#:use-module (gnu packages ibus)
|
||
#:use-module (gnu packages icu4c)
|
||
#:use-module (gnu packages image)
|
||
#:use-module (gnu packages imagemagick)
|
||
#:use-module (gnu packages inkscape)
|
||
#:use-module (gnu packages iso-codes)
|
||
#:use-module (gnu packages kerberos)
|
||
#:use-module (gnu packages libcanberra)
|
||
#:use-module (gnu packages libunistring)
|
||
#:use-module (gnu packages libusb)
|
||
#:use-module (gnu packages linux)
|
||
#:use-module (gnu packages lirc)
|
||
#:use-module (gnu packages lua)
|
||
#:use-module (gnu packages mail)
|
||
#:use-module (gnu packages mp3)
|
||
#:use-module (gnu packages multiprecision)
|
||
#:use-module (gnu packages music)
|
||
#:use-module (gnu packages ncurses)
|
||
#:use-module (gnu packages nettle)
|
||
#:use-module (gnu packages networking)
|
||
#:use-module (gnu packages ninja)
|
||
#:use-module (gnu packages nss)
|
||
#:use-module (gnu packages openldap)
|
||
#:use-module (gnu packages password-utils)
|
||
#:use-module (gnu packages pcre)
|
||
#:use-module (gnu packages pdf)
|
||
#:use-module (gnu packages perl)
|
||
#:use-module (gnu packages photo)
|
||
#:use-module (gnu packages pkg-config)
|
||
#:use-module (gnu packages polkit)
|
||
#:use-module (gnu packages popt)
|
||
#:use-module (gnu packages pretty-print)
|
||
#:use-module (gnu packages pulseaudio)
|
||
#:use-module (gnu packages python)
|
||
#:use-module (gnu packages python-crypto)
|
||
#:use-module (gnu packages python-web)
|
||
#:use-module (gnu packages python-xyz)
|
||
#:use-module (gnu packages rdesktop)
|
||
#:use-module (gnu packages readline)
|
||
#:use-module (gnu packages ruby)
|
||
#:use-module (gnu packages rust)
|
||
#:use-module (gnu packages samba)
|
||
#:use-module (gnu packages scanner)
|
||
#:use-module (gnu packages selinux)
|
||
#:use-module (gnu packages slang)
|
||
#:use-module (gnu packages speech)
|
||
#:use-module (gnu packages spice)
|
||
#:use-module (gnu packages sqlite)
|
||
#:use-module (gnu packages ssh)
|
||
#:use-module (gnu packages tex)
|
||
#:use-module (gnu packages time)
|
||
#:use-module (gnu packages tls)
|
||
#:use-module (gnu packages version-control)
|
||
#:use-module (gnu packages video)
|
||
#:use-module (gnu packages virtualization)
|
||
#:use-module (gnu packages vpn)
|
||
#:use-module (gnu packages web)
|
||
#:use-module (gnu packages webkit)
|
||
#:use-module (gnu packages xdisorg)
|
||
#:use-module (gnu packages xiph)
|
||
#:use-module (gnu packages xml)
|
||
#:use-module (gnu packages xorg)
|
||
#:use-module (gnu artwork)
|
||
#:use-module (guix build-system cargo)
|
||
#:use-module (guix build-system cmake)
|
||
#:use-module (guix build-system glib-or-gtk)
|
||
#:use-module (guix build-system gnu)
|
||
#:use-module (guix build-system meson)
|
||
#:use-module (guix build-system python)
|
||
#:use-module (guix build-system trivial)
|
||
#:use-module (guix download)
|
||
#:use-module (guix git-download)
|
||
#:use-module ((guix licenses) #:prefix license:)
|
||
#:use-module (guix packages)
|
||
#:use-module (guix utils)
|
||
#:use-module (guix gexp)
|
||
#:use-module (guix monads)
|
||
#:use-module (guix store)
|
||
#:use-module (ice-9 match)
|
||
#:use-module (srfi srfi-1))
|
||
|
||
(define-public brasero
|
||
(package
|
||
(name "brasero")
|
||
(version "3.12.2")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/brasero/"
|
||
(version-major+minor version) "/"
|
||
"brasero-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0h90y674j26rvjahb8cc0w79zx477rb6zaqcj26wzvq8kmpic8k8"))))
|
||
(build-system glib-or-gtk-build-system)
|
||
(arguments
|
||
`(#:configure-flags (list
|
||
(string-append "--with-girdir="
|
||
(assoc-ref %outputs "out")
|
||
"/share/gir-1.0")
|
||
(string-append "--with-typelibdir="
|
||
(assoc-ref %outputs "out")
|
||
"/lib/girepository-1.0"))
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before 'configure 'embed-growisofs
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
(substitute* "plugins/growisofs/burn-growisofs.c"
|
||
(("\"growisofs") (string-append "\"" (which "growisofs"))))
|
||
#t)))))
|
||
(propagated-inputs
|
||
`(("hicolor-icon-theme" ,hicolor-icon-theme)))
|
||
(native-inputs
|
||
`(("intltool" ,intltool)
|
||
("itstool" ,itstool)
|
||
("glib" ,glib "bin") ; glib-compile-schemas, etc.
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("dvd+rw-tools" ,dvd+rw-tools)
|
||
("glib" ,glib)
|
||
("gnome-doc-utils" ,gnome-doc-utils)
|
||
("gstreamer" ,gstreamer)
|
||
("gst-plugins-base" ,gst-plugins-base)
|
||
("gtk+" ,gtk+)
|
||
("libcanberra" ,libcanberra)
|
||
("libice" ,libice)
|
||
("libnotify" ,libnotify)
|
||
("libsm" ,libsm)
|
||
("libxml2" ,libxml2)
|
||
("totem-pl-parser" ,totem-pl-parser)))
|
||
(home-page "https://wiki.gnome.org/Apps/Brasero")
|
||
(synopsis "CD/DVD burning tool for Gnome")
|
||
(description "Brasero is an application to burn CD/DVD for the Gnome
|
||
Desktop. It is designed to be as simple as possible and has some unique
|
||
features to enable users to create their discs easily and quickly.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public gnome-color-manager
|
||
(package
|
||
(name "gnome-color-manager")
|
||
(version "3.32.0")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1vpxa2zjz3lkq9ldjg0fl65db9s6b4kcs8nyaqfz3jygma7ifg3w"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
`(#:glib-or-gtk? #t
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before
|
||
'check 'pre-check
|
||
(lambda _
|
||
;; Tests require a running X server.
|
||
(system "Xvfb :1 &")
|
||
(setenv "DISPLAY" ":1")
|
||
#t)))))
|
||
(native-inputs
|
||
`(("desktop-file-utils" ,desktop-file-utils)
|
||
("gettext" ,gettext-minimal)
|
||
("glib:bin" ,glib "bin")
|
||
("gtk+:bin" ,gtk+ "bin")
|
||
("itstool" ,itstool)
|
||
("pkg-config" ,pkg-config)
|
||
("xorg-server" ,xorg-server-for-tests)))
|
||
(inputs
|
||
`(("adwaita-icon-theme" ,adwaita-icon-theme)
|
||
("appstream-glib" ,appstream-glib)
|
||
("colord-gtk" ,colord-gtk)
|
||
("exiv2" ,exiv2)
|
||
("gnome-desktop" ,gnome-desktop)
|
||
("libcanberra" ,libcanberra)
|
||
("libexif" ,libexif)
|
||
("libtiff" ,libtiff)
|
||
("libxrandr" ,libxrandr)
|
||
("libxtst" ,libxtst)
|
||
("libxxf86vm" ,libxxf86vm)
|
||
("vte" ,vte)
|
||
("xorgproto" ,xorgproto)))
|
||
(synopsis "Color profile manager for the GNOME desktop")
|
||
(description "GNOME Color Manager is a session framework that makes
|
||
it easy to manage, install and generate color profiles
|
||
in the GNOME desktop.")
|
||
(home-page "https://gitlab.gnome.org/GNOME/gnome-color-manager")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public gnome-online-miners
|
||
(package
|
||
(name "gnome-online-miners")
|
||
(version "3.30.0")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0pjamwwzn5wqgihyss357dyl2q70r0bngnqmwsqawchx5f9aja9c"))))
|
||
(build-system glib-or-gtk-build-system)
|
||
(native-inputs
|
||
`(("gettext" ,gettext-minimal)
|
||
("glib:bin" ,glib "bin")
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("gtk+:bin" ,gtk+ "bin")
|
||
("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("gnome-online-accounts" ,gnome-online-accounts)
|
||
("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
|
||
("grilo" ,grilo)
|
||
("libgdata" ,libgdata)
|
||
("libgfbgraph" ,gfbgraph)
|
||
("libzapojit" ,libzapojit)
|
||
("rest" ,rest)
|
||
("tracker" ,tracker)))
|
||
(synopsis "Web Crawlers for GNOME")
|
||
(description "GNOME Online Miners provides a set of crawlers that
|
||
go through your online content and index them locally in Tracker.
|
||
It has miners for Facebook, Flickr, Google, ownCloud and SkyDrive.")
|
||
(home-page "https://wiki.gnome.org/Projects/GnomeOnlineMiners")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public gssdp
|
||
(package
|
||
(name "gssdp")
|
||
(version "1.2.2")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"195hi10vrsvh6i927mm6rm1ld5sxah3h5sr3bsjm90vb8lxrxfya"))))
|
||
(build-system meson-build-system)
|
||
(native-inputs
|
||
`(("gettext" ,gettext-minimal)
|
||
("glib:bin" ,glib "bin")
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("gtk-doc" ,gtk-doc)
|
||
("pkg-config" ,pkg-config)
|
||
("vala" ,vala)))
|
||
(inputs
|
||
`(("gtk+" ,gtk+)
|
||
("libsoup" ,libsoup)))
|
||
(synopsis "GObject-based API over @acronym{SSDP, Simple Service Discovery
|
||
Protocol} for GNOME")
|
||
(description "This package provides a library to handle resource discovery
|
||
and announcement over @acronym{SSDP, Simple Service Discovery Protocol} and
|
||
a debugging tool, @command{gssdp-device-sniffer}.")
|
||
(home-page "https://gitlab.gnome.org/GNOME/gssdp")
|
||
(license license:lgpl2.0+)))
|
||
|
||
(define-public gupnp
|
||
(package
|
||
(name "gupnp")
|
||
(version "1.2.2")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"12cr3isww4zl0d4himpd2fhl2wmy3jh8sbxp4snp51sw7savv04s"))))
|
||
(build-system meson-build-system)
|
||
(native-inputs
|
||
`(("gettext" ,gettext-minimal)
|
||
("glib:bin" ,glib "bin")
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("gtk-doc" ,gtk-doc)
|
||
("pkg-config" ,pkg-config)
|
||
("vala" ,vala)))
|
||
(inputs
|
||
`(("gssdp" ,gssdp)
|
||
("gtk+" ,gtk+)
|
||
("libsoup" ,libsoup)))
|
||
(synopsis "PnP API for GNOME")
|
||
(description "This package provides GUPnP, an object-oriented framework
|
||
for creating UPnP devices and control points, written in C using
|
||
@code{GObject} and @code{libsoup}.")
|
||
(home-page "https://gitlab.gnome.org/GNOME/gupnp")
|
||
(license license:lgpl2.0+)))
|
||
|
||
(define-public gupnp-dlna
|
||
(package
|
||
(name "gupnp-dlna")
|
||
(version "0.10.5")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0spzd2saax7w776p5laixdam6d7smyynr9qszhbmq7f14y13cghj"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
`(("gettext" ,gettext-minimal)
|
||
("glib:bin" ,glib "bin")
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("gtk-doc" ,gtk-doc)
|
||
("libxml" ,libxml2)
|
||
("pkg-config" ,pkg-config)
|
||
("vala" ,vala)))
|
||
(inputs
|
||
`(("gstreamer" ,gstreamer)
|
||
("gupnp" ,gupnp)))
|
||
(propagated-inputs
|
||
`(("gst-plugins-base" ,gst-plugins-base)
|
||
("gst-plugins-good" ,gst-plugins-good)))
|
||
(synopsis "GUPnP DLNA for GNOME")
|
||
(description "This package provides a small utility library to
|
||
support DLNA-related tasks such as media profile guessing, transcoding to a
|
||
given profile, etc. DLNA is a subset of UPnP A/V.")
|
||
(home-page "https://gitlab.gnome.org/GNOME/gupnp-dlna")
|
||
(license license:lgpl2.0+)))
|
||
|
||
(define-public gupnp-av
|
||
(package
|
||
(name "gupnp-av")
|
||
(version "0.12.11")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1p3grslwqm9bc8rmpn4l48d7v9s84nina4r9xbd932dbj8acz7b8"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
`(("gettext" ,gettext-minimal)
|
||
("glib:bin" ,glib "bin")
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("gtk-doc" ,gtk-doc)
|
||
("libxml" ,libxml2)
|
||
("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("gtk+" ,gtk+)
|
||
("gupnp" ,gupnp)))
|
||
(synopsis "GUPnP A/V for GNOME")
|
||
(description "This package provides a small library for handling
|
||
and implementation of UPnP A/V profiles.")
|
||
(home-page "https://gitlab.gnome.org/GNOME/gupnp-av")
|
||
(license license:lgpl2.0+)))
|
||
|
||
(define-public libmediaart
|
||
(package
|
||
(name "libmediaart")
|
||
(version "1.9.4")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0gc10imyabk57ar54m0qzms0x9dnmkymhkzyk8w1aj3y4lby0yx5"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
`(("glib:bin" ,glib "bin")
|
||
("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("gdk-pixbuf" ,gdk-pixbuf)
|
||
("gettext" ,gettext-minimal)
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("gtk+:doc", gtk+ "doc")
|
||
("vala" ,vala)))
|
||
(synopsis "Media art library for the GNOME desktop")
|
||
(description
|
||
"The libmediaart library is the foundation for media art caching,
|
||
extraction, and lookup for applications on the desktop.")
|
||
(home-page "https://gitlab.gnome.org/GNOME/libmediaart")
|
||
(license license:lgpl2.1+)))
|
||
|
||
(define-public gnome-initial-setup
|
||
(package
|
||
(name "gnome-initial-setup")
|
||
(version "3.32.1")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/gnome-initial-setup/"
|
||
(version-major+minor version)
|
||
"/gnome-initial-setup-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1gwhp7dalyc8zsb2pa66cmpdrj2d6drbq5p331sq6zp8ds10k9ry"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
'(#:configure-flags '(;; Enable camera support for user selfie.
|
||
"-Dcheese=auto"
|
||
"-Dsystemd=false")))
|
||
(native-inputs
|
||
`(("gettext" ,gettext-minimal)
|
||
("glib:bin" ,glib "bin")
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("gtk+:bin" ,gtk+ "bin")
|
||
("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("accountsservice" ,accountsservice)
|
||
;("adwaita-icon-theme" ,adwaita-icon-theme)
|
||
("gdm" ,gdm)
|
||
("geoclue" ,geoclue)
|
||
("gnome-desktop" ,gnome-desktop)
|
||
("gnome-getting-started-docs" ,gnome-getting-started-docs)
|
||
("gnome-online-accounts" ,gnome-online-accounts)
|
||
("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
|
||
("gstreamer" ,gstreamer)
|
||
("ibus" ,ibus)
|
||
("json-glib" ,json-glib)
|
||
("krb5" ,mit-krb5)
|
||
("libgweather" ,libgweather)
|
||
("libsecret" ,libsecret)
|
||
("network-manager" ,network-manager)
|
||
("network-manager-applet" ,network-manager-applet)
|
||
("packagekit" ,packagekit)
|
||
("polkit" ,polkit)
|
||
("pwquality" ,libpwquality)
|
||
("rest" ,rest)
|
||
("upower" ,upower)
|
||
("webkitgtk" ,webkitgtk)))
|
||
(synopsis "Initial setup wizard for GNOME desktop")
|
||
(description "This package provides a set-up wizard when a
|
||
user logs into GNOME for the first time. It typically provides a
|
||
tour of all gnome components and allows the user to set them up.")
|
||
(home-page "https://gitlab.gnome.org/GNOME/gnome-initial-setup")
|
||
(license license:gpl2)))
|
||
|
||
(define-public gnome-user-share
|
||
(package
|
||
(name "gnome-user-share")
|
||
(version "3.33.1")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0lf790pyamdyj7180ils8vizjl8brxcg7jsm1iavfp9ay4wa8mz7"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
`(#:glib-or-gtk? #t
|
||
#:configure-flags
|
||
`("-Dsystemd=false"
|
||
;; Enable nautilus extension for file sharing.
|
||
"-Dnautilus_extension=true")))
|
||
(native-inputs
|
||
`(("gettext" ,gettext-minimal)
|
||
("glib:bin" ,glib "bin")
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("gtk+:bin" ,gtk+ "bin")
|
||
("pkg-config" ,pkg-config)
|
||
("yelp-tools" ,yelp-tools)))
|
||
(inputs
|
||
`(("glib" ,glib)
|
||
("gnome-bluetooth" ,gnome-bluetooth)
|
||
("gtk+" ,gtk+)
|
||
("libcanberra" ,libcanberra)
|
||
("libnotify" ,libnotify)
|
||
("nautilus" ,nautilus))) ; For nautilus extension.
|
||
(synopsis "File sharing for GNOME desktop")
|
||
(description "GNOME User Share is a small package that binds together
|
||
various free software projects to bring easy to use user-level file
|
||
sharing to the masses.")
|
||
(home-page "https://gitlab.gnome.org/GNOME/gnome-user-share")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public sushi
|
||
(package
|
||
(name "sushi")
|
||
(version "3.32.1")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"02idvqjk76lii9xyg3b1yz4rw721709bdm5j8ikjym6amcghl0aj"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
`(#:glib-or-gtk? #t
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'glib-or-gtk-wrap 'wrap-typelib
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let ((prog (string-append (assoc-ref outputs "out")
|
||
"/bin/sushi")))
|
||
;; Put existing typelibs before sushi's deps, so as to correctly
|
||
;; infer gdk-pixbuf
|
||
(wrap-program prog
|
||
`("GI_TYPELIB_PATH" suffix (,(getenv "GI_TYPELIB_PATH"))))
|
||
#t))))))
|
||
(native-inputs
|
||
`(("glib:bin" ,glib "bin")
|
||
("gettext" ,gettext-minimal)
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("clutter" ,clutter)
|
||
("clutter-gst" ,clutter-gst)
|
||
("clutter-gtk" ,clutter-gtk)
|
||
("evince" ,evince) ; For file previewing.
|
||
("freetype" ,freetype)
|
||
("gdk-pixbuf" ,gdk-pixbuf)
|
||
("gjs" ,gjs)
|
||
("gst-plugins-base" ,gst-plugins-base)
|
||
("gstreamer" ,gstreamer)
|
||
("gtksourceview" ,gtksourceview-3)
|
||
("harfbuzz" ,harfbuzz)
|
||
("libepoxy" ,libepoxy)
|
||
("libmusicbrainz" ,libmusicbrainz)
|
||
("libxml2" ,libxml2)
|
||
("neon" ,neon)
|
||
("webkitgtk" ,webkitgtk)))
|
||
(synopsis "File previewer for the GNOME desktop")
|
||
(description "Sushi is a DBus-activated service that allows applications to
|
||
preview files on the GNOME desktop.")
|
||
(home-page "https://gitlab.gnome.org/GNOME/sushi")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public rygel
|
||
(package
|
||
(name "rygel")
|
||
(version "0.38.3")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"003xficqb08r1dgid20i7cn889lbfwrglpx78rjd5nkvgxbimhh8"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
`(("gettext" ,gettext-minimal)
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("gtk-doc" ,gtk-doc)
|
||
("pkg-config" ,pkg-config)
|
||
("vala" ,vala)))
|
||
(inputs
|
||
`(("gdk-pixbuf" ,gdk-pixbuf)
|
||
("gssdp" ,gssdp)
|
||
("gstreamer" ,gstreamer)
|
||
("gst-plugins-base" ,gst-plugins-base)
|
||
("gtk+" ,gtk+)
|
||
("gupnp" ,gupnp)
|
||
("gupnp-av" ,gupnp-av)
|
||
("gupnp-dlna" ,gupnp-dlna)
|
||
("libgee" ,libgee)
|
||
("libmediaart" ,libmediaart)
|
||
("libsoup" ,libsoup)
|
||
("libxslt" ,libxslt)
|
||
("libunistring" ,libunistring)
|
||
("tracker" ,tracker)))
|
||
(synopsis "Share audio, video, and pictures with other devices")
|
||
(description
|
||
"Rygel is a home media solution (@dfn{UPnP AV MediaServer and
|
||
MediaRenderer}) for GNOME that allows you to easily share audio, video, and
|
||
pictures, and to control a media player on your home network.
|
||
|
||
Rygel achieves interoperability with other devices by trying to conform to the
|
||
strict requirements of DLNA and by converting media on-the-fly to formats that
|
||
client devices can handle.")
|
||
(home-page "https://wiki.gnome.org/Projects/Rygel")
|
||
(license (list
|
||
;; For logo (data/icons/*).
|
||
license:cc-by-sa3.0
|
||
;; For all others.
|
||
license:lgpl2.1+))))
|
||
|
||
(define-public libnma
|
||
(package
|
||
(name "libnma")
|
||
(version "1.8.26")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1w9lld38risnk1krknfwln24kabdxnj274pyz4jhndphwigrshaf"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
`(#:glib-or-gtk? #t))
|
||
(native-inputs
|
||
`(("gettext" ,gettext-minimal)
|
||
("glib:bin" ,glib "bin")
|
||
("gtk-doc" ,gtk-doc)
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("adwaita-icon-theme" ,adwaita-icon-theme)
|
||
("gcr" ,gcr)
|
||
("gtk+" ,gtk+)
|
||
("iso-codes" ,iso-codes)
|
||
("mobile-broadband-provider-info" ,mobile-broadband-provider-info)
|
||
("network-manager" ,network-manager)))
|
||
(synopsis "Network Manager's applet library")
|
||
(description "Libnma is an applet library for Network Manager. It was
|
||
initially part of network-manager-applet and has now become a separate
|
||
project.")
|
||
(home-page "https://gitlab.gnome.org/GNOME/libnma")
|
||
|
||
;; Some files carry the "GPL-2.0+" SPDX identifier while others say
|
||
;; "LGPL-2.1+".
|
||
(license license:gpl2+)))
|
||
|
||
(define-public gnome-menus
|
||
(package
|
||
(name "gnome-menus")
|
||
(version "3.32.0")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/gnome-menus/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0x2blzqrapmbsbfzxjcdcpa3vkw9hq5k96h9kvjmy9kl415wcl68"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
`(("gettext" ,gettext-minimal)
|
||
("glib" ,glib)
|
||
("pkg-config" ,pkg-config)))
|
||
(synopsis "Menu support for GNOME desktop")
|
||
(description "GNOME Menus contains the libgnome-menu library, the layout
|
||
configuration files for the GNOME menu, as well as a simple menu editor.")
|
||
(home-page "https://gitlab.gnome.org/GNOME/gnome-menus")
|
||
(license license:lgpl2.0+)))
|
||
|
||
(define-public deja-dup
|
||
(package
|
||
(name "deja-dup")
|
||
(version "34.3")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri "https://launchpadlibrarian.net/295170991/deja-dup-34.3.tar.xz")
|
||
(sha256
|
||
(base32
|
||
"1xqcr61hpbahbla7gdjn4ngjfz7w6f57y7f5pkb77yk05f60j2n9"))
|
||
(patches
|
||
(search-patches "deja-dup-use-ref-keyword-for-iter.patch"))))
|
||
(build-system glib-or-gtk-build-system)
|
||
(arguments
|
||
`(#:modules ((guix build gnu-build-system)
|
||
((guix build cmake-build-system) #:prefix cmake:)
|
||
(guix build glib-or-gtk-build-system)
|
||
(guix build utils))
|
||
#:imported-modules (,@%glib-or-gtk-build-system-modules
|
||
(guix build cmake-build-system))
|
||
#:test-target "test"
|
||
#:configure-flags (list (string-append
|
||
"-DCMAKE_INSTALL_FULL_DATADIR=" %output)
|
||
(string-append
|
||
"-DCMAKE_INSTALL_LIBEXECDIR=" %output))
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'patch-lockfile-deletion
|
||
(lambda rest
|
||
(substitute* "libdeja/tools/duplicity/DuplicityInstance.vala"
|
||
(("/bin/rm")
|
||
(which "rm")))))
|
||
(replace 'configure
|
||
(assoc-ref cmake:%standard-phases 'configure))
|
||
(delete 'check) ;; Fails due to issues with DBus
|
||
(add-after 'install 'wrap-deja-dup
|
||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||
(let ((python (assoc-ref inputs "python"))
|
||
(python-path (getenv "PYTHONPATH"))
|
||
(duplicity (assoc-ref inputs "duplicity"))
|
||
(out (assoc-ref outputs "out")))
|
||
(for-each
|
||
(lambda (program)
|
||
(wrap-program program
|
||
`("PATH" ":" prefix (,(string-append python "/bin")
|
||
,(string-append duplicity "/bin"))))
|
||
(wrap-program program
|
||
`("PYTHONPATH" ":" prefix (,python-path))))
|
||
|
||
(find-files (string-append out "/bin")))
|
||
#t))))))
|
||
(inputs
|
||
`(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("duplicity" ,duplicity)
|
||
("python" ,python-2)
|
||
("python-pygobject" ,python2-pygobject)
|
||
("gtk+" ,gtk+)
|
||
("libnotify" ,libnotify)
|
||
("libpeas" ,libpeas)
|
||
("libsecret" ,libsecret)
|
||
("packagekit" ,packagekit)))
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)
|
||
("vala" ,vala)
|
||
("gettext" ,gettext-minimal)
|
||
("itstool" ,itstool)
|
||
("intltool" ,intltool)
|
||
("cmake" ,cmake-minimal)))
|
||
(home-page "https://launchpad.net/deja-dup")
|
||
(synopsis "Simple backup tool, for regular encrypted backups")
|
||
(description
|
||
"Déjà Dup is a simple backup tool, for regular encrypted backups. It
|
||
uses duplicity as the backend, which supports incremental backups and storage
|
||
either on a local, or remote machine via a number of methods.")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public gnome-user-docs
|
||
(package
|
||
(name "gnome-user-docs")
|
||
(version "3.32.3")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/gnome-user-docs/"
|
||
(version-major+minor version)
|
||
"/gnome-user-docs-" version ".tar.xz"))
|
||
(sha256
|
||
(base32 "0dvsl0ldg8rf7yq0r4dv1pn41s7gjgcqp7agkbflkbmhrl6vbhig"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
`(("gettext" ,gettext-minimal)
|
||
("itstool" ,itstool)
|
||
("pkg-config" ,pkg-config)
|
||
("xmllint" ,libxml2)))
|
||
(synopsis "User documentation for the GNOME desktop")
|
||
(description
|
||
"The GNOME User Documentation explains how to use the GNOME desktop and its
|
||
components. It covers usage and setup of the core GNOME programs by end-users
|
||
and system administrators.")
|
||
(home-page "https://live.gnome.org/DocumentationProject")
|
||
(license license:cc-by3.0)))
|
||
|
||
(define-public gnome-getting-started-docs
|
||
(package
|
||
(name "gnome-getting-started-docs")
|
||
(version "3.32.2")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/gnome-getting-started-docs/"
|
||
(version-major+minor version)
|
||
"/gnome-getting-started-docs-" version ".tar.xz"))
|
||
(sha256
|
||
(base32 "1v4k465mlzrhgcdddzs6bmm0yliyrfx6jg3gh0s17a08i0w5rbwq"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
`(("gettext" ,gettext-minimal)
|
||
("itstool" ,itstool)
|
||
("pkg-config" ,pkg-config)
|
||
("xmllint" ,libxml2)))
|
||
(synopsis "Help to get new users started with the GNOME desktop")
|
||
(description
|
||
"The GNOME Getting Started Documentation contains GNOME's intuitive
|
||
\"Getting Started\" tour, with video guides, that can be viewed with Yelp.
|
||
|
||
It is normally used together with @command{gnome-initial-setup}, but is also
|
||
useful as a tutorial and users' guide for new or less experienced users.")
|
||
(home-page "https://live.gnome.org/DocumentationProject")
|
||
(license license:cc-by-sa3.0)))
|
||
|
||
(define-public dia
|
||
;; This version from GNOME's repository includes fixes for compiling with
|
||
;; recent versions of the build tools. The latest activity on the
|
||
;; pre-GNOME version has been in 2014, while GNOME has continued applying
|
||
;; fixes in 2016.
|
||
(let ((commit "fbc306168edab63db80b904956117cbbdc514ee4"))
|
||
(package
|
||
(name "dia")
|
||
(version (git-version "0.97.3" "1" commit))
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://gitlab.gnome.org/GNOME/dia.git/")
|
||
(commit commit)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"1b4bba0k8ph4cwgw8xjglss0p6n111bpd5app67lrq79mp0ad06l"))))
|
||
(build-system gnu-build-system)
|
||
(inputs
|
||
`(("freetype" ,freetype)
|
||
("gdk-pixbuf" ,gdk-pixbuf)
|
||
("gtk+" ,gtk+-2)
|
||
("libart-lgpl" ,libart-lgpl)
|
||
("libxml2" ,libxml2)
|
||
("pango" ,pango)))
|
||
(native-inputs
|
||
`(("autoconf" ,autoconf)
|
||
("automake" ,automake)
|
||
("intltool" ,intltool)
|
||
("glib" ,glib "bin")
|
||
("libtool" ,libtool)
|
||
("perl" ,perl)
|
||
("pkg-config" ,pkg-config)
|
||
("python-wrapper" ,python-wrapper)))
|
||
(arguments
|
||
`(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before 'bootstrap 'dont-configure-during-bootstrap
|
||
(lambda _
|
||
(setenv "NOCONFIGURE" "true")
|
||
#t)))))
|
||
(home-page "https://wiki.gnome.org/Apps/Dia")
|
||
(synopsis "Diagram creation for GNOME")
|
||
(description "Dia can be used to draw different types of diagrams, and
|
||
includes support for UML static structure diagrams (class diagrams), entity
|
||
relationship modeling, and network diagrams. The program supports various file
|
||
formats like PNG, SVG, PDF and EPS.")
|
||
(license license:gpl2+))))
|
||
|
||
;; This is the unstable release, but it is required for the current stable
|
||
;; release of gvfs (1.38.1).
|
||
(define-public libgdata
|
||
(package
|
||
(name "libgdata")
|
||
(version "0.17.9")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0fj54yqxdapdppisqm1xcyrpgcichdmipq0a0spzz6009ikzgi45"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
'(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before 'check 'disable-failing-tests
|
||
(lambda _
|
||
;; The PicasaWeb API tests fail with gnome-online-accounts@3.24.2.
|
||
;; They have been removed in libgdata 0.17.6, so just do the same.
|
||
(substitute* "gdata/tests/Makefile"
|
||
(("picasaweb\\$\\(EXEEXT\\) ") ""))
|
||
#t)))))
|
||
(native-inputs
|
||
`(("glib:bin" ,glib "bin")
|
||
("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
|
||
("intltool" ,intltool)
|
||
("pkg-config" ,pkg-config)
|
||
("uhttpmock" ,uhttpmock)))
|
||
(inputs
|
||
`(("cyrus-sasl" ,cyrus-sasl)
|
||
("glib-networking" ,glib-networking)))
|
||
(propagated-inputs
|
||
`(("gcr" ,gcr)
|
||
("glib" ,glib)
|
||
("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
|
||
("json-glib" ,json-glib)
|
||
("liboauth" ,liboauth)
|
||
("libsoup" ,libsoup)
|
||
("libxml2" ,libxml2)))
|
||
(home-page "https://wiki.gnome.org/Projects/libgdata")
|
||
(synopsis "Library for accessing online service APIs")
|
||
(description
|
||
"libgdata is a GLib-based library for accessing online service APIs using
|
||
the GData protocol — most notably, Google's services. It provides APIs to
|
||
access the common Google services, and has full asynchronous support.")
|
||
(license license:lgpl2.1+)))
|
||
|
||
(define-public libgxps
|
||
(package
|
||
(name "libgxps")
|
||
(version "0.3.1")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"157s4c9gjjss6yd7qp7n4q6s72gz1k4ilsx4xjvp357azk49z4qs"))))
|
||
(build-system meson-build-system)
|
||
(native-inputs
|
||
`(("gobject-introspection" ,gobject-introspection)
|
||
("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("gtk+" ,gtk+)
|
||
("libjpeg" ,libjpeg-turbo)
|
||
("lcms" ,lcms)
|
||
("libtiff" ,libtiff)))
|
||
(propagated-inputs
|
||
;; In Requires of libgxps.pc.
|
||
`(("cairo" ,cairo)
|
||
("glib" ,glib)
|
||
("libarchive" ,libarchive)))
|
||
(home-page "https://wiki.gnome.org/Projects/libgxps")
|
||
(synopsis "GObject-based library for handling and rendering XPS documents")
|
||
(description
|
||
"libgxps is a GObject-based library for handling and rendering XPS
|
||
documents. This package also contains binaries that can convert XPS documents
|
||
to other formats.")
|
||
(license license:lgpl2.1+)))
|
||
|
||
(define-public gnome-characters
|
||
(package
|
||
(name "gnome-characters")
|
||
(version "3.30.0")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/"
|
||
"gnome-characters/" (version-major+minor version)
|
||
"/gnome-characters-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"08cwz39iwgsyyb2wqhb8vfbmh1cwfkgfiy7adp08w7rwqi99x3dp"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
`(#:glib-or-gtk? #t
|
||
#:phases (modify-phases %standard-phases
|
||
(add-after 'install 'wrap
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
;; GNOME Characters needs Typelib files from GTK and
|
||
;; gnome-desktop.
|
||
(wrap-program (string-append (assoc-ref outputs "out")
|
||
"/bin/gnome-characters")
|
||
`("GI_TYPELIB_PATH" ":" prefix
|
||
(,(getenv "GI_TYPELIB_PATH"))))
|
||
#t)))))
|
||
(native-inputs
|
||
`(("gettext" ,gettext-minimal)
|
||
("glib:bin" ,glib "bin")
|
||
("gtk+:bin" ,gtk+ "bin")
|
||
("pkg-config" ,pkg-config)
|
||
("python" ,python-minimal)))
|
||
(inputs
|
||
`(("gjs" ,gjs)
|
||
("gtk+" ,gtk+)
|
||
("libunistring" ,libunistring)
|
||
("gnome-desktop" ,gnome-desktop)))
|
||
(home-page "https://wiki.gnome.org/Apps/CharacterMap")
|
||
(synopsis "Find and insert unusual characters")
|
||
(description "Characters is a simple utility application to find
|
||
and insert unusual characters. It allows you to quickly find the
|
||
character you are looking for by searching for keywords.")
|
||
(license license:bsd-3)))
|
||
|
||
(define-public gnome-common
|
||
(package
|
||
(name "gnome-common")
|
||
(version "3.18.0")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1kzqi8qvh5p1zncj8msazlmvcwsczjz2hqxp4x2y0mg718vrwmi2"))))
|
||
(build-system gnu-build-system)
|
||
(home-page "https://www.gnome.org/")
|
||
(synopsis "Bootstrap GNOME modules built from Git")
|
||
(description "gnome-common contains various files needed to bootstrap
|
||
GNOME modules built from Git. It contains a common \"autogen.sh\" script that
|
||
can be used to configure a source directory checked out from Git and some
|
||
commonly used macros.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public gnome-contacts
|
||
(package
|
||
(name "gnome-contacts")
|
||
(version "3.32.1")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/gnome-contacts/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"17g1gh8yj58cfpdx69h2szivlbjgvv982kmhnkkh0i5bwj0zs2yy"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
`(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'generate-vapis
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
;; To generate goa's missing .vapi file
|
||
(define goa
|
||
(assoc-ref inputs "gnome-online-accounts:lib"))
|
||
|
||
(invoke "vapigen" "--directory=vapi" "--pkg=gio-2.0"
|
||
"--library=goa-1.0"
|
||
(string-append goa "/share/gir-1.0/Goa-1.0.gir"))
|
||
#t)))))
|
||
(native-inputs
|
||
`(("glib:bin" ,glib "bin")
|
||
("gtk+:bin" ,gtk+ "bin")
|
||
("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("cheese" ,cheese)
|
||
("docbook-xml" ,docbook-xml)
|
||
("dockbook-xsl" ,docbook-xsl)
|
||
("evolution-data-server" ,evolution-data-server)
|
||
("gettext" ,gettext-minimal)
|
||
("gnome-desktop" ,gnome-desktop)
|
||
("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("gst-plugins-base" ,gst-plugins-base)
|
||
("gtk+" ,gtk+)
|
||
("libgee" ,libgee)
|
||
("libxslt" ,libxslt)
|
||
("telepathy-glib" ,telepathy-glib)
|
||
("vala" ,vala)))
|
||
(propagated-inputs
|
||
`(("folks", folks)
|
||
("telepathy-mission-control" ,telepathy-mission-control)))
|
||
(synopsis "GNOME's integrated address book")
|
||
(description
|
||
"GNOME Contacts organizes your contact information from online and
|
||
offline sources, providing a centralized place for managing your contacts.")
|
||
(home-page "https://wiki.gnome.org/Apps/Contacts")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public gnome-desktop
|
||
(package
|
||
(name "gnome-desktop")
|
||
(version "3.32.2")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0bidx4626x7k2myv6f64qv4fzmxv8v475wibiz19kj8hjfr737q9"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
'(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before 'configure 'patch-path
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
(let ((libc (assoc-ref inputs "libc")))
|
||
(substitute* "libgnome-desktop/gnome-languages.c"
|
||
(("\"locale\"")
|
||
(string-append "\"" libc "/bin/locale\"")))
|
||
#t)))
|
||
(add-before 'check 'pre-check
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
;; Tests require a running X server and locales.
|
||
(system "Xvfb :1 &")
|
||
(setenv "DISPLAY" ":1")
|
||
(setenv "GUIX_LOCPATH"
|
||
(string-append (assoc-ref inputs "glibc-locales")
|
||
"/lib/locale"))
|
||
#t)))))
|
||
(native-inputs
|
||
`(("glib:bin" ,glib "bin") ; for gdbus-codegen
|
||
("glibc-locales" ,glibc-locales) ; for tests
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("itstool" ,itstool)
|
||
("intltool" ,intltool)
|
||
("pkg-config" ,pkg-config)
|
||
("xmllint" ,libxml2)
|
||
("xorg-server" ,xorg-server-for-tests)))
|
||
(propagated-inputs
|
||
;; Required by gnome-desktop-3.0.pc.
|
||
`(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
|
||
("gtk+" ,gtk+)
|
||
("iso-codes" ,iso-codes)
|
||
("libseccomp" ,libseccomp)
|
||
("libx11" ,libx11)
|
||
("xkeyboard-config" ,xkeyboard-config)))
|
||
(inputs
|
||
`(("gdk-pixbuf" ,gdk-pixbuf)
|
||
("glib" ,glib)
|
||
("libxext" ,libxext)
|
||
("libxkbfile" ,libxkbfile)
|
||
("libxrandr" ,libxrandr)))
|
||
(home-page "https://www.gnome.org/")
|
||
(synopsis
|
||
"Libgnome-desktop, gnome-about, and desktop-wide documents")
|
||
(description
|
||
"The libgnome-desktop library provides API shared by several applications
|
||
on the desktop, but that cannot live in the platform for various reasons.
|
||
There is no API or ABI guarantee, although we are doing our best to provide
|
||
stability. Documentation for the API is available with gtk-doc.
|
||
|
||
The gnome-about program helps find which version of GNOME is installed.")
|
||
; Some bits under the LGPL.
|
||
(license license:gpl2+)))
|
||
|
||
(define-public gnome-doc-utils
|
||
(package
|
||
(name "gnome-doc-utils")
|
||
(version "0.20.10")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"19n4x25ndzngaciiyd8dd6s2mf9gv6nv3wv27ggns2smm7zkj1nb"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
`(("intltool" ,intltool)
|
||
("docbook-xml" ,docbook-xml-4.4)
|
||
("python2-libxml2" ,python2-libxml2)
|
||
("libxml2" ,libxml2)
|
||
("libxslt" ,libxslt)
|
||
("pkg-config" ,pkg-config)
|
||
("python-2" ,python-2)))
|
||
(home-page "https://wiki.gnome.org/GnomeDocUtils")
|
||
(synopsis
|
||
"Documentation utilities for the Gnome project")
|
||
(description
|
||
"Gnome-doc-utils is a collection of documentation utilities for the
|
||
Gnome project. It includes xml2po tool which makes it easier to translate
|
||
and keep up to date translations of documentation.")
|
||
(license license:gpl2+))) ; xslt under lgpl
|
||
|
||
(define-public gnome-disk-utility
|
||
(package
|
||
(name "gnome-disk-utility")
|
||
(version "3.32.1")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"08vwbji9m1nhjjdiyhhaqi8cncys7i89b4bpy095f8475v8y05bg"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
'(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'skip-gtk-update-icon-cache
|
||
;; Don't create 'icon-theme.cache'.
|
||
(lambda _
|
||
(substitute* "meson_post_install.py"
|
||
(("gtk-update-icon-cache") "true"))
|
||
#t)))))
|
||
(native-inputs
|
||
`(("glib:bin" ,glib "bin")
|
||
("intltool" ,intltool)
|
||
("pkg-config" ,pkg-config)
|
||
("docbook-xml" ,docbook-xml)
|
||
("docbook-xsl" ,docbook-xsl)
|
||
("libxml2" ,libxml2)
|
||
("libxslt" ,libxslt)))
|
||
(inputs
|
||
`(("glib" ,glib)
|
||
("appstream-glib" ,appstream-glib)
|
||
("gnome-settings-daemon" ,gnome-settings-daemon)
|
||
("gtk+" ,gtk+)
|
||
("libcanberra" ,libcanberra)
|
||
("libdvdread" ,libdvdread)
|
||
("libnotify" ,libnotify)
|
||
("libpwquality" ,libpwquality)
|
||
("libsecret" ,libsecret)
|
||
("udisks" ,udisks)))
|
||
(home-page "https://git.gnome.org/browse/gnome-disk-utility")
|
||
(synopsis "Disk management utility for GNOME")
|
||
(description "Disk management utility for GNOME.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public gnome-font-viewer
|
||
(package
|
||
(name "gnome-font-viewer")
|
||
(version "3.30.0")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/gnome-font-viewer/"
|
||
(version-major+minor version)
|
||
"/gnome-font-viewer-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1wwnx2zrlbd2d6np7m9s78alx6j6ranrnh1g2z6zrv9qcj8rpzz5"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
'(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'patch-post-install-script
|
||
(lambda _
|
||
(substitute* "meson-postinstall.sh"
|
||
(("update-desktop-database") (which "true")))
|
||
#t)))))
|
||
(native-inputs
|
||
`(("gettext" ,gettext-minimal)
|
||
("glib:bin" ,glib "bin")
|
||
("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("glib" ,glib)
|
||
("gnome-desktop" ,gnome-desktop)
|
||
("gtk+" ,gtk+)))
|
||
(home-page "https://gitlab.gnome.org/GNOME/gnome-font-viewer")
|
||
(synopsis "GNOME Fonts")
|
||
(description "Application to show you the fonts installed on your computer
|
||
for your use as thumbnails. Selecting any thumbnails shows the full view of how
|
||
the font would look under various sizes.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public gcr
|
||
(package
|
||
(name "gcr")
|
||
(version "3.28.1")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"12qn7mcmxb45lz1gq3s3b34rimiyrrshkrpvxdw1fc0w26i4l84m"))
|
||
(patches
|
||
(list
|
||
;; This patch solves an ordering issue that showed up when
|
||
;; running the test suite against newer Glib 2.60. See
|
||
;; <https://gitlab.gnome.org/GNOME/gcr/merge_requests/9>.
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://gitlab.gnome.org/GNOME/gcr/commit/"
|
||
"45d637578d7643ff96c0183ac267497a0b4c6344.diff"))
|
||
(file-name "gcr-hashtable-ordering.patch")
|
||
(sha256
|
||
(base32
|
||
"1vsqiys8fsm1f1vvds783wwf7zwi5v282rhsai8jrsm6x7h79gbi")))))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
'(#:phases
|
||
(modify-phases %standard-phases
|
||
;; These fail because /var/lib/dbus/machine-id is not present in the
|
||
;; build environment.
|
||
(add-after 'unpack 'disable-failing-tests
|
||
(lambda _
|
||
(substitute* "gcr/test-system-prompt.c"
|
||
(("g_test_add") "//")
|
||
(("return.*") "return 0;"))
|
||
#t))
|
||
(add-before 'check 'pre-check
|
||
(lambda _
|
||
;; Some tests expect to write to $HOME.
|
||
(setenv "HOME" "/tmp")
|
||
#t)))))
|
||
(inputs
|
||
`(("dbus" ,dbus)
|
||
("gnupg" ,gnupg) ;called as a child process during tests
|
||
("libgcrypt" ,libgcrypt)))
|
||
(native-inputs
|
||
`(("python" ,python-2) ;for tests
|
||
("pkg-config" ,pkg-config)
|
||
("glib" ,glib "bin")
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("intltool" ,intltool)
|
||
("libxml2" ,libxml2)
|
||
("vala" ,vala)
|
||
("xsltproc" ,libxslt)))
|
||
;; mentioned in gck.pc, gcr.pc and gcr-ui.pc
|
||
(propagated-inputs
|
||
`(("p11-kit" ,p11-kit)
|
||
("glib" ,glib)
|
||
("gtk+" ,gtk+)))
|
||
(home-page "https://www.gnome.org")
|
||
(synopsis "Libraries for displaying certificates and accessing key stores")
|
||
(description
|
||
"The GCR package contains libraries used for displaying certificates and
|
||
accessing key stores. It also provides the viewer for crypto files on the
|
||
GNOME Desktop.")
|
||
(license license:lgpl2.1+)))
|
||
|
||
(define-public libgnome-keyring
|
||
(package
|
||
(name "libgnome-keyring")
|
||
(version "3.12.0")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"10vpjhgbjm7z2djy04qakd02qlzpd02xnbfjhk2aqwjzn3xpihf4"))))
|
||
(build-system gnu-build-system)
|
||
(inputs
|
||
`(("libgcrypt" ,libgcrypt)
|
||
("dbus" ,dbus)))
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)
|
||
("glib" ,glib "bin")
|
||
("intltool" ,intltool)))
|
||
(propagated-inputs
|
||
;; Referred to in .h files and .pc.
|
||
`(("glib" ,glib)))
|
||
(home-page "https://www.gnome.org")
|
||
(synopsis "Accessing passwords from the GNOME keyring")
|
||
(description
|
||
"Client library to access passwords from the GNOME keyring.")
|
||
|
||
;; Though a couple of files are LGPLv2.1+.
|
||
(license license:lgpl2.0+)))
|
||
|
||
(define-public gnome-keyring
|
||
(package
|
||
(name "gnome-keyring")
|
||
(version "3.28.2")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0sk4las4ji8wv9nx8mldzqccmpmkvvr9pdwv9imj26r10xyin5w1"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:tests? #f ;48 of 603 tests fail because /var/lib/dbus/machine-id does
|
||
;not exist
|
||
#:configure-flags
|
||
(list
|
||
(string-append "--with-pkcs11-config="
|
||
(assoc-ref %outputs "out") "/share/p11-kit/modules/")
|
||
(string-append "--with-pkcs11-modules="
|
||
(assoc-ref %outputs "out") "/share/p11-kit/modules/"))
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'fix-/bin/sh-reference
|
||
(lambda _
|
||
(substitute* "po/Makefile.in.in"
|
||
(("/bin/sh") (which "sh")))
|
||
#t))
|
||
(add-after 'unpack 'fix-docbook
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
(substitute* "docs/Makefile.am"
|
||
(("http://docbook.sourceforge.net/release/xsl/current/manpages/docbook.xsl")
|
||
(string-append (assoc-ref inputs "docbook-xsl")
|
||
"/xml/xsl/docbook-xsl-"
|
||
,(package-version docbook-xsl)
|
||
"/manpages/docbook.xsl")))
|
||
(setenv "XML_CATALOG_FILES"
|
||
(string-append (assoc-ref inputs "docbook-xml")
|
||
"/xml/dtd/docbook/catalog.xml"))
|
||
;; Rerun the whole thing to avoid version mismatch ("This is
|
||
;; Automake 1.15.1, but the definition used by this
|
||
;; AM_INIT_AUTOMAKE comes from Automake 1.15."). Note: we don't
|
||
;; use 'autoreconf' because it insists on running 'libtoolize'.
|
||
(invoke "autoconf")
|
||
(invoke "aclocal")
|
||
(invoke "automake" "-ac"))))))
|
||
(inputs
|
||
`(("libgcrypt" ,libgcrypt)
|
||
("linux-pam" ,linux-pam)
|
||
("openssh" ,openssh)
|
||
("dbus" ,dbus)
|
||
("gcr" ,gcr)))
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)
|
||
("glib" ,glib "bin")
|
||
("glib" ,glib) ; for m4 macros
|
||
("python" ,python-2) ;for tests
|
||
("intltool" ,intltool)
|
||
("autoconf" ,autoconf)
|
||
("automake" ,automake)
|
||
("libxslt" ,libxslt) ;for documentation
|
||
("docbook-xml" ,docbook-xml-4.2)
|
||
("docbook-xsl" ,docbook-xsl)))
|
||
(home-page "https://www.gnome.org")
|
||
(synopsis "Daemon to store passwords and encryption keys")
|
||
(description
|
||
"gnome-keyring is a program that keeps passwords and other secrets for
|
||
users. It is run as a daemon in the session, similar to ssh-agent, and other
|
||
applications locate it via an environment variable or D-Bus.
|
||
|
||
The program can manage several keyrings, each with its own master password,
|
||
and there is also a session keyring which is never stored to disk, but
|
||
forgotten when the session ends.")
|
||
(license license:lgpl2.1+)))
|
||
|
||
(define-public evince
|
||
(package
|
||
(name "evince")
|
||
(version "3.34.2")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/evince/"
|
||
(version-major+minor version) "/"
|
||
"evince-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"05q6v9lssd21623mnj2p49clj9v9csw9kay7n4nklki025grbh1w"))))
|
||
(build-system glib-or-gtk-build-system)
|
||
(arguments
|
||
`(#:configure-flags '("--disable-nautilus" "--enable-introspection")
|
||
#: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)))))
|
||
(inputs
|
||
`(("libarchive" ,libarchive)
|
||
("libgxps" ,libgxps)
|
||
("libspectre" ,libspectre)
|
||
("djvulibre" ,djvulibre)
|
||
("ghostscript" ,ghostscript)
|
||
("poppler" ,poppler)
|
||
("libtiff" ,libtiff)
|
||
;; TODO:
|
||
;; Build libkpathsea as a shared library for DVI support.
|
||
;; ("libkpathsea" ,texlive-bin)
|
||
("gnome-desktop" ,gnome-desktop)
|
||
("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
|
||
("gspell" ,gspell)
|
||
("libgnome-keyring" ,libgnome-keyring)
|
||
("adwaita-icon-theme" ,adwaita-icon-theme)
|
||
("gdk-pixbuf" ,gdk-pixbuf)
|
||
("atk" ,atk)
|
||
("pango" ,pango)
|
||
("gtk+" ,gtk+)
|
||
("glib" ,glib)
|
||
("libxml2" ,libxml2)
|
||
("libsm" ,libsm)
|
||
("libice" ,libice)
|
||
("shared-mime-info" ,shared-mime-info)
|
||
("dconf" ,dconf)
|
||
("libcanberra" ,libcanberra)
|
||
("libsecret" ,libsecret)
|
||
|
||
;; For tests.
|
||
("dogtail" ,python2-dogtail)))
|
||
(native-inputs
|
||
`(("itstool" ,itstool)
|
||
("intltool" ,intltool)
|
||
("glib" ,glib "bin")
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("pkg-config" ,pkg-config)
|
||
("xmllint" ,libxml2)))
|
||
(home-page
|
||
"https://www.gnome.org/projects/evince/")
|
||
(synopsis "GNOME's document viewer")
|
||
(description
|
||
"Evince is a document viewer for multiple document formats. It
|
||
currently supports PDF, PostScript, DjVu, TIFF and DVI. The goal
|
||
of Evince is to replace the multiple document viewers that exist
|
||
on the GNOME Desktop with a single simple application.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public gsettings-desktop-schemas
|
||
(package
|
||
(name "gsettings-desktop-schemas")
|
||
(version "3.32.0")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0d8a6479vappgplq5crdr3ah0ykqcr3fw533wkx9v1a8lnrv8n9d"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
'(#:phases (modify-phases %standard-phases
|
||
(add-after 'unpack 'set-adwaita-theme-file-name
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
;; Provide the correct file name of the default GNOME
|
||
;; background, 'adwaita-timed.xml'.
|
||
(let ((theme (assoc-ref inputs "gnome-backgrounds")))
|
||
(substitute* (find-files "schemas"
|
||
"\\.gschema\\.xml\\.in$")
|
||
(("@datadir@/backgrounds/gnome")
|
||
(string-append theme "/share/backgrounds/gnome")))
|
||
#t))))))
|
||
(inputs
|
||
`(("glib" ,glib)
|
||
("gnome-backgrounds" ,gnome-backgrounds)))
|
||
(native-inputs
|
||
`(("intltool" ,intltool)
|
||
("glib" ,glib "bin") ; glib-compile-schemas, etc.
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("pkg-config" ,pkg-config)))
|
||
(home-page "https://launchpad.net/gsettings-desktop-schemas")
|
||
(synopsis
|
||
"GNOME settings for various desktop components")
|
||
(description
|
||
"Gsettings-desktop-schemas contains a collection of GSettings schemas
|
||
for settings shared by various components of the GNOME desktop.")
|
||
(license license:lgpl2.1+)))
|
||
|
||
(define-public icon-naming-utils
|
||
(package
|
||
(name "icon-naming-utils")
|
||
(version "0.8.90")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://tango.freedesktop.org/releases/icon-naming-utils-"
|
||
version ".tar.bz2"))
|
||
(sha256
|
||
(base32
|
||
"1mc3v28fdfqanx3lqx233vcr4glb4c2376k0kx2v91a4vxwqcdxi"))))
|
||
(build-system gnu-build-system)
|
||
(inputs
|
||
`(("perl" ,perl)
|
||
("perl-xml-simple" ,perl-xml-simple)))
|
||
(arguments
|
||
'(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'install 'set-load-paths
|
||
;; Tell 'icon-name-mapping' where XML::Simple is.
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(prog (string-append out "/libexec/icon-name-mapping")))
|
||
(wrap-program
|
||
prog
|
||
`("PERL5LIB" = ,(list (getenv "PERL5LIB")))))
|
||
#t)))))
|
||
(home-page "http://tango.freedesktop.org/Standard_Icon_Naming_Specification")
|
||
(synopsis
|
||
"Utility to implement the Freedesktop Icon Naming Specification")
|
||
(description
|
||
"To help with the transition to the Freedesktop Icon Naming
|
||
Specification, the icon naming utility maps the icon names used by the
|
||
GNOME and KDE desktops to the icon names proposed in the specification.")
|
||
(license license:lgpl2.1+)))
|
||
|
||
(define-public gnome-icon-theme
|
||
(package
|
||
(name "gnome-icon-theme")
|
||
(version "3.12.0")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0fjh9qmmgj34zlgxb09231ld7khys562qxbpsjlaplq2j85p57im"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
'(#:configure-flags
|
||
;; Don't create 'icon-theme.cache'.
|
||
(let* ((coreutils (assoc-ref %build-inputs "coreutils"))
|
||
(true (string-append coreutils "/bin/true")))
|
||
(list (string-append "GTK_UPDATE_ICON_CACHE=" true)))))
|
||
(native-inputs
|
||
`(("icon-naming-utils" ,icon-naming-utils)
|
||
("intltool" ,intltool)
|
||
("pkg-config" ,pkg-config)))
|
||
(home-page "https://wiki.gnome.org/Personalization")
|
||
(synopsis "GNOME icon theme")
|
||
(description "Icons for the GNOME desktop.")
|
||
(license license:lgpl3))) ; or Creative Commons BY-SA 3.0
|
||
|
||
;; gnome-icon-theme was renamed to adwaita-icon-theme after version 3.12.0.
|
||
(define-public adwaita-icon-theme
|
||
(package (inherit gnome-icon-theme)
|
||
(name "adwaita-icon-theme")
|
||
(version "3.32.0")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"11ij35na8nisvxx3qh527iz33h6z2q1a7iinqyp7p65v0zjbd3b9"))))
|
||
(native-inputs
|
||
`(("gtk-encode-symbolic-svg" ,gtk+ "bin")))))
|
||
|
||
(define-public tango-icon-theme
|
||
(package
|
||
(name "tango-icon-theme")
|
||
(version "0.8.90")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "http://tango.freedesktop.org/releases/"
|
||
"tango-icon-theme-" version ".tar.bz2"))
|
||
(sha256
|
||
(base32
|
||
"034r9s944b4yikyfgn602yv7s54wdzlq0qfvqh52b9x6kbx08h79"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
`(("icon-naming-utils" ,icon-naming-utils)
|
||
("intltool" ,intltool)
|
||
("imagemagick" ,imagemagick)
|
||
("pkg-config" ,pkg-config)))
|
||
(home-page "http://tango-project.org/")
|
||
(synopsis "Tango icon theme")
|
||
(description "This is an icon theme that follows the Tango visual
|
||
guidelines.")
|
||
(license license:public-domain)))
|
||
|
||
(define-public shared-mime-info
|
||
(package
|
||
(name "shared-mime-info")
|
||
(version "1.10")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://freedesktop.org/~hadess/"
|
||
"shared-mime-info-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1gxyvwym3xgpmp262gfn8jg5sla6k5hy6m6dmy6grgiq90xsh9f6"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
;; The build system appears not to be parallel-safe.
|
||
'(#:parallel-build? #f))
|
||
(inputs
|
||
`(("glib" ,glib)
|
||
("libxml2" ,libxml2)))
|
||
(native-inputs
|
||
`(("intltool" ,intltool)
|
||
("pkg-config" ,pkg-config)))
|
||
(home-page "https://www.freedesktop.org/wiki/Software/shared-mime-info")
|
||
(synopsis "Database of common MIME types")
|
||
(description
|
||
"The shared-mime-info package contains the core database of common types
|
||
and the update-mime-database command used to extend it. It requires glib2 to
|
||
be installed for building the update command. Additionally, it uses intltool
|
||
for translations, though this is only a dependency for the maintainers. This
|
||
database is translated at Transifex.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public system-config-printer
|
||
(package
|
||
(name "system-config-printer")
|
||
(version "1.5.12")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"https://github.com/OpenPrinting/system-config-printer/releases/"
|
||
"download/" version
|
||
"/system-config-printer-" version ".tar.xz"))
|
||
(sha256
|
||
(base32 "050yrx1vfh9f001qsn06y1jcidxq0ymxr64kxykasr0zzryp25kb"))))
|
||
(build-system glib-or-gtk-build-system)
|
||
(arguments
|
||
`(#:imported-modules ((guix build python-build-system)
|
||
,@%glib-or-gtk-build-system-modules)
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'patch-Makefile.am
|
||
(lambda _
|
||
;; The Makefile generates some scripts, so set a valid shebang
|
||
(substitute* "Makefile.am"
|
||
(("/bin/bash") (which "bash")))
|
||
(delete-file "configure")
|
||
#t))
|
||
(add-after 'unpack 'patch-docbook-xml
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
;; Modify the man XML otherwise xmlto tries to access the network
|
||
(substitute* "man/system-config-printer.xml"
|
||
(("http://www.oasis-open.org/docbook/xml/4.1.2/")
|
||
(string-append (assoc-ref inputs "docbook-xml")
|
||
"/xml/dtd/docbook/")))
|
||
#t))
|
||
(add-after 'install 'wrap-for-python
|
||
(@@ (guix build python-build-system) wrap))
|
||
(add-after 'install 'wrap
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let ((out (assoc-ref outputs "out"))
|
||
(gi-typelib-path (getenv "GI_TYPELIB_PATH")))
|
||
(for-each
|
||
(lambda (program)
|
||
(wrap-program program
|
||
`("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
|
||
(map (lambda (name)
|
||
(string-append out "/bin/" name))
|
||
'("system-config-printer"
|
||
"system-config-printer-applet"
|
||
"install-printerdriver"
|
||
"scp-dbus-service"))))
|
||
#t)))))
|
||
(inputs
|
||
`(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("python" ,python)
|
||
("cups" ,cups)
|
||
("python-dbus" ,python-dbus)
|
||
("python-pygobject" ,python-pygobject)
|
||
("python-pycups" ,python-pycups)
|
||
("python-requests" ,python-requests)
|
||
("python-pycairo" ,python-pycairo)
|
||
("libnotify" ,libnotify)
|
||
("packagekit" ,packagekit)))
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)
|
||
("desktop-file-utils" ,desktop-file-utils)
|
||
("glib" ,glib)
|
||
("autoconf" ,autoconf)
|
||
("automake" ,automake)
|
||
("intltool" ,intltool)
|
||
("xmlto" ,xmlto)
|
||
("docbook-xml" ,docbook-xml-4.1.2)
|
||
("docbook-xsl" ,docbook-xsl)
|
||
("libxml2" ,libxml2)))
|
||
(home-page "https://github.com/zdohnal/system-config-printer")
|
||
(synopsis "CUPS administration tool")
|
||
(description
|
||
"system-config-printer is a CUPS administration tool. It's written in
|
||
Python using GTK+, and uses the @acronym{IPP, Internet Printing Protocol} when
|
||
configuring CUPS.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public hicolor-icon-theme
|
||
(package
|
||
(name "hicolor-icon-theme")
|
||
(version "0.17")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://icon-theme.freedesktop.org/releases/"
|
||
"hicolor-icon-theme-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1n59i3al3zx6p90ff0l43gzpzmlqnzm6hf5cryxqrlbi48sq8x1i"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:tests? #f)) ; no check target
|
||
(home-page "https://icon-theme.freedesktop.org/releases/")
|
||
(synopsis
|
||
"Freedesktop icon theme")
|
||
(description
|
||
"Freedesktop icon theme.")
|
||
(license license:gpl2)))
|
||
|
||
(define-public libnotify
|
||
(package
|
||
(name "libnotify")
|
||
(version "0.7.7")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"017wgq9n00hx39n0hm784zn18hl721hbaijda868cm96bcqwxd4w"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:configure-flags '("--disable-static")))
|
||
(propagated-inputs
|
||
`(;; In Requires of libnotify.pc.
|
||
("gdk-pixbuf" ,gdk-pixbuf)
|
||
("glib" ,glib)))
|
||
(inputs
|
||
`(("gtk+" ,gtk+)
|
||
("libpng" ,libpng)))
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)
|
||
("glib" ,glib "bin")
|
||
("gobject-introspection" ,gobject-introspection)))
|
||
(home-page "https://developer-next.gnome.org/libnotify/")
|
||
(synopsis
|
||
"GNOME desktop notification library")
|
||
(description
|
||
"Libnotify is a library that sends desktop notifications to a
|
||
notification daemon, as defined in the Desktop Notifications spec. These
|
||
notifications can be used to inform the user about an event or display
|
||
some form of information without getting in the user's way.")
|
||
(license license:lgpl2.1+)))
|
||
|
||
(define-public libpeas
|
||
(package
|
||
(name "libpeas")
|
||
(version "1.24.1")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1162dr7smmfb02czmhshr0f93hqj7w0nw29bys5lzfvwarxcyflw"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
'(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before 'check 'start-xserver
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
(let ((xorg-server (assoc-ref inputs "xorg-server"))
|
||
(disp ":1"))
|
||
(setenv "DISPLAY" disp)
|
||
;; Tests require a running X server.
|
||
(system (format #f "~a/bin/Xvfb ~a &" xorg-server disp))
|
||
#t))))))
|
||
(inputs
|
||
`(("gtk+" ,gtk+)
|
||
("glade" ,glade3)
|
||
("python" ,python)
|
||
("python-pygobject" ,python-pygobject)))
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)
|
||
("gettext" ,gettext-minimal)
|
||
("glib:bin" ,glib "bin")
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("xorg-server" ,xorg-server-for-tests)))
|
||
(propagated-inputs
|
||
;; The .pc file "Requires" gobject-introspection.
|
||
`(("gobject-introspection" ,gobject-introspection)))
|
||
(home-page "https://wiki.gnome.org/Libpeas")
|
||
(synopsis "GObject plugin system")
|
||
(description
|
||
"Libpeas is a gobject-based plugin engine, targeted at giving every
|
||
application the chance to assume its own extensibility. It also has a set of
|
||
features including, but not limited to: multiple extension points; on-demand
|
||
(lazy) programming language support for C, Python and JS; simplicity of the
|
||
API.")
|
||
(license license:lgpl2.0+)))
|
||
|
||
(define-public gtkglext
|
||
(package
|
||
(name "gtkglext")
|
||
(version "1.2.0")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://sourceforge/gtkglext/gtkglext/"
|
||
version "/gtkglext-" version ".tar.gz"))
|
||
(sha256
|
||
(base32 "1ya4d2j2aacr9ii5zj4ac95fjpdvlm2rg79mgnk7yvl1dcy3y1z5"))
|
||
(patches (search-patches
|
||
"gtkglext-disable-disable-deprecated.patch"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:phases
|
||
(modify-phases %standard-phases
|
||
;; Fix a collision between a local variable and a definition from
|
||
;; glibc's string.h.
|
||
(add-after 'unpack 'fix-collision
|
||
(lambda _
|
||
(substitute* "gdk/gdkglshapes.c"
|
||
((" index") " triangle_index"))
|
||
#t)))))
|
||
(inputs `(("gtk+" ,gtk+-2)
|
||
("mesa" ,mesa)
|
||
("glu" ,glu)
|
||
("libx11" ,libx11)
|
||
("libxt" ,libxt)))
|
||
(native-inputs `(("pkg-config" ,pkg-config)
|
||
("glib" ,glib "bin")))
|
||
(propagated-inputs `(("pangox-compat" ,pangox-compat)))
|
||
(home-page "https://projects.gnome.org/gtkglext")
|
||
(synopsis "OpenGL extension to GTK+")
|
||
(description "GtkGLExt is an OpenGL extension to GTK+. It provides
|
||
additional GDK objects which support OpenGL rendering in GTK+ and GtkWidget
|
||
API add-ons to make GTK+ widgets OpenGL-capable.")
|
||
(license license:lgpl2.1+)))
|
||
|
||
(define-public glade3
|
||
(package
|
||
(name "glade")
|
||
(version "3.22.1")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"16p38xavpid51qfy0s26n0n21f9ws1w9k5s65bzh1w7ay8p9my6z"))))
|
||
(build-system glib-or-gtk-build-system)
|
||
(arguments
|
||
`(#:tests? #f ; needs X, GL, and software rendering
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before 'configure 'fix-docbook
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
(substitute* "man/Makefile.in"
|
||
(("http://docbook.sourceforge.net/release/xsl/current/manpages/docbook.xsl")
|
||
(string-append (assoc-ref inputs "docbook-xsl")
|
||
"/xml/xsl/docbook-xsl-"
|
||
,(package-version docbook-xsl)
|
||
"/manpages/docbook.xsl")))
|
||
#t)))))
|
||
(inputs
|
||
`(("gtk+" ,gtk+)
|
||
("libxml2" ,libxml2)))
|
||
(native-inputs
|
||
`(("intltool" ,intltool)
|
||
("itstool" ,itstool)
|
||
("libxslt" ,libxslt) ;for xsltproc
|
||
("docbook-xml" ,docbook-xml-4.2)
|
||
("docbook-xsl" ,docbook-xsl)
|
||
("python" ,python-2)
|
||
("pkg-config" ,pkg-config)))
|
||
(home-page "https://glade.gnome.org")
|
||
(synopsis "GTK+ rapid application development tool")
|
||
(description "Glade is a rapid application development (RAD) tool to
|
||
enable quick & easy development of user interfaces for the GTK+ toolkit and
|
||
the GNOME desktop environment.")
|
||
(license license:lgpl2.0+)))
|
||
|
||
(define-public libcroco
|
||
(package
|
||
(name "libcroco")
|
||
(version "0.6.13")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1m110rbj5d2raxcdp4iz0qp172284945awrsbdlq99ksmqsc4zkn"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("glib" ,glib)
|
||
("libxml2" ,libxml2)
|
||
("zlib" ,zlib)))
|
||
(home-page "https://github.com/GNOME/libcroco")
|
||
(synopsis "CSS2 parsing and manipulation library")
|
||
(description
|
||
"Libcroco is a standalone CSS2 parsing and manipulation library.
|
||
The parser provides a low level event driven SAC-like API and a CSS object
|
||
model like API. Libcroco provides a CSS2 selection engine and an experimental
|
||
XML/CSS rendering engine.")
|
||
|
||
;; LGPLv2.1-only.
|
||
(license license:lgpl2.1)))
|
||
|
||
(define-public libgsf
|
||
(package
|
||
(name "libgsf")
|
||
(version "1.14.46")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0bddmlzg719sjhlbzqlhb7chwk93qc7g68m2r9r8xz112jdradpa"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
`(("intltool" ,intltool)
|
||
("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("python" ,python)
|
||
("zlib" ,zlib)
|
||
("bzip2" ,bzip2)))
|
||
(propagated-inputs
|
||
`(("gdk-pixbuf" ,gdk-pixbuf)
|
||
("glib" ,glib)
|
||
("libxml2" ,libxml2)))
|
||
(home-page "https://www.gnome.org/projects/libgsf")
|
||
(synopsis "GNOME's Structured File Library")
|
||
(description
|
||
"Libgsf aims to provide an efficient extensible I/O abstraction for
|
||
dealing with different structured file formats.")
|
||
|
||
;; LGPLv2.1-only.
|
||
(license license:lgpl2.1)))
|
||
|
||
(define-public librsvg
|
||
(package
|
||
(name "librsvg")
|
||
(version "2.40.20")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0ay9himvw1l1swcf3h1312d2iqzfl65kpbfgiyfykgvq7cydvx6g"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:configure-flags
|
||
(list "--disable-static"
|
||
"--enable-vala") ; needed for e.g. gnome-mines
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before 'configure 'pre-configure
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
(substitute* "gdk-pixbuf-loader/Makefile.in"
|
||
;; By default the gdk-pixbuf loader is installed under
|
||
;; gdk-pixbuf's prefix. Work around that.
|
||
(("gdk_pixbuf_moduledir = .*$")
|
||
(string-append "gdk_pixbuf_moduledir = "
|
||
"$(prefix)/lib/gdk-pixbuf-2.0/2.10.0/"
|
||
"loaders\n"))
|
||
;; Drop the 'loaders.cache' file, it's in gdk-pixbuf+svg.
|
||
(("gdk_pixbuf_cache_file = .*$")
|
||
"gdk_pixbuf_cache_file = $(TMPDIR)/loaders.cache\n"))
|
||
#t))
|
||
(add-before 'check 'remove-failing-tests
|
||
(lambda _
|
||
(with-directory-excursion "tests/fixtures/reftests"
|
||
(for-each delete-file
|
||
'(;; This test fails on i686:
|
||
"svg1.1/masking-path-04-b.svg"
|
||
;; This test fails on armhf:
|
||
"svg1.1/masking-mask-01-b.svg"
|
||
;; This test fails on aarch64:
|
||
"bugs/777834-empty-text-children.svg")))
|
||
#t)))))
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)
|
||
("vala" ,vala)
|
||
("glib" ,glib "bin") ; glib-mkenums, etc.
|
||
("gobject-introspection" ,gobject-introspection))) ; g-ir-compiler, etc.
|
||
(inputs
|
||
`(("pango" ,pango)
|
||
("libcroco" ,libcroco)
|
||
("bzip2" ,bzip2)
|
||
("libgsf" ,libgsf)
|
||
("libxml2" ,libxml2)))
|
||
(propagated-inputs
|
||
;; librsvg-2.0.pc refers to all of that.
|
||
`(("cairo" ,cairo)
|
||
("gdk-pixbuf" ,gdk-pixbuf)
|
||
("glib" ,glib)))
|
||
(home-page "https://wiki.gnome.org/LibRsvg")
|
||
(synopsis "Render SVG files using Cairo")
|
||
(description
|
||
"Librsvg is a C library to render SVG files using the Cairo 2D graphics
|
||
library.")
|
||
(license license:lgpl2.0+)))
|
||
|
||
(define* (computed-origin-method gexp-promise hash-algo hash
|
||
#:optional (name "source")
|
||
#:key (system (%current-system))
|
||
(guile (default-guile)))
|
||
"Return a derivation that executes the G-expression that results
|
||
from forcing GEXP-PROMISE."
|
||
(mlet %store-monad ((guile (package->derivation guile system)))
|
||
(gexp->derivation (or name "computed-origin")
|
||
(force gexp-promise)
|
||
#:graft? #f ;nothing to graft
|
||
#:system system
|
||
#:guile-for-build guile)))
|
||
|
||
(define librsvg-next-source
|
||
(let* ((version "2.46.3")
|
||
(upstream-source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/librsvg/"
|
||
(version-major+minor version) "/"
|
||
"librsvg-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1s3a96i7f4pynjwxxvhysp4b6r7kyi8nasdxfyi62hc7gm34d3kn")))))
|
||
(origin
|
||
(method computed-origin-method)
|
||
(file-name (string-append "librsvg-" version ".tar.xz"))
|
||
(sha256 #f)
|
||
(uri
|
||
(delay
|
||
(with-imported-modules '((guix build utils))
|
||
#~(begin
|
||
(use-modules (guix build utils))
|
||
(set-path-environment-variable
|
||
"PATH" '("bin")
|
||
(list "/tmp"
|
||
#+(canonical-package xz)
|
||
#+(canonical-package gzip)
|
||
#+(canonical-package tar)))
|
||
(invoke "tar" "xvf" #+upstream-source)
|
||
(with-directory-excursion (string-append "librsvg-" #$version)
|
||
;; The following crate(s) are needed in addition to the ones replaced:
|
||
(begin
|
||
(invoke
|
||
"tar" "xvf" #+(package-source rust-autocfg-0.1) "-C" "vendor"))
|
||
(for-each
|
||
(lambda (crate)
|
||
(delete-file-recursively (string-append "vendor/" (car crate)))
|
||
(invoke "tar" "xvf" (cdr crate) "-C" "vendor"))
|
||
'(("aho-corasick" . #+(package-source rust-aho-corasick-0.7))
|
||
;; alga 0.9
|
||
("approx" . #+(package-source rust-approx-0.3))
|
||
("arrayvec" . #+(package-source rust-arrayvec-0.4))
|
||
("atty" . #+(package-source rust-atty-0.2))
|
||
("autocfg" . #+(package-source rust-autocfg-1.0))
|
||
("bitflags" . #+(package-source rust-bitflags-1))
|
||
;; block 0.1
|
||
("bstr" . #+(package-source rust-bstr-0.2))
|
||
("byteorder" . #+(package-source rust-byteorder-1.3))
|
||
;; cairo-rs 0.7
|
||
;; cairo-sys-rs 0.9
|
||
("cast" . #+(package-source rust-cast-0.2))
|
||
("cfg-if" . #+(package-source rust-cfg-if-0.1))
|
||
("clap" . #+(package-source rust-clap-2))
|
||
("cloudabi" . #+(package-source rust-cloudabi-0.0))
|
||
("criterion" . #+(package-source rust-criterion-0.2))
|
||
("criterion-plot" . #+(package-source rust-criterion-plot-0.3))
|
||
("crossbeam-deque" . #+(package-source rust-crossbeam-deque-0.7))
|
||
("crossbeam-epoch" . #+(package-source rust-crossbeam-epoch-0.8))
|
||
("crossbeam-queue" . #+(package-source rust-crossbeam-queue-0.2))
|
||
("crossbeam-utils" . #+(package-source rust-crossbeam-utils-0.7))
|
||
;; cssparser 0.25
|
||
;; cssparser-macros 0.3
|
||
("csv" . #+(package-source rust-csv-1.1))
|
||
("csv-core" . #+(package-source rust-csv-core-0.1))
|
||
;; data-url 0.1
|
||
;; downcast-rs 1.0
|
||
("dtoa" . #+(package-source rust-dtoa-0.4))
|
||
;; dtoa-short 0.3
|
||
("either" . #+(package-source rust-either-1.5))
|
||
("encoding" . #+(package-source rust-encoding-0.2))
|
||
("encoding-index-japanese" . #+(package-source rust-encoding-index-japanese-1.20141219))
|
||
("encoding-index-korean" . #+(package-source rust-encoding-index-korean-1.20141219))
|
||
("encoding-index-simpchinese" . #+(package-source rust-encoding-index-simpchinese-1.20141219))
|
||
("encoding-index-singlebyte" . #+(package-source rust-encoding-index-singlebyte-1.20141219))
|
||
("encoding-index-tradchinese" . #+(package-source rust-encoding-index-tradchinese-1.20141219))
|
||
("encoding_index_tests" . #+(package-source rust-encoding-index-tests-0.1))
|
||
;; float-cmp 0.5
|
||
;; fragile 0.3
|
||
("fuchsia-cprng" . #+(package-source rust-fuchsia-cprng-0.1))
|
||
("futf" . #+(package-source rust-futf-0.1))
|
||
;; gdk-pixbuf 0.7
|
||
;; gdk-pixbuf-sys 0.9
|
||
("generic-array" . #+(package-source rust-generic-array-0.12))
|
||
;; gio 0.7
|
||
;; gio-sys 0.9
|
||
;; glib 0.8
|
||
;; glib-sys 0.9
|
||
;; gobject-sys 0.9
|
||
("idna" . #+(package-source rust-idna-0.2))
|
||
("itertools" . #+(package-source rust-itertools-0.8))
|
||
("itoa" . #+(package-source rust-itoa-0.4))
|
||
("language-tags" . #+(package-source rust-language-tags-0.2))
|
||
("lazy_static" . #+(package-source rust-lazy-static-1))
|
||
("libc" . #+(package-source rust-libc-0.2))
|
||
("libm" . #+(package-source rust-libm-0.1))
|
||
;; locale_config 0.3
|
||
("log" . #+(package-source rust-log-0.4))
|
||
("mac" . #+(package-source rust-mac-0.1))
|
||
;; malloc_buf 0.0
|
||
;; markup5ever 0.9
|
||
("matches" . #+(package-source rust-matches-0.1))
|
||
;; matrixmultiply 0.2
|
||
("memchr" . #+(package-source rust-memchr-2.2))
|
||
("memoffset" . #+(package-source rust-memoffset-0.5))
|
||
;; nalgebra 0.18
|
||
("new_debug_unreachable" . #+(package-source rust-new-debug-unreachable-1.0))
|
||
("nodrop" . #+(package-source rust-nodrop-0.1))
|
||
("num-complex" . #+(package-source rust-num-complex-0.2))
|
||
("num-integer" . #+(package-source rust-num-integer-0.1))
|
||
;; num-rational 0.2
|
||
("num-traits" . #+(package-source rust-num-traits-0.2))
|
||
("num_cpus" . #+(package-source rust-num-cpus-1.10))
|
||
;; objc 0.2
|
||
;; objc-foundation 0.1
|
||
;; objc_id 0.1
|
||
;; pango 0.7
|
||
;; pango-sys 0.9
|
||
;; pangocairo 0.8
|
||
;; pangocairo-sys 0.10
|
||
("percent-encoding" . #+(package-source rust-percent-encoding-2.1))
|
||
("phf" . #+(package-source rust-phf-0.7))
|
||
("phf_codegen" . #+(package-source rust-phf-codegen-0.7))
|
||
("phf_generator" . #+(package-source rust-phf-generator-0.7))
|
||
("phf_shared" . #+(package-source rust-phf-shared-0.7))
|
||
("pkg-config" . #+(package-source rust-pkg-config-0.3))
|
||
("precomputed-hash" . #+(package-source rust-precomputed-hash-0.1))
|
||
("proc-macro2" . #+(package-source rust-proc-macro2-1.0))
|
||
;; procedural-masquerade 0.1
|
||
("quote" . #+(package-source rust-quote-1.0))
|
||
("rand" . #+(package-source rust-rand-0.6))
|
||
("rand_chacha" . #+(package-source rust-rand-chacha-0.1))
|
||
("rand_core-0.3.1" . #+(package-source rust-rand-core-0.3))
|
||
("rand_core" . #+(package-source rust-rand-core-0.4))
|
||
("rand_hc" . #+(package-source rust-rand-hc-0.1))
|
||
("rand_isaac" . #+(package-source rust-rand-isaac-0.1))
|
||
("rand_jitter" . #+(package-source rust-rand-jitter-0.1))
|
||
("rand_os" . #+(package-source rust-rand-os-0.1))
|
||
("rand_pcg" . #+(package-source rust-rand-pcg-0.1))
|
||
("rand_xorshift" . #+(package-source rust-rand-xorshift-0.1))
|
||
("rand_xoshiro" . #+(package-source rust-rand-xoshiro-0.1))
|
||
;; rawpointer 0.2
|
||
("rayon" . #+(package-source rust-rayon-1.3))
|
||
("rayon-core" . #+(package-source rust-rayon-core-1.7))
|
||
;; rctree 0.3
|
||
("rdrand" . #+(package-source rust-rdrand-0.4))
|
||
("regex" . #+(package-source rust-regex-1.3))
|
||
("regex-automata" . #+(package-source rust-regex-automata-0.1))
|
||
("regex-syntax" . #+(package-source rust-regex-syntax-0.6))
|
||
("rustc_version" . #+(package-source rust-rustc-version-0.2))
|
||
("ryu" . #+(package-source rust-ryu-1.0))
|
||
("same-file" . #+(package-source rust-same-file-1.0))
|
||
("scopeguard" . #+(package-source rust-scopeguard-1.0))
|
||
("semver" . #+(package-source rust-semver-0.9))
|
||
("semver-parser" . #+(package-source rust-semver-parser-0.7))
|
||
("serde" . #+(package-source rust-serde-1.0))
|
||
("serde_derive" . #+(package-source rust-serde-derive-1.0))
|
||
("serde_json" . #+(package-source rust-serde-json-1.0))
|
||
("siphasher" . #+(package-source rust-siphasher-0.2))
|
||
("smallvec" . #+(package-source rust-smallvec-0.6))
|
||
("string_cache" . #+(package-source rust-string-cache-0.7))
|
||
;("string_cache_codegen" . #+(package-source rust-string-cache-codegen-0.4))
|
||
("string_cache_shared" . #+(package-source rust-string-cache-shared-0.3))
|
||
("syn" . #+(package-source rust-syn-1.0))
|
||
("tendril" . #+(package-source rust-tendril-0.4))
|
||
("textwrap" . #+(package-source rust-textwrap-0.11))
|
||
("thread_local" . #+(package-source rust-thread-local-1.0))
|
||
("tinytemplate" . #+(package-source rust-tinytemplate-1.0))
|
||
("typenum" . #+(package-source rust-typenum-1.10))
|
||
("unicode-bidi" . #+(package-source rust-unicode-bidi-0.3))
|
||
("unicode-normalization" . #+(package-source rust-unicode-normalization-0.1))
|
||
("unicode-width" . #+(package-source rust-unicode-width-0.1))
|
||
("unicode-xid" . #+(package-source rust-unicode-xid-0.2))
|
||
("url" . #+(package-source rust-url-2.1))
|
||
("utf-8" . #+(package-source rust-utf-8-0.7))
|
||
("walkdir" . #+(package-source rust-walkdir-2.2))
|
||
("winapi" . #+(package-source rust-winapi-0.3))
|
||
("winapi-i686-pc-windows-gnu" . #+(package-source rust-winapi-i686-pc-windows-gnu-0.4))
|
||
("winapi-util" . #+(package-source rust-winapi-util-0.1))
|
||
("winapi-x86_64-pc-windows-gnu" . #+(package-source rust-winapi-x86-64-pc-windows-gnu-0.4))
|
||
;; xml-rs 0.8
|
||
)))
|
||
(format #t "Replacing vendored crates in the tarball and repacking ...~%")
|
||
(force-output)
|
||
(invoke "tar" "cfa" #$output
|
||
;; Avoid non-determinism in the archive. We set the
|
||
;; mtime of files in the archive to early 1980 because
|
||
;; the build process fails if the mtime of source
|
||
;; files is pre-1980, due to the creation of zip
|
||
;; archives.
|
||
"--mtime=@315619200" ; 1980-01-02 UTC
|
||
"--owner=root:0"
|
||
"--group=root:0"
|
||
"--sort=name"
|
||
(string-append "librsvg-" #$version))
|
||
#t)))))))
|
||
|
||
(define-public librsvg-next
|
||
(package
|
||
(name "librsvg")
|
||
(version "2.46.3")
|
||
(source librsvg-next-source)
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:configure-flags
|
||
(list "--disable-static"
|
||
"--enable-vala") ; needed for e.g. gnome-mines
|
||
#:make-flags '("CC=gcc")
|
||
#:imported-modules ,%cargo-utils-modules ;for `generate-all-checksums'
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'configure 'patch-cargo-checksums
|
||
(lambda _
|
||
(use-modules (guix build cargo-utils))
|
||
(substitute* "librsvg/Cargo.toml"
|
||
(("bitflags .*") "bitflags = \"1\"\n")) ; 1.2 is vendored
|
||
(generate-all-checksums "vendor")
|
||
(delete-file "Cargo.lock")
|
||
(invoke "cargo" "generate-lockfile")))
|
||
(add-before 'configure 'pre-configure
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
(substitute* "gdk-pixbuf-loader/Makefile.in"
|
||
;; By default the gdk-pixbuf loader is installed under
|
||
;; gdk-pixbuf's prefix. Work around that.
|
||
(("gdk_pixbuf_moduledir = .*$")
|
||
(string-append "gdk_pixbuf_moduledir = "
|
||
"$(prefix)/lib/gdk-pixbuf-2.0/2.10.0/"
|
||
"loaders\n"))
|
||
;; Drop the 'loaders.cache' file, it's in gdk-pixbuf+svg.
|
||
(("gdk_pixbuf_cache_file = .*$")
|
||
"gdk_pixbuf_cache_file = $(TMPDIR)/loaders.cache\n"))
|
||
#t))
|
||
(add-before 'check 'remove-failing-tests
|
||
(lambda _
|
||
(with-directory-excursion "tests/fixtures/reftests"
|
||
(for-each delete-file
|
||
'(;; The images produced by these tests differ slightly
|
||
;; from their reference counterparts due to differences
|
||
;; in the build environment (missing fonts, etc). See
|
||
;; <tests/README.md> for details.
|
||
;; These fail on x86_64.
|
||
"svg1.1/coords-viewattr-02-b.svg"
|
||
"svg1.1/filters-composite-04-f.svg"
|
||
"svg1.1/filters-image-01-b.svg"
|
||
"svg1.1/filters-conv-02-f.svg"
|
||
"svg1.1/filters-conv-04-f.svg"
|
||
;; This test fails on i686:
|
||
"svg1.1/masking-path-04-b.svg"
|
||
;; This test fails on armhf:
|
||
"svg1.1/masking-mask-01-b.svg"
|
||
;; This test fails on aarch64:
|
||
"bugs/777834-empty-text-children.svg")))
|
||
#t)))))
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)
|
||
;; This is the minimum supported Rust version in Librsvg 2.46.
|
||
("rust" ,rust-1.34)
|
||
("cargo" ,rust-1.34 "cargo")
|
||
("vala" ,vala)
|
||
("glib" ,glib "bin") ; glib-mkenums, etc.
|
||
("gobject-introspection" ,gobject-introspection))) ; g-ir-compiler, etc.
|
||
(inputs
|
||
`(("pango" ,pango)
|
||
("libcroco" ,libcroco)
|
||
("bzip2" ,bzip2)
|
||
("libgsf" ,libgsf)
|
||
("libxml2" ,libxml2)))
|
||
(propagated-inputs
|
||
;; librsvg-2.0.pc refers to all of that.
|
||
`(("cairo" ,cairo)
|
||
("gdk-pixbuf" ,gdk-pixbuf)
|
||
("glib" ,glib)))
|
||
(home-page "https://wiki.gnome.org/LibRsvg")
|
||
(synopsis "Render SVG files using Cairo")
|
||
(description
|
||
"Librsvg is a C library to render SVG files using the Cairo 2D graphics
|
||
library.")
|
||
(license license:lgpl2.1+)))
|
||
|
||
(define-public libidl
|
||
(package
|
||
(name "libidl")
|
||
(version "0.8.14")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/libIDL/"
|
||
(version-major+minor version) "/"
|
||
"libIDL-" version ".tar.bz2"))
|
||
(sha256
|
||
(base32
|
||
"08129my8s9fbrk0vqvnmx6ph4nid744g5vbwphzkaik51664vln5"))))
|
||
(build-system gnu-build-system)
|
||
(inputs `(("glib" ,glib)))
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)
|
||
("flex" ,flex)
|
||
("bison" ,bison)))
|
||
(home-page "http://freecode.com/projects/libidl")
|
||
(synopsis "Create trees of CORBA Interface Definition Language files")
|
||
(description "Libidl is a library for creating trees of CORBA Interface
|
||
Definition Language (idl) files, which is a specification for defining
|
||
portable interfaces. libidl was initially written for orbit (the orb from the
|
||
GNOME project, and the primary means of libidl distribution). However, the
|
||
functionality was designed to be as reusable and portable as possible.")
|
||
(properties `((upstream-name . "libIDL")))
|
||
(license license:lgpl2.0+)))
|
||
|
||
|
||
(define-public orbit2
|
||
(package
|
||
(name "orbit2")
|
||
(version "2.14.19")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (let ((upstream-name "ORBit2"))
|
||
(string-append "mirror://gnome/sources/" upstream-name "/"
|
||
(version-major+minor version) "/"
|
||
upstream-name "-" version ".tar.bz2")))
|
||
(sha256
|
||
(base32
|
||
"0l3mhpyym9m5iz09fz0rgiqxl2ym6kpkwpsp1xrr4aa80nlh1jam"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:configure-flags
|
||
'(;; We don't need static libraries, plus they don't build reproducibly
|
||
;; (non-deterministic ordering of .o files in the archive.)
|
||
"--disable-static"
|
||
|
||
;; The programmer kindly gives us a hook to turn off deprecation
|
||
;; warnings ...
|
||
"DISABLE_DEPRECATED_CFLAGS=-DGLIB_DISABLE_DEPRECATION_WARNINGS")
|
||
;; ... which they then completly ignore !!
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before 'configure 'ignore-deprecations
|
||
(lambda _
|
||
(substitute* "linc2/src/Makefile.in"
|
||
(("-DG_DISABLE_DEPRECATED") "-DGLIB_DISABLE_DEPRECATION_WARNINGS"))
|
||
#t)))))
|
||
(inputs `(("glib" ,glib)
|
||
("libidl" ,libidl)))
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)))
|
||
(home-page "https://projects.gnome.org/orbit2/")
|
||
(synopsis "CORBA 2.4-compliant Object Request Broker")
|
||
(description "ORBit2 is a CORBA 2.4-compliant Object Request Broker (orb)
|
||
featuring mature C, C++ and Python bindings.")
|
||
;; Licence notice is unclear. The Web page simply say "GPL" without giving
|
||
;; a version. SOME of the code files have licence notices for GPLv2+.
|
||
;; The tarball contains files of the text of GPLv2 and LGPLv2.
|
||
(license license:gpl2+)
|
||
(properties `((upstream-name . "ORBit2")))))
|
||
|
||
|
||
(define-public libbonobo
|
||
(package
|
||
(name "libbonobo")
|
||
(version "2.32.1")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version)
|
||
"/" name "-" version ".tar.bz2"))
|
||
(sha256
|
||
(base32 "0swp4kk6x7hy1rvd1f9jba31lvfc6qvafkvbpg9h0r34fzrd8q4i"))
|
||
(patches (search-patches
|
||
"libbonobo-activation-test-race.patch"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
;; The programmer kindly gives us a hook to turn off deprecation warnings ...
|
||
`(#:configure-flags
|
||
'("DISABLE_DEPRECATED_CFLAGS=-DGLIB_DISABLE_DEPRECATION_WARNINGS")
|
||
;; ... which they then completly ignore !!
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before 'configure 'ignore-deprecations
|
||
(lambda _
|
||
(substitute* "activation-server/Makefile.in"
|
||
(("-DG_DISABLE_DEPRECATED") "-DGLIB_DISABLE_DEPRECATION_WARNINGS"))
|
||
#t)))
|
||
|
||
;; There's apparently a race condition between the server stub
|
||
;; generation and linking of the example under 'samples/echo' that can
|
||
;; lead do undefined references when building in parallel, as reported
|
||
;; at <https://forums.gentoo.org/viewtopic-t-223376-start-550.html>.
|
||
;; Thus, disable parallel builds.
|
||
#:parallel-build? #f))
|
||
(inputs `(("popt" ,popt)
|
||
("libxml2" ,libxml2)))
|
||
;; The following are Required by the .pc file
|
||
(propagated-inputs
|
||
`(("glib" ,glib)
|
||
("orbit2" ,orbit2)))
|
||
(native-inputs
|
||
`(("intltool" ,intltool)
|
||
("pkg-config" ,pkg-config)
|
||
("glib" ,glib "bin") ; for glib-genmarshal, etc.
|
||
("flex" ,flex)
|
||
("bison" ,bison)))
|
||
(home-page "https://developer.gnome.org/libbonobo/")
|
||
(synopsis "Framework for creating reusable components for use in GNOME applications")
|
||
(description "Bonobo is a framework for creating reusable components for
|
||
use in GNOME applications, built on top of CORBA.")
|
||
;; Licence not explicitly stated. Source files contain no licence notices.
|
||
;; Tarball contains text of both GPLv2 and LGPLv2
|
||
;; GPLv2 covers both conditions
|
||
(license license:gpl2+)))
|
||
|
||
|
||
(define-public gconf
|
||
(package
|
||
(name "gconf")
|
||
(version "3.2.6")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri
|
||
(let ((upstream-name "GConf"))
|
||
(string-append "mirror://gnome/sources/" upstream-name "/"
|
||
(version-major+minor version) "/"
|
||
upstream-name "-" version ".tar.xz")))
|
||
(sha256
|
||
(base32 "0k3q9nh53yhc9qxf1zaicz4sk8p3kzq4ndjdsgpaa2db0ccbj4hr"))))
|
||
(build-system gnu-build-system)
|
||
(inputs `(("dbus-glib" ,dbus-glib)
|
||
("libxml2" ,libxml2)))
|
||
(propagated-inputs `(("glib" ,glib) ; referred to in the .pc file
|
||
("orbit2" ,orbit2)))
|
||
(native-inputs
|
||
`(("intltool" ,intltool)
|
||
("glib" ,glib "bin") ; for glib-genmarshal, etc.
|
||
("pkg-config" ,pkg-config)))
|
||
(home-page "https://projects.gnome.org/gconf/")
|
||
(synopsis "Store application preferences")
|
||
(description "Gconf is a system for storing application preferences. It
|
||
is intended for user preferences; not arbitrary data storage.")
|
||
(license license:lgpl2.0+)
|
||
(properties '((upstream-name . "GConf")))))
|
||
|
||
|
||
(define-public gnome-mime-data
|
||
(package
|
||
(name "gnome-mime-data")
|
||
(version "2.18.0")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.bz2"))
|
||
(sha256
|
||
(base32
|
||
"1mvg8glb2a40yilmyabmb7fkbzlqd3i3d31kbkabqnq86xdnn69p"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
`(("perl" ,perl)
|
||
("intltool" ,intltool)))
|
||
(arguments
|
||
'(#:phases (modify-phases %standard-phases
|
||
(add-after 'configure 'use-our-intltool
|
||
(lambda _
|
||
;; Do not use the bundled intltool commands, which lack
|
||
;; the "dotless @INC" fixes of our 'intltool' package.
|
||
(substitute* (find-files "." "^Makefile$")
|
||
(("^INTLTOOL_(EXTRACT|UPDATE|MERGE) = .*$" _ tool)
|
||
(string-append "INTLTOOL_" tool " = intltool-"
|
||
(string-downcase tool) "\n")))
|
||
#t)))))
|
||
(home-page "https://www.gnome.org")
|
||
(synopsis "Base MIME and Application database for GNOME")
|
||
(description "GNOME Mime Data is a module which contains the base MIME
|
||
and Application database for GNOME. The data stored by this module is
|
||
designed to be accessed through the MIME functions in GnomeVFS.")
|
||
(license license:gpl2+)))
|
||
|
||
|
||
(define-public gnome-vfs
|
||
(package
|
||
(name "gnome-vfs")
|
||
(version "2.24.4")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.bz2"))
|
||
(sha256
|
||
(base32
|
||
"1ajg8jb8k3snxc7rrgczlh8daxkjidmcv3zr9w809sq4p2sn9pk2"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before 'configure 'ignore-deprecations
|
||
(lambda _
|
||
(substitute* '("libgnomevfs/Makefile.in"
|
||
"daemon/Makefile.in")
|
||
(("-DG_DISABLE_DEPRECATED") "-DGLIB_DISABLE_DEPRECATION_WARNINGS"))
|
||
#t))
|
||
(add-before 'configure 'patch-test-async-cancel-to-never-fail
|
||
(lambda _
|
||
(substitute* "test/test-async-cancel.c"
|
||
(("EXIT_FAILURE") "77"))
|
||
#t)))))
|
||
(inputs `(("libxml2" ,libxml2)
|
||
("dbus-glib" ,dbus-glib)
|
||
("gconf" ,gconf)
|
||
("gnome-mime-data" ,gnome-mime-data)
|
||
("zlib" ,zlib)))
|
||
(native-inputs
|
||
`(("glib" ,glib "bin") ; for glib-mkenums, etc.
|
||
("intltool" ,intltool)
|
||
("pkg-config" ,pkg-config)))
|
||
(home-page "https://developer.gnome.org/gnome-vfs/")
|
||
(synopsis "Access files and folders in GNOME applications")
|
||
(description
|
||
"GnomeVFS is the core library used to access files and folders in GNOME
|
||
applications. It provides a file system abstraction which allows applications
|
||
to access local and remote files with a single consistent API.")
|
||
(license license:lgpl2.0+)))
|
||
|
||
|
||
|
||
(define-public libgnome
|
||
(package
|
||
(name "libgnome")
|
||
(version "2.32.1")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.bz2"))
|
||
(sha256
|
||
(base32
|
||
"197pnq8y0knqjhm2fg4j6hbqqm3qfzfnd0irhwxpk1b4hqb3kimj"))
|
||
(patches (search-patches "libgnome-encoding.patch"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before 'configure 'enable-deprecated
|
||
(lambda _
|
||
(substitute* "libgnome/Makefile.in"
|
||
(("-DG_DISABLE_DEPRECATED") "-DGLIB_DISABLE_DEPRECATION_WARNINGS"))
|
||
#t)))))
|
||
(inputs `(("libxml2" ,libxml2)))
|
||
(native-inputs
|
||
`(("glib" ,glib "bin") ; for glib-mkenums, etc.
|
||
("intltool" ,intltool)
|
||
("pkg-config" ,pkg-config)))
|
||
;; The following are listed as Required in the .pc file
|
||
;; (except for libcanberra -- which seems to be oversight on the part
|
||
;; of the upstream developers -- anything that links against libgnome,
|
||
;; must also link against libcanberra
|
||
(propagated-inputs
|
||
`(("libcanberra" ,libcanberra)
|
||
("libbonobo" ,libbonobo)
|
||
("gconf" ,gconf)
|
||
("gnome-vfs" ,gnome-vfs)
|
||
("popt" ,popt))) ;gnome-program.h includes popt.h
|
||
(home-page "https://developer.gnome.org/libgnome/")
|
||
(synopsis "Useful routines for building applications")
|
||
(description "The libgnome library provides a number of useful routines
|
||
for building modern applications, including session management, activation of
|
||
files and URIs, and displaying help.")
|
||
(license license:lgpl2.0+)))
|
||
|
||
|
||
(define-public libart-lgpl
|
||
(package
|
||
(name "libart-lgpl")
|
||
(version "2.3.21")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (let ((upstream-name "libart_lgpl"))
|
||
(string-append "mirror://gnome/sources/" upstream-name "/"
|
||
(version-major+minor version) "/"
|
||
upstream-name "-" version ".tar.bz2")))
|
||
(sha256
|
||
(base32
|
||
"1yknfkyzgz9s616is0l9gp5aray0f2ry4dw533jgzj8gq5s1xhgx"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)))
|
||
(home-page "https://people.gnome.org/~mathieu/libart")
|
||
(synopsis "2D drawing library")
|
||
(description "Libart is a 2D drawing library intended as a
|
||
high-quality vector-based 2D library with antialiasing and alpha composition.")
|
||
(license license:lgpl2.0+)))
|
||
|
||
|
||
|
||
(define-public libgnomecanvas
|
||
(package
|
||
(name "libgnomecanvas")
|
||
(version "2.30.3")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"1nhnq4lfkk8ljkdafscwaggx0h95mq0rxnd7zgqyq0xb6kkqbjm8"))))
|
||
(build-system gnu-build-system)
|
||
;; Mentioned as Required in the .pc file
|
||
(propagated-inputs `(("libart-lgpl" ,libart-lgpl)
|
||
("gtk+" ,gtk+-2)))
|
||
(native-inputs
|
||
`(("intltool" ,intltool)
|
||
("glib" ,glib "bin") ; for glib-genmarshal, etc.
|
||
("pkg-config" ,pkg-config)))
|
||
(home-page "https://developer.gnome.org/libgnomecanvas/")
|
||
(synopsis "Flexible widget for creating interactive structured graphics")
|
||
(description "The GnomeCanvas widget provides a flexible widget for
|
||
creating interactive structured graphics.")
|
||
(license license:lgpl2.0+)))
|
||
|
||
(define-public libgnomecanvasmm
|
||
(package
|
||
(name "libgnomecanvasmm")
|
||
(version "2.26.0")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.bz2"))
|
||
(sha256
|
||
(base32
|
||
"0679hcnpam2gkag2i63sm0wdm35gwvzafnz1354mg6j5gzwpfrcr"))))
|
||
(build-system gnu-build-system)
|
||
(propagated-inputs `(("libgnomecanvas" ,libgnomecanvas)))
|
||
(native-inputs
|
||
`(("gtkmm-2" ,gtkmm-2)
|
||
("pkg-config" ,pkg-config)))
|
||
(home-page "https://gtkmm.org")
|
||
(synopsis "C++ bindings to the GNOME Canvas library")
|
||
(description "C++ bindings to the GNOME Canvas library.")
|
||
(license license:lgpl2.0+)))
|
||
|
||
(define-public libgnomeui
|
||
(package
|
||
(name "libgnomeui")
|
||
(version "2.24.5")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.bz2"))
|
||
(patches (search-patches "libgnomeui-utf8.patch"))
|
||
(sha256
|
||
(base32
|
||
"03rwbli76crkjl6gp422wrc9lqpl174k56cp9i96b7l8jlj2yddf"))))
|
||
(build-system gnu-build-system)
|
||
;; Mentioned as Required in the .pc file
|
||
(propagated-inputs `(("libbonoboui" ,libbonoboui)
|
||
("libgnome" ,libgnome)
|
||
("libgnomecanvas" ,libgnomecanvas)
|
||
("libgnome-keyring" ,libgnome-keyring)))
|
||
(inputs `(("libjpeg" ,libjpeg)
|
||
("popt" ,popt)
|
||
("libbonobo" ,libbonobo)
|
||
("libxml2" ,libxml2)
|
||
("libglade" ,libglade)))
|
||
(native-inputs
|
||
`(("glib" ,glib "bin") ; for glib-mkenums, etc.
|
||
("intltool" ,intltool)
|
||
("pkg-config" ,pkg-config)))
|
||
(home-page "https://developer.gnome.org/libgnomeui/")
|
||
(synopsis "Additional widgets for applications")
|
||
(description "The libgnomeui library provides additional widgets for
|
||
applications. Many of the widgets from libgnomeui have already been
|
||
ported to GTK+.")
|
||
(license license:lgpl2.0+)))
|
||
|
||
(define-public libglade
|
||
(package
|
||
(name "libglade")
|
||
(version "2.6.4")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.bz2"))
|
||
(sha256
|
||
(base32
|
||
"1v2x2s04jry4gpabws92i0wq2ghd47yr5n9nhgnkd7c38xv1wdk4"))))
|
||
(build-system gnu-build-system)
|
||
(inputs
|
||
`(("python" ,python))) ;; needed for the optional libglade-convert program
|
||
(propagated-inputs
|
||
`(("gtk+-2" ,gtk+-2)
|
||
("libxml2" ,libxml2))) ; required by libglade-2.0.pc
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)))
|
||
(home-page "https://developer.gnome.org/libglade")
|
||
(synopsis "Load glade interfaces and access the glade built widgets")
|
||
(description "Libglade is a library that provides interfaces for loading
|
||
graphical interfaces described in glade files and for accessing the
|
||
widgets built in the loading process.")
|
||
(license license:gpl2+))) ; This is correct. GPL not LGPL
|
||
|
||
(define-public libgnomeprint
|
||
;; This library has been deprecated since 2006; see
|
||
;; <https://mail.gnome.org/archives/devel-announce-list/2006-August/msg00005.html>.
|
||
(package
|
||
(name "libgnomeprint")
|
||
(version "2.18.8")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.bz2"))
|
||
(sha256
|
||
(base32
|
||
"14cnimvlc7ky22g2snyf4362412k3jk1syjf8b9887q5a63fqd0h"))))
|
||
(build-system gnu-build-system)
|
||
(inputs
|
||
`(("popt" ,popt)
|
||
("libart-lgpl" ,libart-lgpl)
|
||
("gtk+" ,gtk+-2)
|
||
("libxml2" ,libxml2)))
|
||
(native-inputs
|
||
`(("intltool" ,intltool)
|
||
("glib" ,glib "bin") ; for glib-genmarshal, etc.
|
||
("pkg-config" ,pkg-config)))
|
||
(home-page "https://projects.gnome.org/gnome-print/home/faq.html")
|
||
(synopsis "Printing framework for GNOME")
|
||
(description
|
||
"GNOME-print was a printing framework for GNOME. It has been deprecated
|
||
since ca. 2006, when GTK+ itself incorporated printing support.")
|
||
(license license:lgpl2.0+)))
|
||
|
||
|
||
(define-public libgnomeprintui
|
||
;; Deprecated; see libgnomeprint.
|
||
(package
|
||
(name "libgnomeprintui")
|
||
(version "2.18.6")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.bz2"))
|
||
(sha256
|
||
(base32
|
||
"0spl8vinb5n6n1krnfnr61dwaxidg67h8j94z9p59k2xdsvfashm"))))
|
||
(build-system gnu-build-system)
|
||
;; Mentioned as Required in the .pc file
|
||
(propagated-inputs `(("libgnomeprint" ,libgnomeprint)))
|
||
(inputs `(("gtk+" ,gtk+-2)
|
||
("glib" ,glib)
|
||
("gnome-icon-theme" ,gnome-icon-theme)
|
||
("libgnomecanvas" ,libgnomecanvas)
|
||
("libxml2" ,libxml2)))
|
||
(native-inputs
|
||
`(("intltool" ,intltool)
|
||
("pkg-config" ,pkg-config)))
|
||
(home-page "https://projects.gnome.org/gnome-print/home/faq.html")
|
||
(synopsis "Printing framework for GNOME")
|
||
(description (package-description libgnomeprint))
|
||
(license license:lgpl2.0+)))
|
||
|
||
(define-public libbonoboui
|
||
(package
|
||
(name "libbonoboui")
|
||
(version "2.24.5")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.bz2"))
|
||
(sha256
|
||
(base32
|
||
"1kbgqh7bw0fdx4f1a1aqwpff7gp5mwhbaz60c6c98bc4djng5dgs"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before 'check 'start-xserver
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
(let ((xorg-server (assoc-ref inputs "xorg-server"))
|
||
(disp ":1"))
|
||
|
||
(setenv "HOME" (getcwd))
|
||
(setenv "DISPLAY" disp)
|
||
;; There must be a running X server and make check doesn't start one.
|
||
;; Therefore we must do it.
|
||
(zero? (system (format #f "~a/bin/Xvfb ~a &" xorg-server disp)))))))))
|
||
;; Mentioned as Required by the .pc file
|
||
(propagated-inputs `(("libxml2" ,libxml2)))
|
||
(inputs
|
||
`(("popt" ,popt)
|
||
("pangox-compat" ,pangox-compat)
|
||
("libgnome" ,libgnome)
|
||
("libgnomecanvas" ,libgnomecanvas)
|
||
("libglade" ,libglade)))
|
||
(native-inputs
|
||
`(("glib" ,glib "bin") ; for glib-genmarshal, etc.
|
||
("intltool" ,intltool)
|
||
("xorg-server" ,xorg-server-for-tests) ; For running the tests
|
||
("pkg-config" ,pkg-config)))
|
||
(home-page "https://developer.gnome.org/libbonoboui/")
|
||
(synopsis "Some user interface controls using Bonobo")
|
||
(description "The Bonobo UI library provides a number of user interface
|
||
controls using the Bonobo component framework.")
|
||
(license license:lgpl2.0+)))
|
||
|
||
(define-public libwnck
|
||
(package
|
||
(name "libwnck")
|
||
(version "3.32.0")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1jp3p1lnwnwi6fxl2rz3166cmwzwy9vqz896anpwc3wdy9f875cm"))))
|
||
(build-system meson-build-system)
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)
|
||
("glib" ,glib "bin") ; for glib-mkenums
|
||
("gobject-introspection" ,gobject-introspection) ; for g-ir-scanner
|
||
("intltool" ,intltool)))
|
||
(propagated-inputs
|
||
`(("gtk+" ,gtk+)
|
||
("libxres" ,libxres)
|
||
("startup-notification" ,startup-notification)))
|
||
(home-page "https://developer.gnome.org/libwnck/")
|
||
(synopsis "Window Navigator Construction Kit")
|
||
(description
|
||
"Libwnck is the Window Navigator Construction Kit, a library for use in
|
||
writing pagers, tasklists, and more generally applications that are dealing
|
||
with window management. It tries hard to respect the Extended Window Manager
|
||
Hints specification (EWMH).")
|
||
(license license:lgpl2.0+)))
|
||
|
||
;; stable version for gtk2, required by xfwm4.
|
||
(define-public libwnck-2
|
||
(package (inherit libwnck)
|
||
(name "libwnck")
|
||
(version "2.30.7")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"15713yl0f8f3p99jzqqfmbicrdswd3vwpx7r3bkf1bgh6d9lvs4b"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)
|
||
("intltool" ,intltool)))
|
||
(propagated-inputs
|
||
`(("gtk+" ,gtk+-2)
|
||
("libxres" ,libxres)
|
||
("startup-notification" ,startup-notification)))))
|
||
|
||
(define-public goffice
|
||
(package
|
||
(name "goffice")
|
||
(version "0.10.46")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/goffice/"
|
||
(version-major+minor version) "/"
|
||
"goffice-" version ".tar.xz"))
|
||
(sha256
|
||
(base32 "1a8kba36zwzr0ilafc0d1nsxxma1qibviiifd0jhbxp180x6v385"))))
|
||
(build-system gnu-build-system)
|
||
(outputs '("out"
|
||
"doc")) ; 4.0 MiB of gtk-doc
|
||
(arguments
|
||
'(#:configure-flags (list (string-append "--with-html-dir="
|
||
(assoc-ref %outputs "doc")
|
||
"/share/gtk-doc/html"))))
|
||
(inputs
|
||
`(("gtk+" ,gtk+)
|
||
("libgsf" ,libgsf)
|
||
("librsvg" ,librsvg)
|
||
("libxslt" ,libxslt)
|
||
("libxml2" ,libxml2)))
|
||
(native-inputs
|
||
`(("intltool" ,intltool)
|
||
("glib" ,glib "bin")
|
||
("pkg-config" ,pkg-config)))
|
||
(home-page "https://developer.gnome.org/goffice/")
|
||
(synopsis "Document-centric objects and utilities")
|
||
(description "A GLib/GTK+ set of document-centric objects and utilities.")
|
||
(license
|
||
;; Dual licensed under GPLv2 or GPLv3 (both without "or later")
|
||
;; Note: NOT LGPL
|
||
(list license:gpl2 license:gpl3))))
|
||
|
||
(define-public goffice-0.8
|
||
(package (inherit goffice)
|
||
(version "0.8.17")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" (package-name goffice) "/"
|
||
(version-major+minor version) "/"
|
||
(package-name goffice) "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32 "05fvzbs5bin05bbsr4dp79aiva3lnq0a3a40zq55i13vnsz70l0n"))))
|
||
(arguments
|
||
`(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'fix-pcre-check
|
||
(lambda _
|
||
;; Only glib.h can be included directly. See
|
||
;; https://bugzilla.gnome.org/show_bug.cgi?id=670316
|
||
(substitute* "configure"
|
||
(("glib/gregex\\.h") "glib.h")) #t)))
|
||
|
||
,@(package-arguments goffice)))
|
||
(propagated-inputs
|
||
;; libgoffice-0.8.pc mentions libgsf-1
|
||
`(("libgsf" ,libgsf)))
|
||
(inputs
|
||
`(("gtk" ,gtk+-2)
|
||
,@(alist-delete "gtk" (package-inputs goffice))))))
|
||
|
||
(define-public gnumeric
|
||
(package
|
||
(name "gnumeric")
|
||
(version "1.12.46")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/gnumeric/"
|
||
(version-major+minor version) "/"
|
||
"gnumeric-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1qdmw2dp7rmq8fmjapgwaks7ajh270wm6kyvlxlzwbgmg8vngp4z"))))
|
||
(build-system glib-or-gtk-build-system)
|
||
(arguments
|
||
`(;; The gnumeric developers don't worry much about failing tests.
|
||
;; See https://bugzilla.gnome.org/show_bug.cgi?id=732387
|
||
#:tests? #f
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before
|
||
'configure 'pre-conf
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
;; Make install tries to write into the directory of goffice
|
||
;; I am informed that this only affects the possibility to embed a
|
||
;; spreadsheet inside an Abiword document. So presumably when we
|
||
;; package Abiword we'll have to refer it to this directory.
|
||
(substitute* "configure"
|
||
(("^GOFFICE_PLUGINS_DIR=.*")
|
||
(string-append "GOFFICE_PLUGINS_DIR="
|
||
(assoc-ref outputs "out")
|
||
"/goffice/plugins"))))))))
|
||
(inputs
|
||
`(("glib" ,glib)
|
||
("gtk+" ,gtk+)
|
||
("goffice" ,goffice)
|
||
("libgsf" ,libgsf)
|
||
("librsvg" ,librsvg)
|
||
("libxml2" ,libxml2)
|
||
("libxslt" ,libxslt)
|
||
("python" ,python-2)
|
||
("python2-pygobject" ,python2-pygobject)
|
||
("zlib" ,zlib)))
|
||
(native-inputs
|
||
`(("bison" ,bison)
|
||
("docbook-xml" ,docbook-xml)
|
||
("intltool" ,intltool)
|
||
("itstool" ,itstool/fixed) ;see <https://bugs.gnu.org/37468>
|
||
("glib:bin" ,glib "bin")
|
||
("pkg-config" ,pkg-config)))
|
||
(home-page "http://www.gnumeric.org")
|
||
(synopsis "Spreadsheet application")
|
||
(description
|
||
"GNUmeric is a GNU spreadsheet application, running under GNOME. It is
|
||
interoperable with other spreadsheet applications. It has a vast array of
|
||
features beyond typical spreadsheet functionality, such as support for linear
|
||
and non-linear solvers, statistical analysis, and telecommunication
|
||
engineering.")
|
||
(license
|
||
;; Dual licensed under GPLv2 or GPLv3 (both without "or later")
|
||
(list license:gpl2 license:gpl3))))
|
||
|
||
(define-public gnome-themes-standard
|
||
(package
|
||
(name "gnome-themes-standard")
|
||
(version "3.22.3")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/" name "-"
|
||
version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0smmiamrgcgf5sa88bsn8hwmvsyx4gczzs359nwxbkv14b2qgp31"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
'(#:configure-flags
|
||
;; Don't create 'icon-theme.cache'.
|
||
(let* ((coreutils (assoc-ref %build-inputs "coreutils"))
|
||
(true (string-append coreutils "/bin/true")))
|
||
(list (string-append "GTK_UPDATE_ICON_CACHE=" true)))))
|
||
(inputs
|
||
`(("gtk+" ,gtk+)
|
||
("gtk+-2" ,gtk+-2)
|
||
("librsvg" ,librsvg)
|
||
("libxml2" ,libxml2)
|
||
("glib" ,glib)))
|
||
(native-inputs
|
||
`(("intltool" ,intltool)
|
||
("glib:bin" ,glib "bin")
|
||
("pkg-config" ,pkg-config)))
|
||
(home-page "https://launchpad.net/gnome-themes-standard")
|
||
(synopsis "Default GNOME 3 themes")
|
||
(description
|
||
"The default GNOME 3 themes (Adwaita and some accessibility themes).")
|
||
(license license:lgpl2.1+)))
|
||
|
||
(define-public seahorse
|
||
(package
|
||
(name "seahorse")
|
||
(version "3.32.2")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/" name "-"
|
||
version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0d8zdzmlz7fjv9xl20zl4ckidf465mvdjnbpxy3k08y9iw423q4x"))
|
||
(patches (search-patches
|
||
"seahorse-gkr-use-0-on-empty-flags.patch"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
'(#:glib-or-gtk? #t
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'skip-gtk-update-icon-cache
|
||
;; Don't create 'icon-theme.cache'.
|
||
(lambda _
|
||
(substitute* "build-aux/meson_post_install.py"
|
||
(("gtk-update-icon-cache") "true"))
|
||
#t)))))
|
||
(inputs
|
||
`(("gtk+" ,gtk+)
|
||
("gcr" ,gcr)
|
||
("gnupg" ,gnupg)
|
||
("gpgme" ,gpgme)
|
||
("openldap" ,openldap)
|
||
("openssh" ,openssh)
|
||
("avahi" ,avahi)
|
||
("libpwquality" ,libpwquality)
|
||
("libsecret" ,libsecret)
|
||
("libsoup" ,libsoup)))
|
||
(native-inputs
|
||
`(("gettext" ,gettext-minimal)
|
||
("glib:bin" ,glib "bin")
|
||
("itstool" ,itstool)
|
||
("pkg-config" ,pkg-config)
|
||
("vala" ,vala)
|
||
("xmllint" ,libxml2)))
|
||
(home-page "https://wiki.gnome.org/Apps/Seahorse")
|
||
(synopsis "Manage encryption keys and passwords in the GNOME keyring")
|
||
(description
|
||
"Seahorse is a GNOME application for managing encryption keys and
|
||
passwords in the GNOME keyring.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public vala
|
||
(package
|
||
(name "vala")
|
||
(version "0.44.5")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0zy2kfcvhikczfzhk5l7pkw6mvn3d6vw8cv7g08iah85p22q33xv"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
'(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before 'check 'pre-check
|
||
(lambda _
|
||
(setenv "CC" "gcc")
|
||
(substitute* "valadoc/tests/testrunner.sh"
|
||
(("export PKG_CONFIG_PATH=" m)
|
||
(string-append m "$PKG_CONFIG_PATH:")))
|
||
;; For missing '/etc/machine-id'.
|
||
(setenv "DBUS_FATAL_WARNINGS" "0")
|
||
#t)))))
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)
|
||
("flex" ,flex)
|
||
("bison" ,bison)
|
||
("xsltproc" ,libxslt)
|
||
("dbus" ,dbus) ; for dbus tests
|
||
("gobject-introspection" ,gobject-introspection))) ; for gir tests
|
||
(inputs
|
||
`(("graphviz" ,graphviz)))
|
||
(propagated-inputs
|
||
`(("glib" ,glib))) ; required by libvala-0.40.pc
|
||
(home-page "https://live.gnome.org/Vala/")
|
||
(synopsis "Compiler for the GObject type system")
|
||
(description
|
||
"Vala is a programming language that aims to bring modern programming
|
||
language features to GNOME developers without imposing any additional runtime
|
||
requirements and without using a different ABI compared to applications and
|
||
libraries written in C.")
|
||
(license license:lgpl2.1+)))
|
||
|
||
(define-public vte
|
||
(package
|
||
(name "vte")
|
||
(version "0.58.3")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/vte/"
|
||
(version-major+minor version) "/"
|
||
"vte-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0xa9ipwic4jnhhbzlnqbhssz10xkzv61cpkl1ammc6mdq95bbp12"))))
|
||
(build-system meson-build-system)
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)
|
||
("intltool" ,intltool)
|
||
("vala" ,vala)
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("glib" ,glib "bin") ; for glib-genmarshal, etc.
|
||
("gperf" ,gperf)
|
||
("xmllint" ,libxml2)))
|
||
(propagated-inputs
|
||
`(("gtk+" ,gtk+) ; required by vte-2.91.pc
|
||
("gnutls" ,gnutls) ; ditto
|
||
("pcre2" ,pcre2))) ; ditto
|
||
(home-page "https://www.gnome.org/")
|
||
(synopsis "Virtual Terminal Emulator")
|
||
(description
|
||
"VTE is a library (libvte) implementing a terminal emulator widget for
|
||
GTK+, and a minimal sample application (vte) using that. Vte is mainly used in
|
||
gnome-terminal, but can also be used to embed a console/terminal in games,
|
||
editors, IDEs, etc.")
|
||
(license license:lgpl2.1+)))
|
||
|
||
(define-public vte-ng
|
||
(package
|
||
(inherit vte)
|
||
(name "vte-ng")
|
||
(version "0.58.2.a")
|
||
(home-page "https://github.com/thestinger/vte-ng")
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference (url home-page) (commit version)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"0rnm5c6m3abbm81jsfdas0y80z299ny54gr4syn4bfrms3s4g19l"))))
|
||
(build-system meson-build-system)
|
||
(native-inputs
|
||
`(("gtk-doc" ,gtk-doc)
|
||
,@(package-native-inputs vte)))
|
||
(arguments
|
||
`(#:configure-flags '("-Ddocs=true")))
|
||
(synopsis "Enhanced VTE terminal widget")
|
||
(description
|
||
"VTE is a library (libvte) implementing a terminal emulator widget for
|
||
GTK+, this fork provides additional functions exposed for keyboard text
|
||
selection and URL hints.")))
|
||
|
||
;; provides vte 2.90, required for some terminal emulators
|
||
;; tilda bug: https://github.com/lanoxx/tilda/issues/94
|
||
;; pantheon-terminal bug: https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=788021
|
||
;; roxterm bug: http://sourceforge.net/p/roxterm/bugs/107/
|
||
;; pantheon-terminal, roxterm are not currently packaged
|
||
(define-public vte-0.36
|
||
(package (inherit vte)
|
||
(name "vte")
|
||
(version "0.36.5")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1psfnqsmxx4qzc55qwvb8jai824ix4pqcdqhgxk0g2zh82bcxhn2"))))
|
||
(propagated-inputs
|
||
`(("gtk" ,gtk+)
|
||
("ncurses" ,ncurses)))))
|
||
|
||
;; stable version for gtk2, required by xfce4-terminal.
|
||
(define-public vte/gtk+-2
|
||
(package (inherit vte)
|
||
(name "vte")
|
||
(version "0.28.2")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1bmhahkf8wdsra9whd3k5l5z4rv7r58ksr8mshzajgq2ma0hpkw6"))
|
||
(patches (search-patches
|
||
"vte-CVE-2012-2738-pt1.patch"
|
||
"vte-CVE-2012-2738-pt2.patch"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
'(#:configure-flags '("--disable-python")))
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)
|
||
("intltool" ,intltool)
|
||
("glib" ,glib "bin"))) ; for glib-genmarshal, etc.
|
||
(propagated-inputs
|
||
`(("gtk+" ,gtk+-2) ; required by libvte.pc
|
||
("ncurses" ,ncurses))))) ; required by libvte.la
|
||
|
||
(define-public vinagre
|
||
(package
|
||
(name "vinagre")
|
||
(version "3.22.0")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(patches (search-patches "vinagre-newer-freerdp.patch"
|
||
"vinagre-newer-rdp-parameters.patch"))
|
||
(sha256
|
||
(base32
|
||
"10jya3jyrm18nbw3v410gbkc7677bqamax44pzgd3j15randn76d"))))
|
||
(build-system glib-or-gtk-build-system)
|
||
(arguments
|
||
;; Disable -Werror and such, to avoid build failures on compilation
|
||
;; warnings.
|
||
'(#:configure-flags '("--enable-compile-warnings=minimum")
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before 'install 'skip-gtk-update-icon-cache
|
||
(lambda _
|
||
;; Don't create 'icon-theme.cache'
|
||
(substitute* (find-files "." "^Makefile$")
|
||
(("gtk-update-icon-cache") (which "true")))
|
||
#t))
|
||
(add-after 'unpack 'patch-configure
|
||
(lambda _
|
||
(substitute* "configure"
|
||
(("freerdp") "freerdp2"))
|
||
#t)))))
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)
|
||
("intltool" ,intltool)
|
||
("itstool" ,itstool)
|
||
("glib-bin" ,glib "bin"))) ;for glib-compile-schemas
|
||
(inputs
|
||
`(("libxml2" ,libxml2)
|
||
("gtk-vnc" ,gtk-vnc)
|
||
("gnome-keyring" ,gnome-keyring)
|
||
("libsecret" ,libsecret)
|
||
("freerdp" ,freerdp)
|
||
("spice" ,spice)
|
||
("spice-gtk" ,spice-gtk)
|
||
("telepathy-glib" ,telepathy-glib)
|
||
("vte" ,vte)))
|
||
(home-page "https://wiki.gnome.org/Apps/Vinagre")
|
||
(synopsis "Remote desktop viewer for GNOME")
|
||
(description "Vinagre is a remote display client supporting the VNC, SPICE
|
||
and RDP protocols.")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public dconf
|
||
(package
|
||
(name "dconf")
|
||
(version "0.32.0")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1azz4hb9z76yxn34yrrsiib3iqz5z4vpwn5q7cncp55w365ygg38"))))
|
||
(build-system meson-build-system)
|
||
(propagated-inputs
|
||
;; In Requires of dconf.pc.
|
||
`(("glib" ,glib)))
|
||
(inputs
|
||
`(("gtk+" ,gtk+)
|
||
("dbus" ,dbus)))
|
||
(native-inputs
|
||
`(("bash-completion" ,bash-completion)
|
||
("libxslt" ,libxslt) ;for xsltproc
|
||
("libxml2" ,libxml2) ;for XML_CATALOG_FILES
|
||
("docbook-xml" ,docbook-xml-4.2)
|
||
("docbook-xsl" ,docbook-xsl)
|
||
("glib:bin" ,glib "bin")
|
||
("gtk-doc" ,gtk-doc)
|
||
("pkg-config" ,pkg-config)
|
||
("vala" ,vala)))
|
||
(arguments
|
||
`(#:tests? #f ; To contact dbus it needs to load /var/lib/dbus/machine-id
|
||
; or /etc/machine-id.
|
||
#:glib-or-gtk? #t
|
||
#:configure-flags '("-Denable-gtk-doc=true")))
|
||
(home-page "https://developer.gnome.org/dconf")
|
||
(synopsis "Low-level GNOME configuration system")
|
||
(description "Dconf is a low-level configuration system. Its main purpose
|
||
is to provide a backend to GSettings on platforms that don't already have
|
||
configuration storage systems.")
|
||
(license license:lgpl2.1+)))
|
||
|
||
(define-public json-glib
|
||
(package
|
||
(name "json-glib")
|
||
(version "1.4.4")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0ixwyis47v5bkx6h8a1iqlw3638cxcv57ivxv4gw2gaig51my33j"))))
|
||
(build-system meson-build-system)
|
||
(native-inputs
|
||
`(("gettext" ,gettext-minimal)
|
||
("glib" ,glib "bin") ;for glib-mkenums and glib-genmarshal
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("pkg-config" ,pkg-config)))
|
||
(propagated-inputs
|
||
`(("glib" ,glib))) ;according to json-glib-1.0.pc
|
||
(home-page "https://wiki.gnome.org/Projects/JsonGlib")
|
||
(synopsis "Compiler for the GObject type system")
|
||
(description
|
||
"JSON-GLib is a C library based on GLib providing serialization and
|
||
deserialization support for the JavaScript Object Notation (JSON) format
|
||
described by RFC 4627. It provides parser and generator GObject classes and
|
||
various wrappers for the complex data types employed by JSON, such as arrays
|
||
and objects.")
|
||
(license license:lgpl2.1+)))
|
||
|
||
(define-public libxklavier
|
||
(package
|
||
(name "libxklavier")
|
||
(version "5.4")
|
||
(source (origin
|
||
;; Note: There's no tarball at ftp.gnome.org for this version.
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://anongit.freedesktop.org/git/libxklavier")
|
||
(commit (string-append "libxklavier-" version))))
|
||
(sha256
|
||
(base32
|
||
"1w1x5mrgly2ldiw3q2r6y620zgd89gk7n90ja46775lhaswxzv7a"))
|
||
(file-name (git-file-name name version))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
'(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'no-configure
|
||
(lambda* _
|
||
(setenv "NOCONFIGURE" "1")
|
||
#t)))
|
||
#:configure-flags
|
||
(list (string-append "--with-xkb-base="
|
||
(assoc-ref %build-inputs "xkeyboard-config")
|
||
"/share/X11/xkb")
|
||
"--disable-xmodmap-support")))
|
||
(native-inputs
|
||
`(("glib:bin" ,glib "bin") ; for glib-mkenums, etc.
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("pkg-config" ,pkg-config)
|
||
("gtk-doc" ,gtk-doc)
|
||
("intltool" ,intltool)
|
||
("which" ,which)
|
||
("autoconf" ,autoconf)
|
||
("automake" ,automake)
|
||
("libtool" ,libtool)))
|
||
(propagated-inputs
|
||
;; Required by libxklavier.pc.
|
||
`(("glib" ,glib)
|
||
("libxml2" ,libxml2)))
|
||
(inputs
|
||
`(("iso-codes" ,iso-codes)
|
||
("libxi" ,libxi)
|
||
("libxkbfile" ,libxkbfile)
|
||
("xkbcomp" ,xkbcomp)
|
||
("xkeyboard-config" ,xkeyboard-config)))
|
||
(home-page "https://www.freedesktop.org/wiki/Software/LibXklavier/")
|
||
(synopsis "High-level API for X Keyboard Extension")
|
||
(description
|
||
"LibXklavier is a library providing high-level API for X Keyboard
|
||
Extension known as XKB. This library is intended to support XFree86 and other
|
||
commercial X servers. It is useful for creating XKB-related software (layout
|
||
indicators etc).")
|
||
(license license:lgpl2.0+)))
|
||
|
||
(define-public python2-rsvg
|
||
;; XXX: This is actually a subset of gnome-python-desktop.
|
||
(package
|
||
(name "python2-rsvg")
|
||
(version "2.32.0")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"mirror://gnome/sources/gnome-python-desktop/2.32/gnome-python-desktop-"
|
||
version ".tar.bz2"))
|
||
(sha256
|
||
(base32
|
||
"1s8f9rns9v7qlwjv9qh9lr8crp88dpzfm45hj47zc3ivpy0dbnq9"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("python" ,python-2)
|
||
("python2-pygtk" ,python2-pygtk)
|
||
("librsvg" ,librsvg)))
|
||
(home-page "https://www.gnome.org")
|
||
(synopsis "Python bindings to librsvg")
|
||
(description
|
||
"This package provides Python bindings to librsvg, the SVG rendering
|
||
library.")
|
||
|
||
;; This is the license of the rsvg bindings. The license of each module
|
||
;; of gnome-python-desktop is given in 'COPYING'.
|
||
(license license:lgpl2.1+)))
|
||
|
||
(define-public glib-networking
|
||
(package
|
||
(name "glib-networking")
|
||
(version "2.60.3")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/glib-networking/"
|
||
(version-major+minor version) "/"
|
||
"glib-networking-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1mfw44qpmwvz6yzj8c6spx6z357wrmkk15byrkc5byagd82860fm"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
`(#:configure-flags '("-Dlibproxy_support=false")))
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)
|
||
("intltool" ,intltool)))
|
||
(inputs
|
||
`(("glib" ,glib)
|
||
("gnutls" ,gnutls)
|
||
("gsettings-desktop-schemas" ,gsettings-desktop-schemas)))
|
||
(home-page "https://www.gnome.org")
|
||
(synopsis "Network-related GIO modules")
|
||
(description
|
||
"This package contains various network related extensions for the GIO
|
||
library.")
|
||
(license license:lgpl2.0+)))
|
||
|
||
(define-public rest
|
||
(package
|
||
(name "rest")
|
||
(version "0.8.1")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/rest/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1j81bgqmd55s5lxyaxcplym9n6xywcs1cm9wmvafsg2xiv9sl4q5"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
'(#:tests? #f ; tests require internet connection
|
||
#:configure-flags
|
||
'("--with-ca-certificates=/etc/ssl/certs/ca-certificates.crt")))
|
||
(native-inputs
|
||
`(("glib-mkenums" ,glib "bin")
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("pkg-config" ,pkg-config)))
|
||
(propagated-inputs
|
||
;; rest-0.7.pc refers to all these.
|
||
`(("glib" ,glib)
|
||
("libsoup" ,libsoup)
|
||
("libxml2" ,libxml2)))
|
||
(home-page "https://www.gtk.org/")
|
||
(synopsis "RESTful web api query library")
|
||
(description
|
||
"This library was designed to make it easier to access web services that
|
||
claim to be \"RESTful\". It includes convenience wrappers for libsoup and
|
||
libxml to ease remote use of the RESTful API.")
|
||
(license license:lgpl2.1+)))
|
||
|
||
(define-public libsoup
|
||
(package
|
||
(name "libsoup")
|
||
(version "2.68.3")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/libsoup/"
|
||
(version-major+minor version) "/"
|
||
"libsoup-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1yxs0ax4rq3g0lgkbv7mz497rqj16iyyizddyc13gzxh6n7b0jsk"))))
|
||
(build-system meson-build-system)
|
||
(outputs '("out" "doc"))
|
||
(arguments
|
||
`(#:modules ((guix build utils)
|
||
(guix build meson-build-system)
|
||
(ice-9 popen))
|
||
|
||
#:configure-flags '("-Dgtk_doc=true")
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'adjust-tests
|
||
(lambda _
|
||
;; This test fails due to missing /etc/nsswitch.conf
|
||
;; in the build environment.
|
||
(substitute* "tests/socket-test.c"
|
||
((".*/sockets/unconnected.*") ""))
|
||
|
||
;; These fail because "subdomain.localhost" does not resolve in
|
||
;; the build environment.
|
||
(substitute* "tests/hsts-test.c"
|
||
((".*/hsts/basic.*") "")
|
||
((".*/hsts/subdomains.*") "")
|
||
((".*/hsts/superdomain.*") "")
|
||
((".*/hsts/utf8-address.*") ""))
|
||
(substitute* "tests/hsts-db-test.c"
|
||
((".*/hsts-db/subdomains.*") ""))
|
||
|
||
;; Generate a self-signed certificate that has "localhost" as its
|
||
;; 'dnsName'. Failing to do that, and starting with GnuTLS
|
||
;; 3.5.12, tests such as "ssl-tests" fail:
|
||
;;
|
||
;; ERROR:ssl-test.c:406:do_tls_interaction_test: Unexpected status 6 Unacceptable TLS certificate (expected 200 OK)
|
||
;;
|
||
;; 'certtool' is interactive so we have to pipe it the answers.
|
||
;; Reported at <https://bugzilla.gnome.org/show_bug.cgi?id=784696>.
|
||
(let ((pipe (open-output-pipe "certtool --generate-self-signed \
|
||
--load-privkey tests/test-key.pem --outfile tests/test-cert.pem")))
|
||
(for-each (lambda (line)
|
||
(display line pipe)
|
||
(newline pipe))
|
||
'("" ;Common name
|
||
"" ;UID
|
||
"Guix" ;Organizational unit name
|
||
"GNU" ;Organization name
|
||
"" ;Locality name
|
||
"" ;State or province
|
||
"" ;Country
|
||
"" ;subject's domain component (DC)
|
||
"" ;E-mail
|
||
"" ;serial number
|
||
"-1" ;expiration time
|
||
"N" ;belong to authority?
|
||
"N" ;web client certificate?
|
||
"N" ;IPsec IKE?
|
||
"Y" ;web server certificate?
|
||
"localhost" ;dnsName of subject
|
||
"" ;dnsName of subject (end)
|
||
"" ;URI of subject
|
||
"127.0.0.1" ;IP address of subject
|
||
"" ;signing?
|
||
"" ;encryption (RSA)?
|
||
"" ;data encryption?
|
||
"" ;sign OCSP requests?
|
||
"" ;sign code?
|
||
"" ;time stamping?
|
||
"" ;email protection?
|
||
"" ;URI of the CRL distribution point
|
||
"y" ;above info OK?
|
||
))
|
||
(close-pipe pipe))
|
||
#t))
|
||
(add-after 'install 'move-doc
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let ((out (assoc-ref outputs "out"))
|
||
(doc (assoc-ref outputs "doc")))
|
||
(mkdir-p (string-append doc "/share"))
|
||
(copy-recursively (string-append out "/share/gtk-doc")
|
||
(string-append doc "/share/gtk-doc"))
|
||
(delete-file-recursively (string-append out "/share/gtk-doc"))
|
||
#t))))))
|
||
(native-inputs
|
||
`(("glib:bin" ,glib "bin") ; for glib-mkenums
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("gtk-doc" ,gtk-doc)
|
||
("intltool" ,intltool)
|
||
("pkg-config" ,pkg-config)
|
||
("python" ,python-wrapper)
|
||
("vala" ,vala)
|
||
;; These are needed for the tests.
|
||
;; FIXME: Add PHP once available.
|
||
("curl" ,curl)
|
||
("gnutls" ,gnutls) ;for 'certtool'
|
||
("httpd" ,httpd)))
|
||
(propagated-inputs
|
||
;; libsoup-2.4.pc refers to all these.
|
||
`(("brotli" ,google-brotli)
|
||
("glib" ,glib)
|
||
("libpsl" ,libpsl)
|
||
("libxml2" ,libxml2)
|
||
("sqlite" ,sqlite)
|
||
("zlib" ,zlib)))
|
||
(inputs
|
||
`(("glib-networking" ,glib-networking)
|
||
("mit-krb5" ,mit-krb5)))
|
||
(home-page "https://live.gnome.org/LibSoup/")
|
||
(synopsis "GLib-based HTTP Library")
|
||
(description
|
||
"LibSoup is an HTTP client/server library for GNOME. It uses GObjects
|
||
and the GLib main loop, to integrate well with GNOME applications.")
|
||
(license license:lgpl2.0+)))
|
||
|
||
(define-public libsecret
|
||
(package
|
||
(name "libsecret")
|
||
(version "0.20.1")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"mirror://gnome/sources/libsecret/"
|
||
(version-major+minor version) "/"
|
||
"libsecret-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0ir4ynpf8b64xss1azvsi5x6697lik7hkf3z0xxa2qv2xja3xxsp"))))
|
||
(build-system gnu-build-system)
|
||
(outputs '("out" "doc"))
|
||
(arguments
|
||
`(#:tests? #f ; FIXME: Testing hangs.
|
||
#:configure-flags
|
||
(list (string-append "--with-html-dir="
|
||
(assoc-ref %outputs "doc")
|
||
"/share/gtk-doc/html"))))
|
||
(native-inputs
|
||
`(("gettext" ,gettext-minimal)
|
||
("glib:bin" ,glib "bin") ; for gdbus-codegen, etc.
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("pkg-config" ,pkg-config)
|
||
("vala" ,vala)
|
||
("xsltproc" ,libxslt)))
|
||
;; These are needed for the tests.
|
||
;; FIXME: Add gjs once available.
|
||
;("dbus" ,dbus)
|
||
;("python2" ,python-2)
|
||
;("python2-dbus" ,python2-dbus)
|
||
;("python2-pygobject" ,python2-pygobject)
|
||
;("python2-pygobject-2" ,python2-pygobject-2)))
|
||
(propagated-inputs
|
||
`(("glib" ,glib))) ; required by libsecret-1.pc
|
||
(inputs
|
||
`(("docbook-xsl" ,docbook-xsl)
|
||
("libgcrypt" ,libgcrypt)
|
||
("libxml2" ,libxml2))) ; for XML_CATALOG_FILES
|
||
(home-page "https://wiki.gnome.org/Projects/Libsecret/")
|
||
(synopsis "GObject bindings for \"Secret Service\" API")
|
||
(description
|
||
"Libsecret is a GObject based library for storing and retrieving passwords
|
||
and other secrets. It communicates with the \"Secret Service\" using DBus.")
|
||
(license license:lgpl2.1+)))
|
||
|
||
(define-public five-or-more
|
||
(package
|
||
(name "five-or-more")
|
||
(version "3.32.0")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0v52i22ygv6y4zqs8nyb1qmacmj9whhqrw7qss6vn7by4nsikhrn"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
'(#:glib-or-gtk? #t
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'skip-gtk-update-icon-cache
|
||
(lambda _
|
||
(substitute* "meson_post_install.py"
|
||
(("gtk-update-icon-cache") (which "true")))
|
||
#t)))))
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)
|
||
("appstream-glib" ,appstream-glib)
|
||
("desktop-file-utils" ,desktop-file-utils)
|
||
("glib:bin" ,glib "bin") ; for glib-compile-resources
|
||
("intltool" ,intltool)
|
||
("itstool" ,itstool)
|
||
("vala" ,vala)
|
||
("xmllint" ,libxml2)))
|
||
(inputs
|
||
`(("gtk+" ,gtk+)
|
||
("libgnome-games-support" ,libgnome-games-support)
|
||
("librsvg" ,librsvg)))
|
||
(home-page "https://wiki.gnome.org/Apps/Five%20or%20more")
|
||
(synopsis "Logic puzzle game")
|
||
(description "Five or More is a game where you try to align
|
||
five or more objects of the same color and shape causing them to disappear.
|
||
On every turn more objects will appear, until the board is full.
|
||
Try to last as long as possible.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public gnome-mines
|
||
(package
|
||
(name "gnome-mines")
|
||
(version "3.32.2")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1nv966wkp2rqxzcdb76bwlbzpjqadcaqzrnkxpzwnvjjr167yx8g"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
'(#:glib-or-gtk? #t
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'skip-gtk-update-icon-cache
|
||
(lambda _
|
||
(substitute* "build-aux/meson_post_install.py"
|
||
(("gtk-update-icon-cache") (which "true")))
|
||
#t)))))
|
||
(native-inputs
|
||
`(("glib:bin" ,glib "bin") ; for glib-compile-resources
|
||
("pkg-config" ,pkg-config)
|
||
("desktop-file-utils" ,desktop-file-utils)
|
||
("intltool" ,intltool)
|
||
("itstool" ,itstool)
|
||
("vala" ,vala)
|
||
("yelp" ,yelp)
|
||
("appstream-glib" ,appstream-glib)))
|
||
(inputs
|
||
`(("gtk+" ,gtk+)
|
||
("libgnome-games-support" ,libgnome-games-support)
|
||
("librsvg" ,librsvg)))
|
||
(home-page "https://wiki.gnome.org/Apps/Mines")
|
||
(synopsis "Minesweeper game")
|
||
(description
|
||
"Mines (previously gnomine) is a puzzle game where you locate mines
|
||
floating in an ocean using only your brain and a little bit of luck.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public gnome-sudoku
|
||
(package
|
||
(name "gnome-sudoku")
|
||
(version "3.32.0")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1wwdjflw1lbx3cv6gvqcgp5jnjkrq37ld6mjbjj03g3vr90qaf0l"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
'(#:glib-or-gtk? #t
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'skip-gtk-update-icon-cache
|
||
(lambda _
|
||
(substitute* "build-aux/post_install.py"
|
||
(("gtk-update-icon-cache") (which "true")))
|
||
#t)))))
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)
|
||
("desktop-file-utils" ,desktop-file-utils)
|
||
("glib:bin" ,glib "bin") ; for glib-compile-resources
|
||
("intltool" ,intltool)
|
||
("itstool" ,itstool)
|
||
("vala" ,vala)
|
||
("xmllint" ,libxml2)))
|
||
(inputs
|
||
`(("gtk+" ,gtk+)
|
||
("json-glib" ,json-glib)
|
||
("libgee" ,libgee)
|
||
("librsvg" ,librsvg)
|
||
("qqwing" ,qqwing)))
|
||
(home-page "https://wiki.gnome.org/Apps/Sudoku")
|
||
(synopsis "Japanese logic game")
|
||
(description
|
||
"Sudoku is a Japanese logic game that exploded in popularity in 2005.
|
||
GNOME Sudoku is meant to have an interface as simple and unobstrusive as
|
||
possible while still providing features that make playing difficult Sudoku
|
||
more fun.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public gnome-terminal
|
||
(package
|
||
(name "gnome-terminal")
|
||
(version "3.32.2")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0shhpnagasyp1kxgjczfrivcxbgrrl3y8lzvp1z101m67h4jp6km"))))
|
||
(build-system glib-or-gtk-build-system)
|
||
(arguments
|
||
'(#:configure-flags
|
||
(list "--disable-migration" "--disable-search-provider"
|
||
"--without-nautilus-extension")
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before 'configure 'patch-/bin/true
|
||
(lambda _
|
||
(substitute* "configure"
|
||
(("/bin/true") (which "true"))))))))
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)
|
||
("desktop-file-utils" ,desktop-file-utils)
|
||
("intltool" ,intltool)
|
||
("itstool" ,itstool)
|
||
("xmllint" ,libxml2)))
|
||
(propagated-inputs
|
||
`(("dconf" ,dconf)))
|
||
(inputs
|
||
`(("gtk+" ,gtk+)
|
||
("vte" ,vte)
|
||
("gnutls" ,gnutls)
|
||
("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
|
||
("util-linux" ,util-linux)
|
||
("vala" ,vala)))
|
||
(home-page "https://wiki.gnome.org/Apps/Terminal")
|
||
(synopsis "Terminal emulator")
|
||
(description
|
||
"GNOME Terminal is a terminal emulator application for accessing a
|
||
UNIX shell environment which can be used to run programs available on
|
||
your system.
|
||
|
||
It supports several profiles, multiple tabs and implements several
|
||
keyboard shortcuts.")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public colord
|
||
(package
|
||
(name "colord")
|
||
(version "1.4.4")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://www.freedesktop.org/software/colord/releases/"
|
||
"colord-" version ".tar.xz"))
|
||
(sha256
|
||
(base32 "19f0938fr7nvvm3jr263dlknaq7md40zrac2npfyz25zc00yh3ws"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
'(;; FIXME: One test fails:
|
||
;; /colord/icc-store (in lib/colord/colord-self-test-private):
|
||
;; Incorrect content type for /tmp/colord-vkve/already-exists.icc, got
|
||
;; application/x-zerosize
|
||
#:tests? #f
|
||
#:glib-or-gtk? #t
|
||
#:configure-flags (list "-Dlocalstatedir=/var"
|
||
;; No dep on systemd.
|
||
"-Dsystemd=false"
|
||
;; Wants to install to global completion dir;
|
||
;; punt.
|
||
"-Dbash_completion=false"
|
||
"-Ddaemon_user=colord"
|
||
"-Dsane=true"
|
||
"-Dvapi=true"
|
||
;; Requires spotread.
|
||
"-Dargyllcms_sensor=false"
|
||
;; TODO: Requires docbook2x.
|
||
"-Dman=false")
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before 'configure 'patch-build-system
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(substitute* "rules/meson.build"
|
||
(("udev.get_pkgconfig_variable\\('udevdir'\\)")
|
||
(string-append "'" (assoc-ref outputs "out") "/lib/udev'")))
|
||
#t))
|
||
(add-before 'configure 'set-sqlite3-file-name
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
;; "colormgr dump" works by invoking the "sqlite3" command.
|
||
;; Record its absolute file name.
|
||
(let ((sqlite (assoc-ref inputs "sqlite")))
|
||
(substitute* "client/cd-util.c"
|
||
(("\"sqlite3\"")
|
||
(string-append "\"" sqlite "/bin/sqlite3\"")))
|
||
#t))))))
|
||
(native-inputs
|
||
`(("glib:bin" ,glib "bin") ; for glib-compile-resources, etc.
|
||
("gettext" ,gettext-minimal)
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("gtk-doc" ,gtk-doc)
|
||
("pkg-config" ,pkg-config)
|
||
("vala" ,vala)))
|
||
(propagated-inputs
|
||
;; colord.pc refers to all these.
|
||
`(("glib" ,glib)
|
||
("lcms" ,lcms)
|
||
("udev" ,eudev)))
|
||
(inputs
|
||
`(("dbus-glib" ,dbus-glib)
|
||
("gusb" ,gusb)
|
||
("libgudev" ,libgudev)
|
||
("libusb" ,libusb)
|
||
("polkit" ,polkit)
|
||
("python" ,python-wrapper)
|
||
("sqlite" ,sqlite)
|
||
("sane-backends" ,sane-backends)))
|
||
(home-page "https://www.freedesktop.org/software/colord/")
|
||
(synopsis "Color management service")
|
||
(description "Colord is a system service that makes it easy to manage,
|
||
install and generate color profiles to accurately color manage input and
|
||
output devices.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public geoclue
|
||
(package
|
||
(name "geoclue")
|
||
(version "2.5.5")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri
|
||
(string-append "https://gitlab.freedesktop.org/geoclue/geoclue/-/archive/"
|
||
version "/geoclue-" version ".tar.bz2"))
|
||
(sha256
|
||
(base32
|
||
"1b7jqrsn4x7mxjxj8hvb2dl2cmhrpb9vibs4rvkkanky5nsx3sai"))
|
||
(patches (search-patches "geoclue-config.patch"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
'(#:configure-flags (list "-Dbus-srv-user=geoclue")))
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("modem-manager" ,modem-manager)
|
||
("libnotify" ,libnotify)
|
||
("gtk-doc", gtk-doc)
|
||
("intltool" ,intltool)))
|
||
(inputs
|
||
`(("avahi" ,avahi)
|
||
("glib:bin" ,glib "bin")
|
||
("glib-networking" ,glib-networking)
|
||
("json-glib" ,json-glib)
|
||
("libsoup" ,libsoup)))
|
||
(home-page "https://gitlab.freedesktop.org/geoclue/geoclue/-/wikis/home")
|
||
(synopsis "Geolocation service")
|
||
(description "Geoclue is a D-Bus service that provides location
|
||
information. The primary goal of the Geoclue project is to make creating
|
||
location-aware applications as simple as possible, while the secondary goal is
|
||
to ensure that no application can access location information without explicit
|
||
permission from user.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public geocode-glib
|
||
(package
|
||
(name "geocode-glib")
|
||
(version "3.26.1")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/geocode-glib/"
|
||
(version-major+minor version) "/"
|
||
"geocode-glib-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"076ydfpyc4n5c9dbqmf26i4pilfi5jpw6cjcgrbgrjbndavnmajv"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
`(#:phases
|
||
(modify-phases %standard-phases
|
||
;; The tests require a bunch of locales.
|
||
(add-before 'check 'set-locales
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
(setenv "GUIX_LOCPATH"
|
||
(string-append (assoc-ref inputs "glibc-locales")
|
||
"/lib/locale"))
|
||
#t)))))
|
||
(native-inputs
|
||
`(("glib:bin" ,glib "bin") ; for glib-mkenums
|
||
("glibc-locales" ,glibc-locales) ; for tests
|
||
("gettext" ,gettext-minimal)
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("gtk-doc" ,gtk-doc)
|
||
("pkg-config" ,pkg-config)
|
||
("json-glib" ,json-glib)))
|
||
(propagated-inputs
|
||
;; geocode-glib-1.0.pc refers to GIO.
|
||
`(("glib" ,glib)))
|
||
(inputs
|
||
`(("libsoup" ,libsoup)))
|
||
(home-page "https://github.com/GNOME/geocode-glib/")
|
||
(synopsis "Geocoding and reverse-geocoding library")
|
||
(description
|
||
"geocode-glib is a convenience library for geocoding (finding longitude,
|
||
and latitude from an address) and reverse geocoding (finding an address from
|
||
coordinates) using the Nominatim service. geocode-glib caches requests for
|
||
faster results and to avoid unnecessary server load.")
|
||
(license license:lgpl2.0+)))
|
||
|
||
(define-public upower
|
||
(package
|
||
(name "upower")
|
||
(version "0.99.11")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://upower.freedesktop.org/releases/"
|
||
"upower-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1vxxvmz2cxb1qy6ibszaz5bskqdy9nd9fxspj9fv3gfmrjzzzdb4"))
|
||
(patches (search-patches "upower-builddir.patch"))
|
||
(modules '((guix build utils)))
|
||
(snippet
|
||
'(begin
|
||
;; Upstream commit
|
||
;; <https://cgit.freedesktop.org/upower/commit/?id=18457c99b68786cd729b315723d680e6860d9cfa>
|
||
;; moved 'dbus-1/system.d' from etc/ to share/. However,
|
||
;; 'dbus-configuration-directory' in (gnu services dbus)
|
||
;; expects it in etc/. Thus, move it back to its previous
|
||
;; location.
|
||
(substitute* "src/Makefile.in"
|
||
(("^dbusconfdir =.*$")
|
||
"dbusconfdir = $(sysconfdir)/dbus-1/system.d\n"))
|
||
#t))))
|
||
(build-system glib-or-gtk-build-system)
|
||
(arguments
|
||
'( ;; The tests want to contact the system bus, which can't be done in the
|
||
;; build environment. The integration test can run, but the last of
|
||
;; the up-self-tests doesn't. Disable tests for now.
|
||
#:tests? #f
|
||
#:configure-flags (list "--localstatedir=/var"
|
||
(string-append "--with-udevrulesdir="
|
||
(assoc-ref %outputs "out")
|
||
"/lib/udev/rules.d"))))
|
||
(native-inputs
|
||
`(("gobject-introspection" ,gobject-introspection)
|
||
("pkg-config" ,pkg-config)
|
||
("intltool" ,intltool)
|
||
("python" ,python)
|
||
|
||
;; For man pages.
|
||
("libxslt" ,libxslt) ;for 'xsltproc'
|
||
("libxml2" ,libxml2) ;for 'XML_CATALOG_FILES'
|
||
("docbook-xsl" ,docbook-xsl)))
|
||
(inputs
|
||
`(("dbus-glib" ,dbus-glib)
|
||
("libgudev" ,libgudev)
|
||
("libusb" ,libusb)))
|
||
(propagated-inputs
|
||
;; In Requires of upower-glib.pc.
|
||
`(("glib" ,glib)))
|
||
(home-page "https://upower.freedesktop.org/")
|
||
(synopsis "System daemon for managing power devices")
|
||
(description
|
||
"UPower is an abstraction for enumerating power devices,
|
||
listening to device events and querying history and statistics. Any
|
||
application or service on the system can access the org.freedesktop.UPower
|
||
service via the system message bus.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public libgweather
|
||
(package
|
||
(name "libgweather")
|
||
(version "3.28.3")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1xz60h59zgyk61y2wwzm0xlqav72i668g7v0x7rh9idz240hxls5"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
`(#:tests? #f ; one of two tests requires network access
|
||
#:configure-flags
|
||
`(,(string-append "-Dzoneinfo_dir="
|
||
(assoc-ref %build-inputs "tzdata")
|
||
"/share/zoneinfo"))))
|
||
(native-inputs
|
||
`(("glib:bin" ,glib "bin") ; for glib-mkenums
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("pkg-config" ,pkg-config)
|
||
("vala" ,vala)
|
||
("intltool" ,intltool)))
|
||
(propagated-inputs
|
||
;; gweather-3.0.pc refers to GTK+, GDK-Pixbuf, GLib/GObject, libxml, and
|
||
;; libsoup.
|
||
`(("gtk+" ,gtk+)
|
||
("gdk-pixbuf" ,gdk-pixbuf)
|
||
("libxml2" ,libxml2)
|
||
("libsoup" ,libsoup)
|
||
("geocode-glib" ,geocode-glib)))
|
||
(inputs
|
||
`(("tzdata" ,tzdata)))
|
||
(home-page "https://wiki.gnome.org/action/show/Projects/LibGWeather")
|
||
(synopsis "Location, time zone, and weather library for GNOME")
|
||
(description
|
||
"libgweather is a library to access weather information from online
|
||
services for numerous locations.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public gnome-settings-daemon
|
||
(package
|
||
(name "gnome-settings-daemon")
|
||
(version "3.32.1")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"02d0s0g2mmqfib44r3sf0499r08p61s8l2ndsjssbam1bi7x2dks"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
`(#:glib-or-gtk? #t
|
||
#:configure-flags
|
||
(list (string-append "-Dudev_dir="
|
||
(assoc-ref %outputs "out")
|
||
"/lib/udev/rules.d/")
|
||
;; Otherwise, the RUNPATH will lack the final path component.
|
||
(string-append "-Dc_link_args=-Wl,-rpath="
|
||
(assoc-ref %outputs "out")
|
||
"/lib/gnome-settings-daemon-3.0"))
|
||
;; Color management test can't reach the colord system service.
|
||
#:tests? #f))
|
||
(native-inputs
|
||
`(("glib:bin" ,glib "bin") ; for glib-mkenums
|
||
("pkg-config" ,pkg-config)
|
||
("intltool" ,intltool)
|
||
("xsltproc" ,libxslt)
|
||
("libxml2" ,libxml2) ;for XML_CATALOG_FILES
|
||
("docbook-xml" ,docbook-xml-4.2)
|
||
("docbook-xsl" ,docbook-xsl)))
|
||
(inputs
|
||
`(("alsa-lib" ,alsa-lib)
|
||
("colord" ,colord)
|
||
("libgudev" ,libgudev)
|
||
("upower" ,upower)
|
||
("polkit" ,polkit)
|
||
("pulseaudio" ,pulseaudio)
|
||
("libcanberra" ,libcanberra)
|
||
("libx11" ,libx11)
|
||
("libxtst" ,libxtst)
|
||
("lcms" ,lcms)
|
||
("libnotify" ,libnotify)
|
||
("geoclue" ,geoclue)
|
||
("geocode-glib" ,geocode-glib)
|
||
("libgweather" ,libgweather)
|
||
("gnome-desktop" ,gnome-desktop)
|
||
("nss" ,nss)
|
||
("cups" ,cups)
|
||
("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
|
||
("libwacom" ,libwacom)
|
||
("librsvg" ,librsvg)
|
||
("xf86-input-wacom" ,xf86-input-wacom)
|
||
("wayland" ,wayland)
|
||
("network-manager" ,network-manager)))
|
||
(home-page "https://www.gnome.org")
|
||
(synopsis "GNOME settings daemon")
|
||
(description
|
||
"This package contains the daemon responsible for setting the various
|
||
parameters of a GNOME session and the applications that run under it. It
|
||
handles settings such keyboard layout, shortcuts, and accessibility, clipboard
|
||
settings, themes, mouse settings, and startup of other daemons.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public totem-pl-parser
|
||
(package
|
||
(name "totem-pl-parser")
|
||
(version "3.26.3")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/totem-pl-parser/"
|
||
(version-major+minor version) "/"
|
||
"totem-pl-parser-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"13a45py2j1r9967zgww8kd24bn2fhycd4m3kzr90sxx9l2w03z8f"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
;; FIXME: Tests require gvfs.
|
||
`(#:tests? #f))
|
||
(native-inputs
|
||
`(("intltool" ,intltool)
|
||
("glib" ,glib "bin")
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("pkg-config" ,pkg-config)))
|
||
(propagated-inputs
|
||
`(("glib" ,glib)
|
||
("gmime" ,gmime)
|
||
("libarchive" ,libarchive)
|
||
("libgcrypt" ,libgcrypt)
|
||
("libxml2" ,libxml2)))
|
||
(inputs
|
||
`(("libsoup" ,libsoup)))
|
||
(home-page "https://projects.gnome.org/totem")
|
||
(synopsis "Library to parse and save media playlists for GNOME")
|
||
(description "Totem-pl-parser is a GObjects-based library to parse and save
|
||
playlists in a variety of formats.")
|
||
(license license:lgpl2.0+)))
|
||
|
||
(define-public aisleriot
|
||
(package
|
||
(name "aisleriot")
|
||
(version "3.22.9")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/aisleriot/"
|
||
(version-major+minor version) "/"
|
||
"aisleriot-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0yzdh9cw5cjjgvfh75bihl968czlgfmpmn1z0fdk88sgvpjgzwji"))))
|
||
(build-system glib-or-gtk-build-system)
|
||
(arguments
|
||
'(#:configure-flags
|
||
'("--with-platform=gtk-only"
|
||
"--with-card-theme-formats=svg")))
|
||
(native-inputs
|
||
`(("desktop-file-utils" ,desktop-file-utils)
|
||
("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
|
||
("intltool" ,intltool)
|
||
("itstool" ,itstool)
|
||
("pkg-config" ,pkg-config)
|
||
("xmllint" ,libxml2)))
|
||
(inputs
|
||
`(("gtk+" ,gtk+)
|
||
("guile" ,guile-2.2)
|
||
("libcanberra" ,libcanberra)
|
||
("librsvg" ,librsvg)))
|
||
(home-page "https://wiki.gnome.org/Apps/Aisleriot")
|
||
(synopsis "Solitaire card games")
|
||
(description
|
||
"Aisleriot (also known as Solitaire or sol) is a collection of card games
|
||
which are easy to play with the aid of a mouse.")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public amtk
|
||
(package
|
||
(name "amtk")
|
||
(version "5.0.1")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/amtk/"
|
||
(version-major+minor version) "/"
|
||
"amtk-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"09yy95w1s83c43mh9vha1jbb780yighf5pd2j0ygjmc68sjg871d"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
'(#:configure-flags '("--enable-gtk-doc")))
|
||
(native-inputs
|
||
`(("gobject-introspection" ,gobject-introspection)
|
||
("glib:bin" ,glib "bin") ; for glib-mkenums
|
||
("gtk-doc" ,gtk-doc)
|
||
("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("glib" ,glib)
|
||
("gtk+" ,gtk+)))
|
||
(home-page "https://wiki.gnome.org/Projects/Amtk")
|
||
(synopsis "Actions, Menus and Toolbars Kit for GTK+ applications")
|
||
(description
|
||
"Amtk is the acronym for @acronym{Amtk, Actions Menus and Toolbars Kit}.
|
||
It is a basic GtkUIManager replacement based on GAction. It is suitable for
|
||
both a traditional UI or a modern UI with a GtkHeaderBar.")
|
||
(license license:lgpl2.1+)))
|
||
|
||
(define-public devhelp
|
||
(package
|
||
(name "devhelp")
|
||
(version "3.32.0")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"06sa83zggk29wcg75fl3gqh0rmi7cd3gsbk09a2z23r7vpy7xanq"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
'(#:glib-or-gtk? #t
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'skip-gtk-update-icon-cache
|
||
;; Don't create 'icon-theme.cache'.
|
||
(lambda _
|
||
(substitute* "meson_post_install.py"
|
||
(("gtk-update-icon-cache") "true"))
|
||
#t)))))
|
||
(native-inputs
|
||
`(("intltool" ,intltool)
|
||
("itstool" ,itstool)
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("glib:bin" ,glib "bin") ; for glib-mkmenus
|
||
("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("amtk" ,amtk)
|
||
("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
|
||
("webkitgtk" ,webkitgtk)))
|
||
(home-page "https://wiki.gnome.org/Apps/Devhelp")
|
||
(synopsis "API documentation browser for GNOME")
|
||
(description
|
||
"Devhelp is an API documentation browser for GTK+ and GNOME. It works
|
||
natively with GTK-Doc (the API reference system developed for GTK+ and used
|
||
throughout GNOME for API documentation).")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public cogl
|
||
(package
|
||
(name "cogl")
|
||
(version "1.22.4")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/cogl/"
|
||
(version-major+minor version) "/"
|
||
"cogl-" version ".tar.xz"))
|
||
(sha256
|
||
(base32 "1q0drs82a8f6glg1v29bb6g2nf15fw0rvdx3d0rgcgfarfaby5sj"))))
|
||
;; NOTE: mutter exports a bundled fork of cogl, so when making changes to
|
||
;; cogl, corresponding changes may be appropriate in mutter as well.
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
`(("glib:bin" ,glib "bin") ; for glib-mkenums
|
||
("gobject-introspection" ,gobject-introspection)
|
||
;;("xorg-server" ,xorg-server) ; for the test suite
|
||
("pkg-config" ,pkg-config)))
|
||
(propagated-inputs
|
||
`(("glib" ,glib)
|
||
("gdk-pixbuf" ,gdk-pixbuf)
|
||
("libx11" ,libx11)
|
||
("libxext" ,libxext)
|
||
("libxfixes" ,libxfixes)
|
||
("libxdamage" ,libxdamage)
|
||
("libxcomposite" ,libxcomposite)
|
||
("libxrandr" ,libxrandr)))
|
||
(inputs
|
||
`(("mesa" ,mesa)
|
||
("cairo" ,cairo)
|
||
("pango" ,pango)
|
||
("gstreamer" ,gstreamer)
|
||
("gst-plugins-base" ,gst-plugins-base)
|
||
("wayland" ,wayland)))
|
||
(arguments
|
||
`(#:configure-flags (list "--enable-cogl-gst"
|
||
"--enable-wayland-egl-platform"
|
||
"--enable-wayland-egl-server"
|
||
|
||
;; Arrange to pass an absolute file name to
|
||
;; dlopen for libGL.so.
|
||
(string-append "--with-gl-libname="
|
||
(assoc-ref %build-inputs "mesa")
|
||
"/lib/libGL.so"))
|
||
;; XXX FIXME: All tests fail, with many warnings printed like this:
|
||
;; _FontTransOpen: Unable to Parse address
|
||
;; ${prefix}/share/fonts/X11/misc/
|
||
#:tests? #f
|
||
#; #:phases
|
||
#;
|
||
(modify-phases %standard-phases
|
||
(add-before 'check 'start-xorg-server
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
;; The test suite requires a running X server.
|
||
(system (format #f "~a/bin/Xvfb :1 &"
|
||
(assoc-ref inputs "xorg-server")))
|
||
(setenv "DISPLAY" ":1")
|
||
#t)))))
|
||
(home-page "http://www.cogl3d.org")
|
||
(synopsis "Object oriented GL/GLES Abstraction/Utility Layer")
|
||
(description
|
||
"Cogl is a small library for using 3D graphics hardware to draw pretty
|
||
pictures. The API departs from the flat state machine style of OpenGL and is
|
||
designed to make it easy to write orthogonal components that can render
|
||
without stepping on each others toes.")
|
||
(license (list license:expat ; most of the code
|
||
license:bsd-3 ; cogl/cogl-point-in-poly.c
|
||
license:sgifreeb2.0 ; cogl-path/tesselator/
|
||
license:asl2.0)))) ; examples/android/
|
||
|
||
(define-public clutter
|
||
(package
|
||
(name "clutter")
|
||
(version "1.26.2")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0mif1qnrpkgxi43h7pimim6w6zwywa16ixcliw0yjm9hk0a368z7"))))
|
||
;; NOTE: mutter exports a bundled fork of clutter, so when making changes
|
||
;; to clutter, corresponding changes may be appropriate in mutter as well.
|
||
(build-system gnu-build-system)
|
||
(outputs '("out"
|
||
"doc")) ;9 MiB of gtk-doc HTML pages
|
||
(native-inputs
|
||
`(("glib:bin" ,glib "bin") ; for glib-genmarshal
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("pkg-config" ,pkg-config)
|
||
("xsltproc" ,libxslt)))
|
||
(propagated-inputs
|
||
`(("cogl" ,cogl)
|
||
("cairo" ,cairo)
|
||
("atk" ,atk)
|
||
("gtk+" ,gtk+)
|
||
("json-glib" ,json-glib)
|
||
("glib" ,glib)
|
||
("libxcomposite" ,libxcomposite)
|
||
("libxdamage" ,libxdamage)
|
||
("libxext" ,libxext)
|
||
("xinput" ,xinput)))
|
||
(inputs
|
||
`(("libxkbcommon" ,libxkbcommon)
|
||
("udev" ,eudev)))
|
||
(arguments
|
||
`(#:configure-flags (list "--enable-x11-backend=yes"
|
||
|
||
;; This produces share/doc/{clutter,cally}.
|
||
(string-append "--with-html-dir="
|
||
(assoc-ref %outputs "doc")
|
||
"/share/doc"))
|
||
;; XXX FIXME: Get test suite working. It would probably fail in the
|
||
;; same way the cogl tests fail, since clutter is based on cogl.
|
||
#:tests? #f))
|
||
(home-page "http://www.clutter-project.org")
|
||
(synopsis "OpenGL-based interactive canvas library")
|
||
(description
|
||
"Clutter is an OpenGL-based interactive canvas library, designed for
|
||
creating fast, mainly 2D single window applications such as media box UIs,
|
||
presentations, kiosk style applications and so on.")
|
||
(license license:lgpl2.0+)))
|
||
|
||
(define-public clutter-gtk
|
||
(package
|
||
(name "clutter-gtk")
|
||
(version "1.8.4")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"01ibniy4ich0fgpam53q252idm7f4fn5xg5qvizcfww90gn9652j"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)
|
||
("gobject-introspection" ,gobject-introspection)))
|
||
(propagated-inputs
|
||
;; clutter-gtk.pc refers to all these.
|
||
`(("clutter" ,clutter)
|
||
("gtk+" ,gtk+)))
|
||
(home-page "http://www.clutter-project.org")
|
||
(synopsis "OpenGL-based interactive canvas library GTK+ widget")
|
||
(description
|
||
"Clutter is an OpenGL-based interactive canvas library, designed for
|
||
creating fast, mainly 2D single window applications such as media box UIs,
|
||
presentations, kiosk style applications and so on.")
|
||
(license license:lgpl2.0+)))
|
||
|
||
(define-public clutter-gst
|
||
(package
|
||
(name "clutter-gst")
|
||
(version "3.0.27")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/clutter-gst/"
|
||
(version-major+minor version) "/"
|
||
"clutter-gst-" version ".tar.xz"))
|
||
(sha256
|
||
(base32 "17czmpl92dzi4h3rn5rishk015yi3jwiw29zv8qan94xcmnbssgy"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
`(("glib:bin" ,glib "bin") ; for glib-mkenums
|
||
("pkg-config" ,pkg-config)
|
||
("gobject-introspection" ,gobject-introspection)))
|
||
(inputs
|
||
`(("clutter" ,clutter)
|
||
("gstreamer" ,gstreamer)
|
||
("gst-plugins-base" ,gst-plugins-base)))
|
||
(home-page "http://www.clutter-project.org")
|
||
(synopsis "Integration library for using GStreamer with Clutter")
|
||
(description
|
||
"Clutter-Gst is an integration library for using GStreamer with Clutter.
|
||
It provides a GStreamer sink to upload frames to GL and an actor that
|
||
implements the ClutterGstPlayer interface using playbin. Clutter is an
|
||
OpenGL-based interactive canvas library.")
|
||
(license license:lgpl2.0+)))
|
||
|
||
(define-public libchamplain
|
||
(package
|
||
(name "libchamplain")
|
||
(version "0.12.16")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"mirror://gnome/sources/libchamplain/0.12/libchamplain-"
|
||
version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"13chvc2n074i0jw5jlb8i7cysda4yqx58ca6y3mrlrl9g37k2zja"))))
|
||
(build-system gnu-build-system)
|
||
(arguments '(#:configure-flags '("--enable-vala")))
|
||
(native-inputs
|
||
`(("gobject-introspection" ,gobject-introspection)
|
||
("pkg-config" ,pkg-config)
|
||
("vala" ,vala)))
|
||
(propagated-inputs
|
||
`(("libsoup" ,libsoup)
|
||
("sqlite" ,sqlite)
|
||
("clutter" ,clutter)
|
||
("clutter-gtk" ,clutter-gtk)
|
||
("glib:bin" ,glib "bin") ;glib-mkenums, etc.
|
||
("cairo" ,cairo)
|
||
("gtk+3" ,gtk+)
|
||
("glib" ,glib)))
|
||
(home-page "https://projects.gnome.org/libchamplain/")
|
||
(synopsis "C library providing a ClutterActor to display maps")
|
||
(description
|
||
"libchamplain is a C library providing a ClutterActor to display maps.
|
||
It also provides a Gtk+ widget to display maps in Gtk+ applications. Python
|
||
and Perl bindings are also available. It supports numerous free map sources
|
||
such as OpenStreetMap, OpenCycleMap, OpenAerialMap, and Maps for free.")
|
||
(license license:lgpl2.1+)))
|
||
|
||
(define-public gom
|
||
(package
|
||
(name "gom")
|
||
(version "0.3.2")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/gom/"
|
||
(version-major+minor version) "/"
|
||
"gom-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1zaqqwwkyiswib3v1v8wafpbifpbpak0nn2kp13pizzn9bwz1s5w"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
`(("intltool" ,intltool)
|
||
("pkg-config" ,pkg-config)
|
||
("gobject-introspection" ,gobject-introspection)))
|
||
(inputs
|
||
`(("glib" ,glib)
|
||
("gdk-pixbuf" ,gdk-pixbuf)
|
||
("sqlite" ,sqlite)))
|
||
;; XXX TODO: Figure out how to run the test suite.
|
||
(arguments `(#:tests? #f))
|
||
(home-page "https://wiki.gnome.org/Projects/Gom")
|
||
(synopsis "Object mapper from GObjects to SQLite")
|
||
(description
|
||
"Gom provides an object mapper from GObjects to SQLite. It helps you
|
||
write applications that need to store structured data as well as make complex
|
||
queries upon that data.")
|
||
(license license:lgpl2.1+)))
|
||
|
||
(define-public libgnome-games-support
|
||
(package
|
||
(name "libgnome-games-support")
|
||
(version "1.4.4")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/libgnome-games-support/"
|
||
(version-major+minor version) "/"
|
||
"libgnome-games-support-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1zkbmnrn161p74qg6jhsn9f66yjjzxfm13pl1klv9av8k1bax9pq"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
'(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before 'check 'pre-check
|
||
(lambda _
|
||
;; Tests require a writable HOME.
|
||
(setenv "HOME" (getcwd))
|
||
#t)))))
|
||
(native-inputs
|
||
`(("intltool" ,intltool)
|
||
("pkg-config" ,pkg-config)
|
||
("vala" ,vala)))
|
||
(propagated-inputs
|
||
;; Required by libgnome-games-support-1.0.pc
|
||
`(("gtk+" ,gtk+)
|
||
("libgee" ,libgee)))
|
||
(home-page "https://www.gnome.org/")
|
||
(synopsis "Useful functionality shared among GNOME games")
|
||
(description
|
||
"libgnome-games-support is a small library intended for internal use by
|
||
GNOME Games, but it may be used by others.")
|
||
(license license:lgpl3+)))
|
||
|
||
(define-public gnome-klotski
|
||
(package
|
||
(name "gnome-klotski")
|
||
(version "3.32.0")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1p4s15gxj6gasix22z9vlx2yrx196fvcxr6v6qrl569idfgjbi72"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
'(#:glib-or-gtk? #t
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'skip-gtk-update-icon-cache
|
||
;; Don't create 'icon-theme.cache'.
|
||
(lambda _
|
||
(substitute* "build-aux/meson_post_install.py"
|
||
(("gtk-update-icon-cache") (which "true")))
|
||
#t)))))
|
||
(native-inputs
|
||
`(("desktop-file-utils" ,desktop-file-utils)
|
||
("glib:bin" ,glib "bin") ; for glib-compile-resources
|
||
("intltool" ,intltool)
|
||
("itstool" ,itstool)
|
||
("pkg-config" ,pkg-config)
|
||
("vala" ,vala)
|
||
("xmllint" ,libxml2)))
|
||
(inputs
|
||
`(("gtk+" ,gtk+)
|
||
("libgnome-games-support" ,libgnome-games-support)
|
||
("librsvg" ,librsvg)))
|
||
(home-page "https://wiki.gnome.org/Apps/Klotski")
|
||
(synopsis "Sliding block puzzles")
|
||
(description
|
||
"GNOME Klotski is a set of block sliding puzzles. The objective is to move
|
||
the patterned block to the area bordered by green markers. To do so, you will
|
||
need to slide other blocks out of the way. Complete each puzzle in as few moves
|
||
as possible!")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public grilo
|
||
(package
|
||
(name "grilo")
|
||
(version "0.3.10")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1s7ilyywf18q26aj5c4709kfizqywjlnacp4jzmj9v9i9kkv4i3y"))))
|
||
(build-system meson-build-system)
|
||
(native-inputs
|
||
`(("glib:bin" ,glib "bin") ; for glib-mkenums and glib-genmarshal
|
||
("intltool" ,intltool)
|
||
("pkg-config" ,pkg-config)
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("gtk-doc" ,gtk-doc)
|
||
("vala" ,vala)))
|
||
(inputs
|
||
`(("cyrus-sasl" ,cyrus-sasl)
|
||
("glib" ,glib)
|
||
("gtk+" ,gtk+)
|
||
("libxml2" ,libxml2)
|
||
("liboauth" ,liboauth)
|
||
("libsoup" ,libsoup)
|
||
("totem-pl-parser" ,totem-pl-parser)))
|
||
(native-search-paths
|
||
(list (search-path-specification
|
||
(variable "GRL_PLUGIN_PATH")
|
||
(files (list (string-append "lib/grilo-"
|
||
(version-major+minor version)))))))
|
||
(home-page "https://wiki.gnome.org/action/show/Projects/Grilo")
|
||
(synopsis "Framework for discovering and browsing media")
|
||
(description
|
||
"Grilo is a framework focused on making media discovery and browsing easy
|
||
for application developers.")
|
||
(license license:lgpl2.1+)))
|
||
|
||
(define-public grilo-plugins
|
||
(package
|
||
(name "grilo-plugins")
|
||
(version "0.3.10")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0jldaixc4kzycn5v8ixkjld1n0z3dp0l1p3vchgdwpvdvc7kcfw0"))))
|
||
(build-system meson-build-system)
|
||
(native-inputs
|
||
`(("gettext" ,gettext-minimal)
|
||
("glib:bin" ,glib "bin")
|
||
("gtk+:bin" ,gtk+ "bin")
|
||
("itstool" ,itstool)
|
||
("pkg-config" ,pkg-config)))
|
||
;; TODO: ahavi, gstreamer
|
||
(inputs
|
||
`(("grilo" ,grilo)
|
||
;("gmime" ,gmime) ; unused
|
||
("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
|
||
("gom" ,gom)
|
||
;("gssdp" ,gssdp) ; unused
|
||
;("gupnp" ,gupnp) ; unused
|
||
;("gupnp-av" ,gupnp-av) ; unused
|
||
("json-glib" ,json-glib)
|
||
("avahi" ,avahi)
|
||
("libgdata" ,libgdata)
|
||
("libmediaart" ,libmediaart)
|
||
;("librest" ,rest) ; unused
|
||
("libsoup" ,libsoup)
|
||
("totam-pl-parser" ,totem-pl-parser)
|
||
("tracker" ,tracker))) ; unused because it's too old
|
||
(arguments
|
||
`(#:glib-or-gtk? #t
|
||
;;Disable lua-factory as it needs missing dependencies
|
||
#:configure-flags '("-Denable-lua-factory=no")))
|
||
(home-page "https://live.gnome.org/Grilo")
|
||
(synopsis "Plugins for the Grilo media discovery library")
|
||
(description
|
||
"Grilo is a framework focused on making media discovery and browsing easy
|
||
for application developers. This package provides plugins for common media
|
||
discovery protocols.")
|
||
(license license:lgpl2.1+)))
|
||
|
||
(define-public totem
|
||
(package
|
||
(name "totem")
|
||
(version "3.32.1")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0yra8apc7smpwf7d1k8crhrm8d4wix24ds6i9yxbch1v11jnhr3v"))))
|
||
(build-system meson-build-system)
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)
|
||
("desktop-file-utils" ,desktop-file-utils)
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("glib:bin" ,glib "bin") ;for 'glib-mkenums'
|
||
("intltool" ,intltool)
|
||
("itstool" ,itstool)
|
||
("xmllint" ,libxml2)
|
||
("python-pylint" ,python-pylint)
|
||
("xorg-server" ,xorg-server-for-tests)))
|
||
(propagated-inputs
|
||
`(("dconf" ,dconf)))
|
||
(inputs
|
||
`(("gtk+" ,gtk+)
|
||
("gdk-pixbuf" ,gdk-pixbuf)
|
||
("atk" ,atk)
|
||
("cairo" ,cairo)
|
||
("dbus-glib" ,dbus-glib)
|
||
("clutter" ,clutter)
|
||
("clutter-gtk" ,clutter-gtk)
|
||
("clutter-gst" ,clutter-gst)
|
||
("xorgproto" ,xorgproto)
|
||
("libxxf86vm" ,libxxf86vm)
|
||
("libxtst" ,libxtst)
|
||
("libxrandr" ,libxrandr)
|
||
("libxml2" ,libxml2)
|
||
("libsoup" ,libsoup)
|
||
("libpeas" ,libpeas)
|
||
("librsvg" ,librsvg)
|
||
("lirc" ,lirc)
|
||
("gnome-desktop" ,gnome-desktop)
|
||
("gstreamer" ,gstreamer)
|
||
("gst-plugins-base" ,gst-plugins-base)
|
||
("gst-plugins-good" ,gst-plugins-good)
|
||
("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
|
||
("adwaita-icon-theme" ,adwaita-icon-theme)
|
||
("python" ,python)
|
||
("python-pygobject" ,python-pygobject)
|
||
("totem-pl-parser" ,totem-pl-parser)
|
||
("grilo" ,grilo)
|
||
("grilo-plugins" ,grilo-plugins)
|
||
("vala" ,vala)))
|
||
(arguments
|
||
`(#:glib-or-gtk? #t
|
||
|
||
;; Disable automatic GStreamer plugin installation via PackageKit and
|
||
;; all that.
|
||
#:configure-flags '("-D" "enable-easy-codec-installation=no"
|
||
|
||
;; Do not build .a files for the plugins, it's
|
||
;; completely useless. This saves 2 MiB.
|
||
"--default-library" "shared")
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'skip-gtk-update-icon-cache
|
||
;; Don't create 'icon-theme.cache'.
|
||
(lambda _
|
||
(substitute* "meson_post_install.py"
|
||
(("gtk-update-icon-cache") "true"))
|
||
#t))
|
||
(add-before
|
||
'install 'disable-cache-generation
|
||
(lambda _
|
||
(setenv "DESTDIR" "/")
|
||
#t))
|
||
(add-before
|
||
'check 'pre-check
|
||
(lambda _
|
||
;; Tests require a running X server.
|
||
(system "Xvfb :1 &")
|
||
(setenv "DISPLAY" ":1")
|
||
#t))
|
||
(add-after
|
||
'install 'wrap-totem
|
||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||
(let ((out (assoc-ref outputs "out"))
|
||
(gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH"))
|
||
(grl-plugin-path (getenv "GRL_PLUGIN_PATH")))
|
||
(wrap-program (string-append out "/bin/totem")
|
||
`("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))
|
||
`("GRL_PLUGIN_PATH" ":" prefix (,grl-plugin-path)))
|
||
(wrap-program (string-append out "/bin/totem-video-thumbnailer")
|
||
`("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))))
|
||
#t)))))
|
||
(home-page "https://wiki.gnome.org/Apps/Videos")
|
||
(synopsis "Simple media player for GNOME based on GStreamer")
|
||
(description "Totem is a simple yet featureful media player for GNOME
|
||
which can read a large number of file formats.")
|
||
;; GPL2+ with an exception clause for non-GPL compatible GStreamer plugins
|
||
;; to be used and distributed together with GStreamer and Totem. See
|
||
;; file://COPYING in the source distribution for details.
|
||
(license license:gpl2+)))
|
||
|
||
(define-public rhythmbox
|
||
(package
|
||
(name "rhythmbox")
|
||
(version "3.4.3")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1yx3n7p9vmv23jsv98fxwq95n78awdxqm8idhyhxx2d6vk4w1hgx"))))
|
||
(build-system glib-or-gtk-build-system)
|
||
(arguments
|
||
`(#:configure-flags
|
||
(list "--enable-lirc"
|
||
"--enable-python"
|
||
"--enable-vala"
|
||
"--with-brasero"
|
||
"--with-gudev"
|
||
"--with-libsecret")
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after
|
||
'install 'wrap-rhythmbox
|
||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||
(let ((out (assoc-ref outputs "out"))
|
||
(gi-typelib-path (getenv "GI_TYPELIB_PATH"))
|
||
(gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH"))
|
||
(grl-plugin-path (getenv "GRL_PLUGIN_PATH"))
|
||
(python-path (getenv "PYTHONPATH")))
|
||
(wrap-program (string-append out "/bin/rhythmbox")
|
||
`("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))
|
||
`("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))
|
||
`("GRL_PLUGIN_PATH" ":" prefix (,grl-plugin-path))
|
||
`("PYTHONPATH" ":" prefix (,python-path))))
|
||
#t)))))
|
||
(propagated-inputs
|
||
`(("dconf" ,dconf)))
|
||
(native-inputs
|
||
`(("itstool" ,itstool)
|
||
("intltool" ,intltool)
|
||
("glib" ,glib "bin")
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("desktop-file-utils" ,desktop-file-utils)
|
||
("pkg-config" ,pkg-config)
|
||
("xmllint" ,libxml2)))
|
||
(inputs
|
||
`(("json-glib" ,json-glib)
|
||
("tdb" ,tdb)
|
||
("gnome-desktop" ,gnome-desktop)
|
||
("python" ,python)
|
||
("python-pygobject" ,python2-pygobject)
|
||
("vala" ,vala)
|
||
("gmime" ,gmime)
|
||
("adwaita-icon-theme" ,adwaita-icon-theme)
|
||
("grilo" ,grilo)
|
||
("grilo-plugins" ,grilo-plugins)
|
||
("gstreamer" ,gstreamer)
|
||
("gst-plugins-base" ,gst-plugins-base)
|
||
("gst-plugins-good" ,gst-plugins-good)
|
||
("totem-pl-parser" ,totem-pl-parser)
|
||
("libgudev" ,libgudev)
|
||
;;("libmtp" ,libmtp) FIXME: Not detected
|
||
("libsecret" ,libsecret)
|
||
("libsoup" ,libsoup)
|
||
("libnotify" ,libnotify)
|
||
("libpeas" ,libpeas)
|
||
("lirc" ,lirc)
|
||
;; TODO: clutter* only used by visualizer plugin, which also requires mx
|
||
;;("clutter" ,clutter)
|
||
;;("clutter-gtk" ,clutter-gtk)
|
||
;;("clutter-gst" ,clutter-gst)
|
||
("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
|
||
("atk" ,atk)
|
||
("pango" ,pango)
|
||
("gtk+" ,gtk+)
|
||
;; TODO:
|
||
;; * libgpod
|
||
;; * mx
|
||
("brasero" ,brasero)))
|
||
(home-page "https://wiki.gnome.org/Apps/Rhythmbox")
|
||
(synopsis "Music player for GNOME")
|
||
(description "Rhythmbox is a music playing application for GNOME. It
|
||
supports playlists, song ratings, and any codecs installed through gstreamer.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public eog
|
||
(package
|
||
(name "eog")
|
||
(version "3.32.2")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1bcxpqgzlk2cy4wfb3b5h66mhpj2fhrk1rrb5qqcv5xrr62ik5xy"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
`(#:configure-flags
|
||
;; Otherwise, the RUNPATH will lack the final 'eog' path component.
|
||
(list (string-append "-Dc_link_args=-Wl,-rpath="
|
||
(assoc-ref %outputs "out") "/lib/eog"))
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'skip-gtk-update-icon-cache
|
||
;; Don't create 'icon-theme.cache'.
|
||
(lambda _
|
||
(substitute* "meson_post_install.py"
|
||
(("gtk-update-icon-cache") "true"))
|
||
#t))
|
||
(add-after 'install 'wrap-eog
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let ((out (assoc-ref outputs "out"))
|
||
(gi-typelib-path (getenv "GI_TYPELIB_PATH")))
|
||
(wrap-program (string-append out "/bin/eog")
|
||
`("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
|
||
#t)))))
|
||
(propagated-inputs
|
||
`(("dconf" ,dconf)))
|
||
(native-inputs
|
||
`(("intltool" ,intltool)
|
||
("itstool" ,itstool)
|
||
("glib" ,glib "bin")
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("pkg-config" ,pkg-config)
|
||
("xmllint" ,libxml2)))
|
||
(inputs
|
||
`(("gnome-desktop" ,gnome-desktop)
|
||
("shared-mime-info" ,shared-mime-info)
|
||
("adwaita-icon-theme" ,adwaita-icon-theme)
|
||
("exempi" ,exempi)
|
||
("lcms" ,lcms)
|
||
("libexif" ,libexif)
|
||
("libpeas" ,libpeas)
|
||
("libjpeg" ,libjpeg)
|
||
("librsvg" ,librsvg)
|
||
("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
|
||
("gtk+" ,gtk+)))
|
||
(home-page "https://wiki.gnome.org/Apps/EyeOfGnome")
|
||
(synopsis "GNOME image viewer")
|
||
(description "Eye of GNOME is the GNOME image viewer. It
|
||
supports image conversion, rotation, and slideshows.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public eog-plugins
|
||
;; Note: EOG looks for its plugins (via libpeas) in ~/.local as well as
|
||
;; $DATA/lib/eog/plugins, where DATA is one of the entries in
|
||
;; $XDG_DATA_DIRS. Thus, for EOG to find these, you have to have
|
||
;; 'XDG_DATA_DIRS' appropriately set.
|
||
(package
|
||
(name "eog-plugins")
|
||
(version "3.26.4")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/eog-plugins/"
|
||
(version-major+minor version) "/"
|
||
"eog-plugins-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0pd7fqa4ciy5844k5s1c6rlsqkk8pxd8cchxjcjhxlsngm9lynnx"))))
|
||
(build-system gnu-build-system)
|
||
(home-page "https://wiki.gnome.org/Apps/EyeOfGnome/Plugins")
|
||
(synopsis "Extensions for the Eye of GNOME image viewer")
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)
|
||
("gettext" ,gnu-gettext)))
|
||
(inputs
|
||
`(("eog" ,eog)
|
||
("glib" ,glib)
|
||
("gtk+" ,gtk+)
|
||
("libpeas" ,libpeas)
|
||
("libexif" ,libexif)
|
||
("libchamplain" ,libchamplain)))
|
||
(description
|
||
"This package provides plugins for the Eye of GNOME (EOG) image viewer,
|
||
notably:
|
||
|
||
@itemize
|
||
@item @dfn{EXIF Display}, which displays camera (EXIF) information;
|
||
@item @dfn{Map}, which displays a map of where the picture was taken on the
|
||
side panel;
|
||
@item @dfn{Slideshow Shuffle}, to shuffle images in slideshow mode.
|
||
@end itemize\n")
|
||
|
||
;; XXX: eog-postasa-plugin-resources.c (which we don't build) contains a
|
||
;; long suspicious byte stream that goes to a
|
||
;; ".gresource.eog_postasa_plugin" ELF section.
|
||
(license license:gpl2+)))
|
||
|
||
(define-public libgudev
|
||
(package
|
||
(name "libgudev")
|
||
(version "232")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
version "/" name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0q3qki451zzgdjazlgshsfzbbm0in40lyx7dyrag7kbkqnwv4k7f"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
'(#:configure-flags
|
||
;; umockdev depends on libgudev.
|
||
(list "--disable-umockdev")))
|
||
(native-inputs
|
||
`(("glib:bin" ,glib "bin") ; for glib-genmarshal, etc.
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("pkg-config" ,pkg-config)))
|
||
(propagated-inputs
|
||
`(("glib" ,glib))) ; required by gudev-1.0.pc
|
||
(inputs
|
||
`(("udev" ,eudev)))
|
||
(home-page "https://wiki.gnome.org/Projects/libgudev")
|
||
(synopsis "GObject bindings for libudev")
|
||
(description
|
||
"This library provides GObject bindings for libudev. It was originally
|
||
part of udev-extras, then udev, then systemd. It's now a project on its own.")
|
||
(license license:lgpl2.1+)))
|
||
|
||
(define-public gvfs
|
||
(package
|
||
(name "gvfs")
|
||
(version "1.40.1")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/gvfs/"
|
||
(version-major+minor version) "/"
|
||
"gvfs-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1cfnzamr4mvgpf6yhm28lh9cafy9z6842s8jpbqnfizfxybg8ylj"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
'(#:glib-or-gtk? #t
|
||
#:configure-flags
|
||
(list "-Dsystemduserunitdir=no"
|
||
"-Dtmpfilesdir=no"
|
||
;; Otherwise, the RUNPATH will lack the final path component.
|
||
(string-append "-Dc_link_args=-Wl,-rpath="
|
||
(assoc-ref %outputs "out") "/lib/gvfs"))))
|
||
(native-inputs
|
||
`(("glib:bin" ,glib "bin") ; for glib-genmarshal, etc.
|
||
("gettext" ,gettext-minimal)
|
||
("gtk-doc" ,gtk-doc)
|
||
("pkg-config" ,pkg-config)
|
||
("xsltproc" ,libxslt)))
|
||
(inputs
|
||
`(("avahi" ,avahi)
|
||
("docbook-xml" ,docbook-xml-4.2)
|
||
("docbook-xsl" ,docbook-xsl)
|
||
("dbus" ,dbus)
|
||
("elogind" ,elogind)
|
||
("fuse" ,fuse)
|
||
("gcr" ,gcr)
|
||
("glib" ,glib)
|
||
("gnome-online-accounts" ,gnome-online-accounts)
|
||
("libarchive" ,libarchive)
|
||
("libbluray" ,libbluray)
|
||
("libcap" ,libcap)
|
||
("libcdio-paranoia" ,libcdio-paranoia)
|
||
("libgcrypt" ,libgcrypt)
|
||
("libgdata" ,libgdata)
|
||
("libgphoto2" ,libgphoto2)
|
||
("libgudev" ,libgudev)
|
||
("libimobiledevice" ,libimobiledevice)
|
||
("libmtp" ,libmtp)
|
||
("libnfs" ,libnfs)
|
||
("libsecret" ,libsecret)
|
||
("libsmbclient" ,samba)
|
||
("libsoup" ,libsoup)
|
||
("libxml2" ,libxml2)
|
||
("openssh" ,openssh)
|
||
("polkit" ,polkit)
|
||
("udisks" ,udisks)))
|
||
(home-page "https://wiki.gnome.org/gvfs/")
|
||
(synopsis "Userspace virtual file system for GIO")
|
||
(description
|
||
"GVFS is a userspace virtual file system designed to work with the I/O
|
||
abstraction of GIO. It contains a GIO module that seamlessly adds GVFS support
|
||
to all applications using the GIO API. It also supports exposing the GVFS
|
||
mounts to non-GIO applications using FUSE.
|
||
|
||
GVFS comes with a set of backends, including trash support, SFTP, SMB, HTTP,
|
||
DAV, and others.")
|
||
(license license:lgpl2.0+)))
|
||
|
||
(define-public gusb
|
||
(package
|
||
(name "gusb")
|
||
(version "0.3.0")
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/hughsie/libgusb.git")
|
||
(commit version)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"002pg0p4qzzk5dkyiynm483ir26zxrn4k71c7f6j85mfsdzbgli7"))))
|
||
(build-system meson-build-system)
|
||
(native-inputs
|
||
`(("gobject-introspection" ,gobject-introspection)
|
||
("pkg-config" ,pkg-config)
|
||
("vala" ,vala)
|
||
("gtk-doc" ,gtk-doc)))
|
||
(propagated-inputs
|
||
;; Both of these are required by gusb.pc.
|
||
`(("glib" ,glib)
|
||
("libusb" ,libusb)))
|
||
(arguments
|
||
`(#:tests? #f)) ;libusb fails to initialize. Wonder what that is.
|
||
(home-page "https://github.com/hughsie/libgusb")
|
||
(synopsis "GLib binding for libusb1")
|
||
(description
|
||
"GUsb is a GObject wrapper for libusb1 that makes it easy to do
|
||
asynchronous control, bulk and interrupt transfers with proper cancellation
|
||
and integration into a mainloop. This makes it easy to integrate low level
|
||
USB transfers with your high-level application or system daemon.")
|
||
(license license:lgpl2.1+)))
|
||
|
||
(define-public simple-scan
|
||
(package
|
||
(name "simple-scan")
|
||
(version "3.34.4")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/simple-scan/"
|
||
(version-major+minor version) "/"
|
||
"simple-scan-" version ".tar.xz"))
|
||
(sha256
|
||
(base32 "0xvy672zyl6jsdlnxma8nc2aqsx9k92jhp6wfxs0msj9ppp1nd3z"))))
|
||
(build-system meson-build-system)
|
||
;; TODO: Fix icons in home screen, About dialogue, and scan menu.
|
||
(arguments
|
||
'(#:glib-or-gtk? #t))
|
||
(inputs
|
||
`(("gtk" ,gtk+)
|
||
("zlib" ,zlib)
|
||
("cairo" ,cairo)
|
||
("colord" ,colord)
|
||
("gdk-pixbuf" ,gdk-pixbuf)
|
||
("gusb" ,gusb)
|
||
("libsane" ,sane-backends)))
|
||
(native-inputs
|
||
`(("gettext" ,gettext-minimal)
|
||
("itstool" ,itstool)
|
||
("glib" ,glib "bin") ; glib-compile-schemas, etc.
|
||
("pkg-config" ,pkg-config)
|
||
("vala" ,vala)
|
||
("xmllint" ,libxml2)))
|
||
(home-page "https://gitlab.gnome.org/GNOME/simple-scan")
|
||
(synopsis "Document and image scanner")
|
||
(description
|
||
"Document Scanner is an easy-to-use application that lets you connect your
|
||
scanner and quickly capture images and documents in an appropriate format. It
|
||
supports any scanner for which a suitable SANE driver is available, which is
|
||
almost all of them.")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public eolie
|
||
(package
|
||
(name "eolie")
|
||
(version "0.9.63")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://gitlab.gnome.org/World/eolie/"
|
||
"uploads/d42b466752729a0d3fa828a721e25043/"
|
||
"eolie-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"11pp8g0w22h1q0bbj9517l5838gcymvvp8fp9kh6h2dmgir2ssih"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
`(#:glib-or-gtk? #t
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'skip-gtk-update-icon-cache
|
||
;; Don't create 'icon-theme.cache'.
|
||
(lambda _
|
||
(substitute* "meson_post_install.py"
|
||
(("gtk-update-icon-cache") "true"))
|
||
#t))
|
||
(add-after 'wrap 'wrap-more
|
||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
;; These libraries must be on LD_LIBRARY_PATH.
|
||
(libs '("gtkspell3" "webkitgtk" "libsoup" "libsecret"
|
||
"atk" "gtk+" "gsettings-desktop-schemas"
|
||
"gobject-introspection"))
|
||
(path (string-join
|
||
(map (lambda (lib)
|
||
(string-append (assoc-ref inputs lib) "/lib"))
|
||
libs)
|
||
":")))
|
||
(wrap-program (string-append out "/bin/eolie")
|
||
`("LD_LIBRARY_PATH" ":" prefix (,path))
|
||
`("PYTHONPATH" ":" prefix (,(getenv "PYTHONPATH")))
|
||
`("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH")))))
|
||
#t)))))
|
||
(native-inputs
|
||
`(("intltool" ,intltool)
|
||
("itstool" ,itstool)
|
||
("pkg-config" ,pkg-config)
|
||
("python" ,python)
|
||
("glib:bin" ,glib "bin")))
|
||
(inputs
|
||
`(("gobject-introspection" ,gobject-introspection)
|
||
("glib-networking" ,glib-networking)
|
||
("cairo" ,cairo)
|
||
("gtk+" ,gtk+)
|
||
("atk" ,atk) ; propagated by gtk+, but we need it in LD_LIBRARY_PATH
|
||
("python" ,python-wrapper)
|
||
("python-dateutil" ,python-dateutil)
|
||
("python-pyfxa" ,python-pyfxa)
|
||
("python-pygobject" ,python-pygobject)
|
||
("python-pycairo" ,python-pycairo)
|
||
("python-pycrypto" ,python-pycrypto)
|
||
("libsecret" ,libsecret)
|
||
("gtkspell3" ,gtkspell3)
|
||
("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
|
||
("webkitgtk" ,webkitgtk)))
|
||
(home-page "https://wiki.gnome.org/Apps/Eolie")
|
||
(synopsis "Web browser for GNOME")
|
||
(description
|
||
"Eolie is a new web browser for GNOME. It features Firefox sync support,
|
||
a secret password store, an adblocker, and a modern UI.")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public epiphany
|
||
(package
|
||
(name "epiphany")
|
||
(version "3.32.5")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/epiphany/"
|
||
(version-major+minor version) "/"
|
||
"epiphany-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1hj4yy53fwh96h17cqiw3gxc070vmc7yqwc7phvhnpyinkp9g5my"))))
|
||
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
;; FIXME: tests run under Xvfb, but fail with:
|
||
;; /src/bookmarks/ephy-bookmarks/create:
|
||
;; ** (test-ephy-bookmarks:19591): WARNING **: Unable to start Zeroconf
|
||
;; subsystem
|
||
;; FAIL
|
||
'(#:tests? #f
|
||
#:glib-or-gtk? #t
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'skip-gtk-update-icon-cache
|
||
;; Don't create 'icon-theme.cache'.
|
||
(lambda _
|
||
(substitute* "post_install.py"
|
||
(("gtk-update-icon-cache") "true"))
|
||
#t)))
|
||
#:configure-flags
|
||
;; Otherwise, the RUNPATH will lack the final 'epiphany' path component.
|
||
(list (string-append "-Dc_link_args=-Wl,-rpath="
|
||
(assoc-ref %outputs "out") "/lib/epiphany"))))
|
||
(propagated-inputs
|
||
`(("dconf" ,dconf)))
|
||
(native-inputs
|
||
`(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
|
||
("glib:bin" ,glib "bin") ; for glib-mkenums
|
||
("intltool" ,intltool)
|
||
("itstool" ,itstool)
|
||
("pkg-config" ,pkg-config)
|
||
("xmllint" ,libxml2)))
|
||
(inputs
|
||
`(("avahi" ,avahi)
|
||
("gcr" ,gcr)
|
||
("gdk-pixbuf+svg" ,gdk-pixbuf+svg) ; for loading SVG files
|
||
("glib-networking" ,glib-networking)
|
||
("gnome-desktop" ,gnome-desktop)
|
||
("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
|
||
("json-glib" ,json-glib)
|
||
("iso-codes" ,iso-codes)
|
||
("libdazzle" ,libdazzle)
|
||
("libnotify" ,libnotify)
|
||
("libsecret" ,libsecret)
|
||
("libxslt" ,libxslt)
|
||
("nettle" ,nettle) ; for hogweed
|
||
("sqlite" ,sqlite)
|
||
("webkitgtk" ,webkitgtk)))
|
||
(home-page "https://wiki.gnome.org/Apps/Web")
|
||
(synopsis "GNOME web browser")
|
||
(description
|
||
"Epiphany is a GNOME web browser targeted at non-technical users. Its
|
||
principles are simplicity and standards compliance.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public d-feet
|
||
(package
|
||
(name "d-feet")
|
||
(version "0.3.14")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1m8lwiwl5jhi0x7y6x5zmd3hjplgvdjrb8a8jg74rvkygslj1p7f"))))
|
||
(build-system glib-or-gtk-build-system)
|
||
(arguments
|
||
'(#:out-of-source? #f ; tests need to run in the source directory.
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before
|
||
'check 'pre-check
|
||
(lambda _
|
||
;; The test suite requires a running X server.
|
||
(system "Xvfb :1 &")
|
||
(setenv "DISPLAY" ":1")
|
||
;; Don't fail on missing '/etc/machine-id'.
|
||
(setenv "DBUS_FATAL_WARNINGS" "0")
|
||
;; tests.py and window.py don't meet E402:
|
||
;; E402 module level import not at top of file
|
||
(substitute* "src/tests/Makefile"
|
||
(("--ignore=E123") "--ignore=E123,E402"))
|
||
#t))
|
||
(add-after
|
||
'install 'wrap-program
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let ((prog (string-append (assoc-ref outputs "out")
|
||
"/bin/d-feet")))
|
||
(wrap-program prog
|
||
`("PYTHONPATH" = (,(getenv "PYTHONPATH")))
|
||
`("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
|
||
#t))))))
|
||
(native-inputs
|
||
`(("intltool" ,intltool)
|
||
("itstool" ,itstool)
|
||
("pkg-config" ,pkg-config)
|
||
("python-pep8" ,python-pep8)
|
||
("xmllint" ,libxml2)
|
||
("xorg-server" ,xorg-server-for-tests)))
|
||
(inputs
|
||
`(("gobject-introspection" ,gobject-introspection)
|
||
("gtk+" ,gtk+)
|
||
("python" ,python-wrapper)
|
||
("hicolor-icon-theme" ,hicolor-icon-theme)
|
||
("python-pygobject" ,python-pygobject)))
|
||
(home-page "https://wiki.gnome.org/Apps/DFeet")
|
||
(synopsis "D-Bus debugger")
|
||
(description
|
||
"D-Feet is a D-Bus debugger, which can be used to inspect D-Bus interfaces
|
||
of running programs and invoke methods on those interfaces.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public yelp-xsl
|
||
(package
|
||
(name "yelp-xsl")
|
||
(version "3.32.1")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"013z2ixx9kfrs6hq79qpil093xfbc12y1p0mvsh6lpala30iphya"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
`(("intltool" ,intltool)
|
||
("itstool" ,itstool)
|
||
("xmllint" ,libxml2)))
|
||
(home-page "https://wiki.gnome.org/Apps/Yelp")
|
||
(synopsis "XSL stylesheets for Yelp")
|
||
(description
|
||
"Yelp-xsl contains XSL stylesheets that are used by the yelp help browser
|
||
to format Docbook and Mallard documents.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public yelp
|
||
(package
|
||
(name "yelp")
|
||
(version "3.32.2")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0yrl96icmmrxvg7sxl519gzg9qb368cmzgrr9ddh181ignkxzx7f"))))
|
||
(build-system glib-or-gtk-build-system)
|
||
(native-inputs
|
||
`(("glib:bin" ,glib "bin") ; for glib-genmarshal, etc.
|
||
("intltool" ,intltool)
|
||
("itstool" ,itstool)
|
||
("pkg-config" ,pkg-config)))
|
||
(propagated-inputs
|
||
`(("dconf" ,dconf)))
|
||
(inputs
|
||
`(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
|
||
("libxslt" ,libxslt)
|
||
("sqlite" ,sqlite)
|
||
("webkitgtk" ,webkitgtk)
|
||
("yelp-xsl" ,yelp-xsl)))
|
||
(home-page "https://wiki.gnome.org/Apps/Yelp")
|
||
(synopsis "GNOME help browser")
|
||
(description
|
||
"Yelp is the help viewer in Gnome. It natively views Mallard, DocBook,
|
||
man, info, and HTML documents. It can locate documents according to the
|
||
freedesktop.org help system specification.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public yelp-tools
|
||
(package
|
||
(name "yelp-tools")
|
||
(version "3.28.0")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1b61dmlb1sd50fgq6zgnkcpx2s1py33q0x9cx67fzpsr4gmgxnw2"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)))
|
||
(propagated-inputs
|
||
;; Needed by `yelp-build', `yelp-check' or 'yelp.m4'.
|
||
`(("itstool" ,itstool)
|
||
("xmllint" ,libxml2)
|
||
("xsltproc" ,libxslt)))
|
||
(inputs
|
||
`(("yelp-xsl" ,yelp-xsl)))
|
||
(home-page "https://wiki.gnome.org/Apps/Yelp/Tools")
|
||
(synopsis "Yelp documentation tools")
|
||
(description
|
||
"Yelp-tools is a collection of scripts and build utilities to help create,
|
||
manage, and publish documentation for Yelp and the web. Most of the heavy
|
||
lifting is done by packages like yelp-xsl and itstool. This package just
|
||
wraps things up in a developer-friendly way.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public yelp-tools/fixed
|
||
;; This variant fixes a python-libxml2 crash when processing UTF-8
|
||
;; sequences: <https://bugs.gnu.org/37468>. TODO: Remove this in
|
||
;; the next rebuild cycle.
|
||
(hidden-package
|
||
(package/inherit
|
||
yelp-tools
|
||
(propagated-inputs
|
||
`(("itstool" ,itstool/fixed)
|
||
,@(alist-delete "itstool" (package-propagated-inputs yelp-tools)))))))
|
||
|
||
(define-public libgee
|
||
(package
|
||
(name "libgee")
|
||
(version "0.20.2")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/libgee/"
|
||
(version-major+minor version) "/"
|
||
"libgee-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0g1mhl7nidg82v4cikkk8dakzc18hg7wv0dsf2pbyijzfm5mq0wy"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'fix-introspection-install-dir
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let ((out (assoc-ref outputs "out")))
|
||
(substitute* "gee/Makefile.in"
|
||
(("@INTROSPECTION_GIRDIR@")
|
||
(string-append out "/share/gir-1.0/"))
|
||
(("@INTROSPECTION_TYPELIBDIR@")
|
||
(string-append out "/lib/girepository-1.0/")))))))))
|
||
(native-inputs
|
||
`(("glib" ,glib "bin")
|
||
("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("glib" ,glib)
|
||
("gobject-introspection" ,gobject-introspection)))
|
||
(home-page "https://wiki.gnome.org/Projects/Libgee")
|
||
(synopsis "GObject collection library")
|
||
(description
|
||
"Libgee is a utility library providing GObject-based interfaces and
|
||
classes for commonly used data structures.")
|
||
(license license:lgpl2.1+)))
|
||
|
||
(define-public gexiv2
|
||
(package
|
||
(name "gexiv2")
|
||
(version "0.12.0")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0slj5yj8c90l9pp5i3z74x5r3r4da0xfmbzkfq5k0dkg72q3kxaq"))))
|
||
(build-system meson-build-system)
|
||
(native-inputs
|
||
`(("gcr" ,gcr)
|
||
("glib" ,glib "bin")
|
||
("pkg-config" ,pkg-config)
|
||
("vala" ,vala)))
|
||
(propagated-inputs
|
||
;; Listed in "Requires" section of gexiv2.pc
|
||
`(("exiv2" ,exiv2)))
|
||
(inputs
|
||
`(("glib" ,glib)
|
||
("gobject-introspection" ,gobject-introspection)))
|
||
(home-page "https://wiki.gnome.org/Projects/gexiv2")
|
||
(synopsis "GObject wrapper around the Exiv2 photo metadata library")
|
||
(description
|
||
"Gexiv2 is a GObject wrapper around the Exiv2 photo metadata library. It
|
||
allows for GNOME applications to easily inspect and update EXIF, IPTC, and XMP
|
||
metadata in photo and video files of various formats.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public shotwell
|
||
(package
|
||
(name "shotwell")
|
||
(version "0.30.7")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/shotwell/"
|
||
(version-major+minor version) "/"
|
||
"shotwell-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1m9i8r4gyd2hzlxjjwfyck4kz7gdg2vz2k6l6d0ga9hdfq2l4p9l"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
'(#:glib-or-gtk? #t
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'skip-gtk-update-icon-cache
|
||
(lambda _
|
||
(substitute* "build-aux/meson/postinstall.py"
|
||
(("gtk-update-icon-cache") (which "true"))
|
||
(("update-desktop-database") (which "true")))
|
||
#t)))))
|
||
(propagated-inputs
|
||
`(("dconf" ,dconf)))
|
||
(native-inputs
|
||
`(("gettext" ,gettext-minimal)
|
||
("glib:bin" ,glib "bin")
|
||
("itstool" ,itstool)
|
||
("pkg-config" ,pkg-config)
|
||
("vala" ,vala)))
|
||
(inputs
|
||
`(("gcr" ,gcr)
|
||
("gexiv2" ,gexiv2)
|
||
("gst-plugins-base" ,gst-plugins-base)
|
||
("gstreamer" ,gstreamer)
|
||
("json-glib" ,json-glib)
|
||
("libgdata" ,libgdata)
|
||
("libgee" ,libgee)
|
||
("libgphoto2" ,libgphoto2)
|
||
("libgudev" ,libgudev)
|
||
("libraw" ,libraw)
|
||
("libsoup" ,libsoup)
|
||
("libxml2" ,libxml2)
|
||
("sqlite" ,sqlite)
|
||
("webkitgtk" ,webkitgtk)))
|
||
(home-page "https://wiki.gnome.org/Apps/Shotwell")
|
||
(synopsis "Photo manager for GNOME 3")
|
||
(description
|
||
"Shotwell is a digital photo manager designed for the GNOME desktop
|
||
environment. It allows you to import photos from disk or camera, organize
|
||
them by keywords and events, view them in full-window or fullscreen mode, and
|
||
share them with others via social networking and more.")
|
||
(license license:lgpl2.1+)))
|
||
|
||
(define-public file-roller
|
||
(package
|
||
(name "file-roller")
|
||
(version "3.32.3")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/file-roller/"
|
||
(version-major+minor version) "/"
|
||
"file-roller-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0ap2hxvjljh4p6wsd9ikh2my3vsxp9r2nvjxxj3v87nwfyw1y4dy"))))
|
||
(build-system meson-build-system)
|
||
(native-inputs
|
||
`(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
|
||
("intltool" ,intltool)
|
||
("itstool" ,itstool)
|
||
("pkg-config" ,pkg-config)
|
||
("gtk+" ,gtk+ "bin") ; gtk-update-icon-cache
|
||
("glib:bin" ,glib "bin")))
|
||
;; TODO: Add libnautilus.
|
||
(inputs
|
||
`(("gtk+" ,gtk+)
|
||
("gdk-pixbuf" ,gdk-pixbuf)
|
||
("json-glib" ,json-glib)
|
||
("libarchive" ,libarchive)
|
||
("libnotify" ,libnotify)
|
||
("nettle" ,nettle)
|
||
("libxml2" ,libxml2)))
|
||
(synopsis "Graphical archive manager for GNOME")
|
||
(description "File Roller is an archive manager for the GNOME desktop
|
||
environment that allows users to view, unpack, and create compressed archives
|
||
such as gzip tarballs.")
|
||
(home-page "http://fileroller.sourceforge.net/")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public gnome-session
|
||
(package
|
||
(name "gnome-session")
|
||
(version "3.32.0")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0zrzkpd406i159mla7bfs5npa32fgqh66aip1rfq02rgsgmc9m5v"))))
|
||
(arguments
|
||
'(#:glib-or-gtk? #t
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before 'configure 'pre-configure
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
;; Use elogind instead of systemd.
|
||
(substitute* "meson.build"
|
||
(("libsystemd-login") "libelogind")
|
||
(("and libsystemd_daemon_dep.found.*") ","))
|
||
(substitute* "gnome-session/gsm-systemd.c"
|
||
(("#include <systemd/sd-login.h>")
|
||
"#include <elogind/sd-login.h>"))
|
||
;; Remove uses of the systemd daemon.
|
||
(substitute* "gnome-session/gsm-autostart-app.c"
|
||
(("#ifdef HAVE_SYSTEMD") "#if 0"))
|
||
#t))
|
||
(add-after 'install 'wrap-gnome-session
|
||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||
;; Make sure 'gnome-session' finds the 'gsettings' program.
|
||
(let ((glib (assoc-ref inputs "glib:bin"))
|
||
(out (assoc-ref outputs "out")))
|
||
(wrap-program (string-append out "/bin/gnome-session")
|
||
`("PATH" ":" prefix (,(string-append glib "/bin"))))
|
||
#t))))
|
||
|
||
#:configure-flags
|
||
'("-Ddocbook=false" ; FIXME: disabled because of docbook validation error
|
||
"-Dman=false" ; FIXME: disabled because of docbook validation error
|
||
"-Dsystemd_journal=false")))
|
||
(build-system meson-build-system)
|
||
(native-inputs
|
||
`(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
|
||
("pkg-config" ,pkg-config)
|
||
("intltool" ,intltool)
|
||
("xsltproc" ,libxslt)
|
||
("libxml2" ,libxml2) ;for 'XML_CATALOG_FILES'
|
||
("docbook-xsl" ,docbook-xsl)
|
||
("docbook-xml" ,docbook-xml)
|
||
("xmlto" ,xmlto)))
|
||
(inputs
|
||
`(("elogind" ,elogind)
|
||
("gnome-desktop" ,gnome-desktop)
|
||
("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
|
||
("gtk+" ,gtk+)
|
||
("json-glib" ,json-glib)
|
||
("libsm" ,libsm)
|
||
("libxcomposite" ,libxcomposite)
|
||
("libxtst" ,libxtst)
|
||
("mesa" ,mesa)
|
||
("upower" ,upower)
|
||
("xtrans" ,xtrans)))
|
||
(synopsis "Session manager for GNOME")
|
||
(description
|
||
"This package contains the GNOME session manager, as well as a
|
||
configuration program to choose applications starting on login.")
|
||
(home-page "https://wiki.gnome.org/Projects/SessionManagement")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public gjs
|
||
(package
|
||
(name "gjs")
|
||
(version "1.56.2")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1b5321krn89p3f7s2ik6gpfnc61apzljhlnbqky8c88f7n6832ac"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
'(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before
|
||
'check 'pre-check
|
||
(lambda _
|
||
;; The test suite requires a running X server.
|
||
(system "Xvfb :1 &")
|
||
(setenv "DISPLAY" ":1")
|
||
|
||
;; For the missing /etc/machine-id.
|
||
(setenv "DBUS_FATAL_WARNINGS" "0")
|
||
|
||
;; Our mozjs-38 package does not compile the required Intl API
|
||
;; support for these failing tests.
|
||
(substitute* "installed-tests/js/testLocale.js"
|
||
((".*toBeDefined.*") "")
|
||
((".*expect\\(datestr\\).*") ""))
|
||
(substitute* "installed-tests/scripts/testCommandLine.sh"
|
||
(("Valentín") "")
|
||
(("☭") ""))
|
||
#t)))))
|
||
(native-inputs
|
||
`(("glib:bin" ,glib "bin") ; for glib-compile-resources
|
||
("pkg-config" ,pkg-config)
|
||
("xmllint" ,libxml2)
|
||
;; For testing
|
||
("dbus-launch" ,dbus)
|
||
("uuidgen" ,util-linux)
|
||
("xvfb" ,xorg-server-for-tests)))
|
||
(propagated-inputs
|
||
;; These are all in the Requires.private field of gjs-1.0.pc.
|
||
`(("cairo" ,cairo)
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("mozjs" ,mozjs-60)))
|
||
(inputs
|
||
`(("gtk+" ,gtk+)
|
||
("readline" ,readline)))
|
||
(synopsis "Javascript bindings for GNOME")
|
||
(home-page "https://live.gnome.org/Gjs")
|
||
(description
|
||
"Gjs is a javascript binding for GNOME. It's mainly based on spidermonkey
|
||
javascript engine and the GObject introspection framework.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public gedit
|
||
(package
|
||
(name "gedit")
|
||
(version "3.32.2")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1q2rk7fym542c7k3bn2wlnzgy384gxacbifsjny0spbg95gfybvl"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
`(#:glib-or-gtk? #t
|
||
#:configure-flags
|
||
;; Otherwise, the RUNPATH will lack the final path component.
|
||
(list (string-append "-Dc_link_args=-Wl,-rpath="
|
||
(assoc-ref %outputs "out") "/lib/gedit"))
|
||
|
||
;; XXX: Generated .h files are sometimes used before being built.
|
||
#:parallel-build? #f
|
||
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'skip-gtk-update-icon-cache
|
||
;; Don't create 'icon-theme.cache'.
|
||
(lambda _
|
||
(substitute* "build-aux/meson/post_install.py"
|
||
(("gtk-update-icon-cache") (which "true")))
|
||
#t))
|
||
(add-after 'unpack 'patch-libgd-fetch
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
(let ((libgd (assoc-ref inputs "libgd")))
|
||
;; Calling git is unnecessary because libgd is fetched as a
|
||
;; native input to this package.
|
||
(substitute* "meson.build"
|
||
((".*git.*") ""))
|
||
(copy-recursively libgd "subprojects/libgd")
|
||
#t)))
|
||
(add-after 'install 'wrap-gedit
|
||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||
(let ((out (assoc-ref outputs "out"))
|
||
(gtksourceview (assoc-ref inputs "gtksourceview"))
|
||
(gi-typelib-path (getenv "GI_TYPELIB_PATH"))
|
||
(python-path (getenv "PYTHONPATH")))
|
||
(wrap-program (string-append out "/bin/gedit")
|
||
;; For plugins.
|
||
`("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))
|
||
`("PYTHONPATH" ":" prefix (,python-path))
|
||
;; For language-specs.
|
||
`("XDG_DATA_DIRS" ":" prefix (,(string-append gtksourceview
|
||
"/share")))))
|
||
#t)))))
|
||
(propagated-inputs
|
||
`(("dconf" ,dconf)))
|
||
(native-inputs
|
||
`(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
|
||
("intltool" ,intltool)
|
||
("itstool" ,itstool)
|
||
("glib:bin" ,glib "bin") ; for glib-mkenums, etc.
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("libgd"
|
||
,(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://gitlab.gnome.org/GNOME/libgd")
|
||
(commit "c7c7ff4e05d3fe82854219091cf116cce6b19de0")))
|
||
(file-name (git-file-name "libgd" version))
|
||
(sha256
|
||
(base32 "16yld0ap7qj1n96h4f2sqkjmibg7xx5xwkqxdfzam2nmyfdlrrrs"))))
|
||
("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("glib" ,glib)
|
||
("gspell" ,gspell)
|
||
("gtk+" ,gtk+)
|
||
("gtksourceview" ,gtksourceview)
|
||
("libpeas" ,libpeas)
|
||
("libxml2" ,libxml2)
|
||
("iso-codes" ,iso-codes)
|
||
("python-pygobject" ,python-pygobject)
|
||
("python" ,python)
|
||
("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
|
||
("libx11" ,libx11)
|
||
("vala" ,vala)
|
||
("adwaita-icon-theme" ,adwaita-icon-theme)
|
||
("libsoup" ,libsoup)
|
||
("gnome-desktop" ,gnome-desktop)))
|
||
(home-page "https://wiki.gnome.org/Apps/Gedit")
|
||
(synopsis "GNOME text editor")
|
||
(description "While aiming at simplicity and ease of use, gedit is a
|
||
powerful general purpose text editor.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public zenity
|
||
(package
|
||
(name "zenity")
|
||
(version "3.32.0")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/zenity/"
|
||
(version-major+minor version) "/"
|
||
"zenity-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"15fdh8xfdhnwcynyh4byx3mrjxbyprqnwxzi7qn3g5wwaqryg1p7"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
`(("gettext" ,gettext-minimal)
|
||
("itstool" ,itstool)
|
||
("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("libnotify" ,libnotify)
|
||
("webkitgtk" ,webkitgtk)))
|
||
(synopsis "Display graphical dialog boxes from shell scripts")
|
||
(home-page "https://www.gnome.org")
|
||
(description
|
||
"Zenity is a rewrite of gdialog, the GNOME port of dialog which allows you
|
||
to display dialog boxes from the commandline and shell scripts.")
|
||
(license license:lgpl2.0+)))
|
||
|
||
(define-public mutter
|
||
(package
|
||
(name "mutter")
|
||
(version "3.32.2")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1h577i2ap7dpfy1jg101jvc6nzccc0csgvd55ahydlr8f94frcva"))))
|
||
;; NOTE: Since version 3.21.x, mutter now bundles and exports forked
|
||
;; versions of cogl and clutter. As a result, many of the inputs,
|
||
;; propagated-inputs, and configure flags used in cogl and clutter are
|
||
;; needed here as well.
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
'(;; XXX: All mutter tests fail with the following error:
|
||
;; Settings schema 'org.gnome.mutter' is not installed
|
||
#:tests? #f
|
||
#:glib-or-gtk? #t
|
||
#:configure-flags
|
||
;; Otherwise, the RUNPATH will lack the final path component.
|
||
(list (string-append "-Dc_link_args=-Wl,-rpath="
|
||
(assoc-ref %outputs "out") "/lib:"
|
||
(assoc-ref %outputs "out") "/lib/mutter-4")
|
||
|
||
;; The following flags are needed for the bundled clutter
|
||
(string-append "-Dxwayland_path="
|
||
(assoc-ref %build-inputs "xorg-server-xwayland")
|
||
"/bin/Xwayland")
|
||
|
||
;; the remaining flags are needed for the bundled cogl
|
||
(string-append "-Dopengl_libname="
|
||
(assoc-ref %build-inputs "mesa")
|
||
"/lib/libGL.so"))
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'disable-werror
|
||
(lambda _
|
||
;; XXX: build fails with [-Werror]:
|
||
;; backends/meta-cursor-renderer.c:112:5: error:
|
||
;; implicit declaration of function ?roundf?
|
||
(substitute* "meson.build"
|
||
(("'-Werror=.*',") ""))
|
||
#t))
|
||
;; Replace references to systemd libraries to elogind references.
|
||
(add-before 'configure 'use-elogind
|
||
(lambda _
|
||
(substitute* (list "meson.build"
|
||
"src/backends/native/meta-launcher.c"
|
||
"src/core/main.c")
|
||
(("systemd") "elogind"))
|
||
#t)))))
|
||
(native-inputs
|
||
`(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("intltool" ,intltool)
|
||
("pkg-config" ,pkg-config)
|
||
("xorg-server" ,xorg-server-for-tests)
|
||
;; For git build
|
||
("autoconf" ,autoconf)
|
||
("automake" ,automake)
|
||
("libtool" ,libtool)))
|
||
(propagated-inputs
|
||
`(;; libmutter.pc refers to these:
|
||
("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
|
||
("gtk+" ,gtk+)
|
||
;; mutter-clutter-1.0.pc and mutter-cogl-1.0.pc refer to these:
|
||
("atk" ,atk)
|
||
("cairo" ,cairo)
|
||
("gdk-pixbuf" ,gdk-pixbuf)
|
||
("glib" ,glib)
|
||
("json-glib" ,json-glib)
|
||
("libinput" ,libinput)
|
||
("libx11" ,libx11)
|
||
("libxcomposite" ,libxcomposite)
|
||
("libxdamage" ,libxdamage)
|
||
("libxext" ,libxext)
|
||
("libxfixes" ,libxfixes)
|
||
("libxkbcommon" ,libxkbcommon)
|
||
("libxrandr" ,libxrandr)
|
||
("mesa" ,mesa)
|
||
("pango" ,pango)
|
||
("udev" ,eudev)
|
||
("xinput" ,xinput)))
|
||
(inputs
|
||
`(("elogind" ,elogind)
|
||
("gnome-desktop" ,gnome-desktop)
|
||
("gnome-settings-daemon" ,gnome-settings-daemon)
|
||
("libcanberra-gtk" ,libcanberra)
|
||
("libgudev" ,libgudev)
|
||
("libice" ,libice)
|
||
("libsm" ,libsm)
|
||
("libwacom" ,libwacom)
|
||
("libxkbfile" ,libxkbfile)
|
||
("libxrandr" ,libxrandr)
|
||
("libxtst" ,libxtst)
|
||
("pipewire" ,pipewire)
|
||
("startup-notification" ,startup-notification)
|
||
("upower-glib" ,upower)
|
||
("xkeyboard-config" ,xkeyboard-config)
|
||
("xorg-server-xwayland" ,xorg-server-xwayland)
|
||
("zenity" ,zenity)))
|
||
(synopsis "Window and compositing manager")
|
||
(home-page "https://www.gnome.org")
|
||
(description
|
||
"Mutter is a window and compositing manager that displays and manages your
|
||
desktop via OpenGL. Mutter combines a sophisticated display engine using the
|
||
Clutter toolkit with solid window-management logic inherited from the Metacity
|
||
window manager.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public gnome-online-accounts
|
||
(package
|
||
(name "gnome-online-accounts")
|
||
(version "3.32.1")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"08g9kdj8fzcgp76z2zsj9m7wfjks9z6xfrfrbfmcr69k40mapfx8"))))
|
||
(outputs '("out" "lib"))
|
||
(build-system glib-or-gtk-build-system)
|
||
(arguments
|
||
`(#:configure-flags
|
||
(list (string-append "--libdir=" (assoc-ref %outputs "out") "/lib"))
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before 'configure 'patch-libgoa-output
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let ((lib (assoc-ref outputs "lib")))
|
||
(substitute* '("src/goa/Makefile.in" "src/goa/goa-1.0.pc.in")
|
||
(("@prefix@") lib)
|
||
(("@exec_prefix@") lib)
|
||
(("@libdir@") (string-append lib "/lib"))
|
||
(("@includedir@") (string-append lib "/include"))
|
||
(("@datadir@") (string-append lib "/share")))
|
||
;; Make sure gobject-introspection knows about the output
|
||
;; too (see <https://bugs.gnu.org/36535>).
|
||
(setenv "outputs" "out lib")
|
||
#t))))))
|
||
(native-inputs
|
||
`(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("intltool" ,intltool)
|
||
("pkg-config" ,pkg-config)
|
||
("vala" ,vala)
|
||
("xsltproc" ,libxslt)))
|
||
(propagated-inputs
|
||
`(("glib" ,glib) ; required by goa-1.0.pc
|
||
("gtk+" ,gtk+))) ; required by goa-backend-1.0.pc
|
||
(inputs
|
||
`(("docbook-xsl" ,docbook-xsl)
|
||
("json-glib" ,json-glib)
|
||
("libsecret" ,libsecret)
|
||
("rest" ,rest)
|
||
("webkitgtk" ,webkitgtk)))
|
||
(synopsis "Single sign-on framework for GNOME")
|
||
(home-page "https://wiki.gnome.org/Projects/GnomeOnlineAccounts")
|
||
(description
|
||
"GNOME Online Accounts provides interfaces so that applications and
|
||
libraries in GNOME can access the user's online accounts. It has providers for
|
||
Google, ownCloud, Facebook, Flickr, Windows Live, Pocket, Foursquare, Microsoft
|
||
Exchange, Last.fm, IMAP/SMTP, Jabber, SIP and Kerberos.")
|
||
(license license:lgpl2.0+)))
|
||
|
||
(define-public evolution-data-server
|
||
(package
|
||
(name "evolution-data-server")
|
||
(version "3.32.4")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(patches (search-patches "evolution-data-server-locales.patch"
|
||
"evolution-data-server-libical-compat.patch"))
|
||
(sha256
|
||
(base32
|
||
"0zsc9xwy6ixk3x0dx69ax5isrdw8qxjdxg2i5fr95s40nss7rxl3"))))
|
||
(build-system cmake-build-system)
|
||
(arguments
|
||
'(#:configure-flags
|
||
(let* ((lib (string-append (assoc-ref %outputs "out") "/lib"))
|
||
(runpaths (map (lambda (s)
|
||
(string-append lib "/evolution-data-server/" s))
|
||
'("addressbook-backends" "calendar-backends"
|
||
"camel-providers" "credential-modules"
|
||
"registry-modules"))))
|
||
(list "-DENABLE_UOA=OFF" ;disable Ubuntu Online Accounts support
|
||
"-DENABLE_GOOGLE=OFF" ;disable Google Contacts support
|
||
"-DENABLE_GOOGLE_AUTH=OFF" ;disable Google authentication
|
||
"-DENABLE_VALA_BINDINGS=ON"
|
||
(string-append "-DCMAKE_INSTALL_RPATH=" lib ";"
|
||
(string-append lib "/evolution-data-server;")
|
||
(string-join runpaths ";"))
|
||
"-DENABLE_INTROSPECTION=ON")) ;required for Vala bindings
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'disable-failing-tests
|
||
(lambda _
|
||
;; tests/book-migration/test-migration.c:160:test_fetch_contacts:
|
||
;; assertion failed (g_slist_length (contacts) == 20): (0 == 20)
|
||
(delete-file-recursively "tests/book-migration")
|
||
(substitute* "tests/CMakeLists.txt"
|
||
(("add_subdirectory\\(book-migration\\)") ""))
|
||
;; tests/libebook/client/test-book-client-view-operations:8077):
|
||
;; e-data-server-WARNING **:
|
||
;; (src/libedataserver/e-source-registry.c:264):thread_closure_free:
|
||
;; runtime check failed:
|
||
;; (!g_main_context_pending (closure->main_context))
|
||
(substitute* "tests/libebook/client/CMakeLists.txt"
|
||
(("test-book-client-view-operations") ""))
|
||
#t))
|
||
(add-after 'unpack 'patch-paths
|
||
(lambda _
|
||
(substitute* '("tests/test-server-utils/e-test-server-utils.c"
|
||
"tests/libedata-book/data-test-utils.c"
|
||
"tests/libedata-book/test-book-cache-utils.c"
|
||
"tests/libedata-cal/test-cal-cache-utils.c")
|
||
(("/bin/rm") (which "rm")))
|
||
#t))
|
||
(add-before 'configure 'dont-override-rpath
|
||
(lambda _
|
||
(substitute* "CMakeLists.txt"
|
||
;; CMakeLists.txt hard-codes runpath to just the libdir.
|
||
;; Remove it so the configure flag is respected.
|
||
(("SET\\(CMAKE_INSTALL_RPATH .*") ""))
|
||
#t)))))
|
||
(native-inputs
|
||
`(("glib:bin" ,glib "bin") ; for glib-mkenums, etc.
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("gperf" ,gperf)
|
||
("intltool" ,intltool)
|
||
("pkg-config" ,pkg-config)
|
||
("vala" ,vala)
|
||
("python" ,python-wrapper)))
|
||
(propagated-inputs
|
||
;; These are all in the Requires field of .pc files.
|
||
`(("gtk+" ,gtk+)
|
||
("libical" ,libical)
|
||
("libsecret" ,libsecret)
|
||
("libsoup" ,libsoup)
|
||
("nss" ,nss)
|
||
("sqlite" ,sqlite)))
|
||
(inputs
|
||
`(("bdb" ,bdb)
|
||
("gcr" ,gcr)
|
||
("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
|
||
("json-glib" ,json-glib)
|
||
("libcanberra" ,libcanberra)
|
||
("libgweather" ,libgweather)
|
||
("mit-krb5" ,mit-krb5)
|
||
("openldap" ,openldap)
|
||
("webkitgtk" ,webkitgtk)))
|
||
(synopsis "Store address books and calendars")
|
||
(home-page "https://wiki.gnome.org/Apps/Evolution")
|
||
(description
|
||
"This package provides a unified backend for programs that work with
|
||
contacts, tasks, and calendar information. It was originally developed for
|
||
Evolution (hence the name), but is now used by other packages as well.")
|
||
(license license:lgpl2.0)))
|
||
|
||
(define-public caribou
|
||
(package
|
||
(name "caribou")
|
||
(version "0.4.21")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0mfychh1q3dx0b96pjz9a9y112bm9yqyim40yykzxx1hppsdjhww"))))
|
||
(build-system glib-or-gtk-build-system)
|
||
(arguments
|
||
'(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before
|
||
'build 'pre-build
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let ((out (assoc-ref outputs "out")))
|
||
;; Use absolute shared library path in Caribou-1.0.typelib.
|
||
(substitute* "libcaribou/Makefile"
|
||
(("--shared-library=libcaribou.so")
|
||
(string-append "--shared-library="
|
||
out "/lib/libcaribou.so")))
|
||
#t)))
|
||
(add-after 'install 'wrap-programs
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(python-path (getenv "PYTHONPATH"))
|
||
(gi-typelib-path (getenv "GI_TYPELIB_PATH")))
|
||
(for-each
|
||
(lambda (prog)
|
||
(wrap-program prog
|
||
`("PYTHONPATH" ":" prefix (,python-path))
|
||
`("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
|
||
(list (string-append out "/bin/caribou-preferences")
|
||
(string-append out "/libexec/antler-keyboard"))))
|
||
#t)))))
|
||
(native-inputs
|
||
`(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("intltool" ,intltool)
|
||
("pkg-config" ,pkg-config)
|
||
("python" ,python)
|
||
("vala" ,vala)
|
||
("xsltproc" ,libxslt)))
|
||
(propagated-inputs
|
||
;; caribou-1.0.pc refers to all these.
|
||
`(("libgee" ,libgee)
|
||
("libxklavier" ,libxklavier)
|
||
("libxtst" ,libxtst)
|
||
("gtk+" ,gtk+)))
|
||
(inputs
|
||
`(("clutter" ,clutter)
|
||
("dconf" ,dconf)
|
||
("gtk+-2" ,gtk+-2)
|
||
("python-pygobject" ,python-pygobject)))
|
||
(synopsis "Text entry and UI navigation application")
|
||
(home-page "https://wiki.gnome.org/Projects/Caribou")
|
||
(description
|
||
"Caribou is an input assistive technology intended for switch and pointer
|
||
users.")
|
||
(license license:lgpl2.1)))
|
||
|
||
(define-public network-manager
|
||
(package
|
||
(name "network-manager")
|
||
(version "1.18.4")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/NetworkManager/"
|
||
(version-major+minor version) "/"
|
||
"NetworkManager-" version ".tar.xz"))
|
||
(patches (search-patches "nm-plugin-path.patch"))
|
||
(sha256
|
||
(base32
|
||
"0pnh1wr2p1fqa5pr945fr3lngfc5ccfrmgddqsg55lxnjpv0ggd3"))
|
||
(modules '((guix build utils)))
|
||
(snippet
|
||
'(begin
|
||
(substitute* "src/devices/wwan/nm-modem-manager.c"
|
||
(("systemd") "elogind"))
|
||
#t))))
|
||
(build-system gnu-build-system)
|
||
(outputs '("out"
|
||
"doc")) ; 8 MiB of gtk-doc HTML
|
||
(arguments
|
||
'(#:configure-flags
|
||
(let ((out (assoc-ref %outputs "out"))
|
||
(doc (assoc-ref %outputs "doc"))
|
||
(dhclient (string-append (assoc-ref %build-inputs "isc-dhcp")
|
||
"/sbin/dhclient")))
|
||
(list "--with-libnm-glib" ; needed by network-manager-applet
|
||
"--with-systemd-journal=no"
|
||
"--with-session-tracking=elogind"
|
||
"--with-suspend-resume=elogind"
|
||
"--with-consolekit=no"
|
||
"--with-crypto=gnutls"
|
||
"--disable-config-plugin-ibft"
|
||
"--sysconfdir=/etc"
|
||
"--localstatedir=/var"
|
||
(string-append "--with-udev-dir="
|
||
out "/lib/udev")
|
||
(string-append "--with-dbus-sys-dir="
|
||
out "/etc/dbus-1/system.d")
|
||
(string-append "--with-html-dir="
|
||
doc "/share/gtk-doc/html")
|
||
(string-append "--with-dhclient=" dhclient)))
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
;; This bare "ls" invocation breaks some tests.
|
||
(add-after 'unpack 'patch-ls-invocation
|
||
(lambda _
|
||
(substitute* "build-aux/ltmain.sh"
|
||
(("`ls -")
|
||
(string-append "`" (which "ls") " -")))
|
||
#t))
|
||
(add-before 'configure 'pre-configure
|
||
(lambda _
|
||
;; These tests try to test aspects of network-manager's
|
||
;; functionality within restricted containers, but they don't
|
||
;; cope with being already in the Guix build jail as that jail
|
||
;; lacks some features that they would like to proxy over (like
|
||
;; a /sys mount).
|
||
(substitute* '("Makefile.in")
|
||
(("src/platform/tests/test-address-linux") " ")
|
||
(("src/platform/tests/test-cleanup-linux") " ")
|
||
(("src/platform/tests/test-link-linux") " ")
|
||
(("src/platform/tests/test-route-linux") " ")
|
||
(("src/devices/tests/test-acd") "")
|
||
(("src/devices/tests/test-arping") " ")
|
||
(("src/devices/tests/test-lldp") " ")
|
||
(("src/tests/test-route-manager-linux") " "))
|
||
#t))
|
||
(add-after 'unpack 'delete-failing-tests
|
||
(lambda _
|
||
;; FIXME: These three tests fail for unknown reasons.
|
||
;; ERROR:libnm-core/tests/test-general.c:5842:
|
||
;; _json_config_check_valid: assertion failed (res == expected): (1 == 0)
|
||
;; ERROR:libnm-core/tests/test-keyfile.c:647:
|
||
;; test_team_conf_read_invalid: assertion failed: (nm_setting_team_get_config (s_team) == NULL)
|
||
;; ERROR:libnm-core/tests/test-setting.c:907:
|
||
;; _test_team_config_sync: assertion failed: (nm_streq0 (nm_setting_team_get_runner (s_team), runner))
|
||
(substitute* "Makefile.in"
|
||
(("libnm-core/tests/test-general") " ")
|
||
(("libnm-core/tests/test-keyfile") " ")
|
||
(("libnm-core/tests/test-setting\\$\\(EXEEXT\\)") " "))
|
||
#t))
|
||
(add-before 'check 'pre-check
|
||
(lambda _
|
||
;; For the missing /etc/machine-id.
|
||
(setenv "DBUS_FATAL_WARNINGS" "0")
|
||
#t))
|
||
(replace 'install
|
||
(lambda _
|
||
(invoke "make"
|
||
"sysconfdir=/tmp"
|
||
"rundir=/tmp"
|
||
"statedir=/tmp"
|
||
"nmstatedir=/tmp/nm"
|
||
"install")
|
||
#t)))))
|
||
(propagated-inputs
|
||
`(("glib" ,glib)))
|
||
(native-inputs
|
||
`(("glib:bin" ,glib "bin") ; for gdbus-codegen
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("docbook-xsl" ,docbook-xsl)
|
||
("intltool" ,intltool)
|
||
("libxslt" ,libxslt)
|
||
("libxml2" ,libxml2)
|
||
("pkg-config" ,pkg-config)
|
||
;; For testing.
|
||
("python" ,python-wrapper)
|
||
("python-dbus" ,python-dbus)
|
||
("python-pygobject" ,python-pygobject)))
|
||
(inputs
|
||
`(("coreutils" ,coreutils) ; for ls
|
||
("curl" ,curl)
|
||
("cyrus-sasl" ,cyrus-sasl)
|
||
("dbus-glib" ,dbus-glib)
|
||
("dnsmasq" ,dnsmasq)
|
||
("eudev" ,eudev)
|
||
("gnutls" ,gnutls)
|
||
("iptables" ,iptables)
|
||
("isc-dhcp" ,isc-dhcp)
|
||
("jansson" ,jansson)
|
||
("libgcrypt" ,libgcrypt)
|
||
("libgudev" ,libgudev)
|
||
("libndp" ,libndp)
|
||
("libnl" ,libnl)
|
||
("libsoup" ,libsoup)
|
||
("modem-manager" ,modem-manager)
|
||
("newt" ,newt) ;for the 'nmtui' console interface
|
||
("polkit" ,polkit)
|
||
("ppp" ,ppp)
|
||
("readline" ,readline)
|
||
("util-linux" ,util-linux)
|
||
("elogind" ,elogind)))
|
||
(synopsis "Network connection manager")
|
||
(home-page "https://www.gnome.org/projects/NetworkManager/")
|
||
(description
|
||
"NetworkManager is a system network service that manages your network
|
||
devices and connections, attempting to keep active network connectivity when
|
||
available. It manages ethernet, WiFi, mobile broadband (WWAN), and PPPoE
|
||
devices, and provides VPN integration with a variety of different VPN
|
||
services.")
|
||
(license license:gpl2+)
|
||
(properties '((upstream-name . "NetworkManager")))))
|
||
|
||
(define-public network-manager-openvpn
|
||
(package
|
||
(name "network-manager-openvpn")
|
||
;; Updating? Check whether network-manager-applet still needs libnm_gtk.
|
||
(version "1.8.10")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"mirror://gnome/sources/NetworkManager-openvpn/"
|
||
(version-major+minor version)
|
||
"/NetworkManager-openvpn-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1vri49yff4lj13dnzkpq9nx3a4z1bmbrv807r151plj8m1mwhg5g"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:configure-flags '("--enable-absolute-paths" "--localstatedir=/var")
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'configure 'patch-path
|
||
(lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
|
||
(let* ((ovpn (string-append (assoc-ref inputs "openvpn")
|
||
"/sbin/openvpn"))
|
||
(modprobe (string-append (assoc-ref inputs "kmod")
|
||
"/bin/modprobe"))
|
||
(pretty-ovpn (string-append "\"" ovpn "\"")))
|
||
(for-each
|
||
(lambda (file)
|
||
(substitute* file
|
||
(("\"/usr/local/sbin/openvpn\"") pretty-ovpn)
|
||
(("\"/usr/sbin/openvpn\"") pretty-ovpn)
|
||
(("\"/sbin/openvpn\"") pretty-ovpn)
|
||
(("/sbin/modprobe") modprobe)))
|
||
'("src/nm-openvpn-service.c" "properties/nm-openvpn-editor.c")))
|
||
#t)))))
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)
|
||
("intltool" ,intltool)))
|
||
(inputs
|
||
`(("gtk+" ,gtk+)
|
||
("kmod" ,kmod)
|
||
("openvpn" ,openvpn)
|
||
("network-manager" ,network-manager)
|
||
("network-manager-applet" ,network-manager-applet) ;for libnma
|
||
("libsecret" ,libsecret)))
|
||
(home-page "https://wiki.gnome.org/Projects/NetworkManager/VPN")
|
||
(synopsis "OpenVPN plug-in for NetworkManager")
|
||
(description
|
||
"This extension of NetworkManager allows it to take care of connections
|
||
to virtual private networks (VPNs) via OpenVPN.")
|
||
(license license:gpl2+)
|
||
(properties `((upstream-name . "NetworkManager-openvpn")))))
|
||
|
||
(define-public network-manager-vpnc
|
||
(package
|
||
(name "network-manager-vpnc")
|
||
(version "1.2.6")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"mirror://gnome/sources/NetworkManager-vpnc/"
|
||
(version-major+minor version)
|
||
"/NetworkManager-vpnc-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1js5lwcsqws4klgypfxl4ikmakv7v7xgddij1fj6b0y0qicx0kyy"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:configure-flags '("--enable-absolute-paths" "--localstatedir=/var")
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'configure 'patch-path
|
||
(lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
|
||
(let* ((vpnc (string-append (assoc-ref inputs "vpnc")
|
||
"/sbin/vpnc"))
|
||
(modprobe (string-append (assoc-ref inputs "kmod")
|
||
"/bin/modprobe"))
|
||
(pretty-ovpn (string-append "\"" vpnc "\"")))
|
||
(substitute* "src/nm-vpnc-service.c"
|
||
(("\"/usr/local/sbin/vpnc\"") pretty-ovpn)
|
||
(("\"/usr/sbin/vpnc\"") pretty-ovpn)
|
||
(("\"/sbin/vpnc\"") pretty-ovpn)
|
||
(("/sbin/modprobe") modprobe)))
|
||
#t)))))
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)
|
||
("intltool" ,intltool)))
|
||
(inputs
|
||
`(("gtk+" ,gtk+)
|
||
("kmod" ,kmod)
|
||
("vpnc" ,vpnc)
|
||
("network-manager" ,network-manager)
|
||
("network-manager-applet" ,network-manager-applet) ;for libnma
|
||
("libsecret" ,libsecret)))
|
||
(home-page "https://wiki.gnome.org/Projects/NetworkManager/VPN")
|
||
(synopsis "VPNC plug-in for NetworkManager")
|
||
(description
|
||
"Support for configuring virtual private networks based on VPNC.
|
||
Compatible with Cisco VPN concentrators configured to use IPsec.")
|
||
(license license:gpl2+)
|
||
(properties `((upstream-name . "NetworkManager-vpnc")))))
|
||
|
||
(define-public network-manager-openconnect
|
||
(package
|
||
(name "network-manager-openconnect")
|
||
(version "1.2.6")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"mirror://gnome/sources/NetworkManager-openconnect/"
|
||
(version-major+minor version)
|
||
"/NetworkManager-openconnect-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0nlp290nkawc4wqm978n4vhzg3xdqi8kpjjx19l855vab41rh44m"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:configure-flags '("--enable-absolute-paths" "--localstatedir=/var")
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'configure 'patch-path
|
||
(lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
|
||
(let* ((openconnect (string-append (assoc-ref inputs "openconnect")
|
||
"/sbin/openconnect"))
|
||
(modprobe (string-append (assoc-ref inputs "kmod")
|
||
"/bin/modprobe"))
|
||
(pretty-ovpn (string-append "\"" openconnect "\"")))
|
||
(substitute* "src/nm-openconnect-service.c"
|
||
(("\"/usr/local/sbin/openconnect\"") pretty-ovpn)
|
||
(("\"/usr/sbin/openconnect\"") pretty-ovpn)
|
||
(("/sbin/modprobe") modprobe)))
|
||
#t)))))
|
||
(native-inputs
|
||
`(("intltool" ,intltool)
|
||
("network-manager-applet" ,network-manager-applet) ;for libnma
|
||
("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("gcr" ,gcr)
|
||
("gtk+" ,gtk+)
|
||
("kmod" ,kmod)
|
||
("libsecret" ,libsecret)
|
||
("libxml2" ,libxml2)
|
||
("network-manager" ,network-manager)
|
||
("openconnect" ,openconnect)))
|
||
(home-page "https://wiki.gnome.org/Projects/NetworkManager/VPN")
|
||
(synopsis "OpenConnect plug-in for NetworkManager")
|
||
(description
|
||
"This extension of NetworkManager allows it to take care of connections
|
||
to @acronym{VPNs, virtual private networks} via OpenConnect, an open client for
|
||
Cisco's AnyConnect SSL VPN.")
|
||
(license license:gpl2+)
|
||
(properties `((upstream-name . "NetworkManager-openconnect")
|
||
|
||
;; The 'etc/dbus-1/system.d/nm-openconnect-service.conf'
|
||
;; file refers to account "nm-openconnect". Specify it here
|
||
;; so that 'network-manager-service-type' creates it.
|
||
(user-accounts . ("nm-openconnect"))))))
|
||
|
||
(define-public mobile-broadband-provider-info
|
||
(package
|
||
(name "mobile-broadband-provider-info")
|
||
(version "20190116")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"mirror://gnome/sources/"
|
||
"mobile-broadband-provider-info/" version "/"
|
||
"mobile-broadband-provider-info-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"16y5lc7pfdvai9c8xwb825zc3v46039gghbip13fqslf5gw11fic"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:tests? #f)) ; no tests
|
||
(home-page "https://wiki.gnome.org/Projects/NetworkManager")
|
||
(synopsis "Database of broadband connection configuration")
|
||
(description "Database of broadband connection configuration.")
|
||
(license license:public-domain)))
|
||
|
||
(define-public network-manager-applet
|
||
(package
|
||
(name "network-manager-applet")
|
||
(version "1.8.24")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/network-manager-applet/"
|
||
(version-major+minor version) "/"
|
||
"network-manager-applet-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1gzvz4wfqfsfclqg56y954al8x6fmz71cnxlx1i4nqr7a25bp2qi"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
'(#:configure-flags
|
||
;; ‘Nobody should be using this’ but network-manager-openvpn 1.8.10 does.
|
||
(list "-Dlibnm_gtk=true")
|
||
#:glib-or-gtk? #t))
|
||
(native-inputs
|
||
`(("intltool" ,intltool)
|
||
("glib:bin" ,glib "bin") ; for glib-compile-resources, etc.
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("gtk-doc" ,gtk-doc)
|
||
("pkg-config" ,pkg-config)))
|
||
(propagated-inputs
|
||
;; libnm-gtk.pc refers to all these.
|
||
`(("dbus-glib" ,dbus-glib)
|
||
("gtk+" ,gtk+)
|
||
("network-manager" ,network-manager)))
|
||
(inputs
|
||
`(("gcr" ,gcr)
|
||
("iso-codes" ,iso-codes)
|
||
("libgudev" ,libgudev)
|
||
("libnotify" ,libnotify)
|
||
("libsecret" ,libsecret)
|
||
("libselinux" ,libselinux)
|
||
("jansson" ,jansson) ; for team support
|
||
("modem-manager" ,modem-manager)
|
||
("mobile-broadband-provider-info" ,mobile-broadband-provider-info)))
|
||
(synopsis "Applet for managing network connections")
|
||
(home-page "https://www.gnome.org/projects/NetworkManager/")
|
||
(description
|
||
"This package contains a systray applet for NetworkManager. It displays
|
||
the available networks and allows users to easily switch between them.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public libxml++
|
||
(package
|
||
(name "libxml++")
|
||
(version "3.0.1")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"19kik79fmg61nv0by0a5f9wchrcfjwzvih4v2waw01hqflhqvp0r"))))
|
||
(build-system gnu-build-system)
|
||
;; libxml++-3.0.pc refers to all these.
|
||
(propagated-inputs
|
||
`(("libxml2" ,libxml2)
|
||
("glibmm" ,glibmm)))
|
||
(native-inputs
|
||
`(("perl" ,perl)
|
||
("pkg-config" ,pkg-config)))
|
||
(home-page "http://libxmlplusplus.sourceforge.net/")
|
||
(synopsis "C++ wrapper for XML parser library libxml2")
|
||
(description
|
||
"This package provides a C++ wrapper for the XML parser library
|
||
libxml2.")
|
||
(license license:lgpl2.1+)))
|
||
|
||
(define-public libxml++-2
|
||
(package
|
||
(inherit libxml++)
|
||
(name "libxml++")
|
||
(version "2.40.1")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1sb3akryklvh2v6m6dihdnbpf1lkx441v972q9hlz1sq6bfspm2a"))))))
|
||
|
||
(define-public gdm
|
||
(package
|
||
(name "gdm")
|
||
(version "3.32.0")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"12ypdz9i24hwbl1d1wnnxb8zlvfa4f49n9ac5cl9d6h8qp4b0gb4"))))
|
||
(build-system glib-or-gtk-build-system)
|
||
(arguments
|
||
'(#:configure-flags
|
||
`("--without-plymouth"
|
||
"--disable-systemd-journal"
|
||
|
||
;; Using --with-initial-vt=7 allows GDM to run alongside TTY 1,
|
||
;; instead of having to replace it (i.e., stopping the mingetty
|
||
;; service for TTY 1 before starting GDM).
|
||
"--with-initial-vt=7"
|
||
|
||
;; Use '/etc/environment' for locale settings instead of the
|
||
;; systemd-specific '/etc/locale.conf'.
|
||
"--with-lang-file=/etc/environment"
|
||
|
||
,(string-append "--with-udevdir="
|
||
(assoc-ref %outputs "out") "/lib/udev")
|
||
|
||
"--localstatedir=/var"
|
||
,(string-append "--with-default-path="
|
||
(string-join '("/run/setuid-programs"
|
||
"/run/current-system/profile/bin"
|
||
"/run/current-system/profile/sbin")
|
||
":"))
|
||
;; Put GDM in bindir so that glib-or-gtk-build-system wraps the
|
||
;; XDG_DATA_DIRS so that it finds its schemas.
|
||
"--sbindir" ,(string-append (assoc-ref %outputs "out") "/bin"))
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before
|
||
'configure 'pre-configure
|
||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||
;; We don't have <systemd/sd-daemon.h>.
|
||
(substitute* '("common/gdm-log.c"
|
||
"daemon/gdm-server.c"
|
||
"daemon/gdm-session-worker.c"
|
||
"daemon/gdm-session-worker-job.c")
|
||
(("#include <systemd/sd-daemon\\.h>") ""))
|
||
;; Use elogind for sd-login.
|
||
(substitute* '("common/gdm-common.c"
|
||
"daemon/gdm-manager.c"
|
||
"libgdm/gdm-user-switching.c")
|
||
(("#include <systemd/sd-login\\.h>")
|
||
"#include <elogind/sd-login.h>"))
|
||
;; Check for elogind.
|
||
(substitute* '("configure")
|
||
(("libsystemd")
|
||
"libelogind"))
|
||
;; Look for system-installed sessions in
|
||
;; /run/current-system/profile/share.
|
||
(substitute* '("libgdm/gdm-sessions.c"
|
||
"daemon/gdm-session.c"
|
||
"daemon/gdm-display.c"
|
||
"daemon/gdm-launch-environment.c")
|
||
(("DATADIR \"/x")
|
||
"\"/run/current-system/profile/share/x")
|
||
(("DATADIR \"/wayland")
|
||
"\"/run/current-system/profile/share/wayland")
|
||
(("DATADIR \"/gnome")
|
||
"\"/run/current-system/profile/share/gnome"))
|
||
(let ((propagate '("GDM_CUSTOM_CONF"
|
||
"GDM_DBUS_DAEMON"
|
||
"GDM_X_SERVER"
|
||
"GDM_X_SESSION"
|
||
;; XXX: Remove this once GNOME Shell is
|
||
;; a dependency of GDM.
|
||
"XDG_DATA_DIRS")))
|
||
(substitute* "daemon/gdm-session.c"
|
||
(("set_up_session_environment \\(self\\);")
|
||
(apply string-append
|
||
"set_up_session_environment (self);\n"
|
||
(map (lambda (name)
|
||
(string-append
|
||
"gdm_session_set_environment_variable "
|
||
"(self, \"" name "\","
|
||
"g_getenv (\"" name "\"));\n"))
|
||
propagate)))))
|
||
;; Find the configuration file using an environment variable.
|
||
(substitute* '("common/gdm-settings.c")
|
||
(("GDM_CUSTOM_CONF")
|
||
(string-append "(g_getenv(\"GDM_CUSTOM_CONF\") != NULL"
|
||
" ? g_getenv(\"GDM_CUSTOM_CONF\")"
|
||
" : GDM_CUSTOM_CONF)")))
|
||
;; Use service-supplied path to X.
|
||
(substitute* '("daemon/gdm-server.c")
|
||
(("\\(X_SERVER X_SERVER_ARG_FORMAT")
|
||
"(\"%s\" X_SERVER_ARG_FORMAT, g_getenv (\"GDM_X_SERVER\")"))
|
||
(substitute* '("daemon/gdm-x-session.c")
|
||
(("\"dbus-daemon\"")
|
||
"g_getenv (\"GDM_DBUS_DAEMON\")")
|
||
(("X_SERVER")
|
||
"g_getenv (\"GDM_X_SERVER\")")
|
||
(("GDMCONFDIR \"/Xsession\"")
|
||
"g_getenv (\"GDM_X_SESSION\")"))
|
||
;; Use an absolute path for GNOME Session.
|
||
(substitute* "daemon/gdm-launch-environment.c"
|
||
(("\"gnome-session\"")
|
||
(string-append "\"" (assoc-ref inputs "gnome-session")
|
||
"/bin/gnome-session\"")))
|
||
;; Do not automatically select the placeholder session.
|
||
(substitute* "daemon/gdm-session.c"
|
||
(("!g_str_has_suffix [(]base_name, \"\\.desktop\"[)]")
|
||
(string-append "!g_str_has_suffix (base_name, \".desktop\") || "
|
||
"(g_strcmp0(search_dirs[i], \""
|
||
(assoc-ref outputs "out") "/share/gdm/BuiltInSessions/"
|
||
"\") == 0 && "
|
||
"g_strcmp0(base_name, \"fail.desktop\") == 0)"))
|
||
(("g_error [(]\"GdmSession: no session desktop files installed, aborting\\.\\.\\.\"[)];")
|
||
"{ self->fallback_session_name = g_strdup(\"fail\"); goto out; }"))
|
||
#t))
|
||
;; GDM requires that there be at least one desktop entry
|
||
;; file. This phase installs a hidden one that simply
|
||
;; fails. This enables users to use GDM with a
|
||
;; '~/.xsession' script with no other desktop entry files.
|
||
;; See <https://bugs.gnu.org/35068>.
|
||
(add-after 'install 'install-placeholder-desktop-entry
|
||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(sessions (string-append out "/share/gdm/BuiltInSessions"))
|
||
(fail (string-append sessions "/fail.desktop")))
|
||
(mkdir-p sessions)
|
||
(with-output-to-file fail
|
||
(lambda ()
|
||
(for-each
|
||
display
|
||
'("[Desktop Entry]\n"
|
||
"Encoding=UTF-8\n"
|
||
"Type=Application\n"
|
||
"Name=Fail\n"
|
||
"Comment=This session fails immediately.\n"
|
||
"NoDisplay=true\n"
|
||
"Exec=false\n"))))
|
||
#t)))
|
||
;; GDM needs GNOME Session to run these applications. We link
|
||
;; their autostart files in `share/gdm/greeter/autostart'
|
||
;; because GDM explicitly tells GNOME Session to look there.
|
||
;;
|
||
;; XXX: GNOME Shell should be linked here too, but currently
|
||
;; GNOME Shell depends on GDM.
|
||
(add-after 'install 'link-autostart-files
|
||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(autostart (string-append out "/share/gdm/"
|
||
"greeter/autostart"))
|
||
(settings (assoc-ref inputs "gnome-settings-daemon")))
|
||
(mkdir-p autostart)
|
||
(with-directory-excursion autostart
|
||
(for-each (lambda (desktop)
|
||
(symlink desktop (basename desktop)))
|
||
(find-files (string-append settings "/etc/xdg"))))
|
||
#t))))))
|
||
(native-inputs
|
||
`(("dconf" ,dconf)
|
||
("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("intltool" ,intltool)
|
||
("itstool" ,itstool)
|
||
("pkg-config" ,pkg-config)
|
||
("xmllint" ,libxml2)))
|
||
(inputs
|
||
`(("accountsservice" ,accountsservice)
|
||
("check" ,check) ; for testing
|
||
("elogind" ,elogind)
|
||
("gnome-session" ,gnome-session)
|
||
("gnome-settings-daemon" ,gnome-settings-daemon)
|
||
("gtk+" ,gtk+)
|
||
("iso-codes" ,iso-codes)
|
||
("libcanberra" ,libcanberra)
|
||
("linux-pam" ,linux-pam)))
|
||
(synopsis "Display manager for GNOME")
|
||
(home-page "https://wiki.gnome.org/Projects/GDM/")
|
||
(description
|
||
"GNOME Display Manager is a system service that is responsible for
|
||
providing graphical log-ins and managing local and remote displays.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public libgtop
|
||
(package
|
||
(name "libgtop")
|
||
(version "2.40.0")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/libgtop/"
|
||
(version-major+minor version) "/"
|
||
"libgtop-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1m6jbqk8maa52gxrf223442fr5bvvxgb7ham6v039i3r1i62gwvq"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
`(("gobject-introspection" ,gobject-introspection)
|
||
("intltool" ,intltool)
|
||
("perl" ,perl)
|
||
("pkg-config" ,pkg-config)))
|
||
(propagated-inputs
|
||
`(("glib" ,glib))) ; required by libgtop-2.0.pc
|
||
(synopsis "Portable system access library")
|
||
(home-page "https://www.gnome.org/")
|
||
(description
|
||
"LibGTop is a library to get system specific data such as CPU and memory
|
||
usage and information about running processes.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public gnome-bluetooth
|
||
(package
|
||
(name "gnome-bluetooth")
|
||
(version "3.32.1")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1am1gf0nzwg6x1s8ly13j0xnjzgrfj06j0dp52x4zy9s67ywlhb4"))))
|
||
(build-system meson-build-system)
|
||
(native-inputs
|
||
`(("glib:bin" ,glib "bin") ; for gdbus-codegen, etc.
|
||
("gtk+" ,gtk+ "bin") ; gtk-update-icon-cache
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("intltool" ,intltool)
|
||
("pkg-config" ,pkg-config)
|
||
("xmllint" ,libxml2)))
|
||
(propagated-inputs
|
||
;; gnome-bluetooth-1.0.pc refers to all these.
|
||
`(("glib" ,glib)
|
||
("gtk+" ,gtk+)))
|
||
(inputs
|
||
`(("eudev" ,eudev)
|
||
("libcanberra" ,libcanberra)
|
||
("libnotify" ,libnotify)))
|
||
(synopsis "GNOME Bluetooth subsystem")
|
||
(home-page "https://wiki.gnome.org/Projects/GnomeBluetooth")
|
||
(description
|
||
"This package contains tools for managing and manipulating Bluetooth
|
||
devices using the GNOME desktop.")
|
||
(license license:lgpl2.1+)))
|
||
|
||
(define-public gnome-control-center
|
||
(package
|
||
(name "gnome-control-center")
|
||
(version "3.32.2")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"03np0mhfl9kkdw4cb711pda0cli9zgh2bq2gqn2zwbdi3qnhk9gs"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
'(#:glib-or-gtk? #t
|
||
#:configure-flags
|
||
(list "-Dcheese=false"
|
||
(string-append "-Dgnome_session_libexecdir="
|
||
(assoc-ref %build-inputs "gnome-session")
|
||
"/libexec"))
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before 'configure 'patch-paths
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
(let ((libc (assoc-ref inputs "libc"))
|
||
(tzdata (assoc-ref inputs "tzdata"))
|
||
(libgnomekbd (assoc-ref inputs "libgnomekbd"))
|
||
(nm-applet (assoc-ref inputs "network-manager-applet"))
|
||
(gnome-desktop (assoc-ref inputs "gnome-desktop")))
|
||
(substitute* "panels/datetime/tz.h"
|
||
(("/usr/share/zoneinfo/zone.tab")
|
||
(string-append tzdata "/share/zoneinfo/zone.tab")))
|
||
(substitute* "tests/datetime/test-endianess.c"
|
||
(("/usr/share/locale")
|
||
(string-append libc "/share/locale")))
|
||
(substitute* "panels/region/cc-region-panel.c"
|
||
(("\"gkbd-keyboard-display")
|
||
(string-append "\"" libgnomekbd
|
||
"/bin/gkbd-keyboard-display")))
|
||
(substitute* '("panels/network/net-device-wifi.c"
|
||
"panels/network/net-device.c"
|
||
"panels/network/connection-editor/net-connection-editor.c")
|
||
(("\"nm-connection-editor")
|
||
(string-append "\"" nm-applet
|
||
"/bin/nm-connection-editor")))
|
||
(substitute* '("panels/user-accounts/run-passwd.c")
|
||
(("/usr/bin/passwd")
|
||
"/run/setuid-programs/passwd"))
|
||
(substitute* "panels/info/cc-info-overview-panel.c"
|
||
(("DATADIR \"/gnome/gnome-version.xml\"")
|
||
(string-append "\"" gnome-desktop
|
||
"/share/gnome/gnome-version.xml\"")))
|
||
#t))))))
|
||
(native-inputs
|
||
`(("glib:bin" ,glib "bin") ; for glib-mkenums, etc.
|
||
("gtk+:bin" ,gtk+ "bin") ; for gtk-update-icon-cache
|
||
("intltool" ,intltool)
|
||
("pkg-config" ,pkg-config)
|
||
("xsltproc" ,libxslt)
|
||
;; For tests
|
||
("hicolor-icon-theme" ,hicolor-icon-theme)
|
||
("python-dbusmock" ,python-dbusmock)
|
||
("xorg-server" ,xorg-server-for-tests)))
|
||
(inputs
|
||
`(("accountsservice" ,accountsservice)
|
||
("clutter-gtk" ,clutter-gtk)
|
||
("colord-gtk" ,colord-gtk)
|
||
("cups" ,cups)
|
||
("dconf" ,dconf)
|
||
("docbook-xsl" ,docbook-xsl)
|
||
("gdk-pixbuf" ,gdk-pixbuf) ; for loading SVG files
|
||
("gnome-bluetooth" ,gnome-bluetooth)
|
||
("gnome-desktop" ,gnome-desktop)
|
||
("gnome-online-accounts" ,gnome-online-accounts)
|
||
("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
|
||
("gnome-session" ,gnome-session)
|
||
("gnome-settings-daemon" ,gnome-settings-daemon)
|
||
("grilo" ,grilo)
|
||
("gsound" ,gsound)
|
||
("ibus" ,ibus)
|
||
("libcanberra" ,libcanberra)
|
||
("libgnomekbd" ,libgnomekbd)
|
||
("libgudev" ,libgudev)
|
||
("libgtop" ,libgtop)
|
||
("libpwquality" ,libpwquality)
|
||
("libsecret" ,libsecret)
|
||
("libsoup" ,libsoup)
|
||
("libxml2" ,libxml2)
|
||
("libwacom" ,libwacom)
|
||
("mesa" ,mesa)
|
||
("mit-krb5" ,mit-krb5)
|
||
("modem-manager" ,modem-manager)
|
||
("network-manager-applet" ,network-manager-applet)
|
||
("polkit" ,polkit)
|
||
("pulseaudio" ,pulseaudio)
|
||
("smbclient" ,samba)
|
||
("tzdata" ,tzdata)
|
||
("udisks" ,udisks)
|
||
("upower" ,upower)))
|
||
(synopsis "Utilities to configure the GNOME desktop")
|
||
(home-page "https://www.gnome.org/")
|
||
(description
|
||
"This package contains configuration applets for the GNOME desktop,
|
||
allowing to set accessibility configuration, desktop fonts, keyboard and mouse
|
||
properties, sound setup, desktop theme and background, user interface
|
||
properties, screen resolution, and other GNOME parameters.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public gnome-shell
|
||
(package
|
||
(name "gnome-shell")
|
||
(version "3.32.2")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0anlkdnqsp5fqvmg95rqjpp1ifcx5xzsvwcrdsvb1cqzbh6inmp5"))
|
||
(patches (search-patches "gnome-shell-theme.patch"))
|
||
(modules '((guix build utils)))
|
||
(snippet
|
||
#~(begin
|
||
;; Copy images for use on the GDM log-in screen.
|
||
(copy-file #$(file-append %artwork-repository
|
||
"/slim/0.x/background.png")
|
||
"data/theme/guix-background.png")
|
||
(copy-file #$(file-append %artwork-repository
|
||
"/logo/Guix-horizontal-white.svg")
|
||
"data/theme/guix-logo.svg")
|
||
#t))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
`(#:glib-or-gtk? #t
|
||
#:disallowed-references ((,glib "bin")
|
||
,inkscape ,libxslt
|
||
,ruby-sass)
|
||
#:configure-flags
|
||
(list "-Dsystemd=false"
|
||
;; Otherwise, the RUNPATH will lack the final path component.
|
||
(string-append "-Dc_link_args=-Wl,-rpath="
|
||
(assoc-ref %outputs "out")
|
||
"/lib/gnome-shell"))
|
||
|
||
#:modules ((guix build meson-build-system)
|
||
(guix build utils)
|
||
(srfi srfi-1))
|
||
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'fix-keysdir
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(keysdir (string-append
|
||
out "/share/gnome-control-center/keybindings")))
|
||
(substitute* "meson.build"
|
||
(("keysdir =.*")
|
||
(string-append "keysdir = '" keysdir "'\n")))
|
||
#t)))
|
||
(add-before 'configure 'convert-logo-to-png
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
;; Convert the logo from SVG to PNG.
|
||
(invoke "inkscape" "--export-png=data/theme/guix-logo.png"
|
||
"data/theme/guix-logo.svg")))
|
||
(add-before 'configure 'record-absolute-file-names
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
(substitute* "js/misc/ibusManager.js"
|
||
(("'ibus-daemon'")
|
||
(string-append "'" (assoc-ref inputs "ibus")
|
||
"/bin/ibus-daemon'")))
|
||
(substitute* "js/ui/status/keyboard.js"
|
||
(("'gkbd-keyboard-display'")
|
||
(string-append "'" (assoc-ref inputs "libgnomekbd")
|
||
"/bin/gkbd-keyboard-display'")))
|
||
#t))
|
||
(add-before 'check 'pre-check
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
;; Tests require a running X server.
|
||
(system "Xvfb :1 &")
|
||
(setenv "DISPLAY" ":1")
|
||
#t))
|
||
(add-after 'install 'wrap-programs
|
||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||
(let ((out (assoc-ref outputs "out"))
|
||
(gi-typelib-path (getenv "GI_TYPELIB_PATH"))
|
||
(python-path (getenv "PYTHONPATH")))
|
||
(wrap-program (string-append out "/bin/gnome-shell")
|
||
`("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))
|
||
;; FIXME: gnome-shell loads these libraries with unqualified
|
||
;; names only, so they need to be on LD_LIBRARY_PATH. The
|
||
;; alternative might be to patch gnome-shell.
|
||
`("LD_LIBRARY_PATH" ":" prefix
|
||
,(map (lambda (pkg)
|
||
(string-append (assoc-ref inputs pkg) "/lib"))
|
||
'("gdk-pixbuf"
|
||
"gnome-bluetooth" "librsvg" "libgweather"))))
|
||
(for-each
|
||
(lambda (prog)
|
||
(wrap-program (string-append out "/bin/" prog)
|
||
`("PYTHONPATH" ":" prefix (,python-path))
|
||
`("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
|
||
'("gnome-shell-extension-tool" "gnome-shell-perf-tool"))
|
||
#t)))
|
||
(replace 'glib-or-gtk-wrap
|
||
(let ((wrap (assoc-ref %standard-phases 'glib-or-gtk-wrap)))
|
||
(lambda* (#:key inputs outputs #:allow-other-keys #:rest rest)
|
||
;; By default Inkscape et al. would end up in the XDG_DATA_DIRS
|
||
;; settings of the wrappers created by the 'glib-or-gtk-wrap'
|
||
;; phase. Fix that since we don't need these.
|
||
(wrap #:inputs (fold alist-delete inputs
|
||
'("inkscape" "intltool" "glib:bin"))
|
||
#:outputs outputs)))))))
|
||
(native-inputs
|
||
`(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
|
||
("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("inkscape" ,inkscape)
|
||
("intltool" ,intltool)
|
||
("pkg-config" ,pkg-config)
|
||
("python" ,python)
|
||
("ruby-sass" ,ruby-sass)
|
||
("sassc" ,sassc)
|
||
("xsltproc" ,libxslt)
|
||
;; For tests
|
||
("xorg-server" ,xorg-server-for-tests)))
|
||
(inputs
|
||
`(("accountsservice" ,accountsservice)
|
||
("caribou" ,caribou)
|
||
("docbook-xsl" ,docbook-xsl)
|
||
("evolution-data-server" ,evolution-data-server)
|
||
("gcr" ,gcr)
|
||
("gdm" ,gdm)
|
||
("gdk-pixbuf" ,gdk-pixbuf+svg)
|
||
("gjs" ,gjs)
|
||
("gnome-bluetooth" ,gnome-bluetooth)
|
||
("gnome-desktop" ,gnome-desktop)
|
||
("gnome-settings-daemon" ,gnome-settings-daemon)
|
||
("gst-plugins-base" ,gst-plugins-base)
|
||
("ibus" ,ibus)
|
||
("libcanberra" ,libcanberra)
|
||
("libcroco" ,libcroco)
|
||
("libgnomekbd" ,libgnomekbd) ;for gkbd-keyboard-display
|
||
("libgweather" ,libgweather)
|
||
("libsoup" ,libsoup)
|
||
("mesa-headers" ,mesa-headers)
|
||
("mutter" ,mutter)
|
||
("network-manager-applet" ,network-manager-applet)
|
||
("polkit" ,polkit)
|
||
("pulseaudio" ,pulseaudio)
|
||
("python-pygobject" ,python-pygobject)
|
||
("startup-notification" ,startup-notification)
|
||
("telepathy-logger" ,telepathy-logger)
|
||
("upower" ,upower)
|
||
;; XXX: These requirements were added in 3.24, but no mention in NEWS.
|
||
;; Missing propagation? See also: <https://bugs.gnu.org/27264>
|
||
("librsvg" ,librsvg)
|
||
("geoclue" ,geoclue)))
|
||
(synopsis "Desktop shell for GNOME")
|
||
(home-page "https://wiki.gnome.org/Projects/GnomeShell")
|
||
(description
|
||
"GNOME Shell provides core user interface functions for the GNOME desktop,
|
||
like switching to windows and launching applications.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public gtk-vnc
|
||
(package
|
||
(name "gtk-vnc")
|
||
(version "0.9.0")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1dya1wc9vis8h0fv625pii1n70cckf1xjg1m2hndz989d118i6is"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
'(#:configure-flags '("--with-gtk=3.0")))
|
||
(propagated-inputs
|
||
`(("gtk+" ,gtk+))) ; required by gtk-vnc-2.0.pc.
|
||
(inputs
|
||
`(("cyrus-sasl" ,cyrus-sasl)
|
||
("gnutls" ,gnutls)
|
||
("libgcrypt" ,libgcrypt)
|
||
("pulseaudio" ,pulseaudio)))
|
||
(native-inputs
|
||
`(("glib:bin" ,glib "bin")
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("intltool" ,intltool)
|
||
("pkg-config" ,pkg-config)
|
||
("python-wrapper" ,python-wrapper)
|
||
("vala" ,vala)))
|
||
(home-page "https://wiki.gnome.org/Projects/gtk-vnc")
|
||
(synopsis "VNC viewer widget for GTK+")
|
||
(description
|
||
"GTK-VNC is a VNC viewer widget for GTK+, used by remote desktop viewing
|
||
applications, for instance the Vinagre client, GNOME Boxes and virt-viewer.
|
||
GTK-VNC implements client side RFB protocol and authentication extensions such
|
||
as SASL, TLS and VeNCrypt. Additionally it supports encoding extensions.")
|
||
(license license:lgpl2.1+)))
|
||
|
||
(define-public gnome-autoar
|
||
(package
|
||
(name "gnome-autoar")
|
||
(version "0.2.3")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"02i4zgqqqj56h7bcys6dz7n78m4nj2x4dv1ggjmnrk98n06xpsax"))))
|
||
(build-system glib-or-gtk-build-system)
|
||
(native-inputs
|
||
`(("gnome-common" ,gnome-common)
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("pkg-config" ,pkg-config)))
|
||
(propagated-inputs
|
||
`(("libarchive" ,libarchive))) ; XXX document why
|
||
(inputs
|
||
`(("gtk+" ,gtk+)))
|
||
(synopsis "Archives integration support for GNOME")
|
||
(home-page "https://git.gnome.org/browse/gnome-autoar/")
|
||
(description
|
||
"GNOME Autoar is a library which makes creating and extracting archives
|
||
easy, safe, and automatic.")
|
||
(license license:lgpl2.1+)))
|
||
|
||
(define-public tracker
|
||
(package
|
||
(name "tracker")
|
||
(version "2.2.2")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/tracker/"
|
||
(version-major+minor version) "/"
|
||
"tracker-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1rp2c6k7ajcm553p9kpni87zgi9aplm3s01rl7pk575az5i399y6"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
`(#:glib-or-gtk? #t
|
||
#:configure-flags
|
||
;; Otherwise, the RUNPATH will lack the final path component.
|
||
(list (string-append "-Dc_link_args=-Wl,-rpath="
|
||
(assoc-ref %outputs "out") "/lib:"
|
||
(assoc-ref %outputs "out") "/lib/tracker-2.0"))
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'disable-broken-tests
|
||
(lambda _
|
||
;; These fail because the SPARQL backend could not be loaded.
|
||
;; That's because /etc/machine-id is missing, but
|
||
;; DBUS_FATAL_WARNINGS does not help here.
|
||
(substitute* "tests/libtracker-sparql/meson.build"
|
||
(("'sparql',") ""))
|
||
(substitute* "tests/tracker-steroids/meson.build"
|
||
(("test\\(.*") ""))
|
||
#t))
|
||
;; Two tests fail if LANG is not set.
|
||
(add-before 'check 'pre-check
|
||
(lambda _
|
||
(setenv "LANG" "en_US.UTF-8")
|
||
;; For the missing /etc/machine-id.
|
||
(setenv "DBUS_FATAL_WARNINGS" "0")
|
||
#t)))))
|
||
(native-inputs
|
||
`(("glib:bin" ,glib "bin")
|
||
("gnome-common" ,gnome-common)
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("python-pygobject" ,python-pygobject)
|
||
("intltool" ,intltool)
|
||
("pkg-config" ,pkg-config)
|
||
("vala" ,vala)))
|
||
(inputs
|
||
`(("gtk+" ,gtk+)
|
||
("dbus" ,dbus)
|
||
("sqlite" ,sqlite)
|
||
("python" ,python)
|
||
("poppler" ,poppler)
|
||
("libpng" ,libpng)
|
||
("libtiff" ,libtiff)
|
||
("zlib" ,zlib)
|
||
("libxml2" ,libxml2)
|
||
("libunistring" ,libunistring)
|
||
("json-glib" ,json-glib)
|
||
("openjpeg" ,openjpeg-1)
|
||
("libseccomp" ,libseccomp)
|
||
("libsoup" ,libsoup)
|
||
("libuuid" ,util-linux)
|
||
("network-manager" ,network-manager)))
|
||
(synopsis "Metadata database, indexer and search tool")
|
||
(home-page "https://wiki.gnome.org/Projects/Tracker")
|
||
(description
|
||
"Tracker is an advanced framework for first class objects with associated
|
||
metadata and tags. It provides a one stop solution for all metadata, tags,
|
||
shared object databases, search tools and indexing.")
|
||
;; src/libtracker-*/* and src/tracker-extract/* are covered by lgpl2.1+,
|
||
;; src/gvdb/* are covered by lgpl2.0+, and the rest is gpl2+.
|
||
(license (list license:gpl2+
|
||
license:lgpl2.1+
|
||
license:lgpl2.0+))))
|
||
|
||
(define-public tracker-miners
|
||
(package
|
||
(name "tracker-miners")
|
||
(version "2.2.2")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/tracker-miners/"
|
||
(version-major+minor version)
|
||
"/tracker-miners-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0kk5xaajamb8jlm6cfdbc2m3axzr6bnph84m7697xmb0pkg8hdiw"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
`(#:glib-or-gtk? #t
|
||
#:configure-flags
|
||
(list "-Dminer_rss=false" ; libgrss is required.
|
||
;; Ensure the RUNPATH contains all installed library locations.
|
||
(string-append "-Dc_link_args=-Wl,-rpath="
|
||
(assoc-ref %outputs "out")
|
||
"/lib/tracker-miners-2.0")
|
||
;; TODO: Enable functional tests. Currently, the following error
|
||
;; appears:
|
||
;; Exception: The functional tests require DConf to be the default
|
||
;; GSettings backend. Got GKeyfileSettingsBackend instead.
|
||
"-Dfunctional_tests=false")))
|
||
(native-inputs
|
||
`(("dbus" ,dbus)
|
||
("intltool" ,intltool)
|
||
("glib:bin" ,glib "bin")
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("pkg-config" ,pkg-config)
|
||
("python-pygobject" ,python-pygobject)))
|
||
(inputs
|
||
`(("exempi" ,exempi)
|
||
("ffmpeg" ,ffmpeg)
|
||
("flac" ,flac)
|
||
("giflib" ,giflib)
|
||
("glib" ,glib)
|
||
("gstreamer" ,gstreamer)
|
||
("icu4c" ,icu4c)
|
||
("libcue" ,libcue)
|
||
("libexif" ,libexif)
|
||
("libgsf" ,libgsf)
|
||
("libgxps" ,libgxps)
|
||
("libiptcdata" ,libiptcdata)
|
||
("libjpeg" ,libjpeg)
|
||
("libosinfo" ,libosinfo)
|
||
("libpng" ,libpng)
|
||
("libseccomp" ,libseccomp)
|
||
("libtiff" ,libtiff)
|
||
("libvorbis" ,libvorbis)
|
||
("libxml2" ,libxml2)
|
||
("poppler" ,poppler)
|
||
("taglib" ,taglib)
|
||
("totem-pl-parser" ,totem-pl-parser)
|
||
("tracker" ,tracker)
|
||
("upower" ,upower)
|
||
("zlib" ,zlib)))
|
||
(synopsis "Metadata database, indexer and search tool")
|
||
(home-page "https://wiki.gnome.org/Projects/Tracker")
|
||
(description
|
||
"Tracker is an advanced framework for first class objects with associated
|
||
metadata and tags. It provides a one stop solution for all metadata, tags,
|
||
shared object databases, search tools and indexing.")
|
||
;; src/libtracker-*/* and src/tracker-extract/* are covered by lgpl2.1+,
|
||
;; src/gvdb/* are covered by lgpl2.0+, and the rest is gpl2+.
|
||
(license (list license:gpl2+
|
||
license:lgpl2.1+
|
||
license:lgpl2.0+))))
|
||
|
||
(define-public nautilus
|
||
(package
|
||
(name "nautilus")
|
||
(version "3.32.3")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1x9crzbj6rrrf8w5dkcx0c14j40byr4ijpzkwd5dcrbfvvdy1r01"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
'(#:glib-or-gtk? #t
|
||
;; XXX: FAIL: check-nautilus
|
||
;; Settings schema 'org.gnome.nautilus.preferences' is not installed
|
||
#:tests? #f))
|
||
(native-inputs
|
||
`(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
|
||
("glib:bin" ,glib "bin") ; for glib-mkenums, etc.
|
||
("gtk+:bin" ,gtk+ "bin") ; for gtk-update-icon-cache
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("intltool" ,intltool)
|
||
("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("dconf" ,dconf)
|
||
("gexiv2" ,gexiv2)
|
||
("gvfs" ,gvfs)
|
||
("exempi" ,exempi)
|
||
("gnome-desktop" ,gnome-desktop)
|
||
("gnome-autoar" ,gnome-autoar)
|
||
("gst-plugins-base" ,gst-plugins-base)
|
||
("libseccomp" ,libseccomp)
|
||
("libselinux" ,libselinux)
|
||
("tracker" ,tracker)
|
||
("tracker-miners" ,tracker-miners)
|
||
;; XXX: gtk+ is required by libnautilus-extension.pc
|
||
;;
|
||
;; Don't propagate it to reduces "profile pollution" of the 'gnome' meta
|
||
;; package. See:
|
||
;; <http://lists.gnu.org/archive/html/guix-devel/2016-03/msg00283.html>.
|
||
("gtk+" ,gtk+)
|
||
("libexif" ,libexif)
|
||
("libxml2" ,libxml2)))
|
||
(synopsis "File manager for GNOME")
|
||
(home-page "https://wiki.gnome.org/Apps/Nautilus")
|
||
(description
|
||
"Nautilus (Files) is a file manager designed to fit the GNOME desktop
|
||
design and behaviour, giving the user a simple way to navigate and manage its
|
||
files.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public baobab
|
||
(package
|
||
(name "baobab")
|
||
(version "3.32.0")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0b33s9bhpiffv5wl76cq2bbnqhvx3qs2vxyxmil5gcs583llqh9r"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
'(#:glib-or-gtk? #t))
|
||
(native-inputs
|
||
`(("intltool" ,intltool)
|
||
("pkg-config" ,pkg-config)
|
||
("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
|
||
("gtk+-bin" ,gtk+ "bin") ; for gtk-update-icon-cache
|
||
("itstool" ,itstool)
|
||
("xmllint" ,libxml2)
|
||
("glib" ,glib "bin")
|
||
("vala" ,vala)))
|
||
(inputs
|
||
`(("gtk+" ,gtk+)))
|
||
(synopsis "Disk usage analyzer for GNOME")
|
||
(description
|
||
"Baobab (Disk Usage Analyzer) is a graphical application to analyse disk
|
||
usage in the GNOME desktop environment. It can easily scan device volumes or
|
||
a specific user-requested directory branch (local or remote). Once the scan
|
||
is complete it provides a graphical representation of each selected folder.")
|
||
(home-page "https://wiki.gnome.org/Apps/Baobab")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public gnome-backgrounds
|
||
(package
|
||
(name "gnome-backgrounds")
|
||
(version "3.32.0")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1s5krdmd3md44p1fgr2lqm5ifxb8s1vzx6hm11sb4cgzr4dw6lrz"))))
|
||
(build-system meson-build-system)
|
||
(native-inputs
|
||
`(("intltool" ,intltool)))
|
||
(home-page "https://gitlab.gnome.org/GNOME/gnome-backgrounds")
|
||
(synopsis "Background images for the GNOME desktop")
|
||
(description
|
||
"GNOME backgrounds package contains a collection of graphics files which
|
||
can be used as backgrounds in the GNOME Desktop environment. Additionally,
|
||
the package creates the proper framework and directory structure so that you
|
||
can add your own files to the collection.")
|
||
(license (list license:gpl2+
|
||
license:cc-by2.0
|
||
license:cc-by-sa2.0
|
||
license:cc-by-sa3.0))))
|
||
|
||
(define-public gnome-screenshot
|
||
(package
|
||
(name "gnome-screenshot")
|
||
(version "3.32.0")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"09ha7dizjm5ymqpjyrqd10ijfb3xlqc1mwg9ajkrbfry11q9yq4b"))))
|
||
(build-system meson-build-system)
|
||
(native-inputs
|
||
`(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
|
||
("gtk+-bin" ,gtk+ "bin") ; for gtk-update-icon-cache
|
||
("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
|
||
("intltool" ,intltool)
|
||
("appstream-glib" ,appstream-glib)
|
||
("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("gtk+" ,gtk+)
|
||
("libcanberra" ,libcanberra)
|
||
("libx11" ,libx11)
|
||
("libxext" ,libxext)))
|
||
(home-page "https://gitlab.gnome.org/GNOME/gnome-screenshot")
|
||
(synopsis "Take pictures of your screen")
|
||
(description
|
||
"GNOME Screenshot is a utility used for taking screenshots of the entire
|
||
screen, a window or a user defined area of the screen, with optional
|
||
beautifying border effects.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public dconf-editor
|
||
(package
|
||
(name "dconf-editor")
|
||
(version "3.32.0")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1fmsmlh16njjm948grz20mzrsvb4wjj7pl1fvkrkxqi7mhr177gi"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
'(#:phases (modify-phases %standard-phases
|
||
(add-before 'configure 'set-glib-minimum-version
|
||
(lambda _
|
||
;; Change the minimum required GLib version so that
|
||
;; 'valac' is passed '--target-glib 2.60.0'; failing to
|
||
;; do that, it complains that "55" is not an even
|
||
;; number. See <https://bugs.gnu.org/37503>.
|
||
(substitute* "editor/meson.build"
|
||
(("2\\.55\\.1") "2.60.0"))
|
||
#t)))))
|
||
(native-inputs
|
||
`(("glib:bin" ,glib "bin") ; for glib-compile-schemas, gio-2.0.
|
||
("gtk+-bin" ,gtk+ "bin") ; for gtk-update-icon-cache
|
||
("intltool" ,intltool)
|
||
("pkg-config" ,pkg-config)
|
||
("vala" ,vala)))
|
||
(inputs
|
||
`(("dconf" ,dconf)
|
||
("gtk+" ,gtk+)
|
||
("libxml2" ,libxml2)))
|
||
(home-page "https://git.gnome.org/browse/dconf-editor")
|
||
(synopsis "Graphical editor for GNOME's dconf configuration system")
|
||
(description
|
||
"Dconf-editor is a graphical tool for browsing and editing the dconf
|
||
configuration system for GNOME. It allows users to configure desktop
|
||
software that do not provide their own configuration interface.")
|
||
(license license:lgpl2.1+)))
|
||
|
||
(define-public gnome-default-applications
|
||
(package
|
||
(name "gnome-default-applications")
|
||
(version "0")
|
||
(build-system trivial-build-system)
|
||
(source #f)
|
||
(propagated-inputs
|
||
`(("nautilus" ,nautilus)
|
||
("evince" ,evince)))
|
||
(arguments
|
||
`(#:modules ((guix build utils))
|
||
#:builder
|
||
(begin
|
||
(use-modules (guix build utils))
|
||
(let* ((out (assoc-ref %outputs "out"))
|
||
(apps (string-append out "/share/applications")))
|
||
(mkdir-p apps)
|
||
(call-with-output-file (string-append apps "/defaults.list")
|
||
(lambda (port)
|
||
(format port "[Default Applications]\n")
|
||
(format port "inode/directory=org.gnome.Nautilus.desktop\n")
|
||
(format port "application/pdf=evince.desktop\n")
|
||
(format port "application/postscript=evince.desktop\n")))
|
||
#t))))
|
||
(synopsis "Default MIME type associations for the GNOME desktop")
|
||
(description
|
||
"Given many installed packages which might handle a given MIME type, a
|
||
user running the GNOME desktop probably has some preferences: for example,
|
||
that folders be opened by default by the Nautilus file manager, not the Baobab
|
||
disk usage analyzer. This package establishes that set of default MIME type
|
||
associations for GNOME.")
|
||
(license license:gpl3+)
|
||
(home-page #f)))
|
||
|
||
(define-public libgovirt
|
||
(package
|
||
(name "libgovirt")
|
||
(version "0.3.6")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"19pb71pag3vsi83kbv8h08kimwym4hpw36kjl6a5ik5nk50mc8sg"))))
|
||
(build-system glib-or-gtk-build-system)
|
||
(native-inputs
|
||
`(("gettext" ,gettext-minimal)
|
||
("glib:bin" ,glib "bin")
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
|
||
("gtk+:bin" ,gtk+ "bin")
|
||
("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("glib-networking" ,glib-networking) ; GIO plugin--for the tests
|
||
("librest" ,rest)))
|
||
(synopsis "GoVirt Library")
|
||
(description "GoVirt is a GObject wrapper for the oVirt REST API.")
|
||
(home-page "https://gitlab.gnome.org/GNOME/libgovirt")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public gnome-weather
|
||
(package
|
||
(name "gnome-weather")
|
||
(version "3.34.0")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1g63xzs17i36if923b36k9fwbk0nqa5vz6zh1k6q2axrzhhpx1i4"))))
|
||
(build-system meson-build-system)
|
||
(native-inputs
|
||
`(("gettext" ,gettext-minimal)
|
||
("glib:bin" ,glib "bin")
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("gtk+:bin" ,gtk+ "bin")
|
||
("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`( ;("adwaita-icon-theme" ,adwaita-icon-theme)
|
||
("appstream-glib" ,appstream-glib)
|
||
("geoclue" ,geoclue)
|
||
("gdk-pixbuf" ,gdk-pixbuf)
|
||
("gjs" ,gjs)
|
||
("gnome-desktop" ,gnome-desktop)
|
||
("libgweather" ,libgweather)))
|
||
(synopsis "Weather monitoring for GNOME desktop")
|
||
(description "GNOME Weather is a small application that allows you to
|
||
monitor the current weather conditions for your city, or anywhere in the
|
||
world.")
|
||
(home-page "https://wiki.gnome.org/Apps/Weather")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public gnome
|
||
(package
|
||
(name "gnome")
|
||
(version (package-version gnome-shell))
|
||
(source #f)
|
||
(build-system trivial-build-system)
|
||
(arguments '(#:builder (begin (mkdir %output) #t)))
|
||
(propagated-inputs
|
||
;; TODO: Add or remove packages according to:
|
||
;; <https://calc.disroot.org/2nu6mpf88ynq.html>.
|
||
`(
|
||
;; GNOME-Core-OS-Services
|
||
("accountsservice" ,accountsservice)
|
||
("network-manager" ,network-manager)
|
||
("packagekit" ,packagekit)
|
||
("upower" ,upower)
|
||
;; GNOME-Core-Shell
|
||
("adwaita-icon-theme" ,adwaita-icon-theme)
|
||
("gdm" ,gdm)
|
||
("glib-networking" ,glib-networking)
|
||
("gnome-backgrounds" ,gnome-backgrounds)
|
||
("gnome-bluetooth" ,gnome-bluetooth)
|
||
("gnome-color-manager" ,gnome-color-manager)
|
||
("gnome-control-center" ,gnome-control-center)
|
||
("gnome-desktop" ,gnome-desktop)
|
||
("gnome-getting-started-docs" ,gnome-getting-started-docs)
|
||
("gnome-initial-setup" ,gnome-initial-setup)
|
||
("gnome-keyring" ,gnome-keyring)
|
||
("gnome-menus" ,gnome-menus)
|
||
("gnome-session" ,gnome-session)
|
||
("gnome-settings-daemon" ,gnome-settings-daemon)
|
||
("gnome-shell-extensions" ,gnome-shell-extensions)
|
||
("gnome-shell" ,gnome-shell)
|
||
("gnome-themes-extra" ,gnome-themes-extra)
|
||
("gnome-user-docs" ,gnome-user-docs)
|
||
("gnome-user-share" ,gnome-user-share)
|
||
("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
|
||
("gvfs" ,gvfs)
|
||
("mutter" ,mutter)
|
||
("orca" ,orca)
|
||
("rygel" ,rygel)
|
||
("sushi" ,sushi)
|
||
;; GNOME-Core-Utilities
|
||
("baobab" ,baobab)
|
||
("cheese" ,cheese)
|
||
("eog" ,eog)
|
||
("epiphany" ,epiphany)
|
||
("evince" ,evince)
|
||
("file-roller" ,file-roller)
|
||
("gedit" ,gedit)
|
||
; TODO: ("gnome-boxes" ,gnome-boxes)
|
||
("gnome-calculator" ,gnome-calculator)
|
||
("gnome-calendar" ,gnome-calendar)
|
||
("gnome-characters" ,gnome-characters)
|
||
("gnome-clocks" ,gnome-clocks)
|
||
("gnome-contacts" ,gnome-contacts)
|
||
("gnome-disk-utility" ,gnome-disk-utility)
|
||
("gnome-font-viewer" ,gnome-font-viewer)
|
||
("gnome-maps" ,gnome-maps)
|
||
; TODO: ("gnome-music" ,gnome-music)
|
||
; TODO: ("gnome-photos" ,gnome-photos)
|
||
("gnome-screenshot" ,gnome-screenshot)
|
||
("gnome-system-monitor" ,gnome-system-monitor)
|
||
("gnome-terminal" ,gnome-terminal)
|
||
("gnome-weather" ,gnome-weather)
|
||
("nautilus" ,nautilus)
|
||
("simple-scan" ,simple-scan)
|
||
("totem" ,totem)
|
||
("yelp" ,yelp)
|
||
;; Others
|
||
("hicolor-icon-theme" ,hicolor-icon-theme)
|
||
("gnome-online-accounts" ,gnome-online-accounts)))
|
||
(synopsis "The GNU desktop environment")
|
||
(home-page "https://www.gnome.org/")
|
||
(description
|
||
"GNOME is the graphical desktop for GNU. It includes a wide variety of
|
||
applications for browsing the web, editing text and images, creating
|
||
documents and diagrams, playing media, scanning, and much more.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public byzanz
|
||
;; The last stable release of Byzanz was in 2011, but there have been many
|
||
;; useful commits made to the Byzanz repository since then that it would be
|
||
;; silly to use such an old release.
|
||
(let ((commit "f7af3a5bd252db84af8365bd059c117a7aa5c4af"))
|
||
(package
|
||
(name "byzanz")
|
||
(version (string-append "0.2-1." (string-take commit 7)))
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://git.gnome.org/browse/byzanz")
|
||
(commit commit)))
|
||
(file-name (string-append name "-" version "-checkout"))
|
||
(sha256
|
||
(base32
|
||
"1l60myzxf9cav27v5v3nsijlslz9r7ip6d5kiirfpkf9k0w26hz3"))))
|
||
(build-system glib-or-gtk-build-system)
|
||
(arguments
|
||
'(#:phases
|
||
(modify-phases %standard-phases
|
||
(replace 'bootstrap
|
||
(lambda _
|
||
;; The build system cleverly detects that we're not building from
|
||
;; a release tarball and turns on -Werror for GCC.
|
||
;; Unsurprisingly, there is a warning during compilation that
|
||
;; causes the build to fail unnecessarily, so we remove the flag.
|
||
(substitute* '("configure.ac")
|
||
(("-Werror") ""))
|
||
;; The autogen.sh script in gnome-common will run ./configure
|
||
;; by default, which is problematic because source shebangs
|
||
;; have not yet been patched.
|
||
(setenv "NOCONFIGURE" "t")
|
||
(zero? (system* "sh" "autogen.sh")))))))
|
||
(native-inputs
|
||
`(("autoconf" ,autoconf)
|
||
("automake" ,automake)
|
||
("gnome-common" ,gnome-common)
|
||
("intltool" ,intltool)
|
||
("libtool" ,libtool)
|
||
("pkg-config" ,pkg-config)
|
||
("which" ,which)))
|
||
(inputs
|
||
`(("glib" ,glib)
|
||
("gstreamer" ,gstreamer)
|
||
("gst-plugins-base" ,gst-plugins-base)
|
||
("gtk+" ,gtk+)))
|
||
(synopsis "Desktop recording program")
|
||
(description "Byzanz is a simple desktop recording program with a
|
||
command-line interface. It can record part or all of an X display for a
|
||
specified duration and save it as a GIF encoded animated image file.")
|
||
(home-page "https://git.gnome.org/browse/byzanz")
|
||
(license license:gpl2+))))
|
||
|
||
(define-public gsound
|
||
(package
|
||
(name "gsound")
|
||
(version "1.0.2")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0lwfwx2c99qrp08pfaj59pks5dphsnxjgrxyadz065d8xqqgza5v"))))
|
||
(build-system glib-or-gtk-build-system)
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("vala" ,vala)))
|
||
(inputs
|
||
`(("glib" ,glib)
|
||
("libcanberra" ,libcanberra)))
|
||
(home-page "https://wiki.gnome.org/Projects/GSound")
|
||
(synopsis "GObject wrapper for libcanberra")
|
||
(description
|
||
"GSound is a small library for playing system sounds. It's designed to be
|
||
used via GObject Introspection, and is a thin wrapper around the libcanberra C
|
||
library.")
|
||
(license license:lgpl2.1+)))
|
||
|
||
(define-public libzapojit
|
||
(package
|
||
(name "libzapojit")
|
||
(version "0.0.3")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0zn3s7ryjc3k1abj4k55dr2na844l451nrg9s6cvnnhh569zj99x"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
`(("gobject-introspection" ,gobject-introspection)
|
||
("intltool" ,intltool)
|
||
("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
|
||
("json-glib" ,json-glib)
|
||
("rest" ,rest)))
|
||
(home-page "https://wiki.gnome.org/Projects/Zapojit")
|
||
(synopsis "Library for accessing SkyDrive and Hotmail")
|
||
(description
|
||
"Libzapojit is a GLib-based library for accessing online service APIs of
|
||
Microsoft SkyDrive and Hotmail, using their REST protocols.")
|
||
(license license:lgpl2.1+)))
|
||
|
||
(define-public gnome-clocks
|
||
(package
|
||
(name "gnome-clocks")
|
||
(version "3.32.0")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1w6lgjdak3x76c9gyhd1lqrdmjfh8q77sjnrkcimylsg0jq913bc"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
'(#:glib-or-gtk? #t))
|
||
(native-inputs
|
||
`(("vala" ,vala)
|
||
("pkg-config" ,pkg-config)
|
||
("glib" ,glib "bin") ; for glib-compile-resources
|
||
("gtk+-bin" ,gtk+ "bin") ; for gtk-update-icon-cache
|
||
("desktop-file-utils" ,desktop-file-utils)
|
||
("gettext" ,gettext-minimal)
|
||
("itstool" ,itstool)))
|
||
(inputs
|
||
`(("glib" ,glib)
|
||
("gtk+" ,gtk+)
|
||
("gsound" ,gsound)
|
||
("geoclue" ,geoclue)
|
||
("geocode-glib" ,geocode-glib)
|
||
("libgweather" ,libgweather)
|
||
("gnome-desktop" ,gnome-desktop)))
|
||
(home-page "https://wiki.gnome.org/Apps/Clocks")
|
||
(synopsis "GNOME's clock application")
|
||
(description
|
||
"GNOME Clocks is a simple clocks application designed to fit the GNOME
|
||
desktop. It supports world clock, stop watch, alarms, and count down timer.")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public gnome-calendar
|
||
(package
|
||
(name "gnome-calendar")
|
||
(version "3.32.2")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"07p73cvzj8idr80npja5yiv9pjfyi6qqfhaz5jwcgqspqbnhnl7k"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
'(#:glib-or-gtk? #t
|
||
;; gnome-calendar has to be installed before the tests can be run
|
||
;; https://bugzilla.gnome.org/show_bug.cgi?id=788224
|
||
#:tests? #f))
|
||
(native-inputs
|
||
`(("gettext" ,gettext-minimal)
|
||
("glib-bin" ,glib "bin") ; For glib-compile-schemas
|
||
("gtk+-bin" ,gtk+ "bin") ; For gtk-update-icon-cache
|
||
("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("evolution-data-server" ,evolution-data-server)
|
||
("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
|
||
("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
|
||
("libdazzle" ,libdazzle)
|
||
("libedataserverui" ,evolution-data-server)
|
||
("libgweather" ,libgweather)
|
||
("geoclue" ,geoclue)))
|
||
(home-page "https://wiki.gnome.org/Apps/Calendar")
|
||
(synopsis "GNOME's calendar application")
|
||
(description
|
||
"GNOME Calendar is a simple calendar application designed to fit the GNOME
|
||
desktop. It supports multiple calendars, month, week and year view.")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public gnome-todo
|
||
(package
|
||
(name "gnome-todo")
|
||
(version "3.28.1")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"08ygqbib72jlf9y0a16k54zz51sncpq2wa18wp81v46q8301ymy7"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
'(#:glib-or-gtk? #t
|
||
#:phases (modify-phases %standard-phases
|
||
(add-after
|
||
'install 'wrap-gnome-todo
|
||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||
(let ((out (assoc-ref outputs "out"))
|
||
(gi-typelib-path (getenv "GI_TYPELIB_PATH"))
|
||
(python-path (getenv "PYTHONPATH")))
|
||
(wrap-program (string-append out "/bin/gnome-todo")
|
||
;; XXX: gi plugins are broken.
|
||
;; See https://bugzilla.gnome.org/show_bug.cgi?id=787212
|
||
;; For plugins.
|
||
`("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))
|
||
`("PYTHONPATH" ":" prefix (,python-path))))
|
||
#t)))))
|
||
(native-inputs
|
||
`(("gettext" ,gettext-minimal)
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("glib:bin" ,glib "bin") ; For glib-compile-resources
|
||
("gtk+-bin" ,gtk+ "bin") ; For gtk-update-icon-cache
|
||
("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("rest" ,rest) ; For Todoist plugin
|
||
("json-glib" ,json-glib) ; For Todoist plugin
|
||
("libedataserverui" ,evolution-data-server)
|
||
("libical" ,libical)
|
||
("libpeas" ,libpeas)
|
||
("python-pygobject" ,python-pygobject)
|
||
("evolution-data-server" ,evolution-data-server)
|
||
("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
|
||
("gsettings-desktop-schemas" ,gsettings-desktop-schemas)))
|
||
(home-page "https://wiki.gnome.org/Apps/Todo")
|
||
(synopsis "GNOME's ToDo Application")
|
||
(description
|
||
"GNOME To Do is a simplistic personal task manager designed to perfectly
|
||
fit the GNOME desktop.")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public gnome-dictionary
|
||
(package
|
||
(name "gnome-dictionary")
|
||
(version "3.26.1")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"007k2bq8iplg4psdpz074r5d4zxvn4s95qym4rw9hs6giljbrf0n"))))
|
||
(build-system meson-build-system)
|
||
(arguments '(#:glib-or-gtk? #t
|
||
#:phases (modify-phases %standard-phases
|
||
(add-after 'unpack 'patch-install-script
|
||
(lambda _
|
||
;; This script attempts to compile glib schemas
|
||
;; and create an empty MIME database. We do
|
||
;; that elsewhere, so prevent it from running.
|
||
(substitute* "build-aux/post-install.sh"
|
||
(("\\[ -z \"\\$DESTDIR\" \\]") "false"))
|
||
#t)))))
|
||
(native-inputs
|
||
`(("glib:bin" ,glib "bin")
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("intltool" ,intltool)
|
||
("itstool" ,itstool)
|
||
("pkg-config" ,pkg-config)
|
||
("xmllint" ,libxml2)))
|
||
(inputs
|
||
`(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
|
||
("gtk+" ,gtk+)))
|
||
(home-page "https://wiki.gnome.org/Apps/Dictionary")
|
||
(synopsis "Look up words in dictionary sources")
|
||
(description
|
||
"GNOME Dictionary can look for the definition or translation of a word in
|
||
existing databases over the internet.")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public gnome-tweaks
|
||
(package
|
||
(name "gnome-tweaks")
|
||
(version "3.32.0")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/gnome-tweaks/"
|
||
(version-major+minor version) "/"
|
||
"gnome-tweaks-" version ".tar.xz"))
|
||
(patches
|
||
(list (search-patch "gnome-tweaks-search-paths.patch")))
|
||
(sha256
|
||
(base32
|
||
"037r35cw34ifcs676fq9n2v4mh1nkqx0qk474bznf18mr6r62h55"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
`(#:glib-or-gtk? #t
|
||
#:configure-flags '("-Dlocalstatedir=/tmp"
|
||
"-Dsysconfdir=/tmp")
|
||
#:imported-modules ((guix build python-build-system)
|
||
,@%meson-build-system-modules)
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'install 'wrap
|
||
(@@ (guix build python-build-system) wrap))
|
||
(add-after 'wrap 'wrap-gi-typelib
|
||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||
(let ((out (assoc-ref outputs "out"))
|
||
(gi-typelib-path (getenv "GI_TYPELIB_PATH")))
|
||
(wrap-program (string-append out "/bin/gnome-tweaks")
|
||
`("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
|
||
#t)))))
|
||
(native-inputs
|
||
`(("gtk+:bin" ,gtk+ "bin") ; For gtk-update-icon-cache
|
||
("intltool" ,intltool)
|
||
("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("gnome-desktop" ,gnome-desktop)
|
||
("gtk+" ,gtk+)
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
|
||
("libnotify" ,libnotify)
|
||
("libsoup" ,libsoup)
|
||
("nautilus" ,nautilus)
|
||
("python" ,python)
|
||
("python-pygobject" ,python-pygobject)))
|
||
(synopsis "Customize advanced GNOME 3 options")
|
||
(home-page "https://wiki.gnome.org/Apps/Tweaks")
|
||
(description
|
||
"GNOME Tweaks allows adjusting advanced configuration settings in
|
||
GNOME 3. This includes things like the fonts used in user interface elements,
|
||
alternative user interface themes, changes in window management behavior,
|
||
GNOME Shell appearance and extension, etc.")
|
||
(license license:gpl3+)))
|
||
|
||
;; This package has been renamed by upstream.
|
||
(define-public gnome-tweak-tool
|
||
(deprecated-package "gnome-tweak-tool" gnome-tweaks))
|
||
|
||
(define-public gnome-shell-extensions
|
||
(package
|
||
(name "gnome-shell-extensions")
|
||
(version "3.32.1")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"07libf6z24n42hpdsq163w0j8xyrav0lxqrwxrvq5kbz8zxv5ch2"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
'(#:configure-flags '("-Dextension_set=all")))
|
||
(native-inputs
|
||
`(("glib:bin" ,glib "bin")
|
||
("intltool" ,intltool)
|
||
("pkg-config" ,pkg-config)))
|
||
(propagated-inputs
|
||
`(("glib" ,glib)))
|
||
(synopsis "Extensions for GNOME Shell")
|
||
(description "GNOME Shell extensions modify and extend GNOME Shell
|
||
functionality and behavior.")
|
||
(home-page "https://extensions.gnome.org/")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public arc-theme
|
||
(package
|
||
(name "arc-theme")
|
||
(version "20190917")
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/NicoHood/arc-theme.git")
|
||
(commit version)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"1qgpk4p2hi5hd4yy0hj93kq1vs0b32wb8qkaj1wi90c8gwddq5wa"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
'(#:phases
|
||
(modify-phases %standard-phases
|
||
;; autogen.sh calls configure at the end of the script.
|
||
(replace 'bootstrap
|
||
(lambda _ (invoke "autoreconf" "-vfi")))
|
||
(add-before 'build 'set-home ;placate Inkscape
|
||
(lambda _
|
||
(setenv "HOME" (getcwd))
|
||
#t)))))
|
||
(native-inputs
|
||
`(("autoconf" ,autoconf)
|
||
("automake" ,automake)
|
||
("glib" ,glib "bin") ; for glib-compile-resources
|
||
("gnome-shell" ,gnome-shell)
|
||
("gtk+" ,gtk+)
|
||
("inkscape" ,inkscape)
|
||
("optipng" ,optipng)
|
||
("pkg-config" ,pkg-config)
|
||
("sassc" ,sassc/libsass-3.5)))
|
||
(synopsis "A flat GTK+ theme with transparent elements")
|
||
(description "Arc is a flat theme with transparent elements for GTK 3, GTK
|
||
2, and GNOME Shell which supports GTK 3 and GTK 2 based desktop environments
|
||
like GNOME, Unity, Budgie, Pantheon, XFCE, Mate, etc.")
|
||
(home-page "https://github.com/horst3180/arc-theme")
|
||
;; No "or later" language found.
|
||
(license license:gpl3+)))
|
||
|
||
(define-public faba-icon-theme
|
||
(package
|
||
(name "faba-icon-theme")
|
||
(version "4.3")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/snwh/faba-icon-theme.git")
|
||
(commit (string-append "v" version))))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32 "0xh6ppr73p76z60ym49b4d0liwdc96w41cc5p07d48hxjsa6qd6n"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
`(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before 'configure 'disable-post-install
|
||
(lambda _
|
||
(substitute* "meson.build"
|
||
(("meson.add_install_script.*") "")))))))
|
||
(native-inputs
|
||
`(("autoconf" ,autoconf)
|
||
("automake" ,automake)))
|
||
(synopsis "Faba icon theme")
|
||
(description
|
||
"Faba is a minimal icon set used as a basis for other themes such as
|
||
Moka")
|
||
(home-page "https://snwh.org/moka")
|
||
(license (list license:lgpl3+
|
||
license:cc-by-sa4.0))))
|
||
|
||
(define-public moka-icon-theme
|
||
(package
|
||
(inherit faba-icon-theme)
|
||
(name "moka-icon-theme")
|
||
(version "5.4.0")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/snwh/moka-icon-theme.git")
|
||
(commit (string-append "v" version))))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32 "015l02im4mha5z91dbchxf6xkp66d346bg3xskwg0rh3lglhjsrd"))))
|
||
(propagated-inputs
|
||
;; Moka is based on Faba by using it as a fallback icon set instead of
|
||
;; bundling it, so we need to add it as a propagated input.
|
||
`(("faba-icon-theme" ,faba-icon-theme)))
|
||
(synopsis "Moka icon theme")
|
||
(description "Moka is a stylized desktop icon set, designed to be clear,
|
||
simple and consistent.")
|
||
(license (list license:gpl3+
|
||
license:cc-by-sa4.0))))
|
||
|
||
(define-public arc-icon-theme
|
||
(package
|
||
(name "arc-icon-theme")
|
||
(version "20161122")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/horst3180/arc-icon-theme.git")
|
||
(commit version)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32 "1ch3hp08qri93510hypzz6m2x4xgg2h15wvnhjwh1x1s1b7jvxjd"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'disable-configure-during-bootstrap
|
||
(lambda _
|
||
(substitute* "autogen.sh"
|
||
(("^\"\\$srcdir/configure\".*") ""))
|
||
#t)))))
|
||
(native-inputs
|
||
`(("autoconf" ,autoconf)
|
||
("automake" ,automake)))
|
||
;; When Arc is missing an icon, it looks in the Moka icon theme for it.
|
||
(propagated-inputs
|
||
`(("moka-icon-theme" ,moka-icon-theme)))
|
||
(synopsis "Arc icon theme")
|
||
(description "The Arc icon theme provides a set of icons matching the
|
||
style of the Arc GTK theme. Icons missing from the Arc theme are provided by
|
||
the Moka icon theme.")
|
||
(home-page "https://github.com/horst3180/arc-icon-theme")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public folks
|
||
(package
|
||
(name "folks")
|
||
(version "0.11.4")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"mirror://gnome/sources/folks/"
|
||
(version-major+minor version) "/"
|
||
"folks-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"16hqh2gxlbx0b0hgq216hndr1m72vj54jvryzii9zqkk0g9kxc57"))))
|
||
(build-system glib-or-gtk-build-system)
|
||
(inputs
|
||
`(("bdb" ,bdb)
|
||
("dbus-glib" ,dbus-glib)
|
||
("evolution-data-server" ,evolution-data-server)
|
||
("glib" ,glib)
|
||
("libgee" ,libgee)
|
||
("telepathy-glib" ,telepathy-glib)))
|
||
(native-inputs
|
||
`(("gobject-introspection" ,gobject-introspection)
|
||
("intltool" ,intltool)
|
||
("pkg-config" ,pkg-config)
|
||
("vala" ,vala)))
|
||
(synopsis "Library to aggregate data about people")
|
||
(description "Libfolks is a library that aggregates information about people
|
||
from multiple sources (e.g., Telepathy connection managers for IM contacts,
|
||
Evolution Data Server for local contacts, libsocialweb for web service contacts,
|
||
etc.) to create metacontacts. It's written in Vala, which generates C code when
|
||
compiled.")
|
||
(home-page "https://wiki.gnome.org/Projects/Folks")
|
||
(license license:lgpl2.1+)))
|
||
|
||
(define-public gfbgraph
|
||
(package
|
||
(name "gfbgraph")
|
||
(version "0.2.3")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"mirror://gnome/sources/gfbgraph/"
|
||
(version-major+minor version) "/"
|
||
"gfbgraph-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1dp0v8ia35fxs9yhnqpxj3ir5lh018jlbiwifjfn8ayy7h47j4fs"))))
|
||
(build-system glib-or-gtk-build-system)
|
||
(arguments
|
||
`(#:tests? #f ; Tests appear to require the network.
|
||
;; FIXME --enable-gtk-doc fails even with gtk-doc as a native-input.
|
||
#:configure-flags '("--disable-gtk-doc"
|
||
"--disable-static"
|
||
"--enable-introspection")))
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)
|
||
("gobject-introspection" ,gobject-introspection)))
|
||
(inputs
|
||
`(("json-glib" ,json-glib)
|
||
("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
|
||
("rest" ,rest)))
|
||
(synopsis "GLib/GObject wrapper for the Facebook API")
|
||
(description "This library allows you to use the Facebook API from
|
||
GLib/GObject code.")
|
||
(home-page "https://wiki.gnome.org/Projects/GFBGraph")
|
||
(license license:lgpl2.1+)))
|
||
|
||
(define-public libgnomekbd
|
||
(package
|
||
(name "libgnomekbd")
|
||
(version "3.26.1")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/libgnomekbd/"
|
||
(version-major+minor version) "/"
|
||
"libgnomekbd-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0y962ykn3rr9gylj0pwpww7bi20lmhvsw6qvxs5bisbn2mih5jpp"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)
|
||
("glib" ,glib "bin")
|
||
("intltool" ,intltool)))
|
||
(propagated-inputs
|
||
;; Referred to in .h files and .pc.
|
||
`(("glib" ,glib)
|
||
("gtk+" ,gtk+)
|
||
("libxklavier" ,libxklavier)))
|
||
(home-page "https://www.gnome.org")
|
||
(synopsis "GNOME keyboard configuration library")
|
||
(description
|
||
"Libgnomekbd is a keyboard configuration library for the GNOME desktop
|
||
environment, which can notably display keyboard layouts.")
|
||
(license license:lgpl2.0+)))
|
||
|
||
;;; This package is no longer maintained:
|
||
;;; https://wiki.gnome.org/Attic/LibUnique
|
||
;;; "Unique is now in maintenance mode, and its usage is strongly discouraged.
|
||
;;; Applications should use the GtkApplication class provided by GTK+ 3.0."
|
||
(define-public libunique
|
||
(package
|
||
(name "libunique")
|
||
(version "3.0.2")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0f70lkw66v9cj72q0iw1s2546r6bwwcd8idcm3621fg2fgh2rw58"))))
|
||
(build-system glib-or-gtk-build-system)
|
||
(arguments
|
||
`(#:configure-flags '("--disable-static"
|
||
"--disable-dbus" ; use gdbus
|
||
"--enable-introspection")))
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("glib:bin" ,glib "bin")
|
||
("gtk-doc" ,gtk-doc)))
|
||
(propagated-inputs
|
||
;; Referred to in .h files and .pc.
|
||
`(("gtk+" ,gtk+)))
|
||
(home-page "https://wiki.gnome.org/Attic/LibUnique")
|
||
(synopsis "Library for writing single instance applications")
|
||
(description
|
||
"Libunique is a library for writing single instance applications. If you
|
||
launch a single instance application twice, the second instance will either just
|
||
quit or will send a message to the running instance. Libunique makes it easy to
|
||
write this kind of application, by providing a base class, taking care of all
|
||
the IPC machinery needed to send messages to a running instance, and also
|
||
handling the startup notification side.")
|
||
(license license:lgpl2.1+)))
|
||
|
||
(define-public gnome-calculator
|
||
(package
|
||
(name "gnome-calculator")
|
||
(version "3.32.2")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0fgpn3sc226s9fpzhik5rkkrf669037gc659ga2kn9jsyckj6p41"))))
|
||
(build-system meson-build-system)
|
||
(arguments '(#:glib-or-gtk? #t))
|
||
(native-inputs
|
||
`(("glib:bin" ,glib "bin") ; for glib-compile-schemas, gio-2.0.
|
||
("gtk+:bin" ,gtk+ "bin") ; for gtk-update-icon-cache
|
||
("intltool" ,intltool)
|
||
("itstool" ,itstool)
|
||
("vala" ,vala)
|
||
("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("glib" ,glib)
|
||
("gtksourceview" ,gtksourceview)
|
||
("libsoup" ,libsoup)
|
||
("libxml2" ,libxml2)
|
||
("mpc" ,mpc)
|
||
("mpfr" ,mpfr)))
|
||
(home-page "https://wiki.gnome.org/Apps/Calculator")
|
||
(synopsis "Desktop calculator")
|
||
(description
|
||
"Calculator is an application that solves mathematical equations and
|
||
is suitable as a default application in a Desktop environment.")
|
||
(license license:gpl3)))
|
||
|
||
(define-public xpad
|
||
(package
|
||
(name "xpad")
|
||
(version "5.1.0")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://launchpad.net/xpad/trunk/"
|
||
version "/+download/"
|
||
name "-" version ".tar.bz2"))
|
||
(sha256
|
||
(base32
|
||
"0l0g5x8g6dwhf5ksnqqrjjsycy57kcvdslkmsr6bl3vrsjd7qml3"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
`(("autoconf" ,autoconf)
|
||
("automake" ,automake)
|
||
("gtk+:bin" ,gtk+ "bin")
|
||
("intltool" ,intltool)
|
||
("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("gtksourceview" ,gtksourceview-3)
|
||
("libsm" ,libsm)))
|
||
(home-page "https://wiki.gnome.org/Apps/Xpad")
|
||
(synopsis "Virtual sticky note")
|
||
(description
|
||
"Xpad is a sticky note that strives to be simple, fault tolerant,
|
||
and customizable. Xpad consists of independent pad windows, each is
|
||
basically a text box in which notes can be written.")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public gucharmap
|
||
(let ((unicode-files
|
||
'(("Blocks.txt"
|
||
"041sk54v6rjzb23b9x7yjdwzdp2wc7gvfz7ybavgg4gbh51wm8x1")
|
||
("DerivedAge.txt"
|
||
"04j92xp07v273z3pxkbfmi1svmw9kmnjl9nvz9fv0g5ybk9zk7r6")
|
||
("NamesList.txt"
|
||
"0vsq8gx7hws8mvxy3nlglpwxw7ky57q0fs09d7w9xgb2ylk7fz61")
|
||
("Scripts.txt"
|
||
"18c63hx4y5yg408a8d0wx72d2hfnlz4l560y1fsf9lpzifxpqcmx")
|
||
("UnicodeData.txt"
|
||
"07d1kq190kgl92ispfx6zmdkvwvhjga0ishxsngzlw8j3kdkz4ap")
|
||
("Unihan.zip"
|
||
"1kfdhgg2gm52x3s07bijb5cxjy0jxwhd097k5lqhvzpznprm6ibf"))))
|
||
(package
|
||
(name "gucharmap")
|
||
(version "12.0.1")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0m915hm2b2d6r3vs1l80rqpssvg78pv8j6nv54yg62kzknnqmpir"))))
|
||
(build-system glib-or-gtk-build-system)
|
||
(arguments
|
||
`(#:modules ((ice-9 match)
|
||
(guix build glib-or-gtk-build-system)
|
||
(guix build utils))
|
||
#:configure-flags
|
||
(list "--with-unicode-data=../unicode-data")
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'prepare-unicode-data
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
(mkdir-p "../unicode-data")
|
||
(with-directory-excursion "../unicode-data"
|
||
(for-each (match-lambda
|
||
((file _)
|
||
(install-file (assoc-ref inputs file) ".")))
|
||
',unicode-files))
|
||
#t)))))
|
||
(native-inputs
|
||
`(("desktop-file-utils" ,desktop-file-utils)
|
||
("glib:bin" ,glib "bin") ; for glib-compile-resources.
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("intltool" ,intltool)
|
||
("itstool" ,itstool)
|
||
("pkg-config" ,pkg-config)
|
||
,@(map (match-lambda
|
||
((file hash)
|
||
`(,file
|
||
,(origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"http://www.unicode.org/Public/12.0.0/ucd/"
|
||
file))
|
||
(sha256 (base32 hash))))))
|
||
unicode-files)
|
||
("unzip" ,unzip)))
|
||
(inputs
|
||
`(("gtk+" ,gtk+)
|
||
("xmllint" ,libxml2)))
|
||
(home-page "https://wiki.gnome.org/Apps/Gucharmap")
|
||
(synopsis "Unicode character picker and font browser")
|
||
(description
|
||
"This program allows you to browse through all the available Unicode
|
||
characters and categories for the installed fonts, and to examine their
|
||
detailed properties. It is an easy way to find the character you might
|
||
only know by its Unicode name or code point.")
|
||
(license license:gpl3+))))
|
||
|
||
(define-public bluefish
|
||
(package
|
||
(name "bluefish")
|
||
(version "2.2.10")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "http://www.bennewitz.com/bluefish/stable/source/"
|
||
name "-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"1jw4has7lbp77lqmzvnnjmqcf0lacjfnka873lkkwdyrpzc4c1q4"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
`(("desktop-file-utils" ,desktop-file-utils)
|
||
("intltool" ,intltool)
|
||
("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("enchant" ,enchant)
|
||
("gtk+" ,gtk+)
|
||
("python" ,python-2)
|
||
("xmllint" ,libxml2)
|
||
("gucharmap" ,gucharmap)))
|
||
(home-page "http://bluefish.openoffice.nl")
|
||
(synopsis "Web development studio")
|
||
(description
|
||
"Bluefish is an editor targeted towards programmers and web developers,
|
||
with many options to write web sites, scripts and other code.
|
||
Bluefish supports many programming and markup languages.")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public gnome-system-monitor
|
||
(package
|
||
(name "gnome-system-monitor")
|
||
(version "3.32.1")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1wd43qdgjav6xamq5z5cy8fri5zr01jga3plc9w95gcia0rk3ha8"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
'(#:glib-or-gtk? #t
|
||
#:configure-flags '("-Dsystemd=false")))
|
||
(native-inputs
|
||
`(("glib:bin" ,glib "bin") ; for glib-mkenums.
|
||
("gtk+" ,gtk+ "bin") ; gtk-update-icon-cache
|
||
("intltool" ,intltool)
|
||
("itstool" ,itstool)
|
||
("libgtop" ,libgtop)
|
||
("polkit" ,polkit)
|
||
("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("gdk-pixbuf" ,gdk-pixbuf) ; for loading SVG files.
|
||
("gtk+" ,gtk+)
|
||
("gtkmm" ,gtkmm)
|
||
("librsvg" ,librsvg)
|
||
("libxml2" ,libxml2)
|
||
("libwnck" ,libwnck)))
|
||
(home-page "https://wiki.gnome.org/Apps/SystemMonitor")
|
||
(synopsis "Process viewer and system resource monitor for GNOME")
|
||
(description
|
||
"GNOME System Monitor is a GNOME process viewer and system monitor with
|
||
an attractive, easy-to-use interface. It has features, such as a tree view
|
||
for process dependencies, icons for processes, the ability to hide processes,
|
||
graphical time histories of CPU/memory/swap usage and the ability to
|
||
kill/reinice processes.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public python-pyatspi
|
||
(package
|
||
(name "python-pyatspi")
|
||
(version "2.34.0")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"mirror://gnome/sources/pyatspi/"
|
||
(version-major+minor version)
|
||
"/pyatspi-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0j3f75j0zd6ca8msg7yr19qsfirqkn9fk8pqbjnlhqrpri455g4p"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before 'build 'fix-atk-load
|
||
(lambda _
|
||
(substitute* "pyatspi/__init__.py"
|
||
(("from gi.repository import Atspi")
|
||
"gi.require_version('Gtk', '3.0')
|
||
from gi.repository import Gtk
|
||
from gi.repository import Atspi"))
|
||
#t)))))
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("python" ,python)
|
||
("python-pygobject" ,python-pygobject)))
|
||
(synopsis "Python client bindings for D-Bus AT-SPI")
|
||
(home-page "https://wiki.linuxfoundation.org/accessibility\
|
||
/atk/at-spi/at-spi_on_d-bus")
|
||
(description
|
||
"This package includes a python client library for the AT-SPI D-Bus
|
||
accessibility infrastructure.")
|
||
(license license:lgpl2.0)
|
||
(properties '((upstream-name . "pyatspi")))))
|
||
|
||
(define-public orca
|
||
(package
|
||
(name "orca")
|
||
(version "3.32.0")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"05jqzlg0f1x53hyl0l9282ynmw37159g6dsbrid12b7sjs12cc1i"))))
|
||
(build-system glib-or-gtk-build-system)
|
||
(arguments
|
||
'(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before 'configure 'qualify-xkbcomp
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
(let ((xkbcomp (string-append
|
||
(assoc-ref inputs "xkbcomp") "/bin/xkbcomp")))
|
||
(substitute* "src/orca/orca.py"
|
||
(("'xkbcomp'") (format #f "'~a'" xkbcomp))))
|
||
#t))
|
||
(add-after 'install 'wrap-orca
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(prog (string-append out "/bin/orca")))
|
||
(wrap-program prog
|
||
`("GI_TYPELIB_PATH" ":" prefix
|
||
(,(getenv "GI_TYPELIB_PATH")))
|
||
`("GST_PLUGIN_SYSTEM_PATH" ":" prefix
|
||
(,(getenv "GST_PLUGIN_SYSTEM_PATH")))
|
||
`("PYTHONPATH" ":" prefix
|
||
(,(getenv "PYTHONPATH")))))
|
||
#t)))))
|
||
(native-inputs
|
||
`(("intltool" ,intltool)
|
||
("itstool" ,itstool)
|
||
("pkg-config" ,pkg-config)
|
||
("xmllint" ,libxml2)))
|
||
(inputs
|
||
`(("at-spi2-atk" ,at-spi2-atk)
|
||
("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
|
||
("gstreamer" ,gstreamer)
|
||
("gst-plugins-base" ,gst-plugins-base)
|
||
("gst-plugins-good" ,gst-plugins-good)
|
||
("gtk+" ,gtk+)
|
||
("python" ,python)
|
||
("python-pygobject" ,python-pygobject)
|
||
("python-pyatspi" ,python-pyatspi)
|
||
("python-speechd" ,speech-dispatcher)
|
||
("xkbcomp" ,xkbcomp)))
|
||
(synopsis
|
||
"Screen reader for individuals who are blind or visually impaired")
|
||
(home-page "https://wiki.gnome.org/Projects/Orca")
|
||
(description
|
||
"Orca is a screen reader that provides access to the graphical desktop
|
||
via speech and refreshable braille. Orca works with applications and toolkits
|
||
that support the Assistive Technology Service Provider Interface (AT-SPI).")
|
||
(license license:lgpl2.1+)))
|
||
|
||
(define-public gspell
|
||
(package
|
||
(name "gspell")
|
||
(version "1.8.2")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1miybm1z5cl91i25l7mfqlxhv7j8yy8rcgi0s1bgbb2vm71rb4dv"))
|
||
(patches (search-patches "gspell-dash-test.patch"))))
|
||
(build-system glib-or-gtk-build-system)
|
||
(arguments
|
||
'(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before 'check 'pre-check
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
;; Tests require a running X server.
|
||
(system "Xvfb :1 &")
|
||
(setenv "DISPLAY" ":1")
|
||
|
||
;; For the missing /etc/machine-id.
|
||
(setenv "DBUS_FATAL_WARNINGS" "0")
|
||
|
||
;; Allow Enchant and its Aspell backend to find the en_US
|
||
;; dictionary.
|
||
(setenv "ASPELL_DICT_DIR"
|
||
(string-append (assoc-ref inputs "aspell-dict-en")
|
||
"/lib/aspell"))
|
||
#t)))))
|
||
(inputs
|
||
`(("gtk+" ,gtk+)
|
||
("glib" ,glib)
|
||
("iso-codes" ,iso-codes)))
|
||
(native-inputs
|
||
`(("glib" ,glib "bin")
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("pkg-config" ,pkg-config)
|
||
("xmllint" ,libxml2)
|
||
|
||
;; For tests.
|
||
("aspell-dict-en" ,aspell-dict-en)
|
||
("xorg-server" ,xorg-server-for-tests)))
|
||
(propagated-inputs
|
||
`(("enchant" ,enchant))) ;enchant.pc is required by gspell-1.pc
|
||
(home-page "https://wiki.gnome.org/Projects/gspell")
|
||
(synopsis "GNOME's alternative spell checker")
|
||
(description
|
||
"gspell provides a flexible API to add spell-checking to a GTK+
|
||
application. It provides a GObject API, spell-checking to text entries and
|
||
text views, and buttons to choose the language.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public gnome-planner
|
||
(package
|
||
(name "gnome-planner")
|
||
(version "0.14.6")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/planner/"
|
||
(version-major+minor version) "/planner-"
|
||
version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"15h6ps58giy5r1g66sg1l4xzhjssl362mfny2x09khdqsvk2j38k"))))
|
||
(build-system glib-or-gtk-build-system)
|
||
(arguments
|
||
;; Disable the Python bindings because the Planner program functions
|
||
;; without them, and (as of 2017-06-13) we have not packaged all of
|
||
;; packages that are necessary for building the Python bindings.
|
||
`(#:configure-flags
|
||
(list "--disable-python"
|
||
,@(if (string=? "aarch64-linux" (%current-system))
|
||
'("--build=aarch64-unknown-linux-gnu")
|
||
'()))))
|
||
(inputs
|
||
`(("libgnomecanvas" ,libgnomecanvas)
|
||
("libgnomeui" ,libgnomeui)
|
||
("libglade" ,libglade)
|
||
("gnome-vfs" ,gnome-vfs)
|
||
("gconf" ,gconf)
|
||
("libxml2" ,libxml2)
|
||
("libxslt" ,libxslt)
|
||
("gtk+" ,gtk+)
|
||
("glib" ,glib)))
|
||
(native-inputs
|
||
`(("intltool" ,intltool)
|
||
("scrollkeeper" ,scrollkeeper)
|
||
("pkg-config" ,pkg-config)))
|
||
(home-page "https://wiki.gnome.org/Apps/Planner")
|
||
(synopsis "Project management software for the GNOME desktop")
|
||
(description
|
||
"GNOME Planner is a project management tool based on the Work Breakdown
|
||
Structure (WBS). Its goal is to enable you to easily plan projects. Based on
|
||
the resources, tasks, and constraints that you define, Planner generates
|
||
various views into a project. For example, Planner can show a Gantt chart of
|
||
the project. It can show a detailed summary of tasks including their
|
||
duration, cost, and current progress. It can also show a report of resource
|
||
utilization that highlights under-utilized and over-utilized resources. These
|
||
views can be printed as PDF or PostScript files, or exported to HTML.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public lollypop
|
||
(package
|
||
(name "lollypop")
|
||
(version "1.2.7")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://gitlab.gnome.org/World/lollypop/uploads/"
|
||
"08f973788c7ca46d9285eec2ac818edb/"
|
||
"lollypop-" version ".tar.xz"))
|
||
(sha256
|
||
(base32 "0hvq6m4i62i0m63bg4gzpfb9rv1fk6vq5jl2g3ppcgm4srmfm77j"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
`(#:imported-modules ((guix build python-build-system)
|
||
,@%meson-build-system-modules)
|
||
#:glib-or-gtk? #t
|
||
#:tests? #f ; no test suite
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'install 'wrap-program
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let ((out (assoc-ref outputs "out"))
|
||
(gi-typelib-path (getenv "GI_TYPELIB_PATH")))
|
||
(wrap-program (string-append out "/bin/lollypop")
|
||
`("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
|
||
#t))
|
||
(add-after 'install 'wrap-python
|
||
(@@ (guix build python-build-system) wrap))
|
||
(add-after 'install 'wrap-glib-or-gtk
|
||
(@@ (guix build glib-or-gtk-build-system) wrap-all-programs)))))
|
||
(native-inputs
|
||
`(("intltool" ,intltool)
|
||
("itstool" ,itstool)
|
||
("glib:bin" ,glib "bin") ; For glib-compile-resources
|
||
("gtk+:bin" ,gtk+ "bin") ; For gtk-update-icon-cache
|
||
("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("gobject-introspection" ,gobject-introspection)
|
||
("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
|
||
("gst-plugins-base" ,gst-plugins-base)
|
||
("libnotify" ,libnotify)
|
||
("libsecret" ,libsecret)
|
||
("libsoup" ,libsoup)
|
||
("python" ,python)
|
||
("python-beautifulsoup4" ,python-beautifulsoup4)
|
||
("python-gst" ,python-gst)
|
||
("python-pil" ,python-pillow)
|
||
("python-pycairo" ,python-pycairo)
|
||
("python-pygobject" ,python-pygobject-3.34)
|
||
("python-pylast" ,python-pylast)
|
||
("totem-pl-parser" ,totem-pl-parser)
|
||
("webkitgtk" ,webkitgtk)))
|
||
(propagated-inputs
|
||
`(;; gst-plugins-base is required to start Lollypop,
|
||
;; the others are required to play streaming.
|
||
("gst-plugins-good" ,gst-plugins-good)
|
||
("gst-plugins-ugly" ,gst-plugins-ugly)))
|
||
(home-page "https://wiki.gnome.org/Apps/Lollypop")
|
||
(synopsis "GNOME music playing application")
|
||
(description
|
||
"Lollypop is a music player designed to play well with GNOME desktop.
|
||
Lollypop plays audio formats such as mp3, mp4, ogg and flac and gets information
|
||
from artists and tracks from the web. It also fetches cover artworks
|
||
automatically and it can stream songs from online music services and charts.")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public gnome-video-effects
|
||
(package
|
||
(name "gnome-video-effects")
|
||
(version "0.4.3")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/" name "-"
|
||
version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"06c2f1kihyhawap1s3zg5w7q7fypsybkp7xry4hxkdz4mpsy0zjs"))))
|
||
(build-system glib-or-gtk-build-system)
|
||
(arguments
|
||
`(#:out-of-source? #f))
|
||
(native-inputs
|
||
`(("glib:bin" ,glib "bin")
|
||
("intltool" ,intltool)
|
||
("gettext" ,gettext-minimal)
|
||
("pkg-config" ,pkg-config)))
|
||
(home-page "https://wiki.gnome.org/Projects/GnomeVideoEffects")
|
||
(synopsis "Video effects for Cheese and other GNOME applications")
|
||
(description
|
||
"A collection of GStreamer video filters and effects to be used in
|
||
photo-booth-like software, such as Cheese.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public cheese
|
||
(package
|
||
(name "cheese")
|
||
(version "3.32.1")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/" name "-"
|
||
version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1xlmsm4zsx05ahvpd4mgy1hfhxbag0r5i6p63bksjxdligdd36kv"))))
|
||
(arguments
|
||
;; Tests require GDK.
|
||
`(#:tests? #f
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before 'install 'skip-gtk-update-icon-cache
|
||
(lambda _
|
||
;; Don't create 'icon-theme.cache'
|
||
(substitute* "Makefile"
|
||
(("gtk-update-icon-cache") (which "true")))
|
||
#t))
|
||
(add-after 'install 'wrap-cheese
|
||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||
(let ((out (assoc-ref outputs "out"))
|
||
(gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH")))
|
||
(wrap-program (string-append out "/bin/cheese")
|
||
`("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))))
|
||
#t)))))
|
||
(build-system glib-or-gtk-build-system)
|
||
(native-inputs
|
||
`(("glib:bin" ,glib "bin")
|
||
("intltool" ,intltool)
|
||
("itstool" ,itstool)
|
||
("libxml2" ,libxml2)
|
||
("pkg-config" ,pkg-config)
|
||
("vala" ,vala)))
|
||
(propagated-inputs
|
||
`(("gnome-video-effects" ,gnome-video-effects)
|
||
("clutter" ,clutter)
|
||
("clutter-gst" ,clutter-gst)
|
||
("clutter-gtk" ,clutter-gtk)
|
||
("libcanberra" ,libcanberra)
|
||
("gdk-pixbuf" ,gdk-pixbuf)
|
||
("glib" ,glib)
|
||
("gstreamer" ,gstreamer)))
|
||
(inputs
|
||
`(("gnome-desktop" ,gnome-desktop)
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("gst-plugins-base" ,gst-plugins-base)
|
||
("gst-plugins-bad" ,gst-plugins-bad)
|
||
("gtk+" ,gtk+)
|
||
("libx11" ,libx11)
|
||
("libxtst" ,libxtst)))
|
||
(home-page "https://wiki.gnome.org/Apps/Cheese")
|
||
(synopsis "Webcam photo booth software for GNOME")
|
||
(description
|
||
"Cheese uses your webcam to take photos and videos. Cheese can also
|
||
apply fancy special effects and lets you share the fun with others.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public sound-juicer
|
||
(package
|
||
(name "sound-juicer")
|
||
(version "3.24.0")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"19qg4xv0f9rkq34lragkmhii1llxsa87llbl28i759b0ks4f6sny"))))
|
||
(build-system glib-or-gtk-build-system)
|
||
(native-inputs
|
||
`(("desktop-file-utils" ,desktop-file-utils)
|
||
("intltool" ,intltool)
|
||
("itstool" ,itstool)
|
||
("pkg-config" ,pkg-config)
|
||
("xmllint" ,libxml2)))
|
||
(inputs
|
||
`(("gtk+" ,gtk+)
|
||
("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
|
||
("gstreamer" ,gstreamer)
|
||
("gst-plugins-base" ,gst-plugins-base)
|
||
("gst-plugins-good" ,gst-plugins-good)
|
||
("iso-codes" ,iso-codes)
|
||
("libbrasero-media3" ,brasero)
|
||
("libcanberra" ,libcanberra)
|
||
("libdiscid" ,libdiscid)
|
||
("libmusicbrainz" ,libmusicbrainz)
|
||
("neon" ,neon)))
|
||
(home-page "https://wiki.gnome.org/Apps/SoundJuicer")
|
||
(synopsis "Audio music cd ripper")
|
||
(description "Sound Juicer extracts audio from compact discs and convert it
|
||
into audio files that a personal computer or digital audio player can play.
|
||
It supports ripping to any audio codec supported by a GStreamer plugin, such as
|
||
mp3, Ogg Vorbis and FLAC")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public soundconverter
|
||
(package
|
||
(name "soundconverter")
|
||
(version "3.0.1")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://launchpad.net/soundconverter/trunk/"
|
||
version "/+download/"
|
||
"soundconverter-" version ".tar.xz"))
|
||
|
||
(sha256
|
||
(base32 "1d6x1yf8psqbd9zbybxivfqg55khcnngp2mn92l161dfdk9512c5"))
|
||
(patches
|
||
(search-patches
|
||
"soundconverter-remove-gconf-dependency.patch"))))
|
||
(build-system glib-or-gtk-build-system)
|
||
(arguments
|
||
`(#:imported-modules ((guix build python-build-system)
|
||
(guix build glib-or-gtk-build-system)
|
||
,@%gnu-build-system-modules)
|
||
|
||
#:modules ((guix build glib-or-gtk-build-system)
|
||
(guix build utils)
|
||
((guix build gnu-build-system) #:prefix gnu:)
|
||
((guix build python-build-system) #:prefix python:))
|
||
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'install 'wrap-soundconverter-for-python
|
||
(assoc-ref python:%standard-phases 'wrap))
|
||
(add-after 'install 'wrap-soundconverter
|
||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||
(let ((out (assoc-ref outputs "out"))
|
||
(gi-typelib-path (getenv "GI_TYPELIB_PATH"))
|
||
(gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH")))
|
||
(wrap-program (string-append out "/bin/soundconverter")
|
||
`("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))
|
||
`("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))))
|
||
#t)))))
|
||
(native-inputs
|
||
`(("intltool" ,intltool)
|
||
("pkg-config" ,pkg-config)
|
||
("glib:bin" ,glib "bin")))
|
||
(inputs
|
||
`(("gtk+" ,gtk+)
|
||
("python" ,python)
|
||
("python-pygobject" ,python-pygobject)
|
||
("gstreamer" ,gstreamer)
|
||
("gst-plugins-base" ,gst-plugins-base)))
|
||
(home-page "http://soundconverter.org/")
|
||
(synopsis "Convert between audio formats with a graphical interface")
|
||
(description
|
||
"SoundConverter supports converting between many audio formats including
|
||
Opus, Ogg Vorbis, FLAC and more. It supports parallel conversion, and
|
||
configurable file renaming. ")
|
||
(license license:gpl3)))
|
||
|
||
(define-public workrave
|
||
(package
|
||
(name "workrave")
|
||
(version "1.10.34")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/rcaelers/workrave.git")
|
||
(commit (string-append "v" (string-map
|
||
(match-lambda (#\. #\_) (chr chr))
|
||
version)))))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32 "0czwhr7nw523753ajcjjfwrf91mq8pmzr19gp0srqsvb1dsn1zcf"))))
|
||
(build-system glib-or-gtk-build-system)
|
||
(inputs `(("glib" ,glib)
|
||
("gtk+" ,gtk+)
|
||
("gdk-pixbuf" ,gdk-pixbuf)
|
||
("gtkmm" ,gtkmm)
|
||
("glibmm" ,glibmm)
|
||
("libx11" ,libx11)
|
||
("libxtst" ,libxtst)
|
||
("dconf" ,dconf)
|
||
("libice" ,libice)
|
||
("libsm" ,libsm)
|
||
("libxscrnsaver" ,libxscrnsaver)))
|
||
(native-inputs `(("boost" ,boost)
|
||
("pkg-config" ,pkg-config)
|
||
("gettext" ,gnu-gettext)
|
||
("autoconf" ,autoconf)
|
||
("autoconf-archive" , autoconf-archive)
|
||
("automake" ,automake)
|
||
("libtool" ,libtool)
|
||
("intltool" ,intltool)
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("python3" ,python-3)
|
||
("python-jinja2" ,python-jinja2)))
|
||
(synopsis "Tool to help prevent repetitive strain injury (RSI)")
|
||
(description
|
||
"Workrave is a program that assists in the recovery and prevention of
|
||
repetitive strain injury (@dfn{RSI}). The program frequently alerts you to take
|
||
micro-pauses and rest breaks, and restricts you to your daily limit.")
|
||
(home-page "http://www.workrave.org")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public ghex
|
||
(package
|
||
(name "ghex")
|
||
(version "3.18.4")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/ghex/"
|
||
(version-major+minor version) "/"
|
||
"ghex-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1h1pjrr9wynclfykizqd78dbi785wjz6b63p31k87kjvzy8w3nf2"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
'(#:glib-or-gtk? #t
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'skip-gtk-update-icon-cache
|
||
;; Don't create 'icon-theme.cache'.
|
||
(lambda _
|
||
(substitute* "meson_post_install.py"
|
||
(("gtk-update-icon-cache") (which "true")))
|
||
#t)))))
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)
|
||
("glib:bin" ,glib "bin") ; for glib-compile-schemas
|
||
("gnome-common" ,gnome-common)
|
||
("which" ,which)
|
||
("intltool" ,intltool)
|
||
("yelp-tools" ,yelp-tools)
|
||
("desktop-file-utils" ,desktop-file-utils))) ; for 'desktop-file-validate'
|
||
(inputs
|
||
`(("atk" ,atk)
|
||
("gtk" ,gtk+)))
|
||
(synopsis "GNOME hexadecimal editor")
|
||
(description "The GHex program can view and edit files in two ways:
|
||
hexadecimal or ASCII. It is useful for editing binary files in general.")
|
||
(home-page "https://wiki.gnome.org/Apps/Ghex")
|
||
(license license:gpl2)))
|
||
|
||
(define-public libdazzle
|
||
(package
|
||
(name "libdazzle")
|
||
(version "3.33.90")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/libdazzle/"
|
||
(version-major+minor version) "/"
|
||
"libdazzle-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"189m7q88d1a7bq0yyal9f3yhm9kz46lb61379nn4wsnnhpa1d0qs"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
`(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before 'check 'pre-check
|
||
(lambda _
|
||
;; Tests require a running X server.
|
||
(system "Xvfb :1 &")
|
||
(setenv "DISPLAY" ":1")
|
||
#t)))))
|
||
(native-inputs
|
||
`(("glib" ,glib "bin") ; glib-compile-resources
|
||
("pkg-config" ,pkg-config)
|
||
;; For tests.
|
||
("xorg-server" ,xorg-server-for-tests)))
|
||
(inputs
|
||
`(("glib" ,glib)
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("gtk+" ,gtk+)
|
||
("vala" ,vala)))
|
||
(home-page "https://gitlab.gnome.org/GNOME/libdazzle")
|
||
(synopsis "Companion library to GObject and Gtk+")
|
||
(description "The libdazzle library is a companion library to GObject and
|
||
Gtk+. It provides various features that the authors wish were in the
|
||
underlying library but cannot for various reasons. In most cases, they are
|
||
wildly out of scope for those libraries. In other cases, they are not quite
|
||
generic enough to work for everyone.")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public evolution
|
||
(package
|
||
(name "evolution")
|
||
(version "3.32.4")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/evolution/"
|
||
(version-major+minor version) "/"
|
||
"evolution-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"00hmmg4hfns8rq9rcilmy0gi1xkksld27lfbd9zmw2xw37wjmbqh"))))
|
||
(build-system cmake-build-system)
|
||
(arguments
|
||
`(#:imported-modules (,@%cmake-build-system-modules
|
||
(guix build glib-or-gtk-build-system))
|
||
#:modules ((guix build cmake-build-system)
|
||
((guix build glib-or-gtk-build-system) #:prefix glib-or-gtk:)
|
||
(guix build utils))
|
||
#:configure-flags
|
||
(list "-DENABLE_PST_IMPORT=OFF" ; libpst is not packaged
|
||
"-DENABLE_LIBCRYPTUI=OFF") ; libcryptui hasn't seen a release
|
||
; in four years and cannot be built.
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
;; The build system attempts to install user interface modules to the
|
||
;; output directory of the "evolution-data-server" package. This
|
||
;; change redirects that change.
|
||
(add-after 'unpack 'patch-ui-module-dir
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(substitute* "src/modules/alarm-notify/CMakeLists.txt"
|
||
(("\\$\\{edsuimoduledir\\}")
|
||
(string-append (assoc-ref outputs "out")
|
||
"/lib/evolution-data-server/ui-modules")))
|
||
#t))
|
||
(add-after 'install 'glib-or-gtk-compile-schemas
|
||
(assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-compile-schemas))
|
||
(add-after 'install 'glib-or-gtk-wrap
|
||
(assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap)))))
|
||
(native-inputs
|
||
`(("glib" ,glib "bin") ; glib-mkenums
|
||
("pkg-config" ,pkg-config)
|
||
("intltool" ,intltool)
|
||
("itstool" ,itstool)))
|
||
(inputs
|
||
`(("enchant" ,enchant)
|
||
("evolution-data-server" ,evolution-data-server) ; must be the same version
|
||
("gcr" ,gcr)
|
||
("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
|
||
("gnome-autoar" ,gnome-autoar)
|
||
("gnome-desktop" ,gnome-desktop)
|
||
("gtkspell3" ,gtkspell3)
|
||
("highlight" ,highlight)
|
||
("libcanberra" ,libcanberra)
|
||
("libedataserverui" ,evolution-data-server)
|
||
("libgweather" ,libgweather)
|
||
("libnotify" ,libnotify)
|
||
("libsoup" ,libsoup)
|
||
("nss" ,nss)
|
||
("openldap" ,openldap)
|
||
("webkitgtk" ,webkitgtk)
|
||
("ytnef" ,ytnef)))
|
||
(home-page "https://gitlab.gnome.org/GNOME/evolution")
|
||
(synopsis "Manage your email, contacts and schedule")
|
||
(description "Evolution is a personal information management application
|
||
that provides integrated mail, calendaring and address book
|
||
functionality.")
|
||
;; See COPYING for details.
|
||
(license (list license:lgpl2.1 license:lgpl3 ; either one of these
|
||
license:openldap2.8 ; addressbook/gui/component/openldap-extract.h
|
||
license:lgpl2.1+)))) ; smime/lib/*
|
||
|
||
(define-public gthumb
|
||
(package
|
||
(name "gthumb")
|
||
(version "3.8.2")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/gthumb/"
|
||
(version-major+minor version) "/"
|
||
"gthumb-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"15wqks35ks5dm7zj046dfd45vvrilan2ayfy2sxiprv7q74cip2q"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
`(#:glib-or-gtk? #t
|
||
#:configure-flags
|
||
;; Ensure the RUNPATH contains all installed library locations.
|
||
(list (string-append "-Dc_link_args=-Wl,-rpath="
|
||
(assoc-ref %outputs "out")
|
||
"/lib/gthumb/extensions")
|
||
(string-append "-Dcpp_link_args=-Wl,-rpath="
|
||
(assoc-ref %outputs "out")
|
||
"/lib/gthumb/extensions"))))
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)
|
||
("glib:bin" ,glib "bin") ; for glib-compile-resources
|
||
("gtk+:bin" ,gtk+ "bin") ; for gtk-update-icon-cache
|
||
("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
|
||
("intltool" ,intltool)
|
||
("itstool" ,itstool)))
|
||
(inputs
|
||
`(("exiv2" ,exiv2)
|
||
("gtk" ,gtk+)
|
||
("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
|
||
("gstreamer" ,gstreamer)
|
||
("clutter" ,clutter)
|
||
("clutter-gst" ,clutter-gst)
|
||
("clutter-gtk" ,clutter-gtk)
|
||
("libjpeg" ,libjpeg)
|
||
("libtiff" ,libtiff)
|
||
("libraw" ,libraw)))
|
||
(home-page "https://wiki.gnome.org/Apps/Gthumb")
|
||
(synopsis "GNOME image viewer and browser")
|
||
(description "GThumb is an image viewer, browser, organizer, editor and
|
||
advanced image management tool")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public terminator
|
||
(package
|
||
(name "terminator")
|
||
(version "1.91")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://launchpad.net/" name "/"
|
||
"gtk3/" version "/" "+download/"
|
||
name "-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"0sdyqwydmdnh7j6mn74vrywz35m416kqsbxbrqcnv5ak08y6xxwm"))))
|
||
(build-system python-build-system)
|
||
(native-inputs
|
||
`(("intltool" ,intltool)
|
||
("glib:bin" ,glib "bin") ; for glib-compile-resources
|
||
("gettext" ,gettext-minimal)
|
||
("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("cairo" ,cairo)
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
|
||
("python2-pycairo" ,python2-pycairo)
|
||
("python2-pygobject" ,python2-pygobject)
|
||
("python2-psutil" ,python2-psutil)
|
||
("vte" ,vte)))
|
||
(arguments
|
||
`(#:python ,python-2 ; Python 3 isn't supported
|
||
#:imported-modules ((guix build glib-or-gtk-build-system)
|
||
,@%python-build-system-modules)
|
||
#:modules ((guix build python-build-system)
|
||
((guix build glib-or-gtk-build-system) #:prefix glib-or-gtk:)
|
||
(guix build utils))
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after
|
||
'install 'wrap-program
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let ((prog (string-append (assoc-ref outputs "out")
|
||
"/bin/terminator")))
|
||
(wrap-program prog
|
||
`("PYTHONPATH" = (,(getenv "PYTHONPATH")))
|
||
`("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
|
||
#t)))
|
||
(add-after 'wrap-program 'glib-or-gtk-wrap
|
||
(assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap)))))
|
||
(home-page "https://gnometerminator.blogspot.com/")
|
||
(synopsis "Store and run multiple GNOME terminals in one window")
|
||
(description
|
||
"Terminator allows you to run multiple GNOME terminals in a grid and
|
||
+tabs, and it supports drag and drop re-ordering of terminals.")
|
||
(license license:gpl2)))
|
||
|
||
(define-public libhandy
|
||
(package
|
||
(name "libhandy")
|
||
(version "0.0.12")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://source.puri.sm/Librem5/libhandy")
|
||
(commit (string-append "v" version))))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32 "09wlknarzsbk9hr5ws6s7x5kibkhx9ayrbhshfqib4zkhq2f76hw"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
`(#:configure-flags
|
||
'("-Dglade_catalog=disabled"
|
||
"-Dgtk_doc=true")
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before 'check 'pre-check
|
||
(lambda _
|
||
;; Tests require a running X server.
|
||
(system "Xvfb :1 &")
|
||
(setenv "DISPLAY" ":1")
|
||
#t)))))
|
||
(inputs
|
||
`(("gtk+" ,gtk+)))
|
||
(native-inputs
|
||
`(("glib:bin" ,glib "bin")
|
||
("gobject-introspection" ,gobject-introspection) ; for g-ir-scanner
|
||
("vala" ,vala)
|
||
("gtk-doc" ,gtk-doc)
|
||
("pkg-config" ,pkg-config)
|
||
("gettext" ,gettext-minimal)
|
||
|
||
;; Test suite dependencies.
|
||
("xorg-server" ,xorg-server-for-tests)
|
||
("hicolor-icon-theme" ,hicolor-icon-theme)))
|
||
(home-page "https://source.puri.sm/Librem5/libhandy")
|
||
(synopsis "Library full of GTK+ widgets for mobile phones")
|
||
(description "The aim of the handy library is to help with developing user
|
||
interfaces for mobile devices using GTK+. It provides responsive GTK+ widgets
|
||
for usage on small and big screens.")
|
||
(license license:lgpl2.1+)))
|
||
|
||
(define-public libgit2-glib
|
||
(package
|
||
(name "libgit2-glib")
|
||
(version "0.28.0.1")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0a0g7aw66rfgnqr4z7fgbk5zzcjq66m4rp8v4val3a212941h0g7"))))
|
||
(build-system meson-build-system)
|
||
(native-inputs
|
||
`(("glib:bin" ,glib "bin") ;; For glib-mkenums
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("intltool" ,intltool)
|
||
("libssh2" ,libssh2)
|
||
("pkg-config" ,pkg-config)
|
||
("python-pygobject" ,python-pygobject)
|
||
("python-wrapper" ,python-wrapper)
|
||
("vala" ,vala)))
|
||
(inputs
|
||
`(("glib" ,glib)
|
||
("libgit2" ,libgit2)))
|
||
(synopsis "GLib wrapper around the libgit2 Git access library")
|
||
(description "libgit2-glib is a GLib wrapper library around the libgit2 Git
|
||
access library. It only implements the core plumbing functions, not really the
|
||
higher level porcelain stuff.")
|
||
(home-page "https://wiki.gnome.org/Projects/Libgit2-glib")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public gitg
|
||
(package
|
||
(name "gitg")
|
||
(version "3.32.1")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0npg4kqpwl992fgjd2cn3fh84aiwpdp9kd8z7rw2xaj2iazsm914"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
`(#:glib-or-gtk? #t
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'disable-post-install-partially
|
||
(lambda _
|
||
(substitute* "meson_post_install.py"
|
||
(("'python'") ; there are no python sources to compile
|
||
(string-append "'" (which "true") "'"))
|
||
(("gtk-update-icon-cache") (which "true")))
|
||
#t))
|
||
(add-after 'unpack 'fix-test-sources
|
||
(lambda _
|
||
(substitute* "tests/libgitg/test-commit.vala"
|
||
(("/bin/bash") (which "bash")))
|
||
#t))
|
||
(add-after 'glib-or-gtk-wrap 'wrap-typelib
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let ((prog (string-append (assoc-ref outputs "out")
|
||
"/bin/gitg")))
|
||
(wrap-program prog
|
||
`("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
|
||
#t))))))
|
||
(inputs
|
||
`(("glib" ,glib)
|
||
("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
|
||
("gtk+" ,gtk+)
|
||
("gtkspell3" ,gtkspell3)
|
||
("gtksourceview" ,gtksourceview-3)
|
||
("json-glib" ,json-glib)
|
||
("libdazzle" ,libdazzle)
|
||
("libgee" ,libgee)
|
||
("libgit2" ,libgit2) ; propagated by libgit2-glib
|
||
("libgit2-glib" ,libgit2-glib)
|
||
("libpeas" ,libpeas)
|
||
("libsecret" ,libsecret)
|
||
("libsoup" ,libsoup)
|
||
("libxml2" ,libxml2)))
|
||
(native-inputs
|
||
`(("glib:bin" ,glib "bin")
|
||
("gtk+:bin" ,gtk+ "bin")
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("intltool" ,intltool)
|
||
("pkg-config" ,pkg-config)
|
||
("vala" ,vala)))
|
||
(synopsis "Graphical user interface for git")
|
||
(description
|
||
"gitg is a graphical user interface for git. It aims at being a small,
|
||
fast and convenient tool to visualize the history of git repositories.
|
||
Besides visualization, gitg also provides several utilities to manage your
|
||
repository and commit your work.")
|
||
(home-page "https://wiki.gnome.org/Apps/Gitg")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public gamin
|
||
(package
|
||
(name "gamin")
|
||
(version "0.1.10")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/"
|
||
name "-" version ".tar.bz2"))
|
||
(sha256
|
||
(base32
|
||
"02n1zr9y8q9lyczhcz0nxar1vmf8p2mmbw8kq0v43wg21jr4i6d5"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'remove-deprecated-macro
|
||
(lambda _
|
||
(substitute* '("server/gam_node.c"
|
||
"server/gam_subscription.h"
|
||
"server/gam_node.h"
|
||
"server/gam_subscription.c")
|
||
(("G_CONST_RETURN") "const"))
|
||
#t)))))
|
||
(inputs
|
||
`(("glib" ,glib)))
|
||
(native-inputs
|
||
`(("intltool" ,intltool)
|
||
("pkg-config" ,pkg-config)))
|
||
(home-page "https://people.gnome.org/~veillard/gamin/")
|
||
(synopsis "File alteration monitor")
|
||
(description
|
||
"Gamin is a file and directory monitoring system defined to be a subset
|
||
of the FAM (File Alteration Monitor) system. This is a service provided by a
|
||
library which allows to detect when a file or a directory has been modified.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public gnome-mahjongg
|
||
(package
|
||
(name "gnome-mahjongg")
|
||
(version "3.35.1")
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://gitlab.gnome.org/GNOME/gnome-mahjongg.git")
|
||
(commit version)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"019a66a4m5w4kkb0sm6gxj0wi54n06zdxdlmyqw7h8kbakjizv7l"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
`(#:glib-or-gtk? #t))
|
||
(native-inputs
|
||
`(("appstream-glib" ,appstream-glib)
|
||
("gettext" ,gettext-minimal)
|
||
("glib:bin" ,glib "bin") ;; For glib-compile-resources
|
||
("gtk+" ,gtk+ "bin") ;; For gtk-update-icon-cache
|
||
("itstool" ,itstool)
|
||
("pkg-config" ,pkg-config)
|
||
("vala" ,vala)))
|
||
(propagated-inputs
|
||
`(("dconf" ,dconf)))
|
||
(inputs
|
||
`(("glib" ,glib)
|
||
("gtk+" ,gtk+)
|
||
("librsvg" ,librsvg)))
|
||
(synopsis "Mahjongg tile-matching game")
|
||
(description "GNOME Mahjongg is a game based on the classic Chinese
|
||
tile-matching game Mahjong. It features multiple board layouts, tile themes,
|
||
and a high score table.")
|
||
(home-page "https://wiki.gnome.org/Apps/Mahjongg")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public gnome-themes-extra
|
||
(package
|
||
(name "gnome-themes-extra")
|
||
(version "3.28")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||
(version-major+minor version) "/" name "-"
|
||
version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"06aqg9asq2vqi9wr29bs4v8z2bf4manhbhfghf4nvw01y2zs0jvw"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
'(#:configure-flags
|
||
;; Don't create 'icon-theme.cache'.
|
||
(let* ((coreutils (assoc-ref %build-inputs "coreutils"))
|
||
(true (string-append coreutils "/bin/true")))
|
||
(list (string-append "GTK_UPDATE_ICON_CACHE=" true)))))
|
||
(native-inputs
|
||
`(("glib:bin" ,glib "bin")
|
||
("intltool" ,intltool)
|
||
("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("glib" ,glib)
|
||
("gtk+" ,gtk+)
|
||
("gtk+-2" ,gtk+-2)
|
||
("librsvg" ,librsvg)
|
||
("libxml2" ,libxml2)))
|
||
(home-page "https://gitlab.gnome.org/GNOME/gnome-themes-extra")
|
||
(synopsis "GNOME Extra Themes")
|
||
(description "This package provides themes and related elements that don't
|
||
really fit in other upstream packages. It offers legacy support for GTK+ 2
|
||
versions of Adwaita, Adwaita-dark and HighContrast themes. It also provides
|
||
index files needed for Adwaita to be used outside of GNOME.")
|
||
(license license:lgpl2.1+)))
|
||
|
||
(define-public polari
|
||
(package
|
||
(name "polari")
|
||
(version "3.32.2")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/polari/"
|
||
(version-major+minor version)
|
||
"/polari-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0h0w9j3y067l911gpj446b3a2w1i2vzr1w2a7cz7i5rhn6qkf2sp"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
`(#:glib-or-gtk? #t
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'skip-gtk-update-icon-cache
|
||
(lambda _
|
||
(substitute* "meson/meson-postinstall.sh"
|
||
(("gtk-update-icon-cache") (which "true")))
|
||
#t))
|
||
(add-after 'glib-or-gtk-wrap 'wrap-typelib
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let ((prog (string-append (assoc-ref outputs "out")
|
||
"/bin/polari")))
|
||
(wrap-program prog
|
||
`("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
|
||
#t))))))
|
||
(inputs
|
||
`(("glib" ,glib)
|
||
("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
|
||
("gspell" ,gspell)
|
||
("gtk+" ,gtk+)
|
||
("gjs" ,gjs)
|
||
("libsecret" ,libsecret)
|
||
("libsoup" ,libsoup)
|
||
("telepathy-glib" ,telepathy-glib)
|
||
("telepathy-logger" ,telepathy-logger)))
|
||
(native-inputs
|
||
`(("glib:bin" ,glib "bin")
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("intltool" ,intltool)
|
||
("pkg-config" ,pkg-config)
|
||
("yelp-tools" ,yelp-tools)))
|
||
(propagated-inputs
|
||
`(("telepathy-idle" ,telepathy-idle)
|
||
("telepathy-mission-control" ,telepathy-mission-control)))
|
||
(synopsis "Simple IRC Client")
|
||
(description
|
||
"Polari is a simple Internet Relay Chat (IRC) client that is designed to
|
||
integrate seamlessly with the GNOME desktop.")
|
||
(home-page "https://wiki.gnome.org/Apps/Polari")
|
||
(license license:gpl2+)))
|