From 7ba9487c3012b9f3f973b99a4256e59335eb6c11 Mon Sep 17 00:00:00 2001
From: Rok Garbas <rok@garbas.si>
Date: Tue, 31 Mar 2020 05:22:27 +0200
Subject: [PATCH] add model for package and option result

---
 elm.json     |   3 +-
 src/Main.elm | 127 ++++++++++++++++++++++++++++++++++++++++-----------
 2 files changed, 102 insertions(+), 28 deletions(-)

diff --git a/elm.json b/elm.json
index 019388f..1ce173a 100644
--- a/elm.json
+++ b/elm.json
@@ -11,7 +11,8 @@
             "elm/html": "1.0.0",
             "elm/http": "2.0.0",
             "elm/json": "1.1.3",
-            "elm/url": "1.0.0"
+            "elm/url": "1.0.0",
+            "krisajenkins/remotedata": "6.0.1"
         },
         "indirect": {
             "elm/bytes": "1.0.8",
diff --git a/src/Main.elm b/src/Main.elm
index 74b28ce..daaa91b 100644
--- a/src/Main.elm
+++ b/src/Main.elm
@@ -1,27 +1,41 @@
-port module Main exposing (main)
+module Main exposing (main)
 
 import Browser exposing (UrlRequest(..))
 import Browser.Navigation as Nav exposing (Key)
-import Html exposing (..)
-import Html.Attributes exposing (..)
-import Html.Events exposing (onClick, onInput)
+import Html
+    exposing
+        ( Html
+        , button
+        , div
+        , h1
+        , header
+        , input
+        , li
+        , text
+        , ul
+        )
+import Html.Attributes
+    exposing
+        ( class
+        , type_
+        , value
+        )
+import Html.Events
+    exposing
+        ( onClick
+        , onInput
+        )
 import Http exposing (Error(..))
-import Json.Decode as Decode
 import Url exposing (Url)
-import Url.Parser as UrlParser exposing ((</>), (<?>), Parser)
+import Url.Parser as UrlParser
+    exposing
+        ( (<?>)
+        , Parser
+        )
 import Url.Parser.Query as UrlParserQuery
 
 
 
--- ---------------------------
--- PORTS
--- ---------------------------
-
-
-port toJs : String -> Cmd msg
-
-
-
 -- ---------------------------
 -- MODEL
 -- ---------------------------
@@ -35,7 +49,7 @@ type alias Model =
 
 type alias SearchModel =
     { query : String
-    , results : List String
+    , results : List SearchResult
     }
 
 
@@ -43,12 +57,53 @@ type Page
     = Search SearchModel
 
 
+type SearchResult
+    = Package SearchResultPackage
+    | Option SearchResultOption
+
+
+type alias SearchResultPackage =
+    { attribute_name : String
+    , name : String
+    , version : String
+    , description : String
+    , longDescription : String
+    , license : List SearchResultPackageLicense
+    , position : String
+    , homepage : String
+    }
+
+
+type alias SearchResultOption =
+    { option_name : String
+    , description : String
+    , type_ : String
+    , default : String
+    , example : String
+    , source : String
+    }
+
+
+type alias SearchResultPackageLicense =
+    { fullName : String
+    , url : String
+    }
+
+
+type alias SearchResultPackageMaintainer =
+    { name : String
+    , email : String
+    , github : String
+    }
+
+
+emptySearch : Page
 emptySearch =
     Search { query = "", results = [] }
 
 
 init : Int -> Url -> Key -> ( Model, Cmd Msg )
-init flags url key =
+init _ url key =
     ( { key = key
       , page = UrlParser.parse urlParser url |> Maybe.withDefault emptySearch
       }
@@ -102,7 +157,7 @@ type Msg
 initPage : Page -> Cmd Msg
 initPage page =
     case page of
-        Search model ->
+        Search _ ->
             Cmd.none
 
 
@@ -116,9 +171,21 @@ update message model =
             let
                 newModel =
                     { model | page = UrlParser.parse urlParser url |> Maybe.withDefault model.page }
-            in
-            ( { newModel
-                | page =
+
+                packages =
+                    [ Package
+                        { attribute_name = "firefox"
+                        , name = "firefox"
+                        , version = "74.0"
+                        , description = "A web browser built from Firefox source tree (with plugins: )"
+                        , longDescription = ""
+                        , license = [ { fullName = "Mozilla Public License 2.0", url = "http://spdx.org/licenses/MPL-2.0.html" } ]
+                        , position = ""
+                        , homepage = "http://www.mozilla.com/en-US/firefox/"
+                        }
+                    ]
+
+                newPage =
                     case newModel.page of
                         Search searchModel ->
                             Search
@@ -128,10 +195,11 @@ update message model =
                                             []
 
                                         else
-                                            [ "result1" ]
+                                            packages
                                 }
-              }
-            , initPage model.page
+            in
+            ( { newModel | page = newPage }
+            , initPage newPage
             )
 
         SearchPageInput query ->
@@ -186,9 +254,14 @@ searchPage model =
         ]
 
 
-searchPageResult : String -> Html Msg
-searchPageResult item =
-    li [] [ text item ]
+searchPageResult : SearchResult -> Html Msg
+searchPageResult result =
+    case result of
+        Package package ->
+            li [] [ text package.attribute_name ]
+
+        Option option ->
+            li [] [ text option.option_name ]