From mboxrd@z Thu Jan 1 00:00:00 1970 From: Ricardo Wurmus Subject: [PATCH] Add gMTP. Date: Sun, 06 Sep 2015 23:07:51 +0200 Message-ID: <87fv2rb6jc.fsf@elephly.net> Mime-Version: 1.0 Content-Type: text/x-patch; charset=utf-8 Content-Transfer-Encoding: 8bit Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:51159) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZYhAU-000123-5C for guix-devel@gnu.org; Sun, 06 Sep 2015 17:08:07 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1ZYhAQ-0000mt-1m for guix-devel@gnu.org; Sun, 06 Sep 2015 17:08:06 -0400 Received: from sender163-mail.zoho.com ([74.201.84.163]:25505) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZYhAP-0000l3-Pl for guix-devel@gnu.org; Sun, 06 Sep 2015 17:08:01 -0400 Content-Disposition: inline; filename=0001-gnu-Add-gMTP.patch 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-bounces+gcggd-guix-devel=m.gmane.org@gnu.org To: guix-devel >From 83997a0d8783395d0307498d3b7c32b0de9fb404 Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Sun, 6 Sep 2015 23:07:10 +0200 Subject: [PATCH] gnu: Add gMTP. * gnu/packages/libusb.scm (gmtp): New variable. --- gnu/packages/libusb.scm | 40 +++++++++++++++++++++++++++++++++++++++- 1 file changed, 39 insertions(+), 1 deletion(-) diff --git a/gnu/packages/libusb.scm b/gnu/packages/libusb.scm index 86a59be..bb7bec9 100644 --- a/gnu/packages/libusb.scm +++ b/gnu/packages/libusb.scm @@ -2,6 +2,7 @@ ;;; Copyright © 2012 Nikita Karetnikov ;;; Copyright © 2015 Andreas Enge ;;; Copyright © 2015 Andy Wingo +;;; Copyright © 2015 Ricardo Wurmus ;;; ;;; This file is part of GNU Guix. ;;; @@ -25,9 +26,13 @@ #:use-module (guix utils) #:use-module (guix download) #:use-module (guix build-system gnu) + #:use-module (guix build-system glib-or-gtk) #:use-module (gnu packages gnupg) + #:use-module (gnu packages gtk) #:use-module (gnu packages linux) - #:use-module (gnu packages pkg-config)) + #:use-module (gnu packages mp3) + #:use-module (gnu packages pkg-config) + #:use-module (gnu packages xiph)) (define-public libusb (package @@ -116,3 +121,36 @@ proposed for standardization.") ;; Foundation; either version 2 of the License, or (at your option) any ;; later version." (license lgpl2.1+))) + +(define-public gmtp + (package + (name "gmtp") + (version "1.3.9") + (source (origin + (method url-fetch) + (uri (string-append "mirror://sourceforge/gmtp/" version + "/gmtp-" version ".tar.gz")) + (sha256 + (base32 + "0bdxvi0jf3q870a39xzsaj4qrjwc9b5bgvc95plc7xb6vf2m7zsv")))) + (build-system glib-or-gtk-build-system) + (arguments + '(#:configure-flags + (let ((libid3tag (assoc-ref %build-inputs "libid3tag"))) + (list + ;; libid3tag provides no .pc file, so pkg-config fails to find them. + (string-append "ID3TAG_CFLAGS=-I" libid3tag "/include") + (string-append "ID3TAG_LIBS=-L" libid3tag "/lib -lid3tag -lz"))))) + (inputs + `(("gtk+" ,gtk+) + ("flac" ,flac) + ("libvorbis" ,libvorbis) + ("libid3tag" ,libid3tag) + ("libmtp" ,libmtp))) + (native-inputs + `(("pkg-config" ,pkg-config))) + (home-page "http://gmtp.sourceforge.net/") + (synopsis "Simple graphical MTP client") + (description "gMTP is a simple graphical MTP client. It supports all +MTP-based devices including media players, tablets and mobile phones.") + (license bsd-3))) -- 2.5.0