Eliminate AppContext

The apps are splitting more cleanly, removing the need for the AppContext
type.

src/Env.elm

@@ -3,7 +3,6 @@ module Env exposing (..)
 import Api exposing (ApiBasePath(..))
 import Browser.Navigation as Nav
 import Code.Perspective exposing (Perspective)
-import Env.AppContext as AppContext exposing (AppContext)
 
 
 type OperatingSystem
@@ -19,7 +18,6 @@ type alias Env =
     { operatingSystem : OperatingSystem
     , basePath : String
     , apiBasePath : ApiBasePath
-    , appContext : AppContext
     , navKey : Nav.Key
     , perspective : Perspective
     }
@@ -29,7 +27,6 @@ type alias Flags =
     { operatingSystem : String
     , basePath : String
     , apiBasePath : List String
-    , appContext : String
     }
 
 
@@ -38,7 +35,6 @@ init flags navKey perspective =
     { operatingSystem = operatingSystemFromString flags.operatingSystem
     , basePath = flags.basePath
     , apiBasePath = ApiBasePath flags.apiBasePath
-    , appContext = AppContext.fromString flags.appContext
     , navKey = navKey
     , perspective = perspective
     }

src/Code/PerspectiveLanding.elm → src/UnisonLocal/PerspectiveLanding.elm

@@ -1,13 +1,11 @@
-module Code.PerspectiveLanding exposing (..)
+module UnisonLocal.PerspectiveLanding exposing (..)
 
 import Code.Definition.Doc as Doc
 import Code.Definition.Readme as Readme
 import Code.Definition.Reference exposing (Reference)
 import Code.FullyQualifiedName as FQN exposing (FQN)
 import Code.Namespace exposing (Namespace(..))
-import Code.Perspective as Perspective
-import Env exposing (Env)
-import Env.AppContext exposing (AppContext(..))
+import Code.Perspective as Perspective exposing (Perspective)
 import Html exposing (Html, a, article, div, h2, header, p, section, span, strong, text)
 import Html.Attributes exposing (class, href, id, rel, target)
 import Lib.Util as Util
@@ -111,32 +109,21 @@ viewEmptyState title description cta =
         ]
 
 
-viewEmptyStateCodebase : AppContext -> Html Msg
-viewEmptyStateCodebase appContext =
-    let
-        button =
-            Button.iconThenLabel Find Icon.search "Find Definition"
-                |> Button.primaryMono
-                |> Button.medium
-    in
-    case appContext of
-        UnisonLocal ->
-            viewEmptyState
-                (span [ class "unison-local" ] [ text "Your ", span [ class "context" ] [ text "Local" ], text " Unison Codebase" ])
-                [ p [] [ text "Browse, search, read docs, open definitions, and explore your local codebase." ]
-                , p []
-                    [ text "Check out "
-                    , a [ class "unison-share", href "https://share.unison-lang.org", rel "noopener", target "_blank" ] [ strong [] [ text "Unison Share" ] ]
-                    , text " for community projects."
-                    ]
-                ]
-                button
-
-        UnisonShare ->
-            viewEmptyState
-                (span [ class "unison-share" ] [ text "Unison ", span [ class "context" ] [ text "Share" ] ])
-                [ p [] [ text "Explore to discover and share Unison libraries, documentation, types, and terms." ] ]
-                button
+viewEmptyStateCodebase : Html Msg
+viewEmptyStateCodebase =
+    viewEmptyState
+        (span [ class "unison-local" ] [ text "Your ", span [ class "context" ] [ text "Local" ], text " Unison Codebase" ])
+        [ p [] [ text "Browse, search, read docs, open definitions, and explore your local codebase." ]
+        , p []
+            [ text "Check out "
+            , a [ class "unison-share", href "https://share.unison-lang.org", rel "noopener", target "_blank" ] [ strong [] [ text "Unison Share" ] ]
+            , text " for community projects."
+            ]
+        ]
+        (Button.iconThenLabel Find Icon.search "Find Definition"
+            |> Button.primaryMono
+            |> Button.medium
+        )
 
 
 viewEmptyStateNamespace : FQN -> Html Msg
@@ -154,11 +141,11 @@ viewEmptyStateNamespace fqn =
         )
 
 
-view : Env -> Model -> Html Msg
-view env model =
-    case env.perspective of
+view : Perspective -> Model -> Html Msg
+view perspective model =
+    case perspective of
         Perspective.Codebase _ ->
-            viewEmptyStateCodebase env.appContext
+            viewEmptyStateCodebase
 
         Perspective.Namespace { fqn, details } ->
             case details of

src/UnisonShare/PerspectiveLanding.elm

