[PATCH 1/2] gnu: Add sdl-union.

[David Thompson]

>From db0ee9ba8666d1f5b2cd080f837fdae3e1ee329b Mon Sep 17 00:00:00 2001
From: David Thompson <address@hidden>
Date: Sun, 2 Nov 2014 11:54:20 -0500
Subject: [PATCH 1/2] gnu: Add sdl-union.

* gnu/packages/sdl.scm (sdl-union): New variable.
---
 gnu/packages/sdl.scm | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)

diff --git a/gnu/packages/sdl.scm b/gnu/packages/sdl.scm
index b9b5262..fc374c0 100644
--- a/gnu/packages/sdl.scm
+++ b/gnu/packages/sdl.scm
@@ -22,6 +22,7 @@
   #:use-module (guix packages)
   #:use-module (guix download)
   #:use-module (guix build-system gnu)
+  #:use-module (guix build-system trivial)
   #:use-module ((gnu packages fontutils) #:prefix font:)
   #:use-module (gnu packages image)
   #:use-module (gnu packages linux)
@@ -240,3 +241,28 @@ SDL.")
     (description "SDL_ttf is a TrueType font rendering library for SDL.")
     (home-page "www.libsdl.org/projects/SDL_ttf/")
     (license zlib)))
+
+(define-public sdl-union
+  (package
+    (name "sdl-union")
+    (version (package-version sdl))
+    (source #f)
+    (build-system trivial-build-system)
+    (arguments
+     '(#:modules ((guix build union))
+       #:builder (begin
+                   (use-modules (ice-9 match)
+                                (guix build union))
+                   (match %build-inputs
+                     (((names . directories) ...)
+                      (union-build (assoc-ref %outputs "out")
+                                   directories))))))
+    (inputs `(("sdl" ,sdl)
+              ("sdl-gfx" ,sdl-gfx)
+              ("sdl-image" ,sdl-image)
+              ("sdl-mixer" ,sdl-mixer)
+              ("sdl-ttf" ,sdl-ttf)))
+    (synopsis "Union of all SDL libraries.")
+    (description "Union of all SDL libraries.")
+    (home-page (package-home-page sdl))
+    (license (package-license sdl))))
-- 
2.1.1