32 lines
883 B
Scheme
32 lines
883 B
Scheme
#lang scheme/base
|
|
|
|
(require scribble/manual
|
|
scribble/decode
|
|
scribble/struct
|
|
setup/main-collects)
|
|
(provide (all-from-out scribble/manual)
|
|
selflink
|
|
gametitle
|
|
game)
|
|
|
|
(define (selflink str) (link str (tt str)))
|
|
|
|
(define game onscreen)
|
|
|
|
(define (gametitle name subcol subtitle)
|
|
(make-splice
|
|
(list
|
|
(title #:tag subcol
|
|
(make-element
|
|
"noborder"
|
|
(list
|
|
(image (path->main-collects-relative
|
|
(build-path (collection-path "games" subcol)
|
|
(format "~a.png" subcol))))))
|
|
" " (onscreen name) " --- " subtitle)
|
|
(margin-note "To play "
|
|
(onscreen name)
|
|
", run the "
|
|
(exec "PLT Games") " program."
|
|
" (Under Unix, it's called " (exec "plt-games") ")."))))
|