diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2015-09-06 23:07:10 +0200 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2015-09-09 07:03:26 +0200 |
| commit | 3d3caf1f31782dee532b36ec7f677adf2608de38 (patch) | |
| tree | a7f9e4170396d04298344900932f3b99f5d3d6f5 | |
| parent | 5b86a5842c0f1d18eb0f6c78d0dfebf8fd8e8383 (diff) | |
| download | guix-3d3caf1f31782dee532b36ec7f677adf2608de38.tar guix-3d3caf1f31782dee532b36ec7f677adf2608de38.tar.gz | |
gnu: Add gMTP.
* gnu/packages/libusb.scm (gmtp): New variable.
| -rw-r--r-- | gnu/packages/libusb.scm | 41 |
1 files changed, 40 insertions, 1 deletions
diff --git a/gnu/packages/libusb.scm b/gnu/packages/libusb.scm index 86a59befdd..e7f5b8b119 100644 --- a/gnu/packages/libusb.scm +++ b/gnu/packages/libusb.scm @@ -2,6 +2,7 @@ ;;; Copyright © 2012 Nikita Karetnikov <nikita@karetnikov.org> ;;; Copyright © 2015 Andreas Enge <andreas@enge.fr> ;;; Copyright © 2015 Andy Wingo <wingo@igalia.com> +;;; Copyright © 2015 Ricardo Wurmus <rekado@elephly.net> ;;; ;;; 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,37 @@ 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 client for the Media Transfer Protocol + (MTP), which allows media files to be transferred to and from many portable +devices.") + (license bsd-3))) |