From 3b622ce3c6374bca086052ca4064098126f50caa Mon Sep 17 00:00:00 2001
From: kiefac <homie@tensi.org>
Date: Sat, 18 May 2024 13:02:38 -0400
Subject: [PATCH] update readme, add main.rkt header, fix text entry

---
 README.md | 15 +++++++++++++++
 main.rkt  | 10 +++++++++-
 2 files changed, 24 insertions(+), 1 deletion(-)

diff --git a/README.md b/README.md
index 0bb6ca9..17cc3ba 100644
--- a/README.md
+++ b/README.md
@@ -1,3 +1,18 @@
 # lispjam24
 
 repo for entry to lisp game jam 2024
+
+## compilation in DrRacket
+### ensure you have the gui-easy package installed
+File -> Package Manager... -> Do What I Mean
+
+Package Source: `gui-easy` [return/enter]
+
+### create the package
+Racket -> Create Executable...
+
+Type: [any]
+
+Base: GRacket
+
+-> Create
diff --git a/main.rkt b/main.rkt
index 8490871..a150a52 100644
--- a/main.rkt
+++ b/main.rkt
@@ -1,3 +1,11 @@
+#|-----------------------------------------|
+ | Entry for the Spring Lisp Game Jam 2024 |
+ | Title: <TODO>                           |
+ | Genre: Procedural text adventure        |
+ | Author: kiefac (homie@tensi.org)        |
+ | Start date: 2024-18-5                   |
+ | End date: <TODO>                        |
+ |-----------------------------------------|#
 #lang racket/gui
 (require racket/gui/easy
          racket/gui/easy/operator)
@@ -8,7 +16,7 @@
 
 (define (text-entered event content)
   (when (eqv? event 'return)
-    (:= @log (~a (obs-peek @log) (obs-peek @input) "\n"))))
+    (:= @log (~a (obs-peek @log) content "\n"))))
 
 (render
  (window