Re: [PATCH] Add gMTP.

[Ricardo Wurmus]

Ludovic Courtès  writes:

>> * gnu/packages/libusb.scm (gmtp): New variable.

[...]

> How about:
>
>   “gMTP is a simple graphical client for the Media Transfer Protocol
>   (MTP), which allows media files to be transferred to and from
>   many portable devices.”  [...]

Changed and pushed.  Thanks for the review!

~~ Ricardo

Re: [PATCH] Add gMTP.

[Andreas Enge]

This looks good and very useful, thanks!

Andreas

Re: [PATCH] Add gMTP.

[Ludovic Courtès]

Ricardo Wurmus  skribis:

> 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.

[...]

> +(description "gMTP is a simple graphical MTP client.  [...]

How about:

  “gMTP is a simple graphical client for the Media Transfer Protocol
  (MTP), which allows media files to be transferred to and from
  many portable devices.”  [...]

Otherwise LGTM.

Thanks,
Ludo’.

[PATCH] Add gMTP.

[Ricardo Wurmus]

>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