From mboxrd@z Thu Jan 1 00:00:00 1970 From: Christopher Baines Subject: [PATCH] gnu: Add sonata Date: Sat, 10 Sep 2016 12:31:33 +0100 Message-ID: <20160910113133.29711-2-mail@cbaines.net> References: <1455830814-4977-1-git-send-email-mail@cbaines.net> <20160910113133.29711-1-mail@cbaines.net> Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:33945) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bigVq-0007k5-7Z for guix-devel@gnu.org; Sat, 10 Sep 2016 07:31:59 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1bigVm-0003Nv-72 for guix-devel@gnu.org; Sat, 10 Sep 2016 07:31:57 -0400 Received: from li622-129.members.linode.com ([212.71.249.129]:44972 helo=mira.cbaines.net) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bigVm-0003MT-1B for guix-devel@gnu.org; Sat, 10 Sep 2016 07:31:54 -0400 In-Reply-To: <20160910113133.29711-1-mail@cbaines.net> 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: guix-devel@gnu.org * gnu/packages/mpd.scm (sonata): New variable. --- gnu/packages/mpd.scm | 52 ++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 52 insertions(+) diff --git a/gnu/packages/mpd.scm b/gnu/packages/mpd.scm index 279ec68..cc9d583 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:) #: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,51 @@ 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))))) + (inputs + `(("gettext" ,gnu-gettext) + ("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+))) -- 2.9.3