unison/scratch2.u
2021-03-15 15:34:19 -05:00

38 lines
1.3 KiB
Plaintext

unique[da70bff6431da17fa515f3d18ded11852b6a745f] type Doc2.SpecialForm
= Source [Either Link.Type Any]
| Example Nat Any
| Link (Either Link.Type Any)
| Signature [Any]
| InlineSignature Any
| Eval Doc2.Evaluation
| InlineEval Doc2.Evaluation
| Embed Any
| InlineEmbed Any
unique[e25bc44d251ae0301517ad0bd02cbd294161dc89] type ConsoleText
= Plain Text
| Foreground ANSI.Color ConsoleText
| Background ANSI.Color ConsoleText
| Bold ConsoleText
| Underline ConsoleText
| Invert ConsoleText
unique[de2e0ee924578939213c950dfd8e0ba1047703ae] type ANSI.Color
= Black | Red | Green | Yellow | Blue | Magenta | Cyan | White
| BrightBlack | BrightRed | BrightGreen | BrightYellow | BrightBlue
| BrightMagenta | BrightCyan | BrightWhite
unique[d7b2ced8c08b2c6e54050d1f5acedef3395f293d] type Pretty.Annotated w txt
= Empty
| Group w (Pretty.Annotated w txt)
| Lit w txt
| Wrap w (Pretty.Annotated w txt)
| OrElse w (Pretty.Annotated w txt) (Pretty.Annotated w txt)
-- Indent _ initialIndent indentAfterNewline p prefixes the first
-- line of `p` with `initialIndent`, and subsequent lines by `indentAfterNewline`.
| Indent w (Pretty.Annotated w txt) (Pretty.Annotated w txt) (Pretty.Annotated w txt)
| Append w [Pretty.Annotated w txt]
type Pretty txt = Pretty (Pretty.Annotated () txt)