doc fixes (closes #88)

pull/102/head
Matthew Butterick 9 years ago
parent 9d39494b4b
commit d23f4f133a

@ -105,6 +105,18 @@ With @racket[select], you get the first result; with @racket[select*], you get t
In both cases, you get @racket[#f] if there are no matches. In both cases, you get @racket[#f] if there are no matches.
@examples[#:eval my-eval
(module nut-butters pollen/markup
'(div (question "Flavor?")
(answer "Cashew") (answer "Almond")))
(code:comment @#,t{Import doc from 'nut-butters submodule})
(require 'nut-butters)
(select 'question doc)
(select 'answer doc)
(select* 'answer doc)
(select 'nonexistent-key doc)
(select* 'nonexistent-key doc)
]
@ -116,13 +128,7 @@ In both cases, you get @racket[#f] if there are no matches.
Look up the value of @racket[_key] in @racket[_meta-source]. The @racket[_meta-source] argument can be either 1) a hashtable representing @racket[metas] or 2) a pagenode or source path that identifies a source file that provides @racket[metas]. If no value exists for @racket[_key], you get @racket[#f]. Look up the value of @racket[_key] in @racket[_meta-source]. The @racket[_meta-source] argument can be either 1) a hashtable representing @racket[metas] or 2) a pagenode or source path that identifies a source file that provides @racket[metas]. If no value exists for @racket[_key], you get @racket[#f].
@examples[#:eval my-eval @examples[#:eval my-eval
(module ice-cream pollen/markup (define metas (hash 'template "sub.xml.pp" 'target "print"))
'(div (question "Flavor?")
(answer "Chocolate chip") (answer "Maple walnut"))
'(meta ((template "sub.xml.pt")))
'(meta ((target "print"))))
(code:comment @#,t{Import doc & metas from 'ice-cream submodule})
(require 'ice-cream)
(select-from-metas 'template metas) (select-from-metas 'template metas)
('target . select-from-metas . metas) ('target . select-from-metas . metas)
(select-from-metas 'nonexistent-key metas) (select-from-metas 'nonexistent-key metas)
@ -140,10 +146,8 @@ Look up the value of @racket[_key] in @racket[_doc-source]. The @racket[_doc-sou
@examples[#:eval my-eval @examples[#:eval my-eval
(module gelato pollen/markup (module gelato pollen/markup
'(div (question "Flavor?") '(div (question "Flavor?")
(answer "Nocciola") (answer "Pistachio")) (answer "Nocciola") (answer "Pistachio")))
'(meta ((template "sub.xml.pt"))) (code:comment @#,t{Import doc from 'gelato submodule})
'(meta ((target "print"))))
(code:comment @#,t{Import doc & metas from 'gelato submodule})
(require 'gelato) (require 'gelato)
(select-from-doc 'question doc) (select-from-doc 'question doc)
('answer . select-from-doc . doc) ('answer . select-from-doc . doc)

@ -116,7 +116,7 @@
[else x-in])) [else x-in]))
(when (and (not (txexpr? x)) attrs (not tag)) (when (and (not (txexpr? x)) attrs (not tag))
(raise-argument-error '->html (format "can't use attribute list ~v without a #:tag argument" attrs))) (raise-argument-error '->html "can't use attribute list without a #:tag argument" tag))
(if (or tag (txexpr? x)) (if (or tag (txexpr? x))
(let () (let ()

Loading…
Cancel
Save