Fixed omitted `url(...)` in CSS data-uri with `--self-contained`.
Fixes #2489.
commitfb1843ecdeea5131ea4ed27adc1124e13ae1c5d9
authorJohn MacFarlane <jgm@berkeley.edu>
dateWed 28 Oct 2015, 10:02 (11 years ago)
parent1d53d45
src/Text/Pandoc/SelfContained.hs+1−1
@@ -135,7 +135,7 @@ pCSSUrl media sourceURL d = P.try $ do
135135 'd':'a':'t':'a':':':_ -> return fallback
136136 u -> do let url' = if isURI u then u else d </> u
137137 enc <- lift $ getDataURI media sourceURL "" url'
138− return (B.pack enc)
138+ return (B.pack $ "url(" ++ enc ++ ")")
139139
140140
141141getDataURI :: MediaBag -> Maybe String -> MimeType -> String