lispjam24/main.rkt

#|-----------------------------------------|
 | Entry for the Spring Lisp Game Jam 2024 |
 | Title: Prok                             |
 | 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)
(require "interpret.rkt")
(require "console.rkt")

(define mono (send the-font-list find-or-create-font 12 'modern 'normal 'normal))
(define/obs @log   "You awake in a dark room.")
(define/obs @input "Type here...")

(define (text-entered event content)
  (when (eqv? event 'return)
    (:= @input "")
    (let ([input (string-upcase content)])
      (:= @log (~a (obs-peek @log) "\n> " input "\n" (interpret input))))))

(render
 (window
  #:title "Prok"
  (hpanel
   (vpanel
    (input @log
           ;hack to prevent text editing without disabling the editor
           (λ (ev cnt) (let ([old (obs-peek @log)]) (:= @log "") (:= @log old)))
           #:style '(multiple)
           #:min-size '(600 400)
           #:font mono)
    (input @input
           text-entered
           #:enabled? #t
           #:style '(single)
           #:font mono))
   (vpanel
    ))))