fixed up the inventory command
authorChristopher Allan Webber <cwebber@dustycloud.org>
Sat, 28 Jan 2017 18:40:51 +0000 (12:40 -0600)
committerChristopher Allan Webber <cwebber@dustycloud.org>
Sat, 28 Jan 2017 18:40:51 +0000 (12:40 -0600)
mudsync/player.scm

index 0879300e34177e9d2187b3faa0a32cd436c57fba..f04c2feea3e6870326d4b2e5b32da951e7e19b04 100644 (file)
   (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)