@@ -897,13 +897,13 @@ link = try $ do
897897 st <- getState
898898 guard $ not $ museInLink st
899899 setState $ st{ museInLink = True }
900− (url, title, content) <- linkText
900+ (url, content) <- linkText
901901 updateState (\state -> state { museInLink = False })
902902 return $ case stripPrefix "URL:" url of
903903 Nothing -> if isImageUrl url
904− then B.image url title <$> fromMaybe (return mempty) content
905− else B.link url title <$> fromMaybe (return $ B.str url) content
906− Just url' -> B.link url' title <$> fromMaybe (return $ B.str url') content
904+ then B.image url "" <$> fromMaybe (return mempty) content
905+ else B.link url "" <$> fromMaybe (return $ B.str url) content
906+ Just url' -> B.link url' "" <$> fromMaybe (return $ B.str url') content
907907 where -- Taken from muse-image-regexp defined in Emacs Muse file lisp/muse-regexps.el
908908 imageExtensions = [".eps", ".gif", ".jpg", ".jpeg", ".pbm", ".png", ".tiff", ".xbm", ".xpm"]
909909 isImageUrl = (`elem` imageExtensions) . takeExtension
@@ -911,10 +911,10 @@ link = try $ do
911911linkContent :: PandocMonad m => MuseParser m (F Inlines)
912912linkContent = char '[' >> trimInlinesF . mconcat <$> manyTill inline (string "]")
913913
914−linkText :: PandocMonad m => MuseParser m (String, String, Maybe (F Inlines))
914+linkText :: PandocMonad m => MuseParser m (String, Maybe (F Inlines))
915915linkText = do
916916 string "[["
917917 url <- many1Till anyChar $ char ']'
918918 content <- optionMaybe linkContent
919919 char ']'
920− return (url, "", content)
920+ return (url, content)