🐣

src/UI.gren

@@ -0,0 +1,82 @@
+module UI exposing
+    ( Element
+    , text
+    , column
+    , row
+    , button
+    , image
+    )
+
+{-| Cross-platform UI primitives.
+
+The `platform` type parameter stays polymorphic for elements that work
+everywhere. Platform-specific elements live in the `Mobile` and `Desktop`
+modules and constrain the parameter.
+-}
+
+import UI.Attribute exposing (Attribute)
+
+
+type Element platform msg
+    = Text
+        { attributes : Array (Attribute platform msg)
+        , content : String
+        }
+    | Column
+        { attributes : Array (Attribute platform msg)
+        , children : Array (Element platform msg)
+        }
+    | Row
+        { attributes : Array (Attribute platform msg)
+        , children : Array (Element platform msg)
+        }
+    | Button
+        { attributes : Array (Attribute platform msg)
+        , onPress : msg
+        , label : Element platform msg
+        }
+    | Image
+        { attributes : Array (Attribute platform msg)
+        , source : String
+        }
+
+
+text : Array (Attribute platform msg) -> String -> Element platform msg
+text attributes content =
+    Text { attributes = attributes, content = content }
+
+
+column :
+    Array (Attribute platform msg)
+    -> Array (Element platform msg)
+    -> Element platform msg
+column attributes children =
+    Column { attributes = attributes, children = children }
+
+
+row :
+    Array (Attribute platform msg)
+    -> Array (Element platform msg)
+    -> Element platform msg
+row attributes children =
+    Row { attributes = attributes, children = children }
+
+
+button :
+    Array (Attribute platform msg)
+    -> { onPress : msg, label : Element platform msg }
+    -> Element platform msg
+button attributes config =
+    Button
+        { attributes = attributes
+        , onPress = config.onPress
+        , label = config.label
+        }
+
+
+image :
+    Array (Attribute platform msg)
+    -> String
+    -> Element platform msg
+image attributes source =
+    Image { attributes = attributes, source = source }