From mboxrd@z Thu Jan 1 00:00:00 1970 From: Alex Kost Subject: Re: [PATCH] gnu: Add sonata Date: Sun, 11 Sep 2016 20:01:19 +0300 Message-ID: <87fup62www.fsf@gmail.com> References: <20160910180848.GA30260@jasmine> <20160911100037.18066-1-mail@cbaines.net> <20160911100037.18066-2-mail@cbaines.net> Mime-Version: 1.0 Content-Type: text/plain Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:60223) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bj89Y-00048I-Jo for guix-devel@gnu.org; Sun, 11 Sep 2016 13:02:49 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1bj89T-0004ob-Iz for guix-devel@gnu.org; Sun, 11 Sep 2016 13:02:48 -0400 Received: from mail-lf0-f67.google.com ([209.85.215.67]:36041) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bj89T-0004Zc-75 for guix-devel@gnu.org; Sun, 11 Sep 2016 13:02:43 -0400 Received: by mail-lf0-f67.google.com with SMTP id s29so4850242lfg.3 for ; Sun, 11 Sep 2016 10:02:21 -0700 (PDT) In-Reply-To: <20160911100037.18066-2-mail@cbaines.net> (Christopher Baines's message of "Sun, 11 Sep 2016 11:00:37 +0100") List-Id: "Development of GNU Guix and the GNU System distribution." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org Sender: "Guix-devel" To: Christopher Baines Cc: guix-devel@gnu.org Christopher Baines (2016-09-11 11:00 +0100) wrote: > * gnu/packages/mpd.scm (sonata): New variable. > --- > gnu/packages/mpd.scm | 53 ++++++++++++++++++++++++++++++++++++++++++++++++++++ > 1 file changed, 53 insertions(+) > > diff --git a/gnu/packages/mpd.scm b/gnu/packages/mpd.scm > index 279ec68..8b1b071 100644 > --- a/gnu/packages/mpd.scm > +++ b/gnu/packages/mpd.scm > @@ -27,10 +27,14 @@ > #:use-module (guix packages) > #:use-module (guix download) > #:use-module (guix utils) > + #:use-module ((guix build glib-or-gtk-build-system) #:prefix glib-or-gtk:) This line is not needed. You use it in the #:modules argument in the package definition, but it should not be put in the top level 'define-module' form. > #:use-module (guix build-system gnu) > #:use-module (guix build-system python) > #:use-module (gnu packages avahi) > #:use-module (gnu packages boost) > + #:use-module (gnu packages gettext) > + #:use-module (gnu packages gnome) > + #:use-module (gnu packages gtk) > #:use-module (gnu packages icu4c) > #:use-module (gnu packages readline) > #:use-module (gnu packages compression) > @@ -263,3 +267,52 @@ interface for the Music Player Daemon.") > (package (inherit mpd2) > (native-inputs `(("python2-setuptools" ,python2-setuptools) > ,@(package-native-inputs mpd2)))))) > + > +(define-public sonata > + (package > + (name "sonata") > + (version "1.7b1") > + (source (origin > + (method url-fetch) > + (uri > + (string-append "https://github.com/multani/sonata/archive/v" > + version ".tar.gz")) > + (file-name (string-append name "-" version ".tar.gz")) > + (sha256 > + (base32 > + "07gq2nxqwxs0qyxjbay7k5j25zd386bn7wdr2dl1gk53diwnn7s0")))) > + (build-system python-build-system) > + (arguments > + `(#:modules ((guix build gnu-build-system) > + (guix build python-build-system) > + ((guix build glib-or-gtk-build-system) #:prefix glib-or-gtk:) > + (guix build utils)) > + #:imported-modules (,@%gnu-build-system-modules > + (guix build python-build-system) > + (guix build glib-or-gtk-build-system)) > + #:phases > + (modify-phases %standard-phases > + (add-after 'install 'glib-or-gtk-wrap > + (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap)) > + (add-after 'install 'wrap-sonata > + (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/sonata") > + `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path)))) > + #t))))) > + (native-inputs > + `(("gettext" ,gnu-gettext))) > + (inputs > + `(("python-mpd2" ,python-mpd2) > + ("gtk+" ,gtk+) > + ("gsettings-desktop-schemas" ,gsettings-desktop-schemas) > + ("gobject-introspection" ,gobject-introspection) > + ("adwaita-icon-theme" ,adwaita-icon-theme) > + ("python-pygobject" ,python-pygobject))) > + (synopsis "Elegant client for the Music Player Daemon") > + (description "Sonata is an elegant graphical client for the Music Player > +Daemon (MPD). It supports playlists, multiple profiles (connecting to different > +MPD servers, search and multimedia key support.") > + (home-page "http://www.nongnu.org/sonata/") > + (license license:gpl3+))) -- Alex