add ihaskell-magic

ihaskell-display/ihaskell-magic/IHaskell/Display/Magic.hs

+{-# LANGUAGE ViewPatterns, TypeSynonymInstances, FlexibleInstances #-}
+module IHaskell.Display.Magic () where
+
+import IHaskell.Display
+import Magic
+import qualified Data.ByteString as B
+import qualified Data.ByteString.Unsafe as B
+import qualified Data.ByteString.Base64 as Base64
+import qualified Data.ByteString.Char8 as Char
+import qualified Data.ByteString.UTF8 as B
+
+import Text.Read
+import Data.Char
+
+import qualified Data.Text as T
+import qualified Data.Text.Encoding as T
+import Data.ByteString.UTF8
+
+instance IHaskellDisplay T.Text where
+    display = display . T.encodeUtf8
+
+instance IHaskellDisplay B.ByteString where
+    display x = do
+        m <- magicOpen []
+        magicLoadDefault m
+        f <- B.unsafeUseAsCStringLen x (magicCString m)
+        return [withClass (parseMagic f) x]
+
+b64 :: B.ByteString -> String
+b64 = Char.unpack . Base64.encode
+
+withClass :: MagicClass -> B.ByteString -> DisplayData
+withClass SVG = svg . B.toString
+withClass (PNG w h) = png w h . Base64.encode
+withClass JPG = jpg 400 300 . Base64.encode
+withClass HTML = html . B.toString 
+withClass LaTeX = latex . B.toString
+withClass _ = plain . B.toString
+
+{- | parse the string produced by magic.
+
+>>> parseMagic "LaTeX 2e document, ASCII text, with very long lines"
+LaTeX
+
+>>> parseMagic "PNG image data, 480 x 480, 8-bit/color RGB, non-interlaced"
+PNG 480 480
+
+>>> parseMagic "HTML document, ASCII text, with very long lines"
+HTML
+
+>>> parseMagic "JPEG image data, JFIF standard 1.01"
+JPG
+
+-}
+parseMagic :: String -> MagicClass
+parseMagic f = case words f of
+    "SVG" : _ -> SVG
+    "PNG" : _image : _data :
+        (readMaybe -> Just w) : _x :
+        (readMaybe . takeWhile isDigit -> Just h) : _ -> PNG w h
+    "LaTeX" : _ -> LaTeX
+    "HTML" : _ -> HTML
+    "JPEG" : _ -> JPG
+    _ -> Unknown
+
+
+data MagicClass =
+    SVG | PNG Int Int | JPG | HTML | LaTeX | Unknown
+    deriving Show

ihaskell-display/ihaskell-magic/LICENSE

+The MIT License (MIT)
+
+Copyright (c) 2013 Andrew Gibiansky
+
+Permission is hereby granted, free of charge, to any person obtaining a copy of
+this software and associated documentation files (the "Software"), to deal in
+the Software without restriction, including without limitation the rights to
+use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of
+the Software, and to permit persons to whom the Software is furnished to do so,
+subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all
+copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS
+FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR
+COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
+IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
+CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

ihaskell-display/ihaskell-magic/README.md

+IHaskell-Magic
+================
+
+Instances of IHaskellDisplay for `Text` and `ByteString`, where the actual
+image or text format is determined using [libmagic](http://packages.debian.org/unstable/libdevel/libmagic-dev), which classifies files according to their contents. It is the same as the shell command `file(1)`. Depending on your OS, you will have to install the c-library first. On a debian-like OS:
+
+```bash
+apt-get install libmagic-dev
+cd ihaskell-magic
+cabal install
+```
+
+The instances provided allow displaying images and text with markup using just one line:
+```haskell
+import qualified Data.ByteString as B
+import qualified Data.Text.IO as T
+B.readFile "foo.png"
+B.readFile "foo.svg"
+B.readFile "foo.jpg" -- currently broken (Jan6,2014)
+T.readFile "foo.tex" -- doesn't work that well for literal strings,
+                     -- since you pretty much need a \documentclass[]{} to get
+                     -- the file recognized, at which point I'm not sure it renders
+T.readFile "foo.html"
+```
+While you can use `B.readFile "foo.tex"`, that involves more assumptions regarding encodings.

ihaskell-display/ihaskell-magic/Setup.hs

+import Distribution.Simple
+main = defaultMain

ihaskell-display/ihaskell-magic/ihaskell-magic.cabal

+-- Initial ihaskell-display.cabal generated by cabal init.  For further 
+-- documentation, see http://haskell.org/cabal/users-guide/
+
+-- The name of the package.
+name:                ihaskell-magic
+
+-- The package version.  See the Haskell package versioning policy (PVP) 
+-- for standards guiding when and how versions should be incremented.
+-- http://www.haskell.org/haskellwiki/Package_versioning_policy
+-- PVP summary:      +-+------- breaking API changes
+--                   | | +----- non-breaking API additions
+--                   | | | +--- code changes with no API change
+version:             0.1.0.0
+
+-- A short (one-line) description of the package.
+synopsis:            IHaskell display instances for bytestrings
+
+-- A longer description of the package.
+-- description:         
+
+-- URL for the project homepage or repository.
+homepage:            http://www.github.com/gibiansky/IHaskell
+
+-- The license under which the package is released.
+-- license:             
+
+-- The file containing the license text.
+license-file:        LICENSE
+
+-- The package author(s).
+author:              Adam Vogt
+
+-- An email address to which users can send suggestions, bug reports, and 
+-- patches.
+maintainer:          andrew.gibiansky@gmail.com
+
+-- A copyright notice.
+-- copyright:           
+
+category:            Development
+
+build-type:          Simple
+
+-- Extra files to be distributed with the package, such as examples or a 
+-- README.
+-- extra-source-files:  
+
+-- Constraint on the version of Cabal needed to build this package.
+cabal-version:       >=1.16
+
+
+library
+  -- Modules exported by the library.
+  exposed-modules:     IHaskell.Display.Magic
+  
+  -- Modules included in this library but not exported.
+  -- other-modules:       
+  
+  -- Language extensions.
+  default-extensions: DoAndIfThenElse
+              OverloadedStrings
+             
+  -- Other library packages from which modules are imported.
+  build-depends:       base ==4.6.*,
+                       classy-prelude >=0.6,
+                       magic >= 1.0.8,
+                       text,
+                       bytestring,
+                       utf8-string,
+                       base64-bytestring,
+                       ihaskell
+  
+  -- Directories containing source files.
+  -- hs-source-dirs:      
+  
+  -- Base language which the package is written in.
+  default-language:    Haskell2010
+