update readme, add main.rkt header, fix text entry
This commit is contained in:
parent
4544fbe54b
commit
3b622ce3c6
15
README.md
15
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
|
||||
|
|
10
main.rkt
10
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
|
||||
|
|
Loading…
Reference in a new issue