git.iko.soy/typeable/pandoc
on master help sign in
Fixed omitted `url(...)` in CSS data-uri with `--self-contained`.
fb1843eJohn MacFarlane
src/Text/Pandoc/SelfContained.hs+1−1
compare with master
unifiedsplit
@@ -135,7 +135,7 @@ pCSSUrl media sourceURL d = P.try $ do
135 'd':'a':'t':'a':':':_ -> return fallback
135 'd':'a':'t':'a':':':_ -> return fallback
136 u -> do let url' = if isURI u then u else d </> u
136 u -> do let url' = if isURI u then u else d </> u
137 enc <- lift $ getDataURI media sourceURL "" url'
137 enc <- lift $ getDataURI media sourceURL "" url'
138− return (B.pack enc)
138+ return (B.pack $ "url(" ++ enc ++ ")")
139
139
140
140
141getDataURI :: MediaBag -> Maybe String -> MimeType -> String
141getDataURI :: MediaBag -> Maybe String -> MimeType -> String