From 68cafa670b92c421853e243d4bb4bf3174e092ce Mon Sep 17 00:00:00 2001
From: nee <address@hidden>
Date: Mon, 22 May 2017 23:34:22 +0200
Subject: [PATCH] gnu: Add crawl-tiles.

* gnu/packages/games.scm (crawl-tiles): New variable.
---
 gnu/packages/games.scm | 37 ++++++++++++++++++++++++++++++++++---
 1 file changed, 34 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/games.scm b/gnu/packages/games.scm
index fc1e3dcf3..1bc82fb6c 100644
--- a/gnu/packages/games.scm
+++ b/gnu/packages/games.scm
@@ -3979,8 +3979,6 @@ fish.  The whole game is accompanied by quiet, comforting music.")
          (list (string-append "SQLITE_INCLUDE_DIR=" sqlite "/include")
                (string-append "prefix=" out)
                "SAVEDIR=~/.crawl"
-               ;; TODO: build graphical client
-               "TILES="
                ;; don't build any bundled dependencies
                "BUILD_LUA="
                "BUILD_SQLITE="
@@ -3999,7 +3997,10 @@ fish.  The whole game is accompanied by quiet, comforting music.")
              (setenv "TERM" "xterm-256color")
              (zero? (apply system* "make" "debug" "test"
                            (format #f "-j~d" (parallel-job-count))
-                           make-flags)))))))
+                           ;; force commandline build for test cases.
+                           (append make-flags
+                                   '("GAME=crawl"
+                                     "TILES=")))))))))
     (synopsis "Roguelike dungeon crawler game")
     (description "Dungeon Crawl Stone Soup is a roguelike adventure through
 dungeons filled with dangerous monsters in a quest to find the mystifyingly
@@ -4013,6 +4014,36 @@ fabulous Orb of Zot.")
                    license:zlib
                    license:asl2.0))))
 
+(define-public crawl-tiles
+  (package
+    (inherit crawl)
+    (name "crawl-tiles")
+    (arguments
+     (substitute-keyword-arguments
+         (package-arguments crawl)
+       ((#:make-flags flags)
+        `(let* ((dejavu (assoc-ref %build-inputs "font-dejavu")))
+           (cons* (string-append "PROPORTIONAL_FONT=" dejavu
+                                 "/share/fonts/truetype/DejaVuSans.ttf")
+                  (string-append "MONOSPACED_FONT=" dejavu
+                                 "/share/fonts/truetype/DejaVuSansMono.ttf")
+                  "TILES=y"
+                  ;; rename the binary to allow parallel installation with crawl.
+                  "GAME=crawl-tiles"
+                  ,flags)))))
+    (inputs `(,@(package-inputs crawl)
+              ("font-dejavu" ,font-dejavu)
+              ("freetype6" ,freetype)
+              ("glu" ,glu)
+              ("libpng" ,libpng)
+              ("sdl2" ,sdl2)
+              ("sdl2-image" ,sdl2-image)
+              ("sdl2-mixer" ,sdl2-mixer)))
+    (native-inputs `(,@(package-native-inputs crawl)
+                     ;; TODO: add advpng or pngcrush for png additional optimization.
+                     ("which" ,which)))
+    (synopsis "Graphical roguelike dungeon crawler game")))
+
 (define-public lugaru
   (package
     (name "lugaru")
-- 
2.13.0