From 9b027d789078ac4b0050910455d407eac700a932 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sun, 15 May 2016 21:36:42 -0400
Subject: Use asset load path for audio and music.

---
 lisparuga/audio.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisparuga/audio.scm b/lisparuga/audio.scm
index 3ec04e6..8d04449 100644
--- a/lisparuga/audio.scm
+++ b/lisparuga/audio.scm
@@ -19,6 +19,7 @@
   #:use-module (sly actor)
   #:use-module (sly audio)
   #:use-module (sly utils)
+  #:use-module (lisparuga config)
   #:use-module (lisparuga enemies)
   #:use-module (lisparuga explosions)
   #:use-module (lisparuga player)
@@ -35,13 +36,13 @@
 (define load-music*
   (memoize
    (lambda (file)
-     (load-music (string-append "assets/music/" file)))))
+     (load-music (string-append %datadir "/music/" file)))))
 
 (define (loop-music music)
   (play-music music #:loop? #t))
 
 (define (load-sample* file)
-  (load-sample (string-append "assets/sounds/" file)))
+  (load-sample (string-append %datadir "/sounds/" file)))
 
 (define (enemy-hit-sound world time)
   (and (any (lambda (enemy)
-- 
cgit v1.2.3