[PATCH] Add libtheora package

[David Thompson <dthompson2@worcester.edu>]

[-- Attachment #1: Type: text/plain, Size: 253 bytes --]

Hello all,

This is my first Guix patch. A little birdy told me that libtheora would 
be a good place to start for my first package. It was little more than 
duplicating the libvorbis package and replacing vorbis with theora.

How does it look?

- Dave

[-- Attachment #2: 0001-Add-libtheora-package.patch --]
[-- Type: text/x-patch, Size: 1689 bytes --]

From 085fdad0505ecb22c5eefd7f5bcac329bf1fcddd Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sun, 13 Oct 2013 19:17:27 -0400
Subject: [PATCH] Add libtheora package.

---
 gnu/packages/oggvorbis.scm | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)

diff --git a/gnu/packages/oggvorbis.scm b/gnu/packages/oggvorbis.scm
index 589828b..881ab5a 100644
--- a/gnu/packages/oggvorbis.scm
+++ b/gnu/packages/oggvorbis.scm
@@ -80,6 +80,29 @@ polyphonic) audio and music at fixed and variable bitrates from 16 to
                                "See COPYING in the distribution."))
    (home-page "http://xiph.org/vorbis/")))
 
+(define-public libtheora
+  (package
+    (name "libtheora")
+    (version "1.1.1")
+    (source (origin
+             (method url-fetch)
+             (uri (string-append "http://downloads.xiph.org/releases/theora/libtheora-"
+                                 version ".tar.xz"))
+             (sha256
+              (base32
+               "0q8wark9ribij57dciym5vdikg2464p8q2mgqvfb78ksjh4s8vgk"))))
+    (build-system gnu-build-system)
+    (propagated-inputs `(("libogg" ,libogg)
+                         ("libvorbis" ,libvorbis)))
+    (synopsis "A library implementing the theora video format")
+    (description
+     "The libtheora library implements the ogg theora video format,
+a fully open, non-proprietary, patent-and-royalty-free, general-purpose
+compressed video format.")
+    (license (license:bsd-style "file://COPYING"
+                                "See COPYING in the distribution."))
+    (home-page "http://xiph.org/theora/")))
+
 (define-public speex
   (package
     (name "speex")
-- 
1.8.4.rc3