diff --git a/LICENSE b/LICENSE
new file mode 100644
--- /dev/null
+++ b/LICENSE
@@ -0,0 +1,30 @@
+Copyright (c) 2014, Emil Axelsson
+
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions are met:
+
+ * Redistributions of source code must retain the above copyright
+ notice, this list of conditions and the following disclaimer.
+
+ * Redistributions in binary form must reproduce the above
+ copyright notice, this list of conditions and the following
+ disclaimer in the documentation and/or other materials provided
+ with the distribution.
+
+ * Neither the name of Emil Axelsson nor the names of other
+ contributors may be used to endorse or promote products derived
+ from this software without specific prior written permission.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
+LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
+A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
+OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
+SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
+LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
+THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
diff --git a/Setup.hs b/Setup.hs
new file mode 100644
--- /dev/null
+++ b/Setup.hs
@@ -0,0 +1,2 @@
+import Distribution.Simple
+main = defaultMain
diff --git a/src/Data/Tree/View.hs b/src/Data/Tree/View.hs
new file mode 100644
--- /dev/null
+++ b/src/Data/Tree/View.hs
@@ -0,0 +1,144 @@
+module Data.Tree.View
+ ( showTree
+ , drawTree
+ , NodeInfo (..)
+ , htmlTree
+ ) where
+
+
+
+import Control.Monad.State
+import Data.Traversable (traverse)
+import Data.Tree (Tree (..))
+import qualified Data.Tree as Tree
+
+
+
+indentInit :: [String] -> [String]
+indentInit [] = []
+indentInit (s:ss) = (" ├╴" ++ s) : map (" │ " ++) ss
+
+indentLast :: [String] -> [String]
+indentLast [] = []
+indentLast (s:ss) = (" └╴" ++ s) : map (" " ++) ss
+
+indentChildren :: [[String]] -> [[String]]
+indentChildren [] = []
+indentChildren ns = map indentInit (init ns) ++ [indentLast (last ns)]
+
+appLast :: [String] -> String -> [String]
+appLast ss s = init ss ++ [last ss ++ s]
+
+showTree' :: Tree String -> [String]
+showTree' (Node n ns) = n : concat (indentChildren (map showTree' ns))
+
+-- | Show a 'Tree' using Unicode art
+showTree :: Tree String -> String
+showTree = unlines . showTree'
+
+-- | Draw a 'Tree' on the terminal using Unicode art
+--
+-- Example:
+--
+-- > *Data.Tree.View> drawTree $ Node "Add" [Node "Sub" [Node "3" [], Node "Mul" [Node "1" [], Node "2" []]], Node "4" []]
+-- > Add
+-- > ├╴Sub
+-- > │ ├╴3
+-- > │ └╴Mul
+-- > │ ├╴1
+-- > │ └╴2
+-- > └╴4
+drawTree :: Tree String -> IO ()
+drawTree = putStrLn . showTree
+
+enumTree :: Tree a -> Tree (a,Int)
+enumTree = flip evalState 0 . traverse count
+ where
+ count :: a -> State Int (a,Int)
+ count a = do
+ i <- get; put (i+1)
+ return (a,i)
+
+-- | A tree node
+data NodeInfo = NodeInfo
+ { nodeName :: String -- ^ Node name (to be displayed in the HTML tree view)
+ , nodeInfo :: String -- ^ Additional information (to be displayed when hovering the mouse over
+ -- the node). This field may contain line breaks
+ }
+
+htmlNode :: (NodeInfo, Int) -> String
+htmlNode (n,i)
+ = ""
+ ++ nodeName n
+ ++ ""
+
+showTreeHtml' :: Tree (NodeInfo, Int) -> [String]
+showTreeHtml' (Node n []) = [htmlNode n]
+showTreeHtml' (Node n ns)
+ = [htmlNode n ++ ""]
+ ++ appLast (concat (indentChildren (map showTreeHtml' ns))) ""
+
+showTreeHtml :: Tree (NodeInfo, Int) -> String
+showTreeHtml tree = unlines $ lines template1 ++ showTreeHtml' tree ++ lines template2
+
+-- | Convert a 'Tree' to HTML with foldable nodes
+htmlTree :: FilePath -> Tree NodeInfo -> IO ()
+htmlTree file = writeFile file . showTreeHtml . enumTree
+
+template1 =
+ "\n\
+ \\n\
+ \\n\
+ \\n\
+ \ \n\
+ \ Tree view\n\
+ \ \n\
+ \ \n\
+ \\n\
+ \\n\
+ \\n\
+ \\n"
+
+template2 =
+ "
\n\
+ \\n\
+ \\n\
+ \\n"
+
diff --git a/tree-view.cabal b/tree-view.cabal
new file mode 100644
--- /dev/null
+++ b/tree-view.cabal
@@ -0,0 +1,41 @@
+name: tree-view
+version: 0.1
+synopsis: Render trees as foldable HTML and Unicode art
+description: Render trees as foldable HTML and Unicode art
+ .
+ Example:
+ .
+ > *Data.Tree.View> drawTree $ Node "Add" [Node "Sub" [Node "3" [], Node "Mul" [Node "1" [], Node "2" []]], Node "4" []]
+ > Add
+ > ├╴Sub
+ > │ ├╴3
+ > │ └╴Mul
+ > │ ├╴1
+ > │ └╴2
+ > └╴4
+license: BSD3
+license-file: LICENSE
+author: Emil Axelsson
+maintainer: emax@chalmers.se
+copyright: Copyright (c) 2014 Emil Axelsson
+category: Data
+build-type: Simple
+cabal-version: >=1.10
+
+source-repository head
+ type: darcs
+ location: http://hub.darcs.net/emax/tree-view
+
+library
+ exposed-modules:
+ Data.Tree.View
+
+ hs-source-dirs:
+ src
+
+ build-depends:
+ base < 4.7,
+ containers,
+ mtl
+
+ default-language: Haskell2010