@@ -0,0 +1,177 @@
+module UnisonShare.PerspectiveLanding exposing (..)
+
+import Code.Definition.Doc as Doc
+import Code.Definition.Readme as Readme
+import Code.Definition.Reference exposing (Reference)
+import Code.FullyQualifiedName as FQN exposing (FQN)
+import Code.Namespace exposing (Namespace(..))
+import Code.Perspective as Perspective exposing (Perspective)
+import Html exposing (Html, a, article, div, h2, header, p, section, span, strong, text)
+import Html.Attributes exposing (class, href, id, rel, target)
+import Lib.Util as Util
+import RemoteData exposing (RemoteData(..))
+import UI
+import UI.Button as Button exposing (Button)
+import UI.Icon as Icon
+import UI.Toolbar as Toolbar
+
+
+type alias Model =
+    Doc.DocFoldToggles
+
+
+init : Model
+init =
+    Doc.emptyDocFoldToggles
+
+
+type Msg
+    = OpenReference Reference
+    | ToggleDocFold Doc.FoldId
+    | Find
+
+
+type OutMsg
+    = OpenDefinition Reference
+    | ShowFinderRequest
+    | None
+
+
+update : Msg -> Model -> ( Model, OutMsg )
+update msg model =
+    case msg of
+        OpenReference r ->
+            ( model, OpenDefinition r )
+
+        Find ->
+            ( model, ShowFinderRequest )
+
+        ToggleDocFold fid ->
+            ( Doc.toggleFold model fid, None )
+
+
+
+-- VIEW
+
+
+container : List (Html msg) -> Html msg
+container content =
+    article [ id "perspective-landing" ]
+        [ section
+            [ id "perspective-landing-content" ]
+            content
+        ]
+
+
+viewLoading : Html msg
+viewLoading =
+    container
+        [ div
+            [ class "loading" ]
+            [ UI.loadingPlaceholderRow
+            , UI.loadingPlaceholderRow
+            ]
+        ]
+
+
+viewError : FQN -> String -> Html msg
+viewError fqn message =
+    container
+        [ div
+            [ class "perspective-landing-error" ]
+            [ header [] [ Icon.view Icon.warn, text ("Error loading " ++ FQN.toString fqn) ]
+            , p [] [ text message ]
+            ]
+        ]
+
+
+viewEmptyState : Html msg -> List (Html msg) -> Button msg -> Html msg
+viewEmptyState title description cta =
+    let
+        fauxItem =
+            div [ class "faux-empty-state-item" ]
+                [ UI.loadingPlaceholderRow
+                , UI.loadingPlaceholderRow
+                ]
+    in
+    container
+        [ section [ class "perspective-landing-empty-state" ]
+            [ section
+                [ class "content" ]
+                (h2 [] [ title ]
+                    :: description
+                    ++ [ fauxItem
+                       , fauxItem
+                       , section [ class "actions" ] [ Button.view cta ]
+                       ]
+                )
+            ]
+        ]
+
+
+viewEmptyStateCodebase : Html Msg
+viewEmptyStateCodebase =
+    viewEmptyState
+        (span [ class "unison-share" ] [ text "Unison ", span [ class "context" ] [ text "Share" ] ])
+        [ p [] [ text "Explore to discover and share Unison libraries, documentation, types, and terms." ] ]
+        (Button.iconThenLabel Find Icon.search "Find Definition"
+            |> Button.primaryMono
+            |> Button.medium
+        )
+
+
+viewEmptyStateNamespace : FQN -> Html Msg
+viewEmptyStateNamespace fqn =
+    let
+        fqn_ =
+            FQN.toString fqn
+    in
+    viewEmptyState
+        (FQN.view fqn)
+        [ p [] [ text "Browse, search, read docs, open definitions, and explore" ] ]
+        (Button.iconThenLabel Find Icon.search ("Find Definitions in " ++ fqn_)
+            |> Button.primaryMono
+            |> Button.medium
+        )
+
+
+view : Perspective -> Model -> Html Msg
+view perspective model =
+    case perspective of
+        Perspective.Codebase _ ->
+            viewEmptyStateCodebase
+
+        Perspective.Namespace { fqn, details } ->
+            case details of
+                NotAsked ->
+                    viewLoading
+
+                Loading ->
+                    viewLoading
+
+                Success (Namespace _ _ { readme }) ->
+                    let
+                        content =
+                            case readme of
+                                Just r ->
+                                    container
+                                        [ div [ class "perspective-landing-readme" ]
+                                            [ header [ class "title" ] [ Icon.view Icon.doc, text "README" ]
+                                            , Readme.view OpenReference ToggleDocFold model r
+                                            ]
+                                        ]
+
+                                Nothing ->
+                                    viewEmptyStateNamespace fqn
+                    in
+                    div []
+                        [ Button.iconThenLabel Find Icon.search "Find Definition"
+                            |> Button.small
+                            |> Button.view
+                            |> Toolbar.toolbar
+                            |> Toolbar.view
+                        , content
+                        ]
+
+                Failure error ->
+                    viewError fqn (Util.httpErrorToString error)

src/unisonLocal.js

@@ -30,7 +30,6 @@ const flags = {
   operatingSystem: detectOs(window.navigator),
   basePath,
   apiBasePath,
-  appContext: "UnisonLocal",
 };
 
 preventDefaultGlobalKeyboardEvents();

src/unisonShare.js

@@ -20,7 +20,6 @@ const flags = {
   operatingSystem: detectOs(window.navigator),
   basePath,
   apiBasePath,
-  appContext: "UnisonShare",
 };
 
 preventDefaultGlobalKeyboardEvents();