5903
((3) 0 () 8 ((q lib "pollen/decode.rkt") (q lib "pollen/pagetree.rkt") (q lib "pollen/file.rkt") (q lib "pollen/world.rkt") (q lib "pollen/render.rkt") (q lib "pollen/template.rkt") (q lib "pollen/cache.rkt") (q lib "pollen/top.rkt")) () (h ! (equal) ((c def c (c (? . 2) q ->null-source-path)) q (4523 . 3)) ((c def c (c (? . 0) q block-txexpr?)) q (2159 . 3)) ((c def c (c (? . 1) q pagetree?)) q (4714 . 3)) ((c def c (c (? . 3) q world:paths-excluded-from-dashboard)) q (10446 . 2)) ((c def c (c (? . 0) q detect-linebreaks)) q (2463 . 8)) ((c def c (c (? . 1) q children)) q (5363 . 4)) ((c def c (c (? . 5) q ->html)) q (7778 . 9)) ((c def c (c (? . 2) q template-source?)) q (3417 . 3)) ((c def c (c (? . 4) q render-batch)) q (7419 . 3)) ((c form c (c (? . 7) q def/c)) q (8876 . 2)) ((c def c (c (? . 3) q world:project-require)) q (9138 . 2)) ((c def c (c (? . 3) q world:default-pagetree)) q (10035 . 2)) ((c def c (c (? . 2) q has/is-preproc-source?)) q (3984 . 3)) ((c def c (c (? . 4) q render-to-file)) q (6694 . 7)) ((c def c (c (? . 6) q make-cache)) q (245 . 2)) ((c def c (c (? . 1) q validate-pagetree)) q (4801 . 3)) ((c def c (c (? . 1) q pagetree->list)) q (6265 . 3)) ((c def c (c (? . 3) q world:mode-preproc)) q (9886 . 2)) ((c def c (c (? . 5) q select)) q (8128 . 4)) ((c def c (c (? . 6) q cached-require)) q (89 . 4)) ((c def c (c (? . 3) q world:default-template-prefix)) q (10156 . 2)) ((c def c (c (? . 2) q has/is-template-source?)) q (4119 . 3)) ((c def c (c (? . 2) q has-markup-source?)) q (3726 . 3)) ((c def c (c (? . 2) q has/is-null-source?)) q (4188 . 3)) ((c def c (c (? . 3) q world:meta-pollen-export)) q (9095 . 2)) ((c def c (c (? . 5) q select-from-doc)) q (8619 . 4)) ((c def c (c (? . 2) q markup-source?)) q (3357 . 3)) ((c def c (c (? . 1) q previous*)) q (5807 . 4)) ((c def c (c (? . 3) q world:markup-source-ext)) q (9539 . 2)) ((c def c (c (? . 2) q ->scribble-source-path)) q (4587 . 3)) ((c def c (c (? . 6) q reset-cache)) q (279 . 2)) ((c def c (c (? . 1) q path->pagenode)) q (6478 . 3)) ((c def c (c (? . 3) q world:scribble-source-ext)) q (9753 . 2)) ((c def c (c (? . 3) q world:dashboard-css)) q (10408 . 2)) ((c def c (c (? . 4) q render)) q (6542 . 4)) ((c def c (c (? . 3) q world:mode-pagetree)) q (9997 . 2)) ((c def c (c (? . 6) q current-cache)) q (0 . 4)) ((c def c (c (? . 3) q world:current-server-extras-path)) q (9371 . 4)) ((c def c (c (? . 1) q siblings)) q (5511 . 4)) ((c def c (c (? . 5) q select*)) q (8287 . 4)) ((q def ((lib "pollen/tag.rkt") make-tag-function)) q (8779 . 3)) ((c def c (c (? . 0) q smart-quotes)) q (2337 . 3)) ((c def c (c (? . 1) q pagenodeish?)) q (4984 . 3)) ((c def c (c (? . 2) q has-scribble-source?)) q (3918 . 3)) ((c def c (c (? . 0) q smart-dashes)) q (2400 . 3)) ((c def c (c (? . 2) q ->preproc-source-path)) q (4322 . 3)) ((c def c (c (? . 2) q has-preproc-source?)) q (3661 . 3)) ((c def c (c (? . 3) q world:template-source-ext)) q (9709 . 2)) ((c def c (c (? . 3) q world:preproc-source-ext)) q (9496 . 2)) ((c def c (c (? . 3) q world:default-port)) q (8895 . 2)) ((c def c (c (? . 1) q parent)) q (5217 . 4)) ((c def c (c (? . 3) q world:pagetree-source-ext)) q (9665 . 2)) ((c def c (c (? . 3) q world:newline)) q (10288 . 2)) ((c form c (c (? . 7) q #%top)) q (8855 . 2)) ((c def c (c (? . 4) q get-template-for)) q (7669 . 3)) ((c def c (c (? . 6) q cache-ref)) q (314 . 3)) ((c def c (c (? . 0) q decode)) q (389 . 26)) ((c def c (c (? . 0) q whitespace/nbsp?)) q (2275 . 3)) ((c def c (c (? . 3) q world:linebreak-separator)) q (10320 . 2)) ((c def c (c (? . 0) q register-block-tag)) q (2088 . 3)) ((c def c (c (? . 0) q project-block-tags)) q (1945 . 4)) ((c def c (c (? . 0) q whitespace?)) q (2218 . 3)) ((c def c (c (? . 0) q detect-paragraphs)) q (2789 . 11)) ((c def c (c (? . 1) q ->pagenode)) q (5042 . 3)) ((c def c (c (? . 2) q ->output-path)) q (4655 . 3)) ((c def c (c (? . 2) q ->template-source-path)) q (4455 . 3)) ((c def c (c (? . 3) q world:main-pollen-export)) q (9052 . 2)) ((c def c (c (? . 3) q world:command-marker)) q (10119 . 2)) ((c def c (c (? . 2) q has-null-source?)) q (3856 . 3)) ((c def c (c (? . 3) q world:check-project-requires-in-render?)) q (9178 . 4)) ((c def c (c (? . 4) q render-pagetree)) q (7514 . 5)) ((c def c (c (? . 3) q world:server-extras-dir)) q (9329 . 2)) ((c def c (c (? . 3) q world:null-source-ext)) q (9625 . 2)) ((c def c (c (? . 3) q world:pagetree-root-node)) q (10076 . 2)) ((c def c (c (? . 3) q world:decodable-extensions)) q (9797 . 2)) ((c def c (c (? . 1) q next)) q (5966 . 4)) ((c def c (c (? . 3) q world:mode-markdown)) q (9959 . 2)) ((c def c (c (? . 3) q world:template-meta-key)) q (10246 . 2)) ((c def c (c (? . 3) q world:mode-auto)) q (9852 . 2)) ((c def c (c (? . 1) q current-pagetree)) q (5106 . 4)) ((c def c (c (? . 2) q null-source?)) q (3479 . 3)) ((c def c (c (? . 3) q world:current-server-port)) q (8933 . 4)) ((c def c (c (? . 3) q world:markdown-source-ext)) q (9581 . 2)) ((c def c (c (? . 5) q select-from-metas)) q (8457 . 4)) ((c def c (c (? . 1) q in-pagetree?)) q (6340 . 4)) ((c def c (c (? . 3) q world:mode-markup)) q (9923 . 2)) ((c def c (c (? . 2) q scribble-source?)) q (3537 . 3)) ((c def c (c (? . 1) q previous)) q (5659 . 4)) ((c def c (c (? . 2) q ->markup-source-path)) q (4389 . 3)) ((c def c (c (? . 2) q preproc-source?)) q (3296 . 3)) ((c def c (c (? . 2) q pagetree-source?)) q (3599 . 3)) ((c def c (c (? . 1) q next*)) q (6110 . 4)) ((c def c (c (? . 2) q has/is-scribble-source?)) q (4253 . 3)) ((c def c (c (? . 3) q world:fallback-template)) q (10204 . 2)) ((c def c (c (? . 3) q world:paragraph-separator)) q (10364 . 2)) ((c def c (c (? . 1) q pagenode?)) q (4897 . 3)) ((c def c (c (? . 2) q has-template-source?)) q (3790 . 3)) ((c def c (c (? . 2) q has/is-markup-source?)) q (4052 . 3)) ((c def c (c (? . 4) q render-to-file-if-needed)) q (6976 . 9))))
parameter
(current-cache) -> hash?
(current-cache hash) -> void?
  hash : hash?
procedure
(cached-require source-path key) -> (or/c txexpr? hash? integer?)
  source-path : pathish?
  key : (or/c 'doc 'metas 'mod-time)
procedure
(make-cache) -> hash?
procedure
(reset-cache) -> void?
procedure
(cache-ref source-path) -> hash?
  source-path : pathish?
procedure
(decode  tagged-xexpr                                    
        [#:txexpr-tag-proc txexpr-tag-proc               
         #:txexpr-attrs-proc txexpr-attrs-proc           
         #:txexpr-elements-proc txexpr-elements-proc     
         #:block-txexpr-proc block-txexpr-proc           
         #:inline-txexpr-proc inline-txexpr-proc         
         #:string-proc string-proc                       
         #:symbol-proc symbol-proc                       
         #:valid-char-proc valid-char-proc               
         #:cdata-proc cdata-proc                         
         #:exclude-tags tags-to-exclude])            -> txexpr?
  tagged-xexpr : txexpr?
  txexpr-tag-proc : (txexpr-tag? . -> . txexpr-tag?)
                  = (λ(tag) tag)
  txexpr-attrs-proc : (txexpr-attrs? . -> . txexpr-attrs?)
                    = (λ(attrs) attrs)
  txexpr-elements-proc : (txexpr-elements? . -> . txexpr-elements?)
                       = (λ(elements) elements)
  block-txexpr-proc : (block-txexpr? . -> . xexpr?) = (λ(tx) tx)
  inline-txexpr-proc : (txexpr? . -> . xexpr?) = (λ(tx) tx)
  string-proc : (string? . -> . xexpr?) = (λ(str) str)
  symbol-proc : (symbol? . -> . xexpr?) = (λ(sym) sym)
  valid-char-proc : (valid-char? . -> . xexpr?) = (λ(vc) vc)
  cdata-proc : (cdata? . -> . xexpr?) = (λ(cdata) cdata)
  tags-to-exclude : (listof symbol?) = null
parameter
(project-block-tags) -> (listof txexpr-tag?)
(project-block-tags block-tags) -> void?
  block-tags : (listof txexpr-tag?)
procedure
(register-block-tag tag) -> void?
  tag : txexpr-tag?
procedure
(block-txexpr? v) -> boolean?
  v : any/c
procedure
(whitespace? v) -> boolean?
  v : any/c
procedure
(whitespace/nbsp? v) -> boolean?
  v : any/c
procedure
(smart-quotes str) -> string?
  str : string?
procedure
(smart-dashes str) -> string?
  str : string?
procedure
(detect-linebreaks  tagged-xexpr-elements     
                   [#:separator linebreak-sep 
                    #:insert linebreak])      
 -> txexpr-elements?
  tagged-xexpr-elements : txexpr-elements?
  linebreak-sep : string? = world:linebreak-separator
  linebreak : xexpr? = '(br)
procedure
(detect-paragraphs  elements                          
                   [#:separator paragraph-sep         
                    #:tag paragraph-tag               
                    #:linebreak-proc linebreak-proc]) 
 -> txexpr-elements?
  elements : txexpr-elements?
  paragraph-sep : string? = world:paragraph-separator
  paragraph-tag : symbol? = 'p
  linebreak-proc : (txexpr-elements? . -> . txexpr-elements?)
                 = detect-linebreaks
procedure
(preproc-source? v) -> boolean?
  v : any/c
procedure
(markup-source? v) -> boolean?
  v : any/c
procedure
(template-source? v) -> boolean?
  v : any/c
procedure
(null-source? v) -> boolean?
  v : any/c
procedure
(scribble-source? v) -> boolean?
  v : any/c
procedure
(pagetree-source? v) -> boolean?
  v : any/c
procedure
(has-preproc-source? v) -> boolean?
  v : any/c
procedure
(has-markup-source? v) -> boolean?
  v : any/c
procedure
(has-template-source? v) -> boolean?
  v : any/c
procedure
(has-null-source? v) -> boolean?
  v : any/c
procedure
(has-scribble-source? v) -> boolean?
  v : any/c
procedure
(has/is-preproc-source? v) -> boolean?
  v : any/c
procedure
(has/is-markup-source? v) -> boolean?
  v : any/c
procedure
(has/is-template-source? v) -> boolean?
  v : any/c
procedure
(has/is-null-source? v) -> boolean?
  v : any/c
procedure
(has/is-scribble-source? v) -> boolean?
  v : any/c
procedure
(->preproc-source-path p) -> path?
  p : pathish?
procedure
(->markup-source-path p) -> path?
  p : pathish?
procedure
(->template-source-path p) -> path?
  p : pathish?
procedure
(->null-source-path p) -> path?
  p : pathish?
procedure
(->scribble-source-path p) -> path?
  p : pathish?
procedure
(->output-path p) -> path?
  p : pathish?
procedure
(pagetree? possible-pagetree) -> boolean?
  possible-pagetree : any/c
procedure
(validate-pagetree possible-pagetree) -> pagetree?
  possible-pagetree : any/c
procedure
(pagenode? possible-pagenode) -> boolean?
  possible-pagenode : any/c
procedure
(pagenodeish? v) -> boolean?
  v : any/c
procedure
(->pagenode v) -> pagenode?
  v : pagenodeish?
parameter
(current-pagetree) -> pagetree?
(current-pagetree pagetree) -> void?
  pagetree : pagetree?
procedure
(parent p [pagetree]) -> (or/c #f pagenode?)
  p : (or/c #f pagenodeish?)
  pagetree : pagetree? = (current-pagetree)
procedure
(children p [pagetree]) -> (or/c #f pagenode?)
  p : (or/c #f pagenodeish?)
  pagetree : pagetree? = (current-pagetree)
procedure
(siblings p [pagetree]) -> (or/c #f pagenode?)
  p : (or/c #f pagenodeish?)
  pagetree : pagetree? = (current-pagetree)
procedure
(previous p [pagetree]) -> (or/c #f pagenode?)
  p : (or/c #f pagenodeish?)
  pagetree : pagetree? = (current-pagetree)
procedure
(previous* p [pagetree]) -> (or/c #f (listof pagenode?))
  p : (or/c #f pagenodeish?)
  pagetree : pagetree? = (current-pagetree)
procedure
(next p [pagetree]) -> (or/c #f pagenode?)
  p : (or/c #f pagenodeish?)
  pagetree : pagetree? = (current-pagetree)
procedure
(next* p [pagetree]) -> (or/c #f (listof pagenode?))
  p : (or/c #f pagenodeish?)
  pagetree : pagetree? = (current-pagetree)
procedure
(pagetree->list pagetree) -> list?
  pagetree : pagetree?
procedure
(in-pagetree? pagenode [pagetree]) -> boolean?
  pagenode : pagenode?
  pagetree : pagetree? = (current-pagetree)
procedure
(path->pagenode p) -> pagenode?
  p : pathish?
procedure
(render source-path [template-path]) -> bytes?
  source-path : complete-path?
  template-path : (or/c #f complete-path?) = #f
procedure
(render-to-file  source-path       
                [template-path     
                 output-path]) -> void?
  source-path : complete-path?
  template-path : (or/c #f complete-path?) = #f
  output-path : (or/c #f complete-path?) = #f
procedure
(render-to-file-if-needed  source-path                 
                          [template-path               
                           output-path                 
                           #:force force-render?]) -> void?
  source-path : complete-path?
  template-path : (or/c #f complete-path?) = #f
  output-path : (or/c #f complete-path?) = #f
  force-render? : boolean? = #f
procedure
(render-batch source-paths ...) -> void?
  source-paths : (listof pathish?)
procedure
(render-pagetree pagetree) -> void?
  pagetree : pagetree?
(render-pagetree pagetree-source) -> void?
  pagetree-source : pathish?
procedure
(get-template-for source-path) -> (or/c #f complete-path?)
  source-path : complete-path?
procedure
(->html  xexpr                       
        [#:tag html-tag              
         #:attrs html-attrs          
         #:splice splice-html?]) -> string?
  xexpr : xexpr?
  html-tag : (or/c #f txexpr-tag?) = #f
  html-attrs : (or/c #f txexpr-attrs?) = #f
  splice-html? : boolean? = #f
procedure
(select key value-source) -> (or/c #f txexpr-element?)
  key : symbolish?
  value-source : (or/c hash? txexpr? pagenode? pathish?)
procedure
(select* key value-source) -> (or/c #f (listof txexpr-element?))
  key : symbolish?
  value-source : (or/c hash? txexpr? pagenode? pathish?)
procedure
(select-from-metas key meta-source) -> (or/c #f txexpr-element?)
  key : symbolish?
  meta-source : (or/c hash? pagenodeish? pathish?)
procedure
(select-from-doc key doc-source) -> (or/c #f txexpr-element?)
  key : symbolish?
  doc-source : (or/c txexpr? pagenodeish? pathish?)
procedure
(make-tag-function id) -> (-> txexpr?)
  id : txexpr-tag?
syntax
(#%top . id)
syntax
(def/c id)
value
world:default-port : integer?
parameter
(world:current-server-port) -> integer?
(world:current-server-port port) -> void?
  port : integer?
value
world:main-pollen-export : symbol?
value
world:meta-pollen-export : symbol?
value
world:project-require : string?
parameter
(world:check-project-requires-in-render?) -> boolean?
(world:check-project-requires-in-render? check?) -> void?
  check? : boolean?
value
world:server-extras-dir : string?
parameter
(world:current-server-extras-path) -> path?
(world:current-server-extras-path dir) -> void?
  dir : path?
value
world:preproc-source-ext : symbol?
value
world:markup-source-ext : symbol?
value
world:markdown-source-ext : symbol?
value
world:null-source-ext : symbol?
value
world:pagetree-source-ext : symbol?
value
world:template-source-ext : symbol?
value
world:scribble-source-ext : symbol?
value
world:decodable-extensions : (listof symbol?)
value
world:mode-auto : symbol?
value
world:mode-preproc : symbol?
value
world:mode-markup : symbol?
value
world:mode-markdown : symbol?
value
world:mode-pagetree : symbol?
value
world:default-pagetree : string?
value
world:pagetree-root-node : symbol?
value
world:command-marker : char?
value
world:default-template-prefix : string?
value
world:fallback-template : string?
value
world:template-meta-key : symbol?
value
world:newline : string?
value
world:linebreak-separator : string?
value
world:paragraph-separator : string?
value
world:dashboard-css : string?
value
world:paths-excluded-from-dashboard : (listof path?)