From: Christopher Allan Webber <cwebber@dustycloud.org>
Date: Sat, 28 Jan 2017 18:40:51 +0000 (-0600)
Subject: fixed up the inventory command
X-Git-Tag: fosdem-2017~64
X-Git-Url: https://jxself.org/git/?p=mudsync.git;a=commitdiff_plain;h=f077644528d3ff0aa8b64c3050f72e9b08b80d49

fixed up the inventory command
---

diff --git a/mudsync/player.scm b/mudsync/player.scm
index 0879300..f04c2fe 100644
--- a/mudsync/player.scm
+++ b/mudsync/player.scm
@@ -105,11 +105,10 @@
   (define text-to-show
     (if (eq? inv-names '())
         "You aren't carrying anything.\n"
-        (apply string-append
-               "You are carrying:\n"
-               (map (lambda (item-name)
-                      (string-append "  * " item-name "\n"))
-                    inv-names))))
+        `((p "You are carrying:")
+          (ul ,(map (lambda (item-name)
+                      `(li ,item-name))
+                    inv-names)))))
   (<- (actor-id player) 'tell #:text text-to-show))
 
 (define (player-cmd-help player message)