Add (and style) the basic Catalog page layout

* To support the Catalog page, add a unison-share css folder for the
  catalog page and a new Card module for cards holding each category in
  the catalog.
* Rename `UI.Page` to `UI.PageLayout` to better communicate what that
  module is for.
* Add a way to generate a Route from a Project (exclusively to the Unison
  Share target) to allow clicking to through to the project page from
  the catalog

Author: hojberg

src/CodebaseTree.elm

@@ -15,7 +15,7 @@ import FullyQualifiedName as FQN exposing (FQN, unqualifiedName)
 import FullyQualifiedNameSet as FQNSet exposing (FQNSet)
 import HashQualified exposing (HashQualified(..))
 import Html exposing (Html, a, div, label, span, text)
-import Html.Attributes exposing (class, title)
+import Html.Attributes exposing (class, href, title)
 import Html.Events exposing (onClick)
 import Http
 import Perspective exposing (Perspective)

src/FullyQualifiedName.elm

@@ -1,6 +1,7 @@
 module FullyQualifiedName exposing
     ( FQN
     , append
+    , cons
     , decode
     , decodeFromParent
     , equals
@@ -16,6 +17,7 @@ module FullyQualifiedName exposing
     , namespaceOf
     , numSegments
     , segments
+    , snoc
     , toString
     , toUrlSegments
     , toUrlString
@@ -179,6 +181,16 @@ append (FQN a) (FQN b) =
     FQN (NEL.append a b)
 
 
+cons : String -> FQN -> FQN
+cons s (FQN segments_) =
+    FQN (NEL.cons s segments_)
+
+
+snoc : FQN -> String -> FQN
+snoc (FQN segments_) s =
+    FQN (NEL.append segments_ (NEL.fromElement s))
+
+
 {-| This is passed through a string as a suffix name can include
 namespaces like List.map (where the FQN would be
 base.List.map)

src/Project.elm

@@ -10,13 +10,22 @@ type Owner
 
 
 type alias Project a =
-    { a | owner : Owner, name : FQN, hash : Hash }
+    { a | owner : Owner, name : FQN }
+
+
+
+-- { a | owner : Owner, name : FQN, hash : Hash }
 
 
 type alias ProjectListing =
     Project {}
 
 
+ownerToString : Owner -> String
+ownerToString (Owner o) =
+    o
+
+
 decodeList : Decode.Decoder (List ProjectListing)
 decodeList =
     Decode.succeed []

src/UI/Card.elm

@@ -1,6 +1,6 @@
 module UI.Card exposing (..)
 
-import Html exposing (Html, div, text)
+import Html exposing (Html, div, h3, text)
 import Html.Attributes exposing (class)
 
 
@@ -40,5 +40,8 @@ view card_ =
             case card_.title of
                 Just t ->
                     h3 [ class "card-title" ] [ text t ] :: card_.items
+
+                Nothing ->
+                    card_.items
     in
     div [ class "card" ] items

src/UI/Page.elm renamed to src/UI/PageLayout.elm

@@ -1,23 +1,23 @@
-module UI.Page exposing (..)
+module UI.PageLayout exposing (..)
 
 import Html exposing (Html, div, header, section)
 import Html.Attributes exposing (class, classList)
 import UI.AppHeader as AppHeader exposing (AppHeader)
 import UI.Sidebar as Sidebar
 
 
-type Hero msg
-    = Hero (Html msg)
+type PageHero msg
+    = PageHero (Html msg)
 
 
 type PageContent msg
     = PageContent (List (Html msg))
 
 
-type Page msg
+type PageLayout msg
     = HeroLayout
         { header : AppHeader msg
-        , hero : Hero msg
+        , hero : PageHero msg
         , content :
             PageContent msg
         }
@@ -34,8 +34,8 @@ type Page msg
 -- VIEW
 
 
-viewHero : Hero msg -> Html msg
-viewHero (Hero content) =
+viewHero : PageHero msg -> Html msg
+viewHero (PageHero content) =
     header [ class "page-hero" ] [ content ]
 
 
@@ -44,7 +44,7 @@ viewContent (PageContent content) =
     section [ class "page-content" ] content
 
 
-view : Page msg -> Html msg
+view : PageLayout msg -> Html msg
 view page =
     case page of
         HeroLayout { header, hero, content } ->

src/UnisonLocal/App.elm

@@ -26,7 +26,7 @@ import UI.Button as Button
 import UI.Click as Click exposing (Click(..))
 import UI.Icon as Icon
 import UI.Modal as Modal
-import UI.Page as Page
+import UI.PageLayout as PageLayout
 import UI.Sidebar as Sidebar
 import UI.Tooltip as Tooltip
 import UnisonLocal.Route as Route exposing (Route)
@@ -129,8 +129,19 @@ type Msg
 update : Msg -> Model -> ( Model, Cmd Msg )
 update msg ({ env } as model) =
     case msg of
-        LinkClicked _ ->
-            ( model, Cmd.none )
+        LinkClicked urlRequest ->
+            case urlRequest of
+                Browser.Internal url ->
+                    let
+                        x =
+                            Debug.log "url" url
+                    in
+                    ( model, Nav.pushUrl model.navKey (Url.toString url) )
+
+                -- External links are handled via target blank and never end up
+                -- here
+                Browser.External _ ->
+                    ( model, Cmd.none )
 
         UrlChanged url ->
             let
@@ -747,25 +758,25 @@ viewModal model =
 
 viewAppLoading : Html msg
 viewAppLoading =
-    Page.view
-        (Page.SidebarLayout
+    PageLayout.view
+        (PageLayout.SidebarLayout
             { header = AppHeader.appHeader (appTitle Nothing)
             , sidebar = []
             , sidebarToggled = False
-            , content = Page.PageContent []
+            , content = PageLayout.PageContent []
             }
         )
 
 
 viewAppError : Http.Error -> Html msg
 viewAppError error =
-    Page.view
-        (Page.SidebarLayout
+    PageLayout.view
+        (PageLayout.SidebarLayout
             { header = AppHeader.appHeader (appTitle Nothing)
             , sidebar = []
             , sidebarToggled = False
             , content =
-                Page.PageContent
+                PageLayout.PageContent
                     [ div [ class "app-error" ]
                         [ Icon.view Icon.warn
                         , p [ title (Api.errorToString error) ]
@@ -792,13 +803,13 @@ view model =
                     Html.map WorkspaceMsg (Workspace.view model.workspace)
 
         page =
-            Page.SidebarLayout
+            PageLayout.SidebarLayout
                 { header = viewAppHeader model
                 , sidebar = viewMainSidebar model
                 , sidebarToggled = model.sidebarToggled
-                , content = Page.PageContent [ pageContent ]
+                , content = PageLayout.PageContent [ pageContent ]
                 }
     in
     { title = "Unison Local"
-    , body = [ div [ id "app" ] [ Page.view page, viewModal model ] ]
+    , body = [ div [ id "app" ] [ PageLayout.view page, viewModal model ] ]
     }

src/UnisonShare/App.elm

@@ -24,7 +24,7 @@ import UI.Banner as Banner
 import UI.Button as Button
 import UI.Click as Click exposing (Click(..))
 import UI.Icon as Icon
-import UI.Page as Page
+import UI.PageLayout as PageLayout
 import UI.Sidebar as Sidebar
 import UI.Tooltip as Tooltip
 import UnisonShare.AppModal as AppModal
@@ -126,8 +126,15 @@ type Msg
 update : Msg -> Model -> ( Model, Cmd Msg )
 update msg ({ env } as model) =
     case msg of
-        LinkClicked _ ->
-            ( model, Cmd.none )
+        LinkClicked urlRequest ->
+            case urlRequest of
+                Browser.Internal url ->
+                    ( model, Nav.pushUrl model.navKey (Url.toString url) )
+
+                -- External links are handled via target blank and never end up
+                -- here
+                Browser.External _ ->
+                    ( model, Cmd.none )
 
         UrlChanged url ->
             let
@@ -639,21 +646,21 @@ viewMainSidebar model =
 
 viewAppLoading : Html msg
 viewAppLoading =
-    Page.view
-        (Page.FullLayout
+    PageLayout.view
+        (PageLayout.FullLayout
             { header = AppHeader.appHeader (appTitle Nothing)
-            , content = Page.PageContent []
+            , content = PageLayout.PageContent []
             }
         )
 
 
 viewAppError : Http.Error -> Html msg
 viewAppError error =
-    Page.view
-        (Page.FullLayout
+    PageLayout.view
+        (PageLayout.FullLayout
             { header = AppHeader.appHeader (appTitle Nothing)
             , content =
-                Page.PageContent
+                PageLayout.PageContent
                     [ div [ class "app-error" ]
                         [ Icon.view Icon.warn
                         , p [ title (Api.errorToString error) ]
@@ -671,11 +678,11 @@ view model =
             viewAppHeader model
 
         withSidebar pageContent =
-            Page.SidebarLayout
+            PageLayout.SidebarLayout
                 { header = viewAppHeader model
                 , sidebar = viewMainSidebar model
                 , sidebarToggled = model.sidebarToggled
-                , content = Page.PageContent [ pageContent ]
+                , content = PageLayout.PageContent [ pageContent ]
                 }
 
         page =
@@ -695,12 +702,12 @@ view model =
                             model.perspectiveLanding
                         )
                         |> withSidebar
-                        |> Page.view
+                        |> PageLayout.view
 
                 Route.Definition _ _ ->
                     Html.map WorkspaceMsg (Workspace.view model.workspace)
                         |> withSidebar
-                        |> Page.view
+                        |> PageLayout.view
     in
     { title = "Unison Share"
     , body =