UnisonShare: Add foundations of Catalog page

Add a new page module for the Catalog and add placeholder model, update, and
view functionality. This includes a very early iteration of a Project
type.

Author: hojberg

src/Api.elm

@@ -8,6 +8,7 @@ module Api exposing
     , list
     , namespace
     , perform
+    , projects
     , toRequest
     , toUrl
     )
@@ -53,6 +54,11 @@ namespace perspective fqn =
     Endpoint [ "namespaces", FQN.toString fqn ] queryParams
 
 
+projects : Endpoint
+projects =
+    Endpoint [ "projects" ] []
+
+
 getDefinition : Perspective -> List String -> Endpoint
 getDefinition perspective fqnsOrHashes =
     let

src/Project.elm

@@ -0,0 +1,22 @@
+module Project exposing (..)
+
+import FullyQualifiedName exposing (FQN)
+import Hash exposing (Hash)
+import Json.Decode as Decode
+
+
+type Owner
+    = Owner String
+
+
+type alias Project a =
+    { a | owner : Owner, name : FQN, hash : Hash }
+
+
+type alias ProjectListing =
+    Project ()
+
+
+decodeList : Decode.Decoder (List ProjectListing)
+decodeList =
+    Decode.succeed []

src/UnisonShare/Page/Catalog.elm

@@ -0,0 +1,109 @@
+module UnisonShare.Page.Catalog exposing (..)
+
+import Api
+import Dict exposing (Dict)
+import Env exposing (Env)
+import Html exposing (Html, div, text)
+import Html.Attributes exposing (class)
+import Http
+import Project exposing (ProjectListing)
+import RemoteData exposing (RemoteData(..), WebData)
+import UI
+
+
+
+-- MODEL
+
+
+type Category
+    = Category String
+
+
+type Catalog
+    = Catalog (Dict Category ProjectListing)
+
+
+type alias LoadedModel =
+    { query : String
+    , catalog : Catalog
+    }
+
+
+type alias Model =
+    WebData LoadedModel
+
+
+init : Env -> ( Model, Cmd Msg )
+init env =
+    let
+        fetchCmd =
+            Api.projects
+                |> Api.toRequest Project.decodeList FetchProjectsFinished
+                |> Api.perform env.apiBasePath
+    in
+    ( Loading, fetchCmd )
+
+
+
+-- UPDATE
+
+
+type Msg
+    = UpdateQuery String
+    | ClearQuery
+    | FetchProjectsFinished (Result Http.Error (List ProjectListing))
+
+
+update : Msg -> Model -> ( Model, Cmd Msg )
+update msg model =
+    case ( msg, model ) of
+        ( FetchProjectsFinished projectsResult, _ ) ->
+            case projectsResult of
+                Err e ->
+                    ( Failure e, Cmd.none )
+
+                Ok projects ->
+                    let
+                        catalog =
+                            projectsToCatalog projects
+                    in
+                    ( Success { query = "", catalog = catalog }, Cmd.none )
+
+        ( UpdateQuery query, Success m ) ->
+            ( Success { m | query = query }, Cmd.none )
+
+        ( ClearQuery, Success m ) ->
+            ( Success { m | query = "" }, Cmd.none )
+
+        _ ->
+            ( model, Cmd.none )
+
+
+projectsToCatalog : List ProjectListing -> Catalog
+projectsToCatalog _ =
+    Catalog Dict.empty
+
+
+
+-- VIEW
+
+
+viewLoaded : LoadedModel -> Html Msg
+viewLoaded _ =
+    div [] [ text "Catalog" ]
+
+
+view : Model -> Html Msg
+view model =
+    case model of
+        NotAsked ->
+            UI.nothing
+
+        Loading ->
+            UI.nothing
+
+        Failure _ ->
+            div [ class "" ] [ text "Error..." ]
+
+        Success m ->
+            viewLoaded m