diff --git a/Control/DysFRP/Craftwerk.hs b/Control/DysFRP/Craftwerk.hs
new file mode 100644
--- /dev/null
+++ b/Control/DysFRP/Craftwerk.hs
@@ -0,0 +1,46 @@
+module Control.DysFRP.Craftwerk(
+    drawFigureOnDrawable, 
+    render, renderB,
+    compositionB, rotateB, translateB, translate2B, scaleB, scale2B
+) where
+
+import qualified Control.DysFRP as R
+import Control.DysFRP.Cairo
+import Data.IORef
+import Control.Applicative
+import Graphics.UI.Gtk
+import Graphics.UI.Gtk.Gdk.GC
+import Graphics.Craftwerk.Core
+import Graphics.Craftwerk.UI.Gtk hiding (RenderContext)
+import qualified Graphics.Rendering.Cairo as C
+import Foreign.Ptr
+import qualified Data.Map as Map
+import Data.Traversable
+
+drawFigureOnDrawable :: DrawableClass d => Double -> Double -> d -> Figure -> IO ()
+drawFigureOnDrawable px py srf fig = drawContextOnDrawable srf (render px py fig)
+
+renderB :: Double -> Double -> R.Behavior Figure -> R.Behavior (RenderContext)
+renderB px py = fmap (render px py)
+
+render :: Double -> Double -> Figure -> RenderContext
+render px py fig = cairo (renderFigure px py (\_ -> return fig)) Map.empty
+
+compositionB :: [R.Behavior Figure] -> R.Behavior Figure
+compositionB = fmap composition . sequenceA
+
+rotateB :: R.Behavior Double -> R.Behavior Figure -> R.Behavior Figure
+rotateB = liftA2 rotate
+
+translateB :: R.Behavior Vector -> R.Behavior Figure -> R.Behavior Figure
+translateB = liftA2 translate
+
+translate2B :: R.Behavior Double -> R.Behavior Double -> R.Behavior Figure -> R.Behavior Figure
+translate2B x y = translateB (liftA2 (,) x y)
+
+scaleB :: R.Behavior Vector -> R.Behavior Figure -> R.Behavior Figure
+scaleB = liftA2 scale
+
+scale2B :: R.Behavior Double -> R.Behavior Double -> R.Behavior Figure -> R.Behavior Figure
+scale2B x y = scaleB (liftA2 (,) x y)
+
diff --git a/DysFRP-Craftwerk.cabal b/DysFRP-Craftwerk.cabal
new file mode 100644
--- /dev/null
+++ b/DysFRP-Craftwerk.cabal
@@ -0,0 +1,18 @@
+Name: DysFRP-Craftwerk
+Version: 0.1
+License: BSD3
+License-File: LICENSE
+Author: Marek Materzok
+Maintainer: Marek Materzok
+Build-Type: Simple
+Stability: experimental
+Cabal-Version: >= 1.2
+Homepage: https://github.com/tilk/DysFRP
+Category: FRP
+Synopsis: dysFunctional Reactive Programming on Craftwerk
+Description: Simple Craftwerk bindings for DysFRP.
+
+Library
+    Build-Depends: base >= 4 && < 5, cairo, gtk, containers, craftwerk, craftwerk-gtk, DysFRP, DysFRP-Cairo
+    Exposed-modules: Control.DysFRP.Craftwerk
+
diff --git a/LICENSE b/LICENSE
new file mode 100644
--- /dev/null
+++ b/LICENSE
@@ -0,0 +1,22 @@
+Copyright (c) 2012, Marek Materzok
+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.
+
+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 HOLDER 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,3 @@
+import Distribution.Simple
+main = defaultMain
+