anchor.diff:       (not (List.isEmpty item.Doc) ||
         not (List.isEmpty item.Body)) then
       if needsSummary item then
  -      fprintf wr "<pre>"
  +      fprintf wr "<pre><code class=\"fsharp\">"
         printSummary wr id2items false (Some "def") "dec" item.Indent item
  -      fprintf wr "</pre>\n"
  +      fprintf wr "</code></pre>\n"
         fprintf wr "<div class=\"nested\">"
         match item.Doc with
          | [] -> ()
  
positive.code:   let indent = max (item.Indent - drop) 0
    let prefix = String.replicate indent " "
    if item.Kind = Some "header" then
      fprintfn wr """%s<span class="h3">%s</span>""" prefix (List.head item.Doc |> asText)
    elif item.Kind = Some "spacer" then
      fprintf wr "</pre>\n<pre>"
    else
      let spacing = deep && (item.Kind = Some "module" || item.Kind = Some "type")
      if spacing then
  
negative.code:           | [] -> ()
            | id::idPath ->
              parts id idPath [(".", 0)]
              fprintf wr "."
  
           let isUnique item =
             match item.Id with
  