Merge branch 'rootzlevel-master'

src/Text/Pandoc/Readers/Org.hs

@@ -1093,7 +1093,7 @@ explicitOrImageLink = try $ do
   char ']'
   alt <- internalLink src title'
   return $
-    (if isImageFilename src && isImageFilename title
+    (if isImageFilename title
       then B.link src "" $ B.image title mempty mempty
       else fromMaybe alt (linkToInlines src title'))
 

tests/Tests/Readers/Org.hs

@@ -216,6 +216,10 @@ tests =
           "[[sunset.png][dusk.svg]]" =?>
           (para $ link "sunset.png" "" (image "dusk.svg" "" ""))
 
+      , "Image link with non-image target" =:
+          "[[http://example.com][logo.png]]" =?>
+          (para $ link "http://example.com" "" (image "logo.png" "" ""))
+
       , "Plain link" =:
           "Posts on http://zeitlens.com/ can be funny at times." =?>
           (para $ spcSep [ "Posts", "on"