From 6cdfde58076187daf4909ccd128067da5a1fe7f1 Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Thu, 28 Jun 2012 18:35:21 -0700
Subject: SelfContained:  Fix handling of absolute URLs in css imports.

Also allow single-quoted values.

Closes #535.
---
 src/Text/Pandoc/SelfContained.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/Text/Pandoc/SelfContained.hs b/src/Text/Pandoc/SelfContained.hs
index 9332a3fa0..a80ab0c63 100644
--- a/src/Text/Pandoc/SelfContained.hs
+++ b/src/Text/Pandoc/SelfContained.hs
@@ -121,8 +121,12 @@ cssURLs userdata d orig =
                   let url = toString
                           $ case B.take 1 u of
                                  "\"" -> B.takeWhile (/='"') $ B.drop 1 u
+                                 "'"  -> B.takeWhile (/='\'') $ B.drop 1 u
                                  _    -> u
-                  (raw, mime) <- getRaw userdata "" (d </> url)
+                  let url' = if isAbsoluteURI url
+                                then url
+                                else d </> url
+                  (raw, mime) <- getRaw userdata "" url'
                   rest <- cssURLs userdata d v
                   let enc = "data:" `B.append` fromString mime `B.append`
                                ";base64," `B.append` (encode raw)
-- 
cgit v1.2.3