Initial commit

.gitignore

@@ -0,0 +1,6 @@
+*dist/*
+*.cabal-sandbox*
+*.stack-work*
+*~
+lib/gi-gdkx11/GI/*
+lib/gi-xlib/GI/*

LICENSE

@@ -0,0 +1,29 @@
+BSD 3-Clause License
+
+Copyright (c) 2017, David Lettier
+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 the copyright holder nor the names of its
+  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 HOLDER 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.

README.md

@@ -0,0 +1,40 @@
+![Movie Monad](https://i.imgur.com/Vt9Bipy.png)
+
+# Movie Monad
+
+A desktop video player built with Haskell that uses GStreamer and GTK+.
+
+## Screenshots
+
+<img src="http://i.imgur.com/QOMXSwo.jpg" width="600" alt="GUI" title= "GUI" />
+
+## Documentation
+
+[Let's make a GTK Video Player with Haskell](https://lettier.github.io/posts/2017-08-30-haskell-gtk-video-player.html)
+
+## Install
+
+### GitHub
+
+```bash
+# Install Git
+# Install Haskell
+# Install Haksell Stack
+# Install ExifTool
+git clone https://github.com/lettier/movie-monad.git
+cd movie-monad/
+stack setup
+stack install --dependencies-only
+haskell-gi -o lib/gi-gdkx11/GdkX11.overrides -O lib/gi-gdkx11 GdkX11-3.0
+haskell-gi -o lib/gi-xlib/xlib.overrides     -O lib/gi-xlib xlib
+stack build
+stack install
+stack exec -- movie-monad
+```
+
+## License
+
+See [LICENSE](LICENSE).
+
+(C) 2017 David Lettier  
+[lettier.com](http://www.lettier.com/)

Setup.hs

@@ -0,0 +1,2 @@
+import Distribution.Simple
+main = defaultMain

lib/gi-gdkx11/GdkX11.overrides

@@ -0,0 +1,2 @@
+pkg-config-name xlib x11
+namespace-version GdkX11 3.0

lib/gi-gdkx11/Setup.hs

@@ -0,0 +1,3 @@
+#!/usr/bin/env runhaskell
+import Distribution.Simple
+main = defaultMain

lib/gi-gdkx11/cabal.config

@@ -0,0 +1 @@
+optimization: False

lib/gi-gdkx11/gi-gdkx11.cabal

@@ -0,0 +1,47 @@
+-- Autogenerated, do not edit.
+name:               gi-gdkx11
+version:            0.3.22.20
+synopsis:           GdkX11 bindings
+description:        Bindings for GdkX11, autogenerated by haskell-gi.
+homepage:           https://github.com/haskell-gi/haskell-gi
+license:            LGPL-2.1
+license-file:       LICENSE
+author:             Will Thompson, Iñaki García Etxebarria and Jonas Platte
+maintainer:         Iñaki García Etxebarria (garetxe@gmail.com)
+category:           Bindings
+build-type:         Simple
+cabal-version:      >=1.10
+
+library
+    default-language:   Haskell2010
+    default-extensions: NoImplicitPrelude, ScopedTypeVariables, CPP, OverloadedStrings, NegativeLiterals, ConstraintKinds, TypeFamilies, MultiParamTypeClasses, KindSignatures, FlexibleInstances, UndecidableInstances, DataKinds, FlexibleContexts
+    other-extensions:   PatternSynonyms, ViewPatterns
+    ghc-options:        -fno-warn-unused-imports -fno-warn-warnings-deprecations
+    exposed-modules:    GI.GdkX11
+                        GI.GdkX11.Functions
+                        GI.GdkX11.Objects
+                        GI.GdkX11.Objects.X11AppLaunchContext
+                        GI.GdkX11.Objects.X11Cursor
+                        GI.GdkX11.Objects.X11DeviceCore
+                        GI.GdkX11.Objects.X11DeviceManagerCore
+                        GI.GdkX11.Objects.X11DeviceManagerXI2
+                        GI.GdkX11.Objects.X11DeviceXI2
+                        GI.GdkX11.Objects.X11Display
+                        GI.GdkX11.Objects.X11DisplayManager
+                        GI.GdkX11.Objects.X11DragContext
+                        GI.GdkX11.Objects.X11Keymap
+                        GI.GdkX11.Objects.X11Screen
+                        GI.GdkX11.Objects.X11Visual
+                        GI.GdkX11.Objects.X11Window
+    pkgconfig-depends:  gdk-x11-3.0 >= 3.22
+    build-depends:
+        haskell-gi-base >= 0.20 && < 1,
+        gi-gobject == 2.0.*,
+        gi-gdk == 3.0.*,
+        gi-gio == 2.0.*,
+        gi-xlib >= 0.1.6.20 && < 0.1.7,
+        bytestring >= 0.10 && < 1,
+        containers >= 0.5 && < 1,
+        text >= 1.0 && < 2,
+        transformers >= 0.4 && < 1,
+        base >= 4.7 && <5