2013-09-22 17:53:01 +02:00
|
|
|
;;; GNU Guix --- Functional package management for GNU
|
|
|
|
|
;;; Copyright © 2013 Andreas Enge <andreas@enge.fr>
|
|
|
|
|
;;;
|
|
|
|
|
;;; 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)
|
2013-10-13 22:49:52 +02:00
|
|
|
#:use-module ((guix licenses) #:select (gpl2 gpl2+ lgpl2.0+ lgpl2.1+ lgpl3))
|
2013-09-22 17:53:01 +02:00
|
|
|
#:use-module (guix packages)
|
|
|
|
|
#:use-module (guix download)
|
|
|
|
|
#:use-module (guix build-system gnu)
|
|
|
|
|
#:use-module (gnu packages glib)
|
2013-10-13 22:49:52 +02:00
|
|
|
#:use-module (gnu packages gnupg)
|
2013-10-03 14:51:49 +02:00
|
|
|
#:use-module (gnu packages gstreamer)
|
2013-10-02 13:19:21 +02:00
|
|
|
#:use-module (gnu packages gtk)
|
2013-10-13 22:49:52 +02:00
|
|
|
#:use-module (gnu packages pdf)
|
|
|
|
|
#:use-module (gnu packages ghostscript)
|
2013-10-03 14:51:49 +02:00
|
|
|
#:use-module (gnu packages libcanberra)
|
2013-10-02 13:19:21 +02:00
|
|
|
#:use-module (gnu packages libpng)
|
2013-10-02 22:15:00 +02:00
|
|
|
#:use-module (gnu packages perl)
|
2013-09-22 17:53:01 +02:00
|
|
|
#:use-module (gnu packages pkg-config)
|
|
|
|
|
#:use-module (gnu packages python)
|
2013-10-03 14:51:49 +02:00
|
|
|
#:use-module (gnu packages xml)
|
|
|
|
|
#:use-module (gnu packages xorg))
|
|
|
|
|
|
|
|
|
|
(define-public brasero
|
|
|
|
|
(package
|
|
|
|
|
(name "brasero")
|
|
|
|
|
(version "3.8.0")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "mirror://gnome/sources/brasero/3.8/brasero-"
|
|
|
|
|
version ".tar.xz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"1r5wjsrm47amdaf862ymkdlwlb636c45wg14x20hdr99c653d2nr"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(propagated-inputs
|
|
|
|
|
`(("hicolor-icon-theme" ,hicolor-icon-theme)))
|
|
|
|
|
(inputs
|
|
|
|
|
`(("glib" ,glib)
|
|
|
|
|
("gnome-doc-utils" ,gnome-doc-utils)
|
|
|
|
|
("gstreamer" ,gstreamer)
|
|
|
|
|
("gst-plugins-base" ,gst-plugins-base)
|
|
|
|
|
("gtk+" ,gtk+)
|
|
|
|
|
("intltool" ,intltool)
|
|
|
|
|
("itstool" ,itstool)
|
|
|
|
|
("libcanberra" ,libcanberra)
|
|
|
|
|
("libice" ,libice)
|
|
|
|
|
("libnotify" ,libnotify)
|
|
|
|
|
("libsm" ,libsm)
|
|
|
|
|
("libxml2" ,libxml2)
|
|
|
|
|
("pkg-config" ,pkg-config)))
|
|
|
|
|
(home-page "https://projects.gnome.org/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 gpl2+)))
|
2013-09-22 17:53:01 +02:00
|
|
|
|
|
|
|
|
(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 "/0.20/"
|
|
|
|
|
name "-" version ".tar.xz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"19n4x25ndzngaciiyd8dd6s2mf9gv6nv3wv27ggns2smm7zkj1nb"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(inputs
|
|
|
|
|
`(("intltool" ,intltool)
|
|
|
|
|
("libxml2" ,libxml2)
|
|
|
|
|
("libxslt" ,libxslt)
|
|
|
|
|
("pkg-config" ,pkg-config)
|
|
|
|
|
("python-2" ,python-2)))
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:tests? #f)) ; tries to load http://www.oasis-open.org/docbook/xml/4.4/docbookx.dtd
|
|
|
|
|
(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 gpl2+))) ; xslt under lgpl
|
2013-10-02 13:19:21 +02:00
|
|
|
|
2013-10-13 22:49:52 +02:00
|
|
|
(define-public libgnome-keyring
|
|
|
|
|
(package
|
|
|
|
|
(name "libgnome-keyring")
|
|
|
|
|
(version "3.6.0")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append
|
|
|
|
|
"mirror://gnome/sources/libgnome-keyring/3.6/libgnome-keyring-"
|
|
|
|
|
version
|
|
|
|
|
".tar.xz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"0c4qrjpmv1hqga3xv6wsq2z10x2n78qgw7q3k3s01y1pggxkgjkd"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("intltool" ,intltool)))
|
|
|
|
|
(inputs
|
|
|
|
|
`(("pkg-config" ,pkg-config)
|
|
|
|
|
("libgcrypt" ,libgcrypt)
|
|
|
|
|
("dbus" ,dbus)))
|
|
|
|
|
(propagated-inputs
|
|
|
|
|
;; Referred to in .h files and .pc.
|
|
|
|
|
`(("glib" ,glib)))
|
|
|
|
|
(home-page "http://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 lgpl2.0+)))
|
|
|
|
|
|
|
|
|
|
(define-public evince
|
|
|
|
|
(package
|
|
|
|
|
(name "evince")
|
|
|
|
|
(version "3.6.1")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
2013-10-17 23:13:20 +02:00
|
|
|
(uri (string-append "mirror://gnome/sources/evince/3.6/evince-"
|
|
|
|
|
version ".tar.xz"))
|
2013-10-13 22:49:52 +02:00
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"1da1pij030dh8mb0pr0jnyszgsbjnh8lc17rj5ii52j3kmbv51qv"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:configure-flags '("--disable-nautilus")
|
|
|
|
|
|
|
|
|
|
;; FIXME: Tests fail with:
|
|
|
|
|
;; ImportError: No module named gi.repository
|
|
|
|
|
;; Where should that module come from?
|
2013-10-17 23:13:20 +02:00
|
|
|
#:tests? #f
|
|
|
|
|
|
|
|
|
|
#:phases (alist-cons-after
|
|
|
|
|
'install 'set-mime-search-path
|
|
|
|
|
(lambda* (#:key inputs outputs #:allow-other-keys)
|
|
|
|
|
;; Wrap 'evince' so that it knows where MIME info is.
|
|
|
|
|
(let ((out (assoc-ref outputs "out"))
|
|
|
|
|
(mime (assoc-ref inputs "shared-mime-info")))
|
|
|
|
|
(wrap-program (string-append out "/bin/evince")
|
|
|
|
|
`("XDG_DATA_DIRS" ":" prefix
|
|
|
|
|
,(list (string-append mime "/share")
|
|
|
|
|
(string-append out "/share"))))))
|
|
|
|
|
%standard-phases)))
|
2013-10-13 22:49:52 +02:00
|
|
|
(inputs
|
|
|
|
|
`(("libspectre" ,libspectre)
|
|
|
|
|
;; ("djvulibre" ,djvulibre)
|
|
|
|
|
("ghostscript" ,ghostscript)
|
|
|
|
|
("poppler" ,poppler)
|
|
|
|
|
("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
|
|
|
|
|
("libgnome-keyring" ,libgnome-keyring)
|
|
|
|
|
("gnome-icon-theme" ,gnome-icon-theme)
|
|
|
|
|
("itstool" ,itstool)
|
|
|
|
|
("gdk-pixbuf" ,gdk-pixbuf)
|
|
|
|
|
("atk" ,atk)
|
|
|
|
|
("pango" ,pango)
|
|
|
|
|
("gtk+" ,gtk+)
|
|
|
|
|
("glib" ,glib)
|
|
|
|
|
("libxml2" ,libxml2)
|
|
|
|
|
("pkg-config" ,pkg-config)
|
|
|
|
|
("libsm" ,libsm)
|
|
|
|
|
("libice" ,libice)
|
2013-10-17 23:13:20 +02:00
|
|
|
("shared-mime-info" ,shared-mime-info)
|
2013-10-13 22:49:52 +02:00
|
|
|
|
|
|
|
|
;; For tests.
|
|
|
|
|
("dogtail" ,python2-dogtail)))
|
2013-10-17 23:13:20 +02:00
|
|
|
(native-inputs
|
|
|
|
|
`(("intltool" ,intltool)))
|
2013-10-13 22:49:52 +02:00
|
|
|
(home-page
|
|
|
|
|
"http://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
|
2013-10-17 23:13:20 +02:00
|
|
|
on the GNOME Desktop with a single simple application.")
|
2013-10-13 22:49:52 +02:00
|
|
|
(license gpl2+)))
|
|
|
|
|
|
2013-10-02 19:44:55 +02:00
|
|
|
(define-public gsettings-desktop-schemas
|
|
|
|
|
(package
|
|
|
|
|
(name "gsettings-desktop-schemas")
|
|
|
|
|
(version "3.10.0")
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "mirror://gnome/sources/" name "/"
|
|
|
|
|
(string-copy version 0 (string-rindex version #\.)) "/"
|
|
|
|
|
name "-" version ".tar.xz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"1km8qxwrzvravmg8j680qv64bwnwbdgrmy8bqmhs0dgxn2b1as6a"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(inputs
|
|
|
|
|
`(("glib" ,glib)
|
|
|
|
|
("intltool" ,intltool)
|
|
|
|
|
("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 lgpl2.1+)))
|
|
|
|
|
|
2013-10-02 22:15:00 +02:00
|
|
|
(define-public icon-naming-utils
|
|
|
|
|
(package
|
|
|
|
|
(name "icon-naming-utils")
|
|
|
|
|
(version "0.8.90")
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "http://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)))
|
|
|
|
|
(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 lgpl2.1+)))
|
|
|
|
|
|
2013-10-02 22:22:21 +02:00
|
|
|
(define-public gnome-icon-theme
|
|
|
|
|
(package
|
|
|
|
|
(name "gnome-icon-theme")
|
|
|
|
|
(version "3.10.0")
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "mirror://gnome/sources/" name "/"
|
|
|
|
|
(string-copy version 0 (string-rindex version #\.)) "/"
|
|
|
|
|
name "-" version ".tar.xz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"1xinbgkkvlhazj887ajcl13i7kdc1wcca02jwxzvjrvchjsp4m66"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(inputs
|
|
|
|
|
`(("gtk+" ,gtk+)
|
|
|
|
|
("icon-naming-utils" ,icon-naming-utils)
|
|
|
|
|
("intltool" ,intltool)
|
|
|
|
|
("pkg-config" ,pkg-config)))
|
|
|
|
|
(home-page "http://art.gnome.org/")
|
|
|
|
|
(synopsis
|
|
|
|
|
"GNOME icon theme")
|
|
|
|
|
(description
|
|
|
|
|
"Icons for the GNOME desktop.")
|
|
|
|
|
(license lgpl3))) ; or Creative Commons BY-SA 3.0
|
|
|
|
|
|
2013-10-17 22:43:27 +02:00
|
|
|
(define-public shared-mime-info
|
|
|
|
|
(package
|
|
|
|
|
(name "shared-mime-info")
|
|
|
|
|
(version "1.2")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "http://freedesktop.org/~hadess/shared-mime-info-"
|
|
|
|
|
version ".tar.xz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"0y5vi0vr6rbhvfzcfg57cfskn362bpvcpca9cy598nmr87i6lld5"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
;; The build system appears not to be parallel-safe.
|
|
|
|
|
'(#:parallel-build? #f))
|
|
|
|
|
(inputs
|
|
|
|
|
`(("glib" ,glib)
|
|
|
|
|
("libxml2" ,libxml2)
|
|
|
|
|
("pkg-config" ,pkg-config)))
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("intltool" ,intltool)))
|
|
|
|
|
(home-page "http://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 gpl2+)))
|
|
|
|
|
|
2013-10-02 22:44:02 +02:00
|
|
|
(define-public hicolor-icon-theme
|
|
|
|
|
(package
|
|
|
|
|
(name "hicolor-icon-theme")
|
|
|
|
|
(version "0.12")
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "http://icon-theme.freedesktop.org/releases/hicolor-icon-theme-"
|
|
|
|
|
version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"0wzc7g4ldb2l8zc0x2785ck808c03i857jji942ikakyc68adp4y"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:tests? #f)) ; no check target
|
|
|
|
|
(home-page "http://icon-theme.freedesktop.org/releases/")
|
|
|
|
|
(synopsis
|
|
|
|
|
"Freedesktop icon theme")
|
|
|
|
|
(description
|
|
|
|
|
"Freedesktop icon theme.")
|
|
|
|
|
(license gpl2)))
|
|
|
|
|
|
2013-10-02 13:19:21 +02:00
|
|
|
(define-public libnotify
|
|
|
|
|
(package
|
|
|
|
|
(name "libnotify")
|
|
|
|
|
(version "0.7.6")
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "mirror://gnome/sources/" name "/"
|
|
|
|
|
(string-copy version 0 (string-rindex version #\.)) "/"
|
|
|
|
|
name "-" version ".tar.xz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"0dyq8zgjnnzcah31axnx6afb21kl7bks1gvrg4hjh3nk02j1rxhf"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(inputs
|
|
|
|
|
`(("gdk-pixbuf" ,gdk-pixbuf)
|
|
|
|
|
("glib" ,glib)
|
|
|
|
|
("gtk+" ,gtk+)
|
|
|
|
|
("libpng" ,libpng)
|
|
|
|
|
("pkg-config" ,pkg-config)))
|
|
|
|
|
(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 lgpl2.1+)))
|
