diff options
| -rw-r--r-- | Pancake/Rendering.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/Pancake/Rendering.hs b/Pancake/Rendering.hs index 822bfa4..8d0cd0c 100644 --- a/Pancake/Rendering.hs +++ b/Pancake/Rendering.hs @@ -39,6 +39,8 @@ data Listing = Bulleted | Ordered Int deriving (Show, Eq) +-- | Denotations: information that can be ignored, but can also be +-- used to improve the UI. data Denotation = Link URI | Math String | Heading Int @@ -80,6 +82,7 @@ data RendererOutput = RLink URI | RIdentifier String Int deriving (Show, Eq) +-- | Show a reference. showRef :: String -> Int -> String showRef digits n = showIntAtBase (length digits) (digits !!) n "" |