61 lines
1.8 KiB
Scheme
61 lines
1.8 KiB
Scheme
(module guide-utils (lib "lang.ss" "big")
|
|
(require (lib "manual.ss" "scribble")
|
|
(lib "struct.ss" "scribble")
|
|
(lib "decode.ss" "scribble")
|
|
(lib "kw.ss")
|
|
(lib "eval.ss" "scribble")
|
|
"../icons.ss")
|
|
|
|
(provide Quick MzScheme HtDP
|
|
tool
|
|
moreguide
|
|
guideother
|
|
refalso
|
|
refdetails
|
|
refdetails/gory
|
|
refsecref)
|
|
|
|
(define Quick
|
|
(italic (link "../quick/index.html" "An Introduction to PLT Scheme with Pictures")))
|
|
|
|
(define MzScheme
|
|
(italic (link "../reference/index.html" "PLT Scheme Reference")))
|
|
|
|
(define HtDP
|
|
(italic (link "http://www.htdp.org" "How to Design Programs")))
|
|
|
|
(define (tool name . desc)
|
|
(apply item (bold name) ", " desc))
|
|
|
|
(define (moreguide tag . s)
|
|
(apply margin-note
|
|
(decode-content (append
|
|
(list
|
|
finger (secref tag) " (later in this guide)"
|
|
" explains more about ")
|
|
s
|
|
(list ".")))))
|
|
|
|
(define (guideother . s)
|
|
(apply margin-note
|
|
(cons finger (decode-content s))))
|
|
|
|
(define (refdetails* tag what . s)
|
|
(apply margin-note
|
|
(decode-content (append (list magnify (refsecref tag))
|
|
(list what)
|
|
s
|
|
(list ".")))))
|
|
|
|
(define (refdetails tag . s)
|
|
(apply refdetails* tag " provides more on " s))
|
|
|
|
(define (refalso tag . s)
|
|
(apply refdetails* tag " also documents " s))
|
|
|
|
(define (refdetails/gory tag . s)
|
|
(apply refdetails* tag " documents the fine points of " s))
|
|
|
|
(define (refsecref s)
|
|
(make-element #f (list (secref s) " in " MzScheme))))
|