diff options
| author | defanor <defanor@uberspace.net> | 2017-11-08 13:30:45 +0300 |
|---|---|---|
| committer | defanor <defanor@uberspace.net> | 2017-11-08 13:30:45 +0300 |
| commit | 65598e789be5db363e16efcbd5c5337b68c739c1 (patch) | |
| tree | 17d9d82ba6dc0547bfcb3f3dd659aa52e5b3c4dc /Pancake/Rendering.hs | |
| parent | 1a1307e0c7691a7e155e67179d196793f5059dc0 (diff) | |
Colorize terms in definition lists
Diffstat (limited to 'Pancake/Rendering.hs')
| -rw-r--r-- | Pancake/Rendering.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Pancake/Rendering.hs b/Pancake/Rendering.hs index b1b5350..fa8bdfc 100644 --- a/Pancake/Rendering.hs +++ b/Pancake/Rendering.hs @@ -335,7 +335,7 @@ renderBlock (P.BulletList bs) = do modify $ \s -> s { listing = Nothing } renderBlock (P.DefinitionList dl) = let renderDefinition (term, definition) = do - indented =<< readInlines term + indented =<< map (map (Fg Yellow)) <$> readInlines term mapM_ renderBlocks definition in mapM_ renderDefinition dl renderBlock (P.Header level attr i) = do |