Fix tag menu when restricting results

When search results are restricted in a share view, tags may disappear
and thus the tags from the beginning need to be kept.

modules/webapp/src/main/elm/Page/Home/SideMenu.elm

@@ -82,10 +82,16 @@ viewSearch texts flags settings model =
         , end = []
         , rootClasses = "my-1 text-xs hidden sm:flex"
         }
-    , Html.map SearchMenuMsg
+    , let
+        searchMenuCfg =
+            { overrideTabLook = \_ -> identity
+            }
+      in
+      Html.map SearchMenuMsg
         (Comp.SearchMenu.viewDrop2 texts.searchMenu
             model.dragDropData
             flags
+            searchMenuCfg
             settings
             model.searchMenuModel
         )

modules/webapp/src/main/elm/Page/Share/Sidebar.elm

@@ -8,6 +8,7 @@
 module Page.Share.Sidebar exposing (..)
 
 import Comp.SearchMenu
+import Comp.Tabs
 import Data.Flags exposing (Flags)
 import Data.UiSettings exposing (UiSettings)
 import Html exposing (..)
@@ -19,6 +20,19 @@ import Util.ItemDragDrop
 
 view : Texts -> Flags -> UiSettings -> Model -> Html Msg
 view texts flags settings model =
+    let
+        hideTrashTab tab default =
+            case tab of
+                Comp.SearchMenu.TabTrashed ->
+                    Comp.Tabs.Hidden
+
+                _ ->
+                    default
+
+        searchMenuCfg =
+            { overrideTabLook = hideTrashTab
+            }
+    in
     div
         [ class "flex flex-col"
         ]
@@ -26,6 +40,7 @@ view texts flags settings model =
             (Comp.SearchMenu.viewDrop2 texts.searchMenu
                 ddDummy
                 flags
+                searchMenuCfg
                 settings
                 model.searchMenuModel
             )