zamora

#lang racket/base
(require quickscript racket/string)

(define prefix-rx #px"^\\s*;+\\s*")
(define fill-column 78)

(define (determine-prefix line)
  (define m (regexp-match prefix-rx line))
  (if m (car m) ""))

zamora

#lang racket/gui

; Main Window
(define frame (new frame% [label "FooChat Deluxe"]
                   [width 800]
                   [height 300]))

; Menu Bar
(define menubar (new menu-bar% [parent frame]))
(define file-menu (new menu% [parent menubar] [label "File"]))