diff options
author | Albert Krewinkel <albert@zeitkraut.de> | 2017-02-04 21:07:52 +0100 |
---|---|---|
committer | Albert Krewinkel <albert@zeitkraut.de> | 2017-02-04 21:15:05 +0100 |
commit | 623d860be6578c51f7937933ca2ce7ec2ddc91b5 (patch) | |
tree | 7385187e68d5e9889b93452c53037d221c565b4c /src/Text/Pandoc/Writers/Org.hs | |
parent | 49c7cf40fecf64f1da1ff9e2e341117cb299afa8 (diff) | |
download | pandoc-623d860be6578c51f7937933ca2ce7ec2ddc91b5.tar.gz |
Org writer: reduce to two spaces after bullets
The org writer was inserting two spaces after list bullets. Emacs
Org-mode defaults to a single space, so behavior is changed to reflect
this.
Closes: #3417
Diffstat (limited to 'src/Text/Pandoc/Writers/Org.hs')
-rw-r--r-- | src/Text/Pandoc/Writers/Org.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/Org.hs b/src/Text/Pandoc/Writers/Org.hs index ae1c92a97..fd4c16c64 100644 --- a/src/Text/Pandoc/Writers/Org.hs +++ b/src/Text/Pandoc/Writers/Org.hs @@ -255,7 +255,7 @@ blockToOrg (DefinitionList items) = do bulletListItemToOrg :: [Block] -> State WriterState Doc bulletListItemToOrg items = do contents <- blockListToOrg items - return $ hang 3 "- " (contents <> cr) + return $ hang 2 "- " (contents <> cr) -- | Convert ordered list item (a list of blocks) to Org. orderedListItemToOrg :: String -- ^ marker for list item @@ -270,7 +270,7 @@ definitionListItemToOrg :: ([Inline], [[Block]]) -> State WriterState Doc definitionListItemToOrg (label, defs) = do label' <- inlineListToOrg label contents <- liftM vcat $ mapM blockListToOrg defs - return $ hang 3 "- " $ label' <> " :: " <> (contents <> cr) + return $ hang 2 "- " $ label' <> " :: " <> (contents <> cr) -- | Convert list of key/value pairs to Org :PROPERTIES: drawer. propertiesDrawer :: Attr -> Doc |