#nowarn "211"

#I "../src/FSharp.Formatting/bin/Release/netstandard2.1"

#r "FSharp.Formatting.Common.dll"

#r "FSharp.Formatting.Markdown.dll"

#r "FSharp.Formatting.CodeFormat.dll"

#r "FSharp.Formatting.Literate.dll"

#if FSX

#r "nuget: FSharp.Formatting,{{fsdocs-package-version}}"

#endif // FSX

#if IPYNB

#r "nuget: FSharp.Formatting,{{fsdocs-package-version}}"

#endif // IPYNB

open FSharp.Formatting.CodeFormat

open System.Reflection

let source =

"""

let snippets, diagnostics =

CodeFormatter.ParseAndCheckSource("C:\\snippet.fsx", source, None, None, ignore)

let (Snippet (title, lines)) = snippets |> Seq.head

for (Line (_, tokens)) in lines do

for token in tokens do

match token with

| TokenSpan.Token (kind, code, tip) ->

printf "%s" code

tip

|> Option.iter (fun spans -> printfn "%A" spans)

| TokenSpan.Omitted _

| TokenSpan.Output _

| TokenSpan.Error _ -> ()

printfn ""

let prefix = "fst"

let html = CodeFormat.FormatHtml(snippets, prefix)

for snip in html.Snippets do

printfn "%s" snip.Content

printfn "%s" html.ToolTip