1 files changed, 29 insertions, 0 deletions
diff --git a/elm3/Lib/Ffi.elm b/elm3/Lib/Ffi.elm
new file mode 100644
index 00000000..6c3cbf46
--- /dev/null
+++ b/elm3/Lib/Ffi.elm
@@ -0,0 +1,29 @@
+-- Elm 0.19: "We've removed all Native modules and plugged all XSS vectors,
+--            it's now impossible to talk with Javascript other than with ports!"
+-- Me: "Oh yeah? I'll just run sed over the generated Javascript!"
+
+-- This module is a hack to work around the lack of an FFI (Foreign Function
+-- Interface) in Elm. The functions in this module are stubs, their
+-- implementations are replaced by the Makefile with calls to
+-- window.elmFfi_<name> and the actual implementations are in static/v3/vndb.js.
+--
+-- Use sparingly, all of this will likely break in future Elm versions.
+module Lib.Ffi exposing (..)
+
+import Html exposing (Attribute)
+import Html.Attributes exposing (title)
+
+
+-- This is an "onclick = openLightbox(this)" attribute
+openLightbox : Attribute msg
+openLightbox = title ""
+
+
+-- Set the innerHTML attribute of a node
+innerHtml : String -> Attribute msg
+innerHtml = always (title "")
+
+
+-- The current year
+curYear : Int
+curYear = 2018