From 9383260e20b4f899fce9982aa2255d40ab9d48f6 Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Sun, 20 Nov 2011 12:32:54 -0800
Subject: Offline: Look for relative URLs in data directory if not found.

---
 src/Text/Pandoc/Offline.hs | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

(limited to 'src/Text/Pandoc')

diff --git a/src/Text/Pandoc/Offline.hs b/src/Text/Pandoc/Offline.hs
index c0d6edef9..4ae365156 100644
--- a/src/Text/Pandoc/Offline.hs
+++ b/src/Text/Pandoc/Offline.hs
@@ -42,12 +42,24 @@ import System.FilePath (takeExtension, dropExtension, takeDirectory, (</>))
 import Data.Char (toLower, isAscii, isAlphaNum)
 import Codec.Compression.GZip as Gzip
 import qualified Data.ByteString.Lazy as L
+import Text.Pandoc.Shared (findDataFile)
+import System.Directory (doesFileExist)
 
 getItem :: String -> IO ByteString
 getItem f =
   if isAbsoluteURI f
      then openURL f
-     else B.readFile f
+     else do
+       let userDataDir = "." -- TODO writeUserDataDir
+       exists <- doesFileExist f
+       if exists
+          then B.readFile f
+          else do
+            res <- findDataFile (Just userDataDir) f
+            exists' <- doesFileExist res
+            if exists'
+               then B.readFile res
+               else B.readFile f -- will throw error
 
 openURL :: String -> IO ByteString
 openURL u = getResponseBody =<< simpleHTTP (getReq u)
-- 
cgit v1.2.3