[jackhill/guix/guix.git] / gnu / packages / gnome.scm

;;; 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)
  #:use-module ((guix licenses) #:select (gpl2 gpl2+ lgpl2.0+ lgpl2.1+ lgpl3))
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix build-system gnu)
  #:use-module (gnu packages glib)
  #:use-module (gnu packages gnupg)
  #:use-module (gnu packages gstreamer)
  #:use-module (gnu packages gtk)
  #:use-module (gnu packages pdf)
  #:use-module (gnu packages ghostscript)
  #:use-module (gnu packages libcanberra)
  #:use-module (gnu packages libpng)
  #:use-module (gnu packages perl)
  #:use-module (gnu packages pkg-config)
  #:use-module (gnu packages python)
  #: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+)))

(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

(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)
             (uri (string-append "mirror://gnome/sources/evince/3.6/evince-"
                                 version ".tar.xz"))
             (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?
       #: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)))
    (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)
       ("shared-mime-info" ,shared-mime-info)

       ;; For tests.
       ("dogtail" ,python2-dogtail)))
    (native-inputs
     `(("intltool" ,intltool)))
    (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
on the GNOME Desktop with a single simple application.")
    (license gpl2+)))

(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+)))

(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+)))

(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

(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+)))

(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)))

(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+)))
Commit	Line	Data
995b7261 AE	1	;;; GNU Guix --- Functional package management for GNU
	2	;;; Copyright © 2013 Andreas Enge <andreas@enge.fr>
	3	;;;
	4	;;; This file is part of GNU Guix.
	5	;;;
	6	;;; GNU Guix is free software; you can redistribute it and/or modify it
	7	;;; under the terms of the GNU General Public License as published by
	8	;;; the Free Software Foundation; either version 3 of the License, or (at
	9	;;; your option) any later version.
	10	;;;
	11	;;; GNU Guix is distributed in the hope that it will be useful, but
	12	;;; WITHOUT ANY WARRANTY; without even the implied warranty of
	13	;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	14	;;; GNU General Public License for more details.
	15	;;;
	16	;;; You should have received a copy of the GNU General Public License
	17	;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
	18
	19	(define-module (gnu packages gnome)
c1354b90	20	#:use-module ((guix licenses) #:select (gpl2 gpl2+ lgpl2.0+ lgpl2.1+ lgpl3))
995b7261 AE	21	#:use-module (guix packages)
	22	#:use-module (guix download)
	23	#:use-module (guix build-system gnu)
	24	#:use-module (gnu packages glib)
c1354b90	25	#:use-module (gnu packages gnupg)
85f5dc19	26	#:use-module (gnu packages gstreamer)
d9c1a22b	27	#:use-module (gnu packages gtk)
c1354b90 LC	28	#:use-module (gnu packages pdf)
c1354b90 LC	29	#:use-module (gnu packages ghostscript)
85f5dc19	30	#:use-module (gnu packages libcanberra)
d9c1a22b	31	#:use-module (gnu packages libpng)
27477d2d	32	#:use-module (gnu packages perl)
995b7261 AE	33	#:use-module (gnu packages pkg-config)
995b7261 AE	34	#:use-module (gnu packages python)
85f5dc19 AE	35	#:use-module (gnu packages xml)
	36	#:use-module (gnu packages xorg))
	37
	38	(define-public brasero
	39	(package
	40	(name "brasero")
	41	(version "3.8.0")
	42	(source (origin
	43	(method url-fetch)
	44	(uri (string-append "mirror://gnome/sources/brasero/3.8/brasero-"
	45	version ".tar.xz"))
	46	(sha256
	47	(base32
	48	"1r5wjsrm47amdaf862ymkdlwlb636c45wg14x20hdr99c653d2nr"))))
	49	(build-system gnu-build-system)
	50	(propagated-inputs
	51	`(("hicolor-icon-theme" ,hicolor-icon-theme)))
	52	(inputs
	53	`(("glib" ,glib)
	54	("gnome-doc-utils" ,gnome-doc-utils)
	55	("gstreamer" ,gstreamer)
	56	("gst-plugins-base" ,gst-plugins-base)
	57	("gtk+" ,gtk+)
	58	("intltool" ,intltool)
	59	("itstool" ,itstool)
	60	("libcanberra" ,libcanberra)
	61	("libice" ,libice)
	62	("libnotify" ,libnotify)
	63	("libsm" ,libsm)
	64	("libxml2" ,libxml2)
	65	("pkg-config" ,pkg-config)))
	66	(home-page "https://projects.gnome.org/brasero/")
	67	(synopsis "CD/DVD burning tool for Gnome")
	68	(description "Brasero is an application to burn CD/DVD for the Gnome
	69	Desktop. It is designed to be as simple as possible and has some unique
	70	features to enable users to create their discs easily and quickly.")
	71	(license gpl2+)))
995b7261 AE	72
	73	(define-public gnome-doc-utils
	74	(package
	75	(name "gnome-doc-utils")
	76	(version "0.20.10")
	77	(source
	78	(origin
	79	(method url-fetch)
	80	(uri (string-append "mirror://gnome/sources/" name "/0.20/"
	81	name "-" version ".tar.xz"))
	82	(sha256
	83	(base32
	84	"19n4x25ndzngaciiyd8dd6s2mf9gv6nv3wv27ggns2smm7zkj1nb"))))
	85	(build-system gnu-build-system)
	86	(inputs
	87	`(("intltool" ,intltool)
	88	("libxml2" ,libxml2)
	89	("libxslt" ,libxslt)
	90	("pkg-config" ,pkg-config)
	91	("python-2" ,python-2)))
	92	(arguments
	93	`(#:tests? #f)) ; tries to load http://www.oasis-open.org/docbook/xml/4.4/docbookx.dtd
	94	(home-page "https://wiki.gnome.org/GnomeDocUtils")
	95	(synopsis
	96	"Documentation utilities for the Gnome project")
	97	(description
	98	"Gnome-doc-utils is a collection of documentation utilities for the
	99	Gnome project. It includes xml2po tool which makes it easier to translate
	100	and keep up to date translations of documentation.")
	101	(license gpl2+))) ; xslt under lgpl
d9c1a22b	102
c1354b90 LC	103	(define-public libgnome-keyring
	104	(package
	105	(name "libgnome-keyring")
	106	(version "3.6.0")
	107	(source (origin
	108	(method url-fetch)
	109	(uri (string-append
	110	"mirror://gnome/sources/libgnome-keyring/3.6/libgnome-keyring-"
	111	version
	112	".tar.xz"))
	113	(sha256
	114	(base32
	115	"0c4qrjpmv1hqga3xv6wsq2z10x2n78qgw7q3k3s01y1pggxkgjkd"))))
	116	(build-system gnu-build-system)
	117	(native-inputs
	118	`(("intltool" ,intltool)))
	119	(inputs
	120	`(("pkg-config" ,pkg-config)
	121	("libgcrypt" ,libgcrypt)
	122	("dbus" ,dbus)))
	123	(propagated-inputs
	124	;; Referred to in .h files and .pc.
	125	`(("glib" ,glib)))
	126	(home-page "http://www.gnome.org")
	127	(synopsis "Accessing passwords from the GNOME keyring")
	128	(description
	129	"Client library to access passwords from the GNOME keyring.")
	130
	131	;; Though a couple of files are LGPLv2.1+.
	132	(license lgpl2.0+)))
	133
	134	(define-public evince
	135	(package
	136	(name "evince")
	137	(version "3.6.1")
	138	(source (origin
	139	(method url-fetch)
96e42467 LC	140	(uri (string-append "mirror://gnome/sources/evince/3.6/evince-"
96e42467 LC	141	version ".tar.xz"))
c1354b90 LC	142	(sha256
	143	(base32
	144	"1da1pij030dh8mb0pr0jnyszgsbjnh8lc17rj5ii52j3kmbv51qv"))))
	145	(build-system gnu-build-system)
	146	(arguments
	147	`(#:configure-flags '("--disable-nautilus")
	148
	149	;; FIXME: Tests fail with:
	150	;; ImportError: No module named gi.repository
	151	;; Where should that module come from?
96e42467 LC	152	#:tests? #f
	153
	154	#:phases (alist-cons-after
	155	'install 'set-mime-search-path
	156	(lambda* (#:key inputs outputs #:allow-other-keys)
	157	;; Wrap 'evince' so that it knows where MIME info is.
	158	(let ((out (assoc-ref outputs "out"))
	159	(mime (assoc-ref inputs "shared-mime-info")))
	160	(wrap-program (string-append out "/bin/evince")
	161	`("XDG_DATA_DIRS" ":" prefix
	162	,(list (string-append mime "/share")
	163	(string-append out "/share"))))))
	164	%standard-phases)))
