Data.SCargot.Print

Pretty-Printing

encodeOne :: SExprPrinter atom carrier -> carrier -> Text

Turn a single s-expression into a string according to a given SExprPrinter.

encode :: SExprPrinter atom carrier -> [carrier] -> Text

Turn a list of s-expressions into a single string according to a given SExprPrinter.

Pretty-Printing Control

data SExprPrinter atom carrier

A SExprPrinter value describes how to print a given value as an s-expression. The carrier type parameter indicates the value that will be printed, and the atom parameter indicates the type that will represent tokens in an s-expression structure.

data Indent

The Indent type is used to determine how to indent subsequent s-expressions in a list, after printing the head of the list.

Constructors

Swing

A Swing indent will indent subsequent exprs some fixed amount more than the current line.

(foo
  bar
  baz
  quux)

SwingAfter Int

A SwingAfter n indent will try to print the first n expressions after the head on the same line as the head, and all after will be swung. SwingAfter 0 is equivalent to Swing.

(foo bar
  baz
  quux)

Align

An Align indent will print the first expression after the head on the same line, and subsequent expressions will be aligned with that one.

(foo bar
     baz
     quux)

Instances

Eq Indent

Methods

(==) :: Indent -> Indent -> Bool

(/=) :: Indent -> Indent -> Bool

Show Indent

Methods

showsPrec :: Int -> Indent -> ShowS

show :: Indent -> String

showList :: [Indent] -> ShowS

setFromCarrier :: (c -> b) -> SExprPrinter a b -> SExprPrinter a c

Modify the carrier type of a SExprPrinter by describing how to convert the new type back to the previous type. For example, to pretty-print a well-formed s-expression, we can modify the SExprPrinter value as follows:

>>> let printer = setFromCarrier fromWellFormed (basicPrint id)
>>> encodeOne printer (WFSList [WFSAtom "ele", WFSAtom "phant"])
"(ele phant)"

setMaxWidth :: Int -> SExprPrinter atom carrier -> SExprPrinter atom carrier

Dictate a maximum width for pretty-printed s-expressions.

>>> let printer = setMaxWidth 8 (basicPrint id)
>>> encodeOne printer (L [A "one", A "two", A "three"])
"(one \n  two\n  three)"

removeMaxWidth :: SExprPrinter atom carrier -> SExprPrinter atom carrier

Allow the serialized s-expression to be arbitrarily wide. This makes all pretty-printing happen on a single line.

>>> let printer = removeMaxWidth (basicPrint id)
>>> encodeOne printer (L [A "one", A "two", A "three"])
"(one two three)"

setIndentAmount :: Int -> SExprPrinter atom carrier -> SExprPrinter atom carrier

Set the number of spaces that a subsequent line will be indented after a swing indentation.

>>> let printer = setMaxWidth 12 (basicPrint id)
>>> encodeOne printer (L [A "elephant", A "pachyderm"])
"(elephant \n  pachyderm)"
>>> encodeOne (setIndentAmount 4) (L [A "elephant", A "pachyderm"])
"(elephant \n    pachyderm)"

setIndentStrategy :: (SExpr atom -> Indent) -> SExprPrinter atom carrier -> SExprPrinter atom carrier

Dictate how to indent subsequent lines based on the leading subexpression in an s-expression. For details on how this works, consult the documentation of the Indent type.

>>> let indent (A "def") = SwingAfter 1; indent _ = Swing
>>> let printer = setIndentStrategy indent (setMaxWidth 8 (basicPrint id))
>>> encodeOne printer (L [ A "def", L [ A "func", A "arg" ], A "body" ])
"(def (func arg)\n  body)"
>>> encodeOne printer (L [ A "elephant", A "among", A "pachyderms" ])
"(elephant \n  among\n  pachyderms)"

Default Printing Strategies

basicPrint :: (atom -> Text) -> SExprPrinter atom (SExpr atom)

A default LayoutOptions struct that will always swing subsequent expressions onto later lines if they're too long, indenting them by two spaces.

flatPrint :: (atom -> Text) -> SExprPrinter atom (SExpr atom)

A default LayoutOptions struct that will always print a SExpr as a single line.