public/style.css

@@ -308,10 +308,6 @@ span.applink {
   margin-left: 4px;
 }
 
-.recipients-inline {
-  display: none;
-}
-
 .status-text {
   margin-left: 60px;
   color: #efefef;

src/Command.elm

@@ -150,6 +150,7 @@ loadNotifications client url =
             HttpBuilder.get (Maybe.withDefault ApiUrl.notifications url)
                 |> withClient client
                 |> withBodyDecoder (Decode.list notificationDecoder)
+                |> withQueryParams [ ( "limit", "30" ) ]
                 |> send (MastodonEvent << Notifications (url /= Nothing))
 
         Nothing ->
@@ -254,6 +255,7 @@ searchAccounts client query limit resolve =
                 let
                     qs =
                         [ ( "q", "@"++query )
+                        , ( "limit", toString limit )
                         , ( "resolve"
                           , if resolve then
                                 "true"
@@ -322,6 +324,7 @@ loadHomeTimeline client url =
             HttpBuilder.get (Maybe.withDefault ApiUrl.homeTimeline url)
                 |> withClient client
                 |> withBodyDecoder (Decode.list statusDecoder)
+                |> withQueryParams [ ( "limit", "60" ) ]
                 |> send (MastodonEvent << HomeTimeline (url /= Nothing))
 
         Nothing ->
@@ -335,6 +338,7 @@ loadLocalTimeline client url =
             HttpBuilder.get (Maybe.withDefault ApiUrl.publicTimeline url)
                 |> withClient client
                 |> withBodyDecoder (Decode.list statusDecoder)
+                |> withQueryParams [ ( "local", "true" ), ( "limit", "60" ) ]
                 |> send (MastodonEvent << LocalTimeline (url /= Nothing))
 
         Nothing ->
@@ -348,6 +352,7 @@ loadGlobalTimeline client url =
             HttpBuilder.get (Maybe.withDefault ApiUrl.publicTimeline url)
                 |> withClient client
                 |> withBodyDecoder (Decode.list statusDecoder)
+                |> withQueryParams [ ( "limit", "60" ) ]
                 |> send (MastodonEvent << GlobalTimeline (url /= Nothing))
 
         Nothing ->
@@ -361,7 +366,8 @@ loadAccountTimeline client accountId url =
             HttpBuilder.get (Maybe.withDefault (ApiUrl.accountTimeline accountId) url)
                 |> withClient client
                 |> withBodyDecoder (Decode.list statusDecoder)
-                |> withQueryParams [ ( "exclude_replies", "true" )
+                |> withQueryParams [ ( "limit", "60" )
+                                   , ( "exclude_replies", "true" )
                                    ]
                 |> send (MastodonEvent << AccountTimeline (url /= Nothing))
 
@@ -376,7 +382,8 @@ loadAccountTimelineReplies client accountId url =
             HttpBuilder.get (Maybe.withDefault (ApiUrl.accountTimeline accountId) url)
                 |> withClient client
                 |> withBodyDecoder (Decode.list statusDecoder)
-                |> withQueryParams [ ( "exclude_replies", "false" )
+                |> withQueryParams [ ( "limit", "60" )
+                                   , ( "exclude_replies", "false" )
                                    ]
                 |> send (MastodonEvent << AccountTimeline (url /= Nothing))
 
@@ -391,6 +398,7 @@ loadFavoriteTimeline client url =
             HttpBuilder.get (Maybe.withDefault ApiUrl.favouriteTimeline url)
                 |> withClient client
                 |> withBodyDecoder (Decode.list statusDecoder)
+                |> withQueryParams [ ( "limit", "60" ) ]
                 |> send (MastodonEvent << FavoriteTimeline (url /= Nothing))
 
         Nothing ->
@@ -404,6 +412,7 @@ loadHashtagTimeline client hashtag url =
             HttpBuilder.get (Maybe.withDefault (ApiUrl.hashtag hashtag) url)
                 |> withClient client
                 |> withBodyDecoder (Decode.list statusDecoder)
+                |> withQueryParams [ ( "limit", "60" ) ]
                 |> send (MastodonEvent << HashtagTimeline (url /= Nothing))
 
         Nothing ->
@@ -417,6 +426,7 @@ loadMutes client url =
             HttpBuilder.get (Maybe.withDefault ApiUrl.mutes url)
                 |> withClient client
                 |> withBodyDecoder (Decode.list accountDecoder)
+                |> withQueryParams [ ( "limit", "60" ) ]
                 |> send (MastodonEvent << Mutes (url /= Nothing))
 
         Nothing ->
@@ -430,6 +440,7 @@ loadBlocks client url =
             HttpBuilder.get (Maybe.withDefault ApiUrl.blocks url)
                 |> withClient client
                 |> withBodyDecoder (Decode.list accountDecoder)
+                |> withQueryParams [ ( "limit", "60" ) ]
                 |> send (MastodonEvent << Blocks (url /= Nothing))
 
         Nothing ->
@@ -680,21 +691,6 @@ uploadMedia client fileInputId =
             Cmd.none
 
 
-updateMediaDescription : Maybe Client -> String -> String -> Cmd Msg
-updateMediaDescription client mediaId description =
-    case client of
-        Just { server, token } ->
-            Ports.updateMedia
-                { id = mediaId 
-                , url = server ++ (ApiUrl.updateMedia mediaId)
-                , token = token
-                , description = description
-                }
-
-        Nothing ->
-            Cmd.none
-
-
 focusId : String -> Cmd Msg
 focusId id =
     Dom.focus id |> Task.attempt (always NoOp)