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
|
# lispjam24
|
||||||
|
|
||||||
repo for entry to lisp game jam 2024
|
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
|
#lang racket/gui
|
||||||
(require racket/gui/easy
|
(require racket/gui/easy
|
||||||
racket/gui/easy/operator)
|
racket/gui/easy/operator)
|
||||||
|
@ -8,7 +16,7 @@
|
||||||
|
|
||||||
(define (text-entered event content)
|
(define (text-entered event content)
|
||||||
(when (eqv? event 'return)
|
(when (eqv? event 'return)
|
||||||
(:= @log (~a (obs-peek @log) (obs-peek @input) "\n"))))
|
(:= @log (~a (obs-peek @log) content "\n"))))
|
||||||
|
|
||||||
(render
|
(render
|
||||||
(window
|
(window
|
||||||
|
|
Loading…
Reference in a new issue