(module guide-utils (lib "new-lambda.ss" "scribblings") (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 Manual"))) (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))))