ProjectHistoryPage: Add Icon.history and clean up

Author: hojberg

src/UnisonShare/Page/ProjectHistoryPage.elm

@@ -9,7 +9,7 @@ import Lib.Util as Util
 import RemoteData exposing (RemoteData(..), WebData)
 import String.Extra exposing (pluralize)
 import UI
-import UI.AnchoredOverlay as AnchoredOverlay exposing (AnchoredOverlay)
+import UI.AnchoredOverlay as AnchoredOverlay
 import UI.Card as Card
 import UI.DateTime as DateTime
 import UI.Icon as Icon exposing (Icon)
@@ -111,13 +111,14 @@ update appContext project _ msg model =
 
 
 fetchProjectBranchHistory : AppContext -> ProjectRef -> BranchRef -> Paginated.PageCursorParam -> Cmd Msg
-fetchProjectBranchHistory _ _ branchRef cursor =
+fetchProjectBranchHistory _ _ branchRef _ =
     let
-        params =
-            { limit = 64
-            , cursor = cursor
-            }
-
+        {-
+           params =
+               { limit = 64
+               , cursor = cursor
+               }
+        -}
         mkPaginated prev next items =
             Paginated.Paginated { prev = prev, next = next, items = items }
 
@@ -219,13 +220,6 @@ viewHistoryEntry_ className icon { leftTitle, rightTitle } cardContent =
 
 viewHistoryEntry : AppContext -> HistoryEntry -> Html msg
 viewHistoryEntry appContext entry =
-    let
-        card content =
-            Card.card content
-                |> Card.withClassName "project-history_entry"
-                |> Card.asContained
-                |> Card.view
-    in
     case entry of
         BranchHistory.Comment comment ->
             let
@@ -284,7 +278,7 @@ viewHistoryEntry appContext entry =
             in
             viewHistoryEntry_
                 "history-entry_changeset"
-                Icon.hash
+                Icon.historyNode
                 { leftTitle = Hash.view changeset.hash, rightTitle = text numChanges }
                 [ viewCardContent changeset ]
 

src/UnisonShare/Page/ProjectPage.elm

@@ -316,9 +316,7 @@ update appContext projectRef route msg model =
                             ProjectHistoryPage.init appContext project_ branchRef cursor
                     in
                     ( { modelWithProject | subPage = History branchRef cursor history }
-                    , Cmd.batch
-                        [ Cmd.map ProjectHistoryPageMsg cmd
-                        ]
+                    , Cmd.map ProjectHistoryPageMsg cmd
                     )
 
                 _ ->

src/UnisonShare/Project/BranchHistory.elm

@@ -1,14 +1,11 @@
 module UnisonShare.Project.BranchHistory exposing (..)
 
-import Code.BranchRef as BranchRef exposing (BranchRef)
 import Code.FullyQualifiedName as FQN exposing (FQN)
 import Code.Hash as Hash exposing (Hash)
-import Code2.Workspace.DefinitionMatch as DefinitionMatch exposing (DefinitionMatch)
 import Json.Decode as Decode
-import Json.Decode.Pipeline exposing (optionalAt, required, requiredAt)
+import Json.Decode.Pipeline exposing (required, requiredAt)
 import Lib.Decode.Helpers exposing (maybeAt, whenTagIs)
 import UI.DateTime as DateTime exposing (DateTime)
-import UnisonShare.Project.ProjectRef as ProjectRef exposing (ProjectRef)
 import UnisonShare.User as User exposing (UserSummary)
 
 

src/css/unison-share/page/project-history-page.css

@@ -20,7 +20,7 @@
 
         &::before {
           position: absolute;
-          left: 0.5625rem;
+          left: calc(0.5625rem - 0.5px);
           top: 0;
           bottom: 0;
           content: " ";
@@ -45,6 +45,10 @@
         .icon {
           font-size: var(--font-size-extra-small);
         }
+
+        .icon.history-node {
+          font-size: var(--font-size-small);
+        }
       }
 
       .history-entry_title-and-details {