From 6dd52bea3d3a57b6300b1625aa0f332f06dfe1b4 Mon Sep 17 00:00:00 2001
From: Peter Tillemans <pti@snamellit.com>
Date: Tue, 21 May 2024 21:45:48 +0200
Subject: [PATCH] fix title, reduce chattiness

---
 TODO.org            | 14 +++++++-------
 bundle.scm          |  9 +++++++++
 game/main.scm       |  5 +----
 game/model/hero.scm |  2 --
 4 files changed, 17 insertions(+), 13 deletions(-)

diff --git a/TODO.org b/TODO.org
index 6ab621e..7fd87a3 100644
--- a/TODO.org
+++ b/TODO.org
@@ -1,13 +1,13 @@
 #+TITLE: Game TO DO List
 
-* Game Plan
+* Game Plan [6/15]
 
- - [x] start project organisation
- - [x] select some assets to start with
- - [x] animate hero 
- - [x] figure out tile maps
- - [ ] create hero entity
- - [ ] implement hero movement
+ - [X] start project organization
+ - [X] select some assets to start with
+ - [X] animate hero 
+ - [X] figure out tile maps
+ - [X] create hero entity
+ - [X] implement hero movement
  - [ ] create other entity
  - [ ] bundle game for distribution
  - [ ] upload to itch.io
diff --git a/bundle.scm b/bundle.scm
index 0ad74b3..d0b23c2 100644
--- a/bundle.scm
+++ b/bundle.scm
@@ -1,4 +1,13 @@
 '((asset-directories . ("assets/images" "assets/levels"))
+  (binary-directories . ("/usr/bin" 
+                         "/gnu/store/b5fan2998bvhb0fgjn74syhskbnszn77-profile/sbin"
+                         "/gnu/store/b5fan2998bvhb0fgjn74syhskbnszn77-profile/bin")
+  )
+  (library-directories . ("/usr/lib/" 
+                          "/home/pti/.guix-profile/lib/"
+                          "/home/pti/.guix-home/profile/lib/"
+                         "/gnu/store/b5fan2998bvhb0fgjn74syhskbnszn77-profile/lib/")
+  )
   (bundle-name . "bloatrunner-0.1.0-x86_64")
   (code . "game/main.scm")
   (launcher-name . "bloatrunner"))
diff --git a/game/main.scm b/game/main.scm
index 9b1d7b7..e7683db 100644
--- a/game/main.scm
+++ b/game/main.scm
@@ -32,7 +32,6 @@
 (define (update dt)
   (poll-coop-repl-server repl)
   (set! hero (hero-update hero level inputs dt))
-  (pretty-print hero)
   )
 
 (define (draw _alpha)
@@ -47,7 +46,6 @@
 
 
 (define (key-press key _modifiers _repeat?)
-  (pretty-print (list 'press key inputs))
   (set! inputs
     (cond ((eq? key 'left) (set-add inputs 'left))
           ((eq? key 'right) (set-add inputs 'right))
@@ -59,7 +57,6 @@
 
 
 (define (key-release key _modifiers)
-  (pretty-print (list 'release key inputs))
   (set! inputs
     (cond ((eq? key 'left) (delete 'left inputs))
           ((eq? key 'right) (delete 'right inputs))
@@ -70,7 +67,7 @@
 
 (define (launch-game args)
   (run-game 
-   ;; #:title "Bloatrunner"
+   #:window-title "Bloatrunner"
    #:load (lambda () (load))
    #:update (lambda (dt) (update dt))
    #:draw (lambda (alpha) (draw alpha))
diff --git a/game/model/hero.scm b/game/model/hero.scm
index 3ffdb11..1fee556 100644
--- a/game/model/hero.scm
+++ b/game/model/hero.scm
@@ -73,7 +73,6 @@
 
 
 (define (next-position position state inputs distance)
-  (pretty-print (list position state inputs distance))
   (case state
     ((fall) (vec2- position (vec2 0 distance)))
     ((go-left) (vec2- position (vec2 distance 0)))
@@ -94,7 +93,6 @@
          (position (next-position (hero-position hero) (hero-state hero) inputs distance))
          (tile (level-tile-at level position))
          )
-    (pretty-print (list state position tile))
     (hero-with-state 
      (if (member tile '(empty ladder other))
          (hero-with-position hero position)