@@ -529,9 +529,8 @@ orderedList = try $ do
529529 rest <- many $ listItem (col - 1) (museOrderedListMarker style)
530530 return $ B.orderedListWith p <$> sequence (first : rest)
531531
532−definitionListItem :: PandocMonad m => Int -> MuseParser m (F (Inlines, [Blocks]))
533−definitionListItem n = try $ do
534− count n spaceChar
532+definitionListItem :: PandocMonad m => MuseParser m (F (Inlines, [Blocks]))
533+definitionListItem = try $ do
535534 pos <- getPosition
536535 term <- trimInlinesF . mconcat <$> manyTill (choice inlineList) (string "::")
537536 void spaceChar <|> lookAhead eol
@@ -544,9 +543,10 @@ definitionList :: PandocMonad m => MuseParser m (F Blocks)
544543definitionList = try $ do
545544 many spaceChar
546545 pos <- getPosition
547− guardDisabled Ext_amuse <|> guard (sourceColumn pos /= 1) -- Initial space is required by Amusewiki, but not Emacs Muse
548− first <- definitionListItem 0
549− rest <- many $ try (optional blankline >> definitionListItem (sourceColumn pos - 1))
546+ let indent = sourceColumn pos - 1
547+ guardDisabled Ext_amuse <|> guard (indent /= 0) -- Initial space is required by Amusewiki, but not Emacs Muse
548+ first <- definitionListItem
549+ rest <- many $ try (optional blankline >> count indent spaceChar >> definitionListItem)
550550 return $ B.definitionList <$> sequence (first : rest)
551551
552552--