1        codeSpan replace(///\s+///, " ", plainText x)
2    else concatenate apply(contents x, c ->
3            if isLink c then markdownInline c else codeSpan plainText 
4))
5
6----------------------------------------------------------------------
7-- Blocks
8----------------------------------------------------------------------
9
10markdownBlocks Thing := x -> {paragraph markdownInline x}
11markdownBlocks Nothing   :=
12    markdownBlocks Option    :=
13    markdownBlocks COMMENT   :=
14    markdownBlocks SCRIPT    :=
15    markdownBlocks STYLE := x -> {}
16markdownBlocks LATER := x -> markdownBlocks x#0()
17markdownBlocks Hypertext := x -> blocksOf contents x
18markdownBlocks MENU := x -> markdownBlocks redoMENU x