at-exp-slideshow-example.rkt

#lang at-exp slideshow
(require slideshow/code racket/draw)

(define (red t)
  (color "darkmagenta" t))
(define (green t)
  (color "olive" t))
(define (blue t)
  (color "royalblue" t))
(define (color c t)
  (define key (if (symbol? c) (symbol->string c) c))
  (text t (cons (send the-color-database find-color key) (current-main-font)) (current-font-size)))
(define (prepair-line l)
  (apply para (map (lambda (x) (if (string? x) (t x) x)) l)))
(define (make-item . l)
  (parameterize ([current-gap-size 1])
    (apply item (map prepair-line l))))

(current-font-size 15)
(current-line-sep 1)
(slide
 (make-item
  @list{@green{define} silly-syntax-example @green{as}}
  @list{    display-line @color['seagreen]{"silly manual syntax example"}})
 'next
 (make-item
  @list{@green{define} another-silly-example @green{as}}
  @list{    @green{define} thing @green{as} read-line}
  @list{    @green{return} thing}))