c1354b90 LC	165	(inputs
	166	`(("libspectre" ,libspectre)
	167	;; ("djvulibre" ,djvulibre)
	168	("ghostscript" ,ghostscript)
	169	("poppler" ,poppler)
	170	("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
	171	("libgnome-keyring" ,libgnome-keyring)
	172	("gnome-icon-theme" ,gnome-icon-theme)
	173	("itstool" ,itstool)
	174	("gdk-pixbuf" ,gdk-pixbuf)
	175	("atk" ,atk)
	176	("pango" ,pango)
	177	("gtk+" ,gtk+)
	178	("glib" ,glib)
	179	("libxml2" ,libxml2)
c1354b90 LC	180	("pkg-config" ,pkg-config)
	181	("libsm" ,libsm)
	182	("libice" ,libice)
96e42467	183	("shared-mime-info" ,shared-mime-info)
c1354b90 LC	184
	185	;; For tests.
	186	("dogtail" ,python2-dogtail)))
96e42467 LC	187	(native-inputs
96e42467 LC	188	`(("intltool" ,intltool)))
c1354b90 LC	189	(home-page
	190	"http://www.gnome.org/projects/evince/")
	191	(synopsis "GNOME's document viewer")
	192	(description
	193	"Evince is a document viewer for multiple document formats. It
	194	currently supports PDF, PostScript, DjVu, TIFF and DVI. The goal
	195	of Evince is to replace the multiple document viewers that exist
96e42467	196	on the GNOME Desktop with a single simple application.")
c1354b90 LC	197	(license gpl2+)))
c1354b90 LC	198
22e32e69 AE	199	(define-public gsettings-desktop-schemas
	200	(package
	201	(name "gsettings-desktop-schemas")
	202	(version "3.10.0")
	203	(source
	204	(origin
	205	(method url-fetch)
	206	(uri (string-append "mirror://gnome/sources/" name "/"
	207	(string-copy version 0 (string-rindex version #\.)) "/"
	208	name "-" version ".tar.xz"))
	209	(sha256
	210	(base32
	211	"1km8qxwrzvravmg8j680qv64bwnwbdgrmy8bqmhs0dgxn2b1as6a"))))
	212	(build-system gnu-build-system)
	213	(inputs
	214	`(("glib" ,glib)
	215	("intltool" ,intltool)
	216	("pkg-config" ,pkg-config)))
	217	(home-page "https://launchpad.net/gsettings-desktop-schemas")
	218	(synopsis
	219	"GNOME settings for various desktop components")
	220	(description
	221	"Gsettings-desktop-schemas contains a collection of GSettings schemas
	222	for settings shared by various components of the GNOME desktop.")
	223	(license lgpl2.1+)))
	224
27477d2d AE	225	(define-public icon-naming-utils
	226	(package
	227	(name "icon-naming-utils")
	228	(version "0.8.90")
	229	(source
	230	(origin
	231	(method url-fetch)
	232	(uri (string-append "http://tango.freedesktop.org/releases/icon-naming-utils-"
	233	version ".tar.bz2"))
	234	(sha256
	235	(base32
	236	"1mc3v28fdfqanx3lqx233vcr4glb4c2376k0kx2v91a4vxwqcdxi"))))
	237	(build-system gnu-build-system)
	238	(inputs
	239	`(("perl" ,perl)
	240	("perl-xml-simple" ,perl-xml-simple)))
	241	(home-page "http://tango.freedesktop.org/Standard_Icon_Naming_Specification")
	242	(synopsis
	243	"Utility to implement the Freedesktop Icon Naming Specification")
	244	(description
	245	"To help with the transition to the Freedesktop Icon Naming
	246	Specification, the icon naming utility maps the icon names used by the
	247	GNOME and KDE desktops to the icon names proposed in the specification.")
	248	(license lgpl2.1+)))
	249
7d3f3651 AE	250	(define-public gnome-icon-theme
	251	(package
	252	(name "gnome-icon-theme")
	253	(version "3.10.0")
	254	(source
	255	(origin
	256	(method url-fetch)
	257	(uri (string-append "mirror://gnome/sources/" name "/"
	258	(string-copy version 0 (string-rindex version #\.)) "/"
	259	name "-" version ".tar.xz"))
	260	(sha256
	261	(base32
	262	"1xinbgkkvlhazj887ajcl13i7kdc1wcca02jwxzvjrvchjsp4m66"))))
	263	(build-system gnu-build-system)
	264	(inputs
	265	`(("gtk+" ,gtk+)
	266	("icon-naming-utils" ,icon-naming-utils)
	267	("intltool" ,intltool)
	268	("pkg-config" ,pkg-config)))
	269	(home-page "http://art.gnome.org/")
	270	(synopsis
	271	"GNOME icon theme")
	272	(description
	273	"Icons for the GNOME desktop.")
	274	(license lgpl3))) ; or Creative Commons BY-SA 3.0
	275
9167f8e6 LC	276	(define-public shared-mime-info
	277	(package
	278	(name "shared-mime-info")
	279	(version "1.2")
	280	(source (origin
	281	(method url-fetch)
	282	(uri (string-append "http://freedesktop.org/~hadess/shared-mime-info-"
	283	version ".tar.xz"))
	284	(sha256
	285	(base32
	286	"0y5vi0vr6rbhvfzcfg57cfskn362bpvcpca9cy598nmr87i6lld5"))))
	287	(build-system gnu-build-system)
	288	(arguments
	289	;; The build system appears not to be parallel-safe.
	290	'(#:parallel-build? #f))
	291	(inputs
	292	`(("glib" ,glib)
	293	("libxml2" ,libxml2)
	294	("pkg-config" ,pkg-config)))
	295	(native-inputs
	296	`(("intltool" ,intltool)))
	297	(home-page "http://freedesktop.org/wiki/Software/shared-mime-info")
	298	(synopsis "Database of common MIME types")
	299	(description
	300	"The shared-mime-info package contains the core database of common types
	301	and the update-mime-database command used to extend it. It requires glib2 to
	302	be installed for building the update command. Additionally, it uses intltool
	303	for translations, though this is only a dependency for the maintainers. This
	304	database is translated at Transifex.")
	305	(license gpl2+)))
	306
bef4dd92 AE	307	(define-public hicolor-icon-theme
	308	(package
	309	(name "hicolor-icon-theme")
	310	(version "0.12")
	311	(source
	312	(origin
	313	(method url-fetch)
	314	(uri (string-append "http://icon-theme.freedesktop.org/releases/hicolor-icon-theme-"
	315	version ".tar.gz"))
	316	(sha256
	317	(base32
	318	"0wzc7g4ldb2l8zc0x2785ck808c03i857jji942ikakyc68adp4y"))))
	319	(build-system gnu-build-system)
	320	(arguments
	321	`(#:tests? #f)) ; no check target
	322	(home-page "http://icon-theme.freedesktop.org/releases/")
	323	(synopsis
	324	"Freedesktop icon theme")
	325	(description
	326	"Freedesktop icon theme.")
	327	(license gpl2)))
	328
d9c1a22b AE	329	(define-public libnotify
	330	(package
	331	(name "libnotify")
	332	(version "0.7.6")
	333	(source
	334	(origin
	335	(method url-fetch)
	336	(uri (string-append "mirror://gnome/sources/" name "/"
	337	(string-copy version 0 (string-rindex version #\.)) "/"
	338	name "-" version ".tar.xz"))
	339	(sha256
	340	(base32
	341	"0dyq8zgjnnzcah31axnx6afb21kl7bks1gvrg4hjh3nk02j1rxhf"))))
	342	(build-system gnu-build-system)
	343	(inputs
	344	`(("gdk-pixbuf" ,gdk-pixbuf)
	345	("glib" ,glib)
	346	("gtk+" ,gtk+)
	347	("libpng" ,libpng)
	348	("pkg-config" ,pkg-config)))
	349	(home-page "https://developer-next.gnome.org/libnotify/")
	350	(synopsis
	351	"GNOME desktop notification library")
	352	(description
	353	"Libnotify is a library that sends desktop notifications to a
	354	notification daemon, as defined in the Desktop Notifications spec. These
	355	notifications can be used to inform the user about an event or display
	356	some form of information without getting in the user's way.")
	357	(license lgpl2.1+)))