50 lines
1.6 KiB
Racket
50 lines
1.6 KiB
Racket
|
|
(module base scheme/base
|
|
(require "slide.ss"
|
|
scheme/gui/base
|
|
(only-in "core.ss"
|
|
sliderec?
|
|
just-a-comment?))
|
|
|
|
(current-line-sep 5)
|
|
|
|
(case (system-type)
|
|
[(macosx)
|
|
(current-main-font '("Gill Sans" . swiss))]
|
|
[(windows)
|
|
(current-main-font '("Tahoma" . swiss))])
|
|
(current-para-width (* 3/4 client-w))
|
|
|
|
(current-titlet (lambda (s)
|
|
(colorize (text s (current-main-font) 40)
|
|
(current-title-color))))
|
|
(set-title-h! (pict-height (titlet "Hi")))
|
|
(current-title-color "black")
|
|
|
|
(provide (rename-out [slide/kw slide]
|
|
[sliderec? slide?]
|
|
[just-a-comment? comment?])
|
|
comment
|
|
most-recent-slide retract-most-recent-slide re-slide start-at-recent-slide
|
|
make-outline
|
|
(rename-out [item/kw item]
|
|
[subitem/kw subitem]
|
|
[para/kw para])
|
|
gap-size current-font-size current-line-sep
|
|
current-main-font current-title-color
|
|
size-in-pixels
|
|
t it bt bit tt titlet tt* rt
|
|
bullet o-bullet
|
|
margin set-margin!
|
|
client-w client-h
|
|
full-page titleless-page
|
|
printing? condense?
|
|
skip-slides
|
|
set-use-background-frame!
|
|
enable-click-advance!
|
|
title-h set-title-h! current-slide-assembler
|
|
current-page-number-font current-page-number-color current-page-number-adjust
|
|
current-titlet current-para-width
|
|
set-page-numbers-visible! done-making-slides
|
|
clickback make-slide-inset slide-inset? apply-slide-inset))